SORT JCL

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  

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  

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  

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  

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

F1=Help                          F3=Exit                           F5=Rfind                          F6=Rchange                       F12=Cancel

® IBMMAINFRAMES.com Training Division                                                             © www.ibmmainframes.com