Columns . . . :                     Edit                         GOLFP/SRCFILE 
 SEU==>_______________________________________________________           SPR00 
        Keywords++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
        *************** Beginning of data ************************************* 

  PGM    /* SRP00 - BUILD INVENTORY MASTER */

        SNDPGMMSG    MSG('CALL SPR000 & COPY DATA FROM SPRINV2.') +
                      MSGTYPE(*INFO) TOPGMQ(*EXT)

        CPYF  FROMFILE(SRFILELIB/SPRINV2) +
                       TOFILE(GOLFP/SPRINV) MBROPT(*REPLACE) +
                       CRTFILE(*NO)

        CLRPFM FILE(CIBROWNI/SPRSNF)

        CRTPGM     PGM(GOLFP/ME) MODULE(GOLFP/SPR000 +
                          GOLFP/SPR001 GOLFP/SPR002 +
                          GOLFP/SPR003 GOLFP/SPR004)

        CALL       PGM(GOLFP/ME)

        RETURN
        ENDPGM