Return to the Sample Job Stream List

TAI134PR Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=AI134PR,DISP=H,CLASS=5,USER=0000AI0730000000
* $$ LST LST=01E,CLASS=I,DISP=D,JSEP=1
// JOB AI134PR
* // JA RERUNON X
// EXEC PROC=IDLPROD
// ASSGN SYS202,01E
// EXEC IDBATCH,SIZE=768K,PARM='NOPRINT'
PERSON JOEM PSW MOUSE PRODUCT IDEAL
ASSIGN REPORT AI134RPT TO SYS202
SET RUN FILETABLE DBFLT101
RUN AI134PR V PROD
OFF
/*
/&
// JA RERUNOFF
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//TAI134PR JOB (TAI134PR),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//*     STEP0010  PROC=IDLPROD                                          IDBATCH
//*
//STEP0010 EXEC PROC=IDLPROD,PARM='NOPRINT'
//* PR O SYS202 01E 0001
//SYS202   DD  SYSOUT=I
//* CD I
//SYSIN    DD  *
PERSON JOEM PSW MOUSE PRODUCT IDEAL
ASSIGN REPORT AI134RPT TO SYS202
SET RUN FILETABLE DBFLT101
RUN AI134PR V PROD
OFF
/*
//
   

Return to the Sample Job Stream List