Simple Jcl Programs

SORT JCL

File Edit Confirm Menu Utilities Compilers Test Help EDIT IBMMFS.MAC.JCLS(SORT) Columns 00001 - 00072 ****** ***************************** Top of Data ************************************** 000001 //SORT JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 000002 //STEP1 EXEC PGM=SORT,PARM='NOLIST' 000003 //SYSOUT DD SYSOUT=* 000004 //SORTIN DD DSN=IBMMFS.MAC.PS,DISP=SHR 000005 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) <= IF NOT ENOUGH ADD MORE 000006 //SORTOUT DD DSN=IBMMFS.MAC.SORTPS,DISP=SHR 000007 //SYSIN DD * 000008 INCLUDE COND=(8,2,BI,GT,12,2,BI,OR,15,3,CH,EQ,C'MAC') <=SELECT COND 000009 SORT FIELDS=(1,5,CH,A,9,3,CH,D) <= DFSORT CONTROL STATEMENTS 000010 /* 000011 // ****** **************************** Bottom of Data ************************************ Command ===> SUB Scroll ===> PAGE F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel

MERGE JCL

File Edit Confirm Menu Utilities Compilers Test Help EDIT IBMMFS.MAC.JCLS(MERGE) Columns 00001 - 00072 ****** ***************************** Top of Data ************************************** 000001 //MERGE JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 000002 //STEP1 EXEC PGM=SORT <= REMEMBER NOT MERGE 000003 //SYSOUT DD SYSOUT=* 000004 //SORTIN01 DD DSN=IBMMFS.MAC.PS,DISP=SHR 000005 //SORTIN02 DD DSN=IBMMFS.MAC.PS1,DISP=SHR 000006 //SORTIN03 DD DSN=IBMMFS.MAC.PS2,DISP=SHR <= UPTO 99 DATASETS 000007 //SORTOUT DD DSN=IBMMFS.MAC.MERPS,DISP=SHR 000008 //SYSIN DD * 000009 MERGE FIELDS=(1,5,A,7,3,A),FORMAT=CH <='CAUSE EBCDIC IS COMMON 000010 /* 000011 // ****** **************************** Bottom of Data ************************************ Command ===> SUB Scroll ===> PAGE F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel

COPY JCL

File Edit Confirm Menu Utilities Compilers Test Help EDIT IBMMFS.MAC.JCLS(DFCOPY) Columns 00001 - 00072 ****** ***************************** Top of Data ************************************** 000001 //SORT JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 000002 //STEP1 EXEC PGM=SORT 000003 //SYSOUT DD SYSOUT=* 000004 //SORTIN DD DSN=IBMMFS.MAC.PS,DISP=SHR 000005 //SORTOUT DD DSN=IBMMFS.MAC.COPYPS,DISP=SHR 000006 //SYSIN DD * 000007 SORT FIELDS=COPY <=O/P IS SAME AS I/P WITHOUT SORTING 000008 /* 000009 // ****** **************************** Bottom of Data ************************************ Command ===> SUB Scroll ===> PAGE F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel

SUMMATION JCL

File Edit Confirm Menu Utilities Compilers Test Help EDIT IBMMFS.MAC.JCLS(DFSUM) Columns 00001 - 00072 ****** ***************************** Top of Data ************************************** 000001 //SORT JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 000002 //STEP1 EXEC PGM=SORT,PARM='NOLIST' 000003 //SYSOUT DD SYSOUT=* 000004 //SORTIN DD DSN=IBMMFS.MAC.PS,DISP=SHR 000005 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 000006 //SORTOUT DD SYSOUT=* 000007 //SYSIN DD * 000008 SORT FIELDS=(10,2,BI,A) <= NEED ONLY FOR GROUP SUMMATION 000009 SUM FIELDS=(13,5,BI) <= ALL OTHER FIELDS ARE OMITTED 000010 /* 000011 // ****** **************************** Bottom of Data ************************************ Command ===> SUB Scroll ===> PAGE F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel

REFORMATTING JCL

File Edit Confirm Menu Utilities Compilers Test Help EDIT IBMMFS.MAC.JCLS(DFFORM) Columns 00001 - 00072 ****** ***************************** Top of Data ************************************** 000001 //SORT JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 000002 //STEP1 EXEC PGM=SORT 000003 //SYSOUT DD SYSOUT=* 000004 //SORTIN DD DSN=IBMMFS.MAC.PS,DISP=SHR 000005 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) <= IF NOT ENOUGH ADD MORE 000006 //SORTOUT DD DSN=IBMMFS.MAC.OUTPS,DISP=SHR 000007 //SYSIN DD * 000008 SORT FIELDS=(10,2,BI,A) 000009 OUTREC FIELDS=(10,2,4:C'NAME: ',X,1,10,60X) <= X INDICATE A SPACE 000010 /* 000011 // ****** **************************** Bottom of Data ************************************ Command ===> SUB Scroll ===> PAGE

SORT JCL

File Edit Confirm Menu Utilities Compilers Test Help EDIT IBMMFS.MAC.JCLS(SORT) Columns 00001 - 00072 ****** ***************************** Top of Data ************************************** 000001 //SORT JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 000002 //STEP1 EXEC PGM=SORT,PARM='NOLIST' 000003 //SYSOUT DD SYSOUT=* 000004 //SORTIN DD DSN=IBMMFS.MAC.PS,DISP=SHR 000005 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) <= IF NOT ENOUGH ADD MORE 000006 //SORTOUT DD DSN=IBMMFS.MAC.SORTPS,DISP=SHR 000007 //SYSIN DD * 000008 INCLUDE COND=(8,2,BI,GT,12,2,BI,OR,15,3,CH,EQ,C'MAC') <=SELECT COND 000009 SORT FIELDS=(1,5,CH,A,9,3,CH,D) <= DFSORT CONTROL STATEMENTS 000010 /* 000011 // ****** **************************** Bottom of Data ************************************ Command ===> SUB Scroll ===> PAGE F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel

MERGE JCL

File Edit Confirm Menu Utilities Compilers Test Help EDIT IBMMFS.MAC.JCLS(MERGE) Columns 00001 - 00072 ****** ***************************** Top of Data ************************************** 000001 //MERGE JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 000002 //STEP1 EXEC PGM=SORT <= REMEMBER NOT MERGE 000003 //SYSOUT DD SYSOUT=* 000004 //SORTIN01 DD DSN=IBMMFS.MAC.PS,DISP=SHR 000005 //SORTIN02 DD DSN=IBMMFS.MAC.PS1,DISP=SHR 000006 //SORTIN03 DD DSN=IBMMFS.MAC.PS2,DISP=SHR <= UPTO 99 DATASETS 000007 //SORTOUT DD DSN=IBMMFS.MAC.MERPS,DISP=SHR 000008 //SYSIN DD * 000009 MERGE FIELDS=(1,5,A,7,3,A),FORMAT=CH <='CAUSE EBCDIC IS COMMON 000010 /* 000011 // ****** **************************** Bottom of Data ************************************ Command ===> SUB Scroll ===> PAGE F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel

COPY JCL

File Edit Confirm Menu Utilities Compilers Test Help EDIT IBMMFS.MAC.JCLS(DFCOPY) Columns 00001 - 00072 ****** ***************************** Top of Data ************************************** 000001 //SORT JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 000002 //STEP1 EXEC PGM=SORT 000003 //SYSOUT DD SYSOUT=* 000004 //SORTIN DD DSN=IBMMFS.MAC.PS,DISP=SHR 000005 //SORTOUT DD DSN=IBMMFS.MAC.COPYPS,DISP=SHR 000006 //SYSIN DD * 000007 SORT FIELDS=COPY <=O/P IS SAME AS I/P WITHOUT SORTING 000008 /* 000009 // ****** **************************** Bottom of Data ************************************ Command ===> SUB Scroll ===> PAGE F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel

SUMMATION JCL

File Edit Confirm Menu Utilities Compilers Test Help EDIT IBMMFS.MAC.JCLS(DFSUM) Columns 00001 - 00072 ****** ***************************** Top of Data ************************************** 000001 //SORT JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 000002 //STEP1 EXEC PGM=SORT,PARM='NOLIST' 000003 //SYSOUT DD SYSOUT=* 000004 //SORTIN DD DSN=IBMMFS.MAC.PS,DISP=SHR 000005 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 000006 //SORTOUT DD SYSOUT=* 000007 //SYSIN DD * 000008 SORT FIELDS=(10,2,BI,A) <= NEED ONLY FOR GROUP SUMMATION 000009 SUM FIELDS=(13,5,BI) <= ALL OTHER FIELDS ARE OMITTED 000010 /* 000011 // ****** **************************** Bottom of Data ************************************ Command ===> SUB Scroll ===> PAGE F1=Help F3=Exit F5=Rfind F6=Rchange F12=Cancel

REFORMATTING JCL

File Edit Confirm Menu Utilities Compilers Test Help EDIT IBMMFS.MAC.JCLS(DFFORM) Columns 00001 - 00072 ****** ***************************** Top of Data ************************************** 000001 //SORT JOB 'IBMMFS','MAC',CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID 000002 //STEP1 EXEC PGM=SORT 000003 //SYSOUT DD SYSOUT=* 000004 //SORTIN DD DSN=IBMMFS.MAC.PS,DISP=SHR 000005 //SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) <= IF NOT ENOUGH ADD MORE 000006 //SORTOUT DD DSN=IBMMFS.MAC.OUTPS,DISP=SHR 000007 //SYSIN DD * 000008 SORT FIELDS=(10,2,BI,A) 000009 OUTREC FIELDS=(10,2,4:C'NAME: ',X,1,10,60X) <= X INDICATE A SPACE 000010 /* 000011 // ****** **************************** Bottom of Data ************************************ Command ===> SUB Scroll ===> PAGE