PTC500B Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=PTC500B,CLASS=H,PRI=5
* $$ LST DISP=D,CLASS=Q
// JOB JSDYNPRT
/. STEPS010
* *===========================================================*
* * CHECK FOR EXISTANCE OF ENROLLMENT FILE                    *
* *===========================================================*
// EXEC DYNUTIL,SIZE=1024K
 DISPLAY 'PTD.MPE.MEMBERS.FILEB' POOL=TODDYN NORECS=2 CHAR
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//PTC500B  JOB (PTC500B),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//* *===========================================================*
//* * CHECK FOR EXISTANCE OF ENROLLMENT FILE                    *
//* *===========================================================*
//*/. STEPS010
//*
//*     STEP0010  PGM=IDCAMS                                            DYNUTIL
//*
//STEP0010 EXEC PGM=IDCAMS
//* MODULE DYNUTIL PROCESSED BY PLUG-IN JCLTDYNU
//* SD I            A          'PTD.MPE.MEMBERS.FILEB'                  PRINT
//IN0001   DD  DSN=MVSPTD.MPE.MEMBERS.FILEB,
//             DISP=SHR
//* PR O
//SYSPRINT DD  SYSOUT=*
//* CD I
//SYSIN    DD  *
 PRINT INFILE(IN0001) COUNT(2) CHAR
/*
//
   

Return to the Sample Job Stream List