Here is the jcl:
//SMPE EXEC PGM=GIMSMP,PARM='DATE=U',REGION=4096K
//SMPCSI DD DISP=OLD,DSN=CAI.DS60.CSI
//SMPPTS DD DISP=OLD,DSN=CAI.DS60.SMPPTS
//SMPLOG DD SYSOUT=X
//SYSUT1 DD UNIT=SYSDA,SPACE=(3000,(380,760)),DISP=(,DELETE)
//SYSUT2 DD UNIT=SYSDA,SPACE=(3000,(380,760)),DISP=(,DELETE)
//SYSUT3 DD UNIT=SYSDA,SPACE=(3000,(380,760)),DISP=(,DELETE)
//SYSUT4 DD UNIT=SYSDA,SPACE=(3000,(380,760)),DISP=(,DELETE)
//SMPE.SMPPTFIN DD DSN=SYSP.DS60.FILES,DISP=SHR
//SMPCNTL DD *
SET BOUNDARY(GLOBAL) .
RECEIVE
SYSMODS LIST .
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
