STRPDM.COM

/*-------------------------------------------------------------------*/
/*      COMPARE MEMBERS THAT EXIST IN BOTH FILES                     */
/*-------------------------------------------------------------------*/
             PGM        PARM(&LIB1 &FILE1 &LIB2 &FILE2 &MEMBER1 +
                          &MEMBER2)
             DCL        VAR(&LIB1) TYPE(*CHAR) LEN(10)
             DCL        VAR(&LIB2) TYPE(*CHAR) LEN(10)
             DCL        VAR(&FILE1) TYPE(*CHAR) LEN(10)
             DCL        VAR(&FILE2) TYPE(*CHAR) LEN(10)
             DCL        VAR(&MEMBER1) TYPE(*CHAR) LEN(10)
             DCL        VAR(&MEMBER2) TYPE(*CHAR) LEN(10)

 

             CLRPFM     FILE(*LIBL/SRCCMPW3)

 

             CMPPFM     NEWFILE(&LIB1/&FILE1) NEWMBR(&MEMBER1) +
                          OLDFILE(&LIB2/&FILE2) OLDMBR(&MEMBER2) +
                          RPTTYPE(*DIFF) OUTPUT(*PRINT) +
                          OPTION(*LONGLINES)
             CPYSPLF    FILE(QSYSPRT) TOFILE(SRCCMPW3) SPLNBR(*LAST)

 

 ENDIT:      ENDPGM