Bitneuker
IMS Moderator
Joined: 07 Nov 2005
Posts: 1130
Location: The Netherlands at Hole 19
|
|
|
|
| Code: |
//ACBGEN EXEC PGM=DFSRRC00,PARM='UPB',REGION=0K
//SYSPRINT DD SYSOUT=*
//DFSRESLB DD DSN=SYS1.RESLIB,DISP=SHR
//DFSVSAMP DD DSN=AYSYS.PROD.INSYS1(IMSBUF),DISP=SHR
//IMS DD DSN=NTSYS.IMSVS.PSBLIB,DISP=SHR
// DD DSN=NTSYS.IMSVS.PSBLIB,DISP=SHR
// DD DSN=NTSYS.IMSVS.DBDLIB,DISP=SHR
// DD DSN=NASYS.IMSVS.PSBLIB,DISP=SHR
// DD DSN=NASYS.IMSVS.DBDLIB,DISP=SHR
// DD DSN=NPSYS.IMSVS.PSBLIB,DISP=SHR
// DD DSN=NPSYS.IMSVS.DBDLIB,DISP=SHR
//IMSACB DD DSN=NTSYS.IMSVS.ACBLIBA.V810,DISP=SHR
//SYSUT3 DD SPACE=(80,(100,100)),
// UNIT=SYSDA
//SYSUT4 DD SPACE=(256,(100,100)),
// DCB=KEYLEN=8,
// UNIT=SYSDA
//SYSIN DD *
BUILD PSB=PINKO76 |
If you want to generate more add BUILD PSB cards. |
|
