zOs/JCL/WSHISPF

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG0                                                      00040000
//*
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,                      00020001
//*           PARM='%runISPF wsh b'
//            PARM='ISPSTART CMD(%WSH T ALL all)'
//*           PARM='WSH'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//*SYSPROC   DD DSN=TSO.RZ1.P0.PROD.EXEC,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(XC200DEL)
$$ wie gehts $-{3*4 }