Jcl
This document was uploaded by user and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this DMCA report form. Report DMCA
Overview
Download & View Jcl as PDF for free.
More details
- Words: 902
- Pages: 5
EDIT MTPLP07.Z.PS1 Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 060004 Z -2 RE TYTY 070004 A -3 YT RERE 070005 S -4 ER WRWE 070006 G -5 YF FDFS 070007 B -1 SD TERE ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.JCL(SORTCH) - 01.20 Member SORTCH saved Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 000100 //MTPLP07E JOB ,,NOTIFY=&SYSUID,CLASS=A 000200 //STEP1 EXEC PGM=ICEMAN 000300 //SYSPRINT DD SYSOUT=* 000400 //SYSOUT DD SYSOUT=* 000500 //SORTIN DD DSN=MTPLP07.Z.PS1,DISP=SHR 000600 //SORTOUT DD DSN=MTPLP21.SHUBHA.PS,DISP=SHR 000700 //SYSIN DD * 000800 SORT FIELDS=(3,2,FI,D) 000900 /* 001000 // ****** **************************** Bottom of Data *************************** output EDIT MTPLP21.SHUBHA.PS Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 000001 G -5 YF FDFS 000002 S -4 ER WRWE 000003 A -3 YT RERE 000004 Z -2 RE TYTY 000005 B -1 SD TERE ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.JCL(SORTCH) - 01.19 Member SORTCH saved Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 000100 //MTPLP07E JOB ,,NOTIFY=&SYSUID,CLASS=A 000200 //STEP1 EXEC PGM=ICEMAN 000300 //SYSPRINT DD SYSOUT=* 000400 //SYSOUT DD SYSOUT=*
000500 //SORTIN DD DSN=MTPLP07.Z.PS1,DISP=SHR 000600 //SORTOUT DD DSN=MTPLP21.SHUBHA.PS,DISP=SHR 000700 //SYSIN DD * 000800 SORT FIELDS=(3,2,FI,A) 000900 /* 001000 // ****** **************************** Bottom of Data **************************** output File Edit Edit_Settings Menu Utilities Compilers Test Help EDIT MTPLP21.SHUBHA.PS Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** ==MSG> -Warning- The UNDO command is not available until you change ==MSG> your edit profile using the command RECOVERY ON. 000001 B -1 SD TERE 000002 Z -2 RE TYTY 000003 A -3 YT RERE 000004 S -4 ER WRWE 000005 G -5 YF FDFS ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.JCL(SORTCH) - 01.19 Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 000100 //MTPLP07E JOB ,,NOTIFY=&SYSUID,CLASS=A 000200 //STEP1 EXEC PGM=ICEMAN 000300 //SYSPRINT DD SYSOUT=* 000400 //SYSOUT DD SYSOUT=* 000500 //SORTIN DD DSN=MTPLP07.Z.PS1,DISP=SHR 000600 //SORTOUT DD DSN=MTPLP21.SHUBHA.PS,DISP=SHR 000700 //SYSIN DD * 000800 SORT FIELDS=(3,2,FS,D) 000900 /* 001000 // ****** **************************** Bottom of Data **************************** output EDIT MTPLP21.SHUBHA.PS Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** ==MSG> -Warning- The UNDO command is not available until you change ==MSG> your edit profile using the command RECOVERY ON. 000001 B -1 SD TERE 000002 Z -2 RE TYTY
000003 A -3 YT RERE 000004 S -4 ER WRWE 000005 G -5 YF FDFS ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.JCL(SORTCH) - 01.19 Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 000100 //MTPLP07E JOB ,,NOTIFY=&SYSUID,CLASS=A 000200 //STEP1 EXEC PGM=ICEMAN 000300 //SYSPRINT DD SYSOUT=* 000400 //SYSOUT DD SYSOUT=* 000500 //SORTIN DD DSN=MTPLP07.Z.PS1,DISP=SHR 000600 //SORTOUT DD DSN=MTPLP21.SHUBHA.PS,DISP=SHR 000700 //SYSIN DD * 000800 SORT FIELDS=(3,2,FS,A) 000900 /* 001000 // ****** **************************** Bottom of Data **************************** output EDIT MTPLP21.SHUBHA.PS Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** ==MSG> -Warning- The UNDO command is not available until you change ==MSG> your edit profile using the command RECOVERY ON. 000001 G -5 YF FDFS 000002 S -4 ER WRWE 000003 A -3 YT RERE 000004 Z -2 RE TYTY 000005 B -1 SD TERE ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.JCL(SORTINC) - 01.41 Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 000100 //SORT JOB ,,NOTIFY=&SYSUID,TIME=(1,),CLASS=A,MSGLEVEL=(1,1) 000200 //STEP1 EXEC PGM=SORT 000300 //SYSPRINT DD SYSOUT=* 000400 //SYSOUT DD SYSOUT=* 000500 //SORTIN DD DSN=MTPLP07.Z.PS1,DISP=SHR 000600 //SORTOUT DD DSN=MTPLP21.SHUBHA.PS,DISP=SHR 000700 //SYSIN DD * 000800 SORT FIELDS=(3,2,CH,A) 000801 OUTREC FIELDS=(15:3,5,25:10,7) 000900 /* ****** **************************** Bottom of Data ****************************
EDIT MTPLP21.SHUBHA.PS Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** =COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7— 000001 -1 SD ERE 000002 -2 RE YTY 000003 -3 YT ERE 000004 -4 ER RWE 000005 -5 YF DFS ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.JCL(SORTINC) - 01.42 Member SORTINC saved Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 000100 //SORT JOB ,,NOTIFY=&SYSUID,TIME=(1,),CLASS=A,MSGLEVEL=(1,1) 000200 //STEP1 EXEC PGM=SORT 000300 //SYSPRINT DD SYSOUT=* 000400 //SYSOUT DD SYSOUT=* 000500 //SORTIN DD DSN=MTPLP07.Z.PS1,DISP=SHR 000600 //SORTOUT DD DSN=MTPLP21.SHUBHA.PS,DISP=SHR 000700 //SYSIN DD * 000800 SORT FIELDS=(3,2,CH,A) 000801 OUTREC FIELDS=(10:3,4,15:13,4) 000900 /* ****** **************************** Bottom of Data **************************** EDIT MTPLP07.Z.PS1 Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** =COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7-060004 Z -2 RE TYTYRIYA 070004 A -3 YT RERESHRI 070005 S -4 ER WRWEPIYU 070006 G -5 YF FDFSSHAH 070007 B -1 SD TERETANU ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.PS Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** =COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7-000001 -1 S TANU 000002 -2 R RIYA 000003 -3 Y SHRI 000004 -4 E PIYU 000005 -5 Y SHAH ****** **************************** Bottom of Data ****************************
EDIT MTPLP21.SHUBHA.JCL(SORT1OUT) - 01.06 DSLIST processed Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 000001 //MTPLP21A JOB NOTIFY=&SYSUID 000002 //STEP01 EXEC PGM=SORT 000003 //SYSOUT DD SYSOUT=* 000004 //SORTIN DD DSN=MTPLP21.SHUBHA.JCL(SORT1),DISP=SHR 000005 //SORTOUT DD DSN=MTPLP21.SHUBHA.PS,DISP=SHR 000006 //SYSIN DD * 000007 SORT FIELDS=(1,4,CH,A) 000008 /* ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.PS Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** ==MSG> -Warning- The UNDO command is not available until you change ==MSG> your edit profile using the command RECOVERY ON. 000001 NAZI 000002 RAMA 000003 RAZA 000004 SUMI 000005 VEER ****** **************************** Bottom of Data ****************************
000500 //SORTIN DD DSN=MTPLP07.Z.PS1,DISP=SHR 000600 //SORTOUT DD DSN=MTPLP21.SHUBHA.PS,DISP=SHR 000700 //SYSIN DD * 000800 SORT FIELDS=(3,2,FI,A) 000900 /* 001000 // ****** **************************** Bottom of Data **************************** output File Edit Edit_Settings Menu Utilities Compilers Test Help EDIT MTPLP21.SHUBHA.PS Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** ==MSG> -Warning- The UNDO command is not available until you change ==MSG> your edit profile using the command RECOVERY ON. 000001 B -1 SD TERE 000002 Z -2 RE TYTY 000003 A -3 YT RERE 000004 S -4 ER WRWE 000005 G -5 YF FDFS ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.JCL(SORTCH) - 01.19 Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 000100 //MTPLP07E JOB ,,NOTIFY=&SYSUID,CLASS=A 000200 //STEP1 EXEC PGM=ICEMAN 000300 //SYSPRINT DD SYSOUT=* 000400 //SYSOUT DD SYSOUT=* 000500 //SORTIN DD DSN=MTPLP07.Z.PS1,DISP=SHR 000600 //SORTOUT DD DSN=MTPLP21.SHUBHA.PS,DISP=SHR 000700 //SYSIN DD * 000800 SORT FIELDS=(3,2,FS,D) 000900 /* 001000 // ****** **************************** Bottom of Data **************************** output EDIT MTPLP21.SHUBHA.PS Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** ==MSG> -Warning- The UNDO command is not available until you change ==MSG> your edit profile using the command RECOVERY ON. 000001 B -1 SD TERE 000002 Z -2 RE TYTY
000003 A -3 YT RERE 000004 S -4 ER WRWE 000005 G -5 YF FDFS ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.JCL(SORTCH) - 01.19 Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 000100 //MTPLP07E JOB ,,NOTIFY=&SYSUID,CLASS=A 000200 //STEP1 EXEC PGM=ICEMAN 000300 //SYSPRINT DD SYSOUT=* 000400 //SYSOUT DD SYSOUT=* 000500 //SORTIN DD DSN=MTPLP07.Z.PS1,DISP=SHR 000600 //SORTOUT DD DSN=MTPLP21.SHUBHA.PS,DISP=SHR 000700 //SYSIN DD * 000800 SORT FIELDS=(3,2,FS,A) 000900 /* 001000 // ****** **************************** Bottom of Data **************************** output EDIT MTPLP21.SHUBHA.PS Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** ==MSG> -Warning- The UNDO command is not available until you change ==MSG> your edit profile using the command RECOVERY ON. 000001 G -5 YF FDFS 000002 S -4 ER WRWE 000003 A -3 YT RERE 000004 Z -2 RE TYTY 000005 B -1 SD TERE ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.JCL(SORTINC) - 01.41 Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 000100 //SORT JOB ,,NOTIFY=&SYSUID,TIME=(1,),CLASS=A,MSGLEVEL=(1,1) 000200 //STEP1 EXEC PGM=SORT 000300 //SYSPRINT DD SYSOUT=* 000400 //SYSOUT DD SYSOUT=* 000500 //SORTIN DD DSN=MTPLP07.Z.PS1,DISP=SHR 000600 //SORTOUT DD DSN=MTPLP21.SHUBHA.PS,DISP=SHR 000700 //SYSIN DD * 000800 SORT FIELDS=(3,2,CH,A) 000801 OUTREC FIELDS=(15:3,5,25:10,7) 000900 /* ****** **************************** Bottom of Data ****************************
EDIT MTPLP21.SHUBHA.PS Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** =COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7— 000001 -1 SD ERE 000002 -2 RE YTY 000003 -3 YT ERE 000004 -4 ER RWE 000005 -5 YF DFS ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.JCL(SORTINC) - 01.42 Member SORTINC saved Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 000100 //SORT JOB ,,NOTIFY=&SYSUID,TIME=(1,),CLASS=A,MSGLEVEL=(1,1) 000200 //STEP1 EXEC PGM=SORT 000300 //SYSPRINT DD SYSOUT=* 000400 //SYSOUT DD SYSOUT=* 000500 //SORTIN DD DSN=MTPLP07.Z.PS1,DISP=SHR 000600 //SORTOUT DD DSN=MTPLP21.SHUBHA.PS,DISP=SHR 000700 //SYSIN DD * 000800 SORT FIELDS=(3,2,CH,A) 000801 OUTREC FIELDS=(10:3,4,15:13,4) 000900 /* ****** **************************** Bottom of Data **************************** EDIT MTPLP07.Z.PS1 Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** =COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7-060004 Z -2 RE TYTYRIYA 070004 A -3 YT RERESHRI 070005 S -4 ER WRWEPIYU 070006 G -5 YF FDFSSHAH 070007 B -1 SD TERETANU ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.PS Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** =COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7-000001 -1 S TANU 000002 -2 R RIYA 000003 -3 Y SHRI 000004 -4 E PIYU 000005 -5 Y SHAH ****** **************************** Bottom of Data ****************************
EDIT MTPLP21.SHUBHA.JCL(SORT1OUT) - 01.06 DSLIST processed Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** 000001 //MTPLP21A JOB NOTIFY=&SYSUID 000002 //STEP01 EXEC PGM=SORT 000003 //SYSOUT DD SYSOUT=* 000004 //SORTIN DD DSN=MTPLP21.SHUBHA.JCL(SORT1),DISP=SHR 000005 //SORTOUT DD DSN=MTPLP21.SHUBHA.PS,DISP=SHR 000006 //SYSIN DD * 000007 SORT FIELDS=(1,4,CH,A) 000008 /* ****** **************************** Bottom of Data **************************** EDIT MTPLP21.SHUBHA.PS Columns 00001 00072 Command ===> Scroll ===> HALF ****** ***************************** Top of Data ****************************** ==MSG> -Warning- The UNDO command is not available until you change ==MSG> your edit profile using the command RECOVERY ON. 000001 NAZI 000002 RAMA 000003 RAZA 000004 SUMI 000005 VEER ****** **************************** Bottom of Data ****************************
