//IPCS     EXEC PGM=IKJEFT01
//SYSPROC  DD DISP=SHR,DSN=SYS1.SBLSCLI0
//INPUT    DD DISP=SHR,DSN=SYS1.DUMP00
//SYSTSPRT DD SYSOUT=*
//IPCSPRNT DD SYSOUT=*,DCB=(DSORG=PS,RECFM=VBA,BLKSIZE=0,LRECL=137)
//SYSTSIN  DD *
 DELETE 'MY.IPCS.DIRECTRY'
 DEFINE CLUSTER(NAME('MY.IPCS.DIRECTRY') VOL(WORK00)) -
        INDEX(NAME('MY.IPCS.DIRINDEX') CYLINDERS(1 1)) -
        DATA(NAME('MY.IPCS.DIRDATA') CYLINDERS(1 1) -
                   KEYS(128 0) -
                   CONTROLINTERVALSIZE(4096))
 ALLOC F(IPCSDDIR) DA('MY.IPCS.DIRECTRY')
 IPCSDDIR 'MY.IPCS.DIRECTRY' NOCONFIRM
 IPCS NOPARM
 SETDEF DDNAME(INPUT) NOCONFIRM
 /*                                       */
 /* IPCS COMMAND AT HERE                  */
 /* ====================                  */
 STATUS SYSTEM CPU REGISTERS WORKSHEET PRINT NOTERMINAL
 LIST 009CE960:009CEA60
 END
//
//
 BLSCPRNT CURRENT,CSA
//
//