./ $SETUP 01.01 05/05/24 05/05/24 09:51 30 30 30 JCL //HWTRAINJ JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWTRAIN, 00010001 // MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1) 00020001 //* 00030001 //SETVARS SET USERID=HWINS01 00040001 //PRIVPROC JCLLIB ORDER=(&USERID..JCL.LIB) 00050001 //* 00060001 //STEP0 EXEC PGM=IEFBR14 00070001 //DD1 DD DSN=&USERID..JCL.DATA,DISP=(MOD,DELETE), 00080001 // UNIT=SYSDA,SPACE=(TRK,0) 00090001 //DD2 DD DSN=&USERID..JCL.LOAD,DISP=(MOD,DELETE), 00100001 // UNIT=SYSDA,SPACE=(TRK,0) 00110001 //* 00120001 //STEP1 EXEC PGM=IEBGENER 00130001 //SYSPRINT DD SYSOUT=* 00140001 //SYSIN DD DUMMY 00150001 //SYSUT2 DD DSN=&USERID..JCL.DATA,DISP=(,CATLG), 00160001 // UNIT=SYSDA,SPACE=(TRK,(1,1)) 00170001 //SYSUT1 DD * 00180001 THIS IS DATA FOR THE TRAIN-RIGHT JCL & UTILITIES COURSES. 00190001 IF YOU CAN SEE THIS DATA - SUCCESS!! 00200001 /* 00210001 //* 00220001 //STEP2 EXEC PGM=IEFBR14 00230001 //DD1 DD DSN=&USERID..JCL.LOAD,DISP=(,CATLG), 00240001 // UNIT=SYSDA,SPACE=(TRK,(1,1,1)), 00250001 // DSORG=PO,RECFM=U,LRECL=0,BLKSIZE=28332 00260001 //* 00270001 //STEP3 EXEC COMPILE,SRCLIB=&USERID..JCL.LIB, 00280001 // LOADLIB=&USERID..JCL.LOAD 00290001 // 00300001 ./ COMPILE 01.01 05/05/24 05/05/24 09:51 48 48 48 PRC //**********************************************************************00010001 //* *00020001 //* C O B O L 2 C O M P I L E *00030001 //* *00040001 //* SET THE SYMBOLIC PARAMETERS BELOW TO THE FOLLOWING VALUES: *00050001 //* *00060001 //* SRCLIB - THE DATASET NAME OF THE PDS WHERE YOUR PROGRAM RESIDES. *00070001 //* MEMBER - THE MEMBER NAME OF YOUR PROGRAM. *00080001 //* LOADLIB - THE DATASET NAME OF THE PDS LOAD MODULE LIBRARY WHERE *00090001 //* YOUR PROGRAM WILL BE EXECUTED FROM. *00100001 //* COMPPGM - THE DATASET NAME WHERE THE COBOL2 COMPILER PROGRAM *00110001 //* RESIDES. *00120001 //* COBLIB - THE DATASET NAME WHERE THE COBOL2 SYSTEM ROUTINES *00130001 //* RESIDE. *00140001 //* *00150001 //**********************************************************************00160001 //COMPILE PROC SRCLIB=, 00170001 // MEMBER=DOGPGM, 00180001 // LOADLIB=, 00190001 // COMPPGM='SYS1.COB2COMP', 00200001 // COBLIB='SYS1.COB2LIB' 00210001 //* 00220001 //COBOL2 EXEC PGM=IGYCRCTL, 00230001 // PARM=(NOCMPR2,NOFLAGMIG,'F(W,W)','NOC(E)',S, 00240001 // APOST,'OUT(SYSOUT)',NOTES,NORES,NORENT, 00250001 // OPT,OBJ,NOD,NAME) 00260001 //STEPLIB DD DSN=&COMPPGM,DISP=SHR 00270001 //SYSPRINT DD SYSOUT=* 00280001 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE) 00290001 //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE) 00300001 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE) 00310001 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE) 00320001 //SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE) 00330001 //SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE) 00340001 //SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE) 00350001 //SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS), 00360001 // UNIT=SYSDA,SPACE=(TRK,(5,5)) 00370001 //SYSIN DD DSN=&SRCLIB(&MEMBER),DISP=SHR 00380001 //* 00390001 //LINK EXEC PGM=HEWL,COND=(5,LT), 00400001 // PARM='LIST,XREF' 00410001 //SYSLIB DD DSN=&COBLIB,DISP=SHR 00420001 // DD DSN=&LOADLIB,DISP=SHR 00430001 //SYSPRINT DD SYSOUT=* 00440001 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE) 00450001 //SYSLMOD DD DSN=&LOADLIB,DISP=OLD 00460001 //SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) 00470001 // PEND 00480001 ./ DDNEWPDS 01.02 01/12/07 05/12/14 13:40 18 18 0 JCL //HWINS014 JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, // MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1) //* //STEP0 EXEC PGM=IEFBR14 //DD1 DD DSN=HWINS01.JCL.PDS,DISP=(MOD,DELETE), // UNIT=SYSDA,SPACE=(TRK,0) //* //STEP1 EXEC PGM=IEFBR14 //DD1 DD DSN=HWINS01.JCL.PDS,DISP=(NEW,CATLG), // UNIT=SYSDA,SPACE=(TRK,(1,1)),DSNTYPE=LIBRARY, // DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=0 //* //STEP2 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT1 DD DSN=HWINS01.JCL.SEQ,DISP=SHR //SYSUT2 DD DSN=HWINS01.JCL.PDS(QUOTE),DISP=SHR // ./ DDNEWSEQ 01.01 01/10/05 05/12/14 13:35 17 17 0 JCL //HWINS01G JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, // MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1) //* //STEP0 EXEC PGM=IEFBR14 //DD1 DD DSN=HWINS01.JCL.SEQ,DISP=(MOD,DELETE), // UNIT=SYSDA,SPACE=(TRK,0) //* //STEP1 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT1 DD * "KEEP IT SIMPLE BUT NOT TOO SIMPLE." - ALBERT EINSTEIN. /* //SYSUT2 DD DSN=HWINS01.JCL.SEQ,DISP=(NEW,CATLG), // UNIT=SYSDA,SPACE=(TRK,(1,1)), // DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0 // ./ DOGDATA 01.00 01/04/18 01/04/18 11:24 7 7 0 TXT Gilles 125German Shepherd 00030000 Tess 024Cocker Spaniel 00040000 Moreta 053Australian Shepherd Mix 00050000 Sheila 060Chow Mix 00060000 Chewy 050Pit Bull Mix 00070000 Sammy 050Pit Bull Mix 00080000 ChinaDoll 053Pit Bull Mix 00090000 ./ DOGJCL 01.00 01/04/18 01/04/18 11:24 18 18 0 JCL //HWINS01D JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, 00010000 // MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1) 00020000 //* 00030000 //STEP0 EXEC PGM=IEFBR14 00040000 //DD1 DD DSN=HWINS01.JCL.DOGSORT,DISP=(MOD,DELETE), 00050000 // UNIT=SYSDA,SPACE=(TRK,0) 00060000 //* 00070000 //STEP1 EXEC PGM=DOGPGM, 00080000 // PARM='KEN CALDWELL' 00090000 //STEPLIB DD DSN=HWINS01.A.LOAD,DISP=SHR 00100000 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00110000 //SYSOUT DD SYSOUT=* 00120000 //DOGRPT DD SYSOUT=* 00130000 //DOGFILE DD DSN=HWINS01.JCL.CLASS(DOGDATA),DISP=SHR 00140000 //DOGSORT DD DSN=HWINS01.JCL.DOGSORT,DISP=(NEW,CATLG), 00150000 // UNIT=SYSDA,SPACE=(TRK,(1,1)), 00160000 // DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0 00170000 // 00180000 ./ DOGJCL2 01.00 01/04/18 01/04/18 11:24 12 12 0 JCL //HWINS01D JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, 00010000 // MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1) 00020000 //* 00030000 //STEP1 EXEC PGM=DOGPGM, 00040000 // PARM='KEN CALDWELL' 00050000 //STEPLIB DD DSN=HWINS01.A.LOAD,DISP=SHR 00060000 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00070000 //SYSOUT DD SYSOUT=* 00080000 //DOGRPT DD SYSOUT=* 00090000 //DOGFILE DD DSN=HWINS01.JCL.DOGSORT,DISP=OLD 00100000 //DOGSORT DD DUMMY 00110000 // 00120000 ./ DOGPGM 01.00 01/04/18 01/04/18 11:24 194 194 0 CBL 000100 ID DIVISION. 00010000 000200 PROGRAM-ID. DOGPGM. 00020000 000300 AUTHOR. Kenneth Caldwell. 00030000 000400 DATE-WRITTEN. February 28, 2001. 00040000 000500 DATE-COMPILED. 00050000 000600* 00060000 000700*SECURITY. This program is for students of the 00070000 000800* Train-Right JCL courses only. 00080000 000900* 00090000 001000*REMARKS. This program produces a dog report and a sorted 00100000 001100* dog file from an input dog file. You must code 00110000 001200* the proper JCL to execute the program and provide 00120000 001300* the proper files. 00130000 001400* 00140000 001500 ENVIRONMENT DIVISION. 00150000 001600 INPUT-OUTPUT SECTION. 00160000 001700 FILE-CONTROL. 00170000 001800 00180000 001900 SELECT dog-file ASSIGN TO DOGFILE. 00190000 002000 SELECT dog-report ASSIGN TO DOGRPT. 00200000 002100 SELECT dog-sorted ASSIGN TO DOGSORT. 00210000 002200 SELECT sort-file ASSIGN TO SORTWK01. 00220000 002300 EJECT 00230000 002400 DATA DIVISION. 00240000 002500 FILE SECTION. 00250000 002600 00260000 002700 FD dog-file 00270000 002800 RECORDING MODE IS F 00280000 002900 LABEL RECORDS ARE STANDARD 00290000 003000 RECORD CONTAINS 80 CHARACTERS 00300000 003100 BLOCK CONTAINS 0 records. 00310000 003200 01 dog-record. 00320000 003300 05 dog-name PIC X(10). 00330000 003400 05 dog-weight PIC 999. 00340000 003500 05 dog-breed PIC X(27). 00350000 003600 05 PIC X(40). 00360000 003700 00370000 003800 FD dog-report 00380000 003900 RECORDING MODE IS F 00390000 004000 LABEL RECORDS ARE OMITTED 00400000 004100 RECORD CONTAINS 132 CHARACTERS 00410000 004200 BLOCK CONTAINS 0 records. 00420000 004300 01 dog-report-record. 00430000 004400 05 PIC X(132). 00440000 004500 00450000 004600 FD dog-sorted 00460000 004700 RECORDING MODE IS F 00470000 004800 LABEL RECORDS ARE STANDARD 00480000 004900 RECORD CONTAINS 80 CHARACTERS 00490000 005000 BLOCK CONTAINS 0 records. 00500000 005100 01 dog-sorted-record. 00510000 005200 05 PIC X(80). 00520000 005300 00530000 005400 SD sort-file 00540000 005500 RECORD CONTAINS 80 CHARACTERS. 00550000 005600 01 sort-record. 00560000 005700 05 PIC X(10). 00570000 005800 05 sort-dog-weight PIC 999. 00580000 005900 05 PIC X(27). 00590000 006000 05 PIC X(40). 00600000 006100 EJECT 00610000 006200 WORKING-STORAGE SECTION. 00620000 006300 00630000 006400 77 ws-dog-count PIC S9(4) BINARY VALUE ZERO. 00640000 006500 00650000 006600 01 ind-eof PIC X VALUE LOW-VALUES. 00660000 006700 88 ind-eof-yes VALUE HIGH-VALUES. 00670000 006800 00680000 006900 01 dog-report-title. 00690000 007000 05 PIC X(5) VALUE SPACES. 00700000 007100 05 dog-report-requestor 00710000 007200 PIC X(21) VALUE SPACES. 00720000 007300 05 PIC X(5) VALUE SPACES. 00730000 007400 05 PIC X(11) VALUE 'Train-Right'. 00740000 007500 05 PIC X(11) VALUE ' Dog Report'. 00750000 007600 05 PIC X(30) VALUE SPACES. 00760000 007700 05 PIC X(53) VALUE SPACES. 00770000 007800 00780000 007900 01 dog-report-header. 00790000 008000 05 PIC X(5) VALUE SPACES. 00800000 008100 05 PIC X(8) VALUE 'Dog Name'. 00810000 008200 05 PIC X(5) VALUE SPACES. 00820000 008300 05 PIC X(10) VALUE 'Dog Weight'. 00830000 008400 05 PIC X(5) VALUE SPACES. 00840000 008500 05 PIC X(9) VALUE 'Dog Breed'. 00850000 008600 05 PIC X(5) VALUE SPACES. 00860000 008700 05 PIC X(33) VALUE SPACES. 00870000 008800 05 PIC X(52) VALUE SPACES. 00880000 008900 00890000 009000 01 dog-report-detail. 00900000 009100 05 PIC X(5) VALUE SPACES. 00910000 009200 05 dog-report-name PIC X(10). 00920000 009300 05 PIC X(5) VALUE SPACES. 00930000 009400 05 dog-report-weight PIC zz9. 00940000 009500 05 PIC X(10) VALUE SPACES. 00950000 009600 05 dog-report-breed PIC X(27). 00960000 009700 05 PIC X(33) VALUE SPACES. 00970000 009800 05 PIC X(52) VALUE SPACES. 00980000 009900 00990000 010000 01 dog-report-total. 01000000 010100 05 PIC X(5) VALUE SPACES. 01010000 010200 05 PIC X(12) VALUE 'Total Dogs: '. 01020000 010300 05 dog-report-count PIC ZZZ9. 01030000 010400 05 PIC X(59) VALUE SPACES. 01040000 010500 05 PIC X(52) VALUE SPACES. 01050000 010600 01060000 010700 LINKAGE SECTION. 01070000 010800 01080000 010900 01 parm-area. 01090000 011000 05 parm-length PIC S9(4) BINARY. 01100000 011100 05 parm-data. 01110000 011200 10 parm-chars OCCURS 0 TO 100 TIMES 01120000 011300 DEPENDING ON parm-length 01130000 011400 PIC X. 01140000 011500 EJECT 01150000 011600 PROCEDURE DIVISION USING parm-area. 01160000 011700 A000-START. 01170000 011800 01180000 011900 DISPLAY SPACE. 01190000 012000 DISPLAY ' Program DOGPGM has begun.'. 01200000 012100 DISPLAY SPACE. 01210000 012200 01220000 012300 PERFORM S000-Sort-Dogs. 01230000 012400 01240000 012500 PERFORM P000-Prepare-Report. 01250000 012600 01260000 012700 PERFORM B100-Read-Next-Dog. 01270000 012800 01280000 012900 PERFORM B000-Dog-Report 01290000 013000 UNTIL ind-eof-yes. 01300000 013100 01310000 013200 PERFORM F000-Finish-Dog-Report. 01320000 013300 01330000 013400 DISPLAY SPACE. 01340000 013500 DISPLAY ' Program DOGPGM has completed.'. 01350000 013600 DISPLAY SPACE. 01360000 013700 01370000 013800 MOVE ZERO TO RETURN-CODE. 01380000 013900 GOBACK. 01390000 014000 01400000 014100 B000-Dog-Report. 01410000 014200 01420000 014300 MOVE dog-name TO dog-report-name. 01430000 014400 MOVE dog-weight TO dog-report-weight. 01440000 014500 MOVE dog-breed TO dog-report-breed. 01450000 014600 01460000 014700 WRITE dog-report-record FROM dog-report-detail 01470000 014800 AFTER ADVANCING 1 LINE. 01480000 014900 01490000 015000 PERFORM B100-Read-Next-Dog. 01500000 015100 01510000 015200 B100-Read-Next-Dog. 01520000 015300 01530000 015400 READ dog-file NEXT RECORD 01540000 015500 AT END MOVE HIGH-VALUES TO ind-eof 01550000 015600 NOT AT END ADD +1 TO ws-dog-count 01560000 015700 END-READ. 01570000 015800 EJECT 01580000 015900 F000-Finish-Dog-Report. 01590000 016000 01600000 016100 MOVE ws-dog-count TO dog-report-count. 01610000 016200 01620000 016300 WRITE dog-report-record FROM dog-report-total 01630000 016400 AFTER ADVANCING 3 LINES. 01640000 016500 01650000 016600 CLOSE dog-file, 01660000 016700 dog-report. 01670000 016800 01680000 016900 P000-Prepare-Report. 01690000 017000 01700000 017100 IF parm-length = ZERO 01710000 017200 THEN MOVE 'No Requestor' TO dog-report-requestor 01720000 017300 ELSE MOVE parm-data TO dog-report-requestor 01730000 017400 END-IF. 01740000 017500 01750000 017600 OPEN INPUT dog-file, 01760000 017700 OUTPUT dog-report. 01770000 017800 01780000 017900 WRITE dog-report-record FROM dog-report-title 01790000 018000 AFTER ADVANCING PAGE. 01800000 018100 01810000 018200 WRITE dog-report-record FROM dog-report-header 01820000 018300 AFTER ADVANCING 3 LINES. 01830000 018400 01840000 018500 MOVE SPACES TO dog-report-record. 01850000 018600 WRITE dog-report-record 01860000 018700 AFTER ADVANCING 1 LINE. 01870000 018800 01880000 018900 S000-Sort-Dogs. 01890000 019000 01900000 019100 SORT sort-file 01910000 019200 ON ASCENDING KEY sort-dog-weight 01920000 019300 USING dog-file 01930000 019400 GIVING dog-sorted. 01940000 ./ DOGPROC 01.00 01/04/18 01/04/18 11:24 18 18 0 PRC //DOGPROC PROC DOGS='HWINS01.JCL.DOGSORT', 00010000 // REQUEST='KEN CALDWELL' 00020000 /* 00030000 //STEP0 EXEC PGM=IEFBR14 00040000 //DD1 DD DSN=&DOGS,DISP=(MOD,DELETE), 00050000 // UNIT=SYSDA,SPACE=(TRK,0) 00060000 //* 00070000 //STEP1 EXEC PGM=DOGPGM, 00080000 // PARM='&REQUEST' 00090000 //STEPLIB DD DSN=HWINS01.A.LOAD,DISP=SHR 00100000 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00110000 //SYSOUT DD SYSOUT=* 00120000 //DOGRPT DD SYSOUT=* 00130000 //DOGFILE DD DSN=HWINS01.JCL.CLASS(DOGDATA),DISP=SHR 00140000 //DOGSORT DD DSN=&DOGS,DISP=(NEW,CATLG), 00150000 // UNIT=SYSDA,SPACE=(TRK,(1,1)), 00160000 // DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0 00170000 // 00180000 ./ EXECPGM 01.01 01/04/18 05/12/13 10:42 7 7 3 JCL //HWINS01E JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, 00010001 // MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1) 00020000 //* 00030000 //JOBLIB DD DSN=HWINS01.JCL.LOAD,DISP=SHR 00040001 //STEP1 EXEC PGM=DOGPGM 00050001 //STEP2 EXEC PGM=DOGPGM 00060000 // 00070000 ./ EXECPROC 01.01 01/04/18 05/12/13 13:31 7 7 3 JCL //HWINS01P JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, 00010000 // MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1) 00020000 //* 00030000 //PRIVPROC JCLLIB ORDER=(HWINS01.JCL.LIB) 00040001 //STEP1 EXEC PROC1 00050001 //STEP2 EXEC PROC1 00060001 // 00070000 ./ IDCAMS 01.00 01/10/05 01/10/05 14:33 11 11 0 JCL //HWINS01I JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, // MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1) //* //STEP1 EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * LISTCAT LEVEL(HWINS01) LISTCAT LEVEL(HWTRN01) PRINT INDATASET(HWINS01.JCL.DATA) CHARACTER /* // ./ IEBCOPY 01.00 01/04/18 01/04/18 11:24 31 31 0 JCL //* COPY YOUR JOBCARD HERE 00010000 //********************************************************************* 00020000 //* * 00030000 //* E X E C U T E I E B C O P Y U T I L I T Y * 00040000 //* * 00050000 //* IEBGENER IS A COPY UTILITY FOR PARTITIONED DATASETS (PDS) * 00060000 //* THE FOLLOWING FILES (DDNAMES) ARE REQUIRED: * 00070000 //* * 00080000 //* SYSPRINT - AN OUTPUT REPORT CONTAINING MESSAGES/ERRORS FROM * 00090000 //* IEBCOPY. * 00100000 //* SYSIN - AN INPUT FILE CONTAINING COPY INFORMATION. * 00110000 //* IT WILL CONTAIN ONE OR MORE COPY, SELECT AND EXCLUDE * 00120000 //* STATEMENTS. * 00130000 //* SYSUT3 - A TEMPORARY WORKFILE. * 00140000 //* SYSUT4 - A TEMPORARY WORKFILE. * 00150000 //* SOMEDDS - ONE OR MORE DD STATEMENTS REFERRED TO BY THE COPY * 00160000 //* STATEMENTS IN SYSIN. * 00170000 //* * 00180000 //********************************************************************* 00190000 //COPY EXEC PGM=IEBCOPY 00200000 //SYSPRINT DD 00210000 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00220000 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00230000 //SYSIN DD * 00240000 COPY OUTDD=OUTFILE,INDD=INFILE 00250000 SELECT MEMBER=((OLDNAME,NEWNAME,R)) 00260000 EXCLUDE MEMBER=(NAME,NAME) 00270000 /* 00280000 //INFILE DD DSN= 00290000 //OUTFILE DD DSN= 00300000 // 00310000 ./ IEBGENER 01.00 01/10/05 01/10/05 14:33 11 11 0 JCL //HWINS01G JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, // MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1) //* //STEP1 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT1 DD * "KEEP IT SIMPLE BUT NOT TOO SIMPLE." - ALBERT EINSTEIN. /* //SYSUT2 DD SYSOUT=A,DEST=U050 // ./ IEBGENE2 01.00 01/04/18 01/04/18 11:24 10 10 0 JCL //HWINS01G JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, 00010000 // MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1) 00020000 //* 00030000 //STEP1 EXEC PGM=IEBGENER 00040000 //SYSPRINT DD SYSOUT=* 00050000 //SYSIN DD DUMMY 00060000 //SYSUT1 DD DSN=HWINS01.JCL.CLASS(JOB),DISP=SHR 00070000 // DD DSN=HWINS01.JCL.DATA,DISP=SHR 00080000 //SYSUT2 DD SYSOUT=A,DEST=U050 00090000 // 00100000 ./ IEFBR14 01.01 01/04/18 05/12/14 13:30 6 6 2 JCL //HWINS015 JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, 00010001 // MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1) 00020000 //* 00030000 //STEP1 EXEC PGM=IEFBR14 00040000 //DD1 DD DSN=HWINS01.JCL.LIB,DISP=SHR 00050001 // 00060000 ./ ISORT 01.00 01/04/18 01/04/18 11:24 26 26 0 JCL //HWINS01S JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, 00010000 // MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1) 00020000 //* 00030000 //STEP0 EXEC PGM=IEFBR14 00040000 //DD1 DD DSN=HWINS01.JCL.SORTOUT,DISP=(MOD,DELETE), 00050000 // UNIT=SYSDA,SPACE=(TRK,0) 00060000 //* 00070000 //STEP1 EXEC PGM=SORT 00080000 //SYSOUT DD SYSOUT=* 00090000 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00100000 //SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00110000 //SORTOUT DD DSN=HWINS01.JCL.SORTOUT,DISP=(NEW,CATLG), 00120000 // UNIT=SYSDA,SPACE=(TRK,(1,1)), 00130000 // DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=0 00140000 //SYSIN DD * 00150000 SORT FIELDS=(1,7,CH,A) 00160000 /* 00170000 //SORTIN DD * 00180000 SAMMY 00190000 CHARLIE 00200000 AARON 00210000 CHUCK 00220000 STAN 00230000 BARBARA 00240000 /* 00250000 // 00260000 ./ JOB 01.01 05/12/13 05/12/13 10:06 7 7 0 JCL //HWINS01A JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, 00010000 // MSGCLASS=Y,TIME=1 00020000 /*ROUTE PRINT U050 00030000 //* 00040000 //STEP1 EXEC PGM=IEFBR14 00050000 //DD1 DD DSN=HWINS01.JCL.LIB,DISP=SHR 00051000 // 00060000 ./ JOBHWDC 01.02 01/04/18 05/12/13 10:06 4 3 3 JCL //HWINS01A JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, 00010001 // MSGCLASS=Y,TIME=1 00020001 /*ROUTE PRINT U050 00030001 //* 00040000 ./ JOBTEALE 01.00 01/04/18 01/04/18 11:24 22 22 0 JCL SAMPLE JOB CARD FOR THE TEALE DATA CENTER //USERIDX JOB (AREA,DISTRIBUTION,DEPTID),'NAME',NOTIFY=USERID // CLASS=A,MSGCLASS=H SPECIFIC EXAMPLE //MERGIDAC JOB (064,6300,SYSP),'DALEL',NOTIFY=DALEL, // CLASS=A,MSGCLASS=H NOTES: JOB NAMES MAY ALSO BE IN THE FORM LXXXLXXL, WHERE L IS... AND X IS... CPU INTENSIVE JOBS USE CLASS=G ./ PROCSCAN 01.01 01/04/18 05/12/13 10:31 6 6 4 JCL //HWINS01T JOB (HW213AB99T,MHEW),'KEN CALDWELL',NOTIFY=HWINS01, 00010001 // MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1), 00020001 // TYPRUN=SCAN 00030001 //* 00040000 //STEP1 EXEC COB2UCLG 00050001 // 00060000 ./ PROC1 01.04 01/04/18 05/12/13 10:56 6 6 3 PRC //PROC1 PROC 00010000 //STEP1 EXEC PGM=DOGPGM 00020000 //STEPLIB DD DSN=HWINS01.JCL.LOAD,DISP=SHR 00030002 //STEP2 EXEC PGM=DOGPGM 00040000 //STEPLIB DD DSN=HWINS01.JCL.LOAD,DISP=SHR 00050002 // PEND 00060004 ./ SETUP 01.01 05/05/24 05/05/24 09:51 28 28 28 JCL //* COPY YOUR JOBCARD HERE 00010001 //* 00020001 //PRIVPROC JCLLIB ORDER=(&SYSUID..JCL.LIB) 00030001 //* 00040001 //STEP0 EXEC PGM=IEFBR14 00050001 //DD1 DD DSN=&SYSUID..JCL.DATA,DISP=(MOD,DELETE), 00060001 // UNIT=SYSDA,SPACE=(TRK,0) 00070001 //DD2 DD DSN=&SYSUID..JCL.LOAD,DISP=(MOD,DELETE), 00080001 // UNIT=SYSDA,SPACE=(TRK,0) 00090001 //* 00100001 //STEP1 EXEC PGM=IEBGENER 00110001 //SYSPRINT DD SYSOUT=* 00120001 //SYSIN DD DUMMY 00130001 //SYSUT2 DD DSN=&SYSUID..JCL.DATA,DISP=(,CATLG), 00140001 // UNIT=SYSDA,SPACE=(TRK,(1,1)) 00150001 //SYSUT1 DD * 00160001 THIS IS DATA FOR THE TRAIN-RIGHT JCL & UTILITIES COURSES. 00170001 IF YOU CAN SEE THIS DATA - SUCCESS!! 00180001 /* 00190001 //* 00200001 //STEP2 EXEC PGM=IEFBR14 00210001 //DD1 DD DSN=&SYSUID..JCL.LOAD,DISP=(,CATLG), 00220001 // UNIT=SYSDA,SPACE=(TRK,(1,1,1)), 00230001 // DSORG=PO,RECFM=U,LRECL=0,BLKSIZE=28332 00240001 //* 00250001 //STEP3 EXEC COMPILE,SRCLIB=&SYSUID..JCL.LIB, 00260001 // LOADLIB=&SYSUID..JCL.LOAD 00270001 // 00280001