zOs/TX/WK924UPJ

//A540769U  JOB (CP00,KE50),TIME=99                                     00010001
//*MAIN CLASS=CMNA
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00020001
//            PARM='wsh s'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//ISPPLIB  DD  DSN=TSO.ISPF.ISPPLIB,DISP=SHR
//ISPMLIB  DD  DSN=TSO.ISPF.ISPMLIB,DISP=SHR
//*                TSO.RZ1.P0.INST.MSGS
//         DD  DSN=ISP.SISPMENU,DISP=SHR
//*                TSO.RZ1.P0.PROD.MSGS
//*                ORG.RZ1.B0106.KPCO4.MSGS
//*                TSO.RZ1.P0.USER.MSGS
//ISPSLIB  DD  DSN=TSO.ISPF.ISPSLIB,DISP=SHR
//ISPTLIB  DD  DSN=TSO.ISPF.ISPTLIB,DISP=SHR
//ISPPROF   DD DISP=(,PASS),UNIT=VIO,
//             SPACE=(CYL,(1,1,30)),RECFM=FB,LRECL=80
//*
//*            DSORG=PO
//ISPLOG    DD SYSOUT=*,RECFM=VA,LRECL=125
//ISPLIST   DD SYSOUT=*,RECFM=FBA,LRECL=121
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//OUT       DD SYSOUT=*
//SYSTSIN   DD DUMMY
//WSH       DD DISP=SHR,DSN=A540769.TX.CASE(WK924UPD)