zOs/JCL/QM65

$#@
call iivPut 'RZ4/DP4G'
$=job = QM650${rzC}0P
$= rzD1 =- iirz2c($rzD)
$<>
$>. fedit()
$@=/job/
//$job JOB (PD00,KE50,,SP00000000),
//             'MAINVIEW IN BATCH',
//             MSGCLASS=T,SCHENV=DB2
//*MAIN CLASS=P2
//********************************************************************
//*  mainView extract for $rz job $job
//*      generated at $-[f('%t s')$]
//*                by A540769.WK.JCL(QZT65)
//********************************************************************
//*
//P01     EXEC PGM=IKJEFT01,
//             DYNAMNBR=300,
//             REGION=64M
//SYSTSPRT  DD SYSOUT=*
//ISPMLIB   DD DSN=TSO.$rzD.P0.INST.MSGS,DISP=SHR
//          DD DSN=TSO.$rzD.P0.PROD.MSGS,DISP=SHR
//          DD DSN=ISP.SISPMENU,DISP=SHR
//          DD DSN=SYS1.SBPXMENU,DISP=SHR
//ISPSLIB   DD DSN=ISP.SISPSENU,DISP=SHR
//          DD DSN=ISP.SISPSLIB,DISP=SHR
//          DD DSN=TSO.$rzD.P0.PROD.SKELS,DISP=SHR
//ISPTLIB   DD DSN=TSO.$rzD.P0.INST.TABLES,DISP=SHR
//          DD DSN=ISP.SISPTENU,DISP=SHR
//          DD DSN=TSO.$rzD.P0.PROD.TABLES,DISP=SHR
//          DD DSN=SYS1.SBPXTENU,DISP=SHR
//ISPPLIB   DD DSN=TSO.$rzD.P0.INST.PANELS,DISP=SHR
//          DD DSN=ISP.SISPPENU,DISP=SHR
//          DD DSN=TSO.$rzD.P0.PROD.PANELS,DISP=SHR
//          DD DSN=SYS1.SBPXPENU,DISP=SHR
//SYSEXEC   DD DSN=TSO.$rzD.P0.INST.EXEC,DISP=SHR
//          DD DSN=ISP.SISPEXEC,DISP=SHR
//          DD DSN=TSO.$rzD.P0.PROD.CEXEC,DISP=SHR
//          DD DSN=TSO.$rzD.P0.PROD.EXEC,DISP=SHR
//ISPLOG    DD SYSOUT=*,RECFM=VA,LRECL=125,BLKSIZE=129
//SYSPROC   DD DSN=DSN.MVEXT.EXEC,DISP=SHR
//ISPLIST   DD SYSOUT=*,RECFM=FBA,LRECL=121,BLKSIZE=1210        BAA0923
//ISPPROF   DD DSN=&TMPPROF,
//             DISP=(NEW,PASS),
//             UNIT=VIO,
//             SPACE=(TRK,(10,10,5)),
//             RECFM=FB,LRECL=80,BLKSIZE=8880
//CMDLIST   DD DSN=DSN.MVEXT.CMDLIST,
//             DISP=(MOD,CATLG),
//             MGMTCLAS=BAT#WK,
//             SPACE=(CYL,(1,10)),
//             RECFM=VBA,LRECL=2000,
//             DSORG=PS
//SYSTSIN   DD DSN=DSN.MVEXT.EXEC(QM650${rzD1}02),DISP=SHR
//*
// IF RC = 0 THEN
//P02     EXEC PGM=IKJEFT01,
//             DYNAMNBR=200,
//             PARM='%DB2MVEXT',
//             TIME=99
//SYSPROC   DD DSN=DSN.MVEXT.EXEC,DISP=SHR
//SYSIN     DD DUMMY
//SYSTSIN   DD DUMMY
//SYSTSPRT  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSTERM   DD DUMMY
// ENDIF
$/job/
$#out                                              20141022 10:20:57
$#out                                              20141014 17:11:19