zOs/JCL/QPB9201Q

//QPB9201Q JOB (PD00,KE50,,SP00000000),
//             'DPRSMF',
//             MSGCLASS=T,
//             SCHENV=DP4G,
//             CLASS=M1
//*******************************************************
//*       nur wsh step aus qpb9201P
//********************************************************************
//*                         JCLPREP   12/18/2013   14:31:29   F965472
//********************************************************************
//*
//        SET  JOB=WKTEST
//        SET  SSID=DP4G
//        SET  RZ=RZ2
//        SET  LIB=DB2@.RZ4.P0.DSNLOAD
//PRSU1#1 EXEC PGM=IEFBR14
//LIB       DD DISP=(MOD,CATLG,CATLG),DSN=DSN.JOBRUN.&JOB.,
//             DATACLAS=UN0000E0,MGMTCLAS=BAT#AT,DSNTYPE=LIBRARY,
//             DCB=(RECFM=FB,LRECL=80,DSORG=PO),SPACE=(CYL,(1,10))
//*--- WSH GENERATES UTILITY INPUT AND SQL -----------------------------
//PRSU1#2 EXEC PGM=IKJEFT01,DYNAMNBR=200,TIME=99,
//             PARM='WSH @ $=jn= &JOB. $=dbSy= &SSID. $=rz= &RZ. $#@'
//SYSPROC   DD DSN=A540769.WK.REXX,DISP=SHR
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSTSIN   DD DUMMY
//UTIL      DD DISP=SHR,DSN=DSN.JOBRUN.&JOB.(UTIL)
//SQL       DD DISP=SHR,DSN=DSN.JOBRUN.&JOB.(SQL)
//WSH       DD DISP=SHR,DSN=DSN.DB2.LCTL(PRSULOAW)
//
//*--- DB2 UTILITY -----------------------------------------------------
//          IF PRSU1#2.RUN AND PRSU1#2.RC = 0 THEN
//PRSU1#3 EXEC PGM=DSNUTILB,PARM='&SSID.,&JOB..LOAD'
//STEPLIB   DD DSN=&LIB,DISP=SHR
//SYSMAP    DD SYSOUT=*
//UTPRINT   DD SYSOUT=*
//SYSERR    DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTEMPL  DD DSN=&SSID..DBAA.LISTDEF(TEMPL),DISP=SHR
//SYSIN     DD DISP=SHR,DSN=*.PRSU1#2.UTIL
//       ENDIF
//*--- EXECUTE SQL -----------------------------------------------------
//          IF PRSU1#3.RUN AND (PRSU1#3.RC = 0 OR PRSU1#3.RC= 4) THEN
//PRSU1#4 EXEC PGM=IKJEFT01,DYNAMNBR=20,PARM='END'
//SYSPRINT  DD SYSOUT=*
//SYSTSPRT  DD SYSOUT=*
//SYSOUT    DD SYSOUT=*
//SYSTSIN   DD DSN=DSN.SKA.P0.PARM(DP4GTEP2),DISP=SHR
//SYSIN     DD DISP=SHR,DSN=*.PRSU1#2.SQL
//       ENDIF
//       PEND
//P05    ?EXEC PR#SU1,
//             JOB=QPB9201P,
//             RZ=RZ2