PGM PARM(&PREVDAY) DCL VAR(&PREVDAY) TPE(*CHAR) LEN(8) DCL VAR(&CTCD) TYPE(*CHAR) LEN(2) VALUE('AB') DCL VAR(&GMAB) TYPE (*CHAR) LEN(4) VALUE('HJKL') DCL VAR(&BRNO) TYPE(*DEC) LEN(3) DCL VAR(&L@CTCD) TYPE(*CHAR) LEN(2) VALUE('AB') DCL VAR(&L@GMAB) TYPE(*CHAR) LEN(4) VALUE('HJKL') DCL VAR(&L@BRNO) TYPE(*CHAR) LEN(3 0) DCL VAR(&L@XMDT) TYPE(*CHAR) LEN(8) DCL VAR(&P@BRNO) TYPE(*CHAR) LEN(3) DCL VAR(&P@XMDT) TYPE(*CHAR) LEN(8) DCL VAR(&SELT1) TYPE(*CHAR) LEN(175) DCL VAR(&W1DATE) TYPE(*CHAR) LEN(8) DCL VAR(&QRY) TYPE(*CHAR) LEN(350) DCL VAR(&P0QRY1) TYPE(*CHAR) LEN(2) VALUE('Q1') DCL VAR(&P0QRY2) TYPE(*CHAR) LEN(2) VALUE('Q2') DCL VAR(&P0QRY3) TYPE(*CHAR) LEN(2) VALUE('Q3') DCLF FILE(SSBRCPL) READ: RCVF MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END)) CHGVAR VAR(&L@BRNO) VALUE(&XIBRNO) CHGVAR VAR(&L@GMAB) VALUE(&GMAB) CHGVAR VAR(&L@CTCD) VALUE(&CTCD) CHGVAR VAR(&L@XMDT) VALUE(&W1DATE) CVTDAT DATE(&PREVDAY) TOVAR(&W1DATE) FROMFMT(*ISO) + TOFMT(*DMYY) TOSEP(*NONE) CHGVAR VAR(&L@XMDT) VALUE(&W1DATE) IF COND(&L@BRNO *EQ ' ') THEN(DO) GOTO CMDLBL(READ) ENDDO CHGVAR VAR(&SELT1) VALUE ('L@CTCD *EQ "' || &CTCD || + ' " *AND L@GMAB *EQ "' || &GMAB || " *AND + L@BRNO *EQ "' || &L@BRNO || '" *AND + L@XMDT *EQ "' || &W1DATE || ' " ') CHKOBJ OBJ (QTEMP/BA@IMTP) OBJTYPE(*FILE) MONMSG MSGID(CPF9801) EXEC(DO) CRTDUPOBJ OBJ(BA@IMTP) FROMLIB(*LIBL) OBJTYPE(*FILE) + TOLIB(QTEMP) NEWOBJ(BA@IMTP) CST(*NO) + TRG(*NO) ACCTL(*NONE) ENDDO CLRPFM FILE(INBA71P) MBR(*ALL) CALL PGM(INB071M) PARM(&W1DATE &P0QRY1) OVRDBF FILE(BA@IMTP) TOFILE(QTEMP/BA@IMTP) + OVRSCOPE(*JOB) SHARE(*YES) OPNQRYF FILE ((BA@IMTP)) QRYSLT(&SELT1) + KEYFLD(L@CTCD) (L@GMAB) (L@BRNO)) CHGVAR VAR(&L@XMDT) VALUE(&W1DATE) CHGVAR VAR(&P@BRNO) VALUE(&L@BRNO) CHGVAR VAR(&P@XMDT) VALUE(&L@XMDT) CLRPFM FILE(INBA71P) MBR(*ALL) CALL PGM (INB71A) PARM( &L@CTCD &L@GMAB + &P@BRNO &P@XMDT) CLOF OPNID(BA@IMTP) DLTOVR FILE(*ALL) LVL(*JOB) RCLRSC CALL PGM(INBA071M) PARM(&W1DATE &P0QRY2) CALL PGM (INBA071M) PARM(&W1DATE &P0QRY3) GOTO CMDLBL(READ) END: ENDPGM