* $$ 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
//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