Return to the Sample Job Stream List

TX10907A Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=TX10907A,SYSID=1
* $$ LST CLASS=A,DISP=K,FNO=1P14,COPY=1,LST=SYSLST
* ***********WARNING WARNING WARNING**************************
* ***WARNING WARNING WARNING**********************************
* ***************************WARNING WARNING WARNING**********
// PAUSE ***PLEASE NOTE THE FOLLOWING MESSAGE*****************
* ************************************************************
* ***THIS JOB PROCESSES FEDERAL INFORMATION AND ACCESS MUST BE
* ***RESTRICTED TO AUTHORIZED USERS ONLY.  ALL INPUT AND OUTPUT
* ***MUST BE STRICTLY CONTROLED TO ONLY THOSE USERS WHO ARE
* ***PERMITTEED ACCESS TO FEDERAL DATA.
* ***********************************************************
// PAUSE ****PLEASE READ ABOVE MESSAGE BEFORE END-OF-BLOCK
// JOB TX10907A 10    COPY FED CP2000 TAPE
* * STEP 01
// PAUSE MOUNT TAX DEPARTMENT SUPPLIED TAPE ON DRIVE ASSIGNED TO SYS010
// TLBL CP2000,'CSC*UND1511VT'
// TLBL TX8FVW5,'TX8FVW5,U'
// EXEC TXSA0101,SIZE=AUTO
/*
* * STEP 02
// TLBL FILEA,'TX8FVW5.(-6),H',,,1
// EXEC TDYNASN
OPEN FILEA,SYS003,INPUT
/*
* * STEP 03
// UPSI 1
// EXEC DITTO,SIZE=100K
$$DITTO REW OUTPUT=SYS003
$$DITTO TP  INPUT=SYS003,RECFMIN=U,NLRECS=5,NFILES=2
$$DITTO REW OUTPUT=SYS003
$$DITTO FSF OUTPUT=SYS003,NFILES=1
$$DITTO ERT OUTPUT=SYS003
$$DITTO REW OUTPUT=SYS003
$$DITTO TP  INPUT=SYS003,RECFMIN=U,NLRECS=5,NFILES=4
$$DITTO RUN OUTPUT=SYS003
$$DITTO EOJ
/*
/&
* $$ EOJ
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//TX10907A JOB (TX10907A),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//* ***********WARNING WARNING WARNING**************************
//* ***WARNING WARNING WARNING**********************************
//* ***************************WARNING WARNING WARNING**********
//* ************************************************************
//* ***THIS JOB PROCESSES FEDERAL INFORMATION AND ACCESS MUST BE
//* ***RESTRICTED TO AUTHORIZED USERS ONLY.  ALL INPUT AND OUTPUT
//* ***MUST BE STRICTLY CONTROLED TO ONLY THOSE USERS WHO ARE
//* ***PERMITTEED ACCESS TO FEDERAL DATA.
//* ***********************************************************
//* * STEP 01
//*
//*     STEP0010  PGM=TXSA0101
//*
//STEP0010 EXEC PGM=TXSA0101
//* MT I SYS010 UA             'CSC*UND1511VT'
//CP2000   DD  DSN='CSC*UND1511VT',
//             BLKSIZE=32760,
//             LRECL=1942,
//             RECFM=VB,
//             UNIT=3420,
//             VOL=(SER=TAXTAP)
//* MT O SYS011 UA             'TX8FVW5,U'
//TX8FVW5  DD  DSN=MVS.TX8FVW5(+1),
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=TAPE
//SYSOUT  INCLUDE MEMBER=SYSOUT
//*
//* * STEP 02
//*
//*  --> PGM=TDYNASN  <-- DELETED
//*
//* * STEP 03
//*
//*     STEP0020  PGM=DITTO
//*
//STEP0020 EXEC PGM=DITTO
//* MODULE DITTO PROCESSED BY PLUG-IN JCLTDIT
//* MT I SYS003 480 C FILEA    'TX8FVW5.(-6),H'                         TP
//SYS003   DD  DSN=MVS.TX8FVW5(-6),
//             DISP=OLD
//* PR O SYSLST 00E 0001
//SYSPRINT DD  SYSOUT=(A,,1P14),
//             COPIES=1
//* CD I SYSIPT 00C
//SYSIN    DD  *
$$DITTO REW OUTPUT=SYS003
$$DITTO TP  INPUT=SYS003,RECFMIN=U,NLRECS=5,NFILES=2
$$DITTO REW OUTPUT=SYS003
$$DITTO FSF OUTPUT=SYS003,NFILES=1
$$DITTO ERT OUTPUT=SYS003
$$DITTO REW OUTPUT=SYS003
$$DITTO TP  INPUT=SYS003,RECFMIN=U,NLRECS=5,NFILES=4
$$DITTO RUN OUTPUT=SYS003
$$DITTO EOJ
/*
//
   

Return to the Sample Job Stream List