SORTING BY DIFFERENT TYPES

  ( SORTING BY PUTTING CONDITION FOR SHOWING "ACC" COLS ONLY)

 EDIT       MTPLP06.SORTNEW.PDS(INCLUDE) - 01.00            Columns 00001 0

 Command ===>                                                  Scroll ===>

  ****** ***************************** Top of Data *************************

 000001 //JOB1 JOB NOTIFY=&SYSUID                                         

 000002 //EXEC1 EXEC PGM=SORT                                             

 000003 //SYSPRINT DD SYSOUT=*                                            

 000004 //SYSOUT DD SYSOUT=*                                              

 000005 //SORTIN DD DSN=MTPLP06.SORTR.PDS(MEM),DISP=SHR                   

 000006 //SORTOUT DD DSN=MTPLP06.SORTS.PDS(SMI),DISP=SHR                  

 000007 //SYSIN DD *                                                      

 000008      SORT FIELDS=(1,3,CH,A) , INCLUDE CONDITION=(6,3,CH,EQ,C'ACC')

 000009 /*                                                                

 000010 //                                                                 

i/p  123   acc                0/p  123    acc

      487   mech                    234    acc 

      234   acc                        487     mech

 EDIT       MTPLP06.SORTNEW.PDS(OMIT) - 01.00               Columns 00001 00

 Command ===>                                                  Scroll ===> P

 ****** ***************************** Top of Data **************************

 000001 //JOB1 JOB NOTIFY=&SYSUID                                          

 000002 //EXEC1 EXEC PGM=SORT                                              

 000003 //SYSPRINT DD SYSOUT=*                                             

 000004 //SYSOUT DD SYSOUT=*                                               

 000005 //SORTIN DD DSN=MTPLP06.SORTR.PDS(MEM),DISP=SHR                    

 000006 //SORTOUT DD DSN=MTPLP06.SORTS.PDS(SMI),DISP=SHR                   

 000007 //SYSIN DD *                                                       

 000008      SORT FIELDS=(1,3,CH,A) , OMIT CONDITION=(6,3,CH,EQ,C'ACC')    

 000009 /*                                                                 

 000010 //     

o/p=  it will omit   acc part from above i/p and will show mech only.

EDIT       MTPLP06.SORTNEW.PDS(SKIP) - 01.00              

  Command ===>                                              

 ****** ***************************** Top of Data **********

 000001 //JOB1 JOB NOTIFY=&SYSUID                          

 000002 //EXEC1 EXEC PGM=SORT                              

 000003 //SYSPRINT DD SYSOUT=*                             

 000004 //SYSOUT DD SYSOUT=*                               

 000005 //SORTIN DD DSN=MTPLP06.SORTR.PDS(MEM),DISP=SHR    

 000006 //SORTOUT DD DSN=MTPLP06.SORTS.PDS(SMI),DISP=SHR   

 000007 //SYSIN DD *                                        

 000008      SORT FIELDS=(1,3,CH,A) , SKIPREC=1,STOPAFT=2  

 000009 /*                                                 

 000010 //          

o/p == from above i/p it will skip 123 and will giv only 234  acc.

 (  this instream prog in which we override SMITHA24.PDS  by creating AGG.PDS)              

 EDIT       MTPLP06.SORTNEW.PDS(INSOVRD) - 01.01          

 Command ===>                                             

 ****** ***************************** Top of Data *********

 000100 //MTPLP06A JOB NOTIFY=MTPLP06                     

 000200 //PROC1 PROC                                      

 000300 //EXEC1 EXEC PGM=IEFBR14                          

 000400 //DD1 DD DSN=MTPLP06.SMITHA24.PDS,VOL=SER=MTPUN1, 

 000500 //       UNIT=SYSDA,SPACE=(TRK,(2,2,3),RLSE),     

 000600 //       DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),     

 000700 //       DISP=(NEW,CATLG,DELETE)                  

 000800 //SYSPRINT DD SYSOUT=*                            

 000900 //       PEND                                     

 001000 //EXEC1 EXEC PROC=PROC1                           

 001100 //EXEC1.DD1 DD DSN=MTPLP06.AGG.PDS                

 001200 //SYSIN DD DUMMY                                      

( in this  catalog proce we override SMITHA21.PDS by AAHOO.PDS by calling from calovtcl)

we can also create ps from this.

                    EDIT       MTPLP06.SORTNEW.PDS(OVRDCTLG) - 01.02           Columns 0000

 Command ===>                                                  Scroll ==

 ****** ***************************** Top of Data **********************

 000100 //PROC1 PROC                                                   

 000200 //EXEC1 EXEC PGM=IEFBR14                                       

 000300 //DD1 DD DSN=MTPLP06.SMITHA21.PDS,                             

 000400 //       DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),                  

 000500 //       SPACE=(TRK,(2,2,3),RLSE),UNIT=SYSDA,VOL=SER=MTPUN1,   

 000600 //      DISP=(NEW,CATLG,DELETE)                                

 000700 //SYSPRINT DD SYSOUT=*                                         

 000800 //SYSIN DD DUMMY                                               

 EDIT       MTPLP06.SORTNEW.PDS(CALOVCTL) - 01.01   

 Command ===>                                        

 ****** ***************************** Top of Data ***

 000100 //JOB1 JOB NOTIFY=&SYSUID                   

 000200 //J1 JCLLIB ORDER=MTPLP06.SORTNEW.PDS       

 000300 //STEP1 EXEC PROC=OVRDCTLG                  

 000400 //EXEC1.DD1 DD DSN=MTPLP06.AAHOO.PDS