Re: Extract SMPE FMIDs

[Miran Cotic]

You can use two jobs attached bellow:

//S1       EXEC PGM=GIMSMP,REGION=0M,TIME=NOLIMIT
//SMPCSI   DD DISP=SHR,DSN=ZOS17.GLOBAL.CSI
//SMPLOG   DD DUMMY
//SMPLOGA  DD DUMMY
//SMPPUNCH DD  DSN=SYSPROG.SMPPUNCH,DISP=SHR
//SMPOUT   DD  SYSOUT=*
//SMPRPT   DD  SYSOUT=*
//SMPLIST  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SMPCNTL  DD *
       SET BDY(MVST100) .
             BUILDMCS FORFMID(
                              XXXXXXX
                              ) .
/*

and

//S1       EXEC PGM=GIMSMP,REGION=0M,TIME=NOLIMIT
//SMPCSI   DD DISP=SHR,DSN=ZOS18.GLOBAL.CSI
//SMPLOG   DD DUMMY
//SMPLOGA  DD DUMMY
//SMPLIST  DD  SYSOUT=X
//SMPRPT   DD  SYSOUT=X
//SMPOUT   DD  SYSOUT=X
//SYSPRINT DD  SYSOUT=X
//SMPCNTL  DD *
  SET    BOUNDARY (GLOBAL)
                  .
  RECEIVE
                SYSMODS
                .
//SMPPTFIN DD DISP=SHR,
//            DSN=SYSPROG.SMPPUNCH
//*

Best regards,
      Miran

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html