STRPDM.COM
PGM
DCLF
FILE(SRCCMPD1) RCDFMT(SCREEN1)
CLRPFM FILE(*LIBL/SRCCMPW1)
CLRPFM FILE(*LIBL/SRCCMPW2)
/*-------------------------------------------------------------------*/
/* CHANGE DEFAULT VALUES HERE!!!!
*/
/*-------------------------------------------------------------------*/
/* FILE 1 */
CHGVAR VAR(&FILE1) VALUE('
')
/* FILE 2 */
CHGVAR VAR(&FILE2) VALUE('
')
/* LIBRARY 1 */
CHGVAR VAR(&LIB1) VALUE('*LIBL')
/* LIBRARY 2 */
CHGVAR VAR(&LIB2) VALUE('*LIBL')
/*-------------------------------------------------------------------*/
/* PROCESS SCREEN UNTIL NO ERRORS
*/
/*-------------------------------------------------------------------*/
RETRY: SNDRCVF
DEV(*FILE) RCDFMT(SCREEN1)
IF COND(&IN03 *EQ '1')
THEN(DO)
GOTO
CMDLBL(END)
ENDDO
CHGVAR VAR(&TEXT) VALUE(*BLANKS)
CHKOBJ OBJ(&LIB1/&FILE1) OBJTYPE(*FILE)
MONMSG MSGID(CPF9801) EXEC(DO)
CHGVAR VAR(&TEXT) VALUE('FILE1 NOT FOUND')
GOTO
CMDLBL(RETRY)
ENDDO
MONMSG MSGID(CPF9810) EXEC(DO)
CHGVAR VAR(&TEXT) VALUE('LIBRARY1 NOT FOUND')
GOTO
CMDLBL(RETRY)
ENDDO
CHKOBJ OBJ(&LIB2/&FILE2) OBJTYPE(*FILE)
MONMSG MSGID(CPF9801) EXEC(DO)
CHGVAR VAR(&TEXT) VALUE('FILE2 NOT FOUND')
GOTO
CMDLBL(RETRY)
ENDDO
MONMSG MSGID(CPF9810) EXEC(DO)
CHGVAR VAR(&TEXT) VALUE('LIBRARY2 NOT FOUND')
GOTO
CMDLBL(RETRY)
ENDDO
/*-------------------------------------------------------------------*/
/* CREATE OUTFILE OF MEMBER INFORMATION
*/
/*-------------------------------------------------------------------*/
DSPFD FILE(&LIB1/&FILE1) TYPE(*MBRLIST)
+
OUTPUT(*OUTFILE) OUTFILE(SRCCMPW1)
DSPFD FILE(&LIB2/&FILE2) TYPE(*MBRLIST)
+
OUTPUT(*OUTFILE) OUTFILE(SRCCMPW2)
/*-------------------------------------------------------------------*/
/* CALL PROGRAM TO REPORT DIFFERENCES
*/
/*-------------------------------------------------------------------*/
CALL
PGM(SRCCMPR1)
END:
ENDPGM