爱华网FUNTIONSYSIN(Control statement)DescReference
SORTSORT FIELDS=(1,3,CH,A)SERS.MSI.RABIL.JCL(NELSRT05)
SORT-OMIT recordsSORT FIELDS=(1,3,CH,A)
OMIT COND=(7,1,CH,EQ,C'S',AND,8,1,CH,EQ,C'G')Omit records
SORT-INCLUDE recordsSORT FIELDS=(1,3,CH,A)
INCLUDE COND=(7,1,CH,EQ,C'S')include records
COPYSORT FIELDS=COPY
COPY- OIMIT recordsSORT FIELDS=COPY
OMIT COND=(7,1,CH,EQ,C'S')Omit records
COPY- INCLUDE recordsSORT FIELDS=COPY
INCLUDE COND=(7,1,CH,EQ,C'S')include records
COPY -Several FieldsSORT FIELDS=COPY
OUTREC FIELDS=(1,3,C' RMB ',10,2)1. GET FIELDS START FROM 1, LENGTH IS 3
2. ADD NEW columns value ' RMB '
3. Get fileds start from 10, length is 2
COPY -Several Fields-OMITSORT FIELDS=COPY
OUTREC FIELDS=(1,3,C' RMB ',10,2)
OMIT COND=(1,3,CH,GT,C'333')
COPY -Several Fields-INCLUDESORT FIELDS=COPY
OUTREC FIELDS=(1,3,C' RMB ',10,2)
INCLUDE COND=(1,3,CH,LT,C'333')
COPY - GET FIRST N REOCRDSSORT FIELDS=COPY,STOPAFT=2
COPY-FROM RECORD M TO NSORT FIELDS=COPY,SKIPREC=2,STOPAFT=2
COPY-REPLACESORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT,
OUTREC=(1,3,4,2,CHANGE(2,C'FD',C'FF'),NOMATCH=(4,2))1.OUTPU FILE IN example. The length must be 6.
COPY-REFORMATSORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT,
OUTREC=(1:1,3, -
4:6,2, -
6:8,5)1.4:6,2(input start 6 length 2 output from 4)
2.file length in example is 10
SPLIT 1 TO SEVERAL FILESSORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT1,
INCLUDE=(1,3,CH,EQ,C'AAA')
OUTFIL FNAMES=SORTOUT2,
INCLUDE=(1,3,CH,EQ,C'BBB')
OUTFIL FNAMES=SORTOUT3,SAVE1.It is include, not 'include cond'
2.save->indicate left records put in sortout3 file
MERGEMERGE FIELDS=(1,3,CH,A)1. FILE MUST be sorted by FIELDS=(1,3,CH,A)
MERGE -INCLUDE CONDMERGE FIELDS=(1,3,CH,A)
INCLUDE COND=(1,3,CH,EQ,C'AAA',OR,1,3,CH,EQ,C'BBB')
MERGE -OMIT CONDMERGE FIELDS=(1,3,CH,A)
OMIT COND=(1,3,CH,EQ,C'AAA')
2.FILEAID
//PSTN0030 EXEC PGM=FILEAID,REGION=9M
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD DSN=&HLQN1.EL&HLQN2..EL.&GRP1..ISAR.DATA.UNLOAD,
// DISP=SHR
//DD01O DD DSN=&HLQN1.EL&HLQN2..EL.&GRP1..ISAR.DATA.FILEAID,
// DISP=OLD
//SYSIN DD *
$$DD01 COPY PADCHAR=X'00' -> DD01 is inut, copy to dd010 . PADCHAR-> THE VALUE FOR PADDING->把vb文件后面补充x‘00’转换成FB文件
3. Sort summary2
SORT /MEAREG
Specify output fileINCUDE ROWSOMIT ROWS
SORT FIELDS =(1,2,CH,A)INCLUDE COND=(1,2,CH,EQ,C'AA',OR,1,2,CH,EQ,C'BB')OMMIT COND=(1,2,CH,EQ,C'AA')
MERGE FIELDS =(1,2,CH,A)INCLUDE COND=(1,2,CH,EQ,C'AA',OR,1,2,CH,EQ,C'BB')OMMIT COND=(1,2,CH,EQ,C'AA')
COPY ROWSSpecify output fileINCUDE ROWSOMIT ROWS
SORT FIELDS=COPYSORT FIELDS=COPY
OUTFILE FNAMES=SORTOUTINCLUDE COND=(1,2,CH,EQ,C'AA',OR,1,2,CH,EQ,C'BB')OMMIT COND=(1,2,CH,EQ,C'AA')
COPY COLUMNSSpecify output fileINCUDE ROWSOMIT ROWS
SORT FIELDS=COPY
OUTREC FIELDS=(1,2,C'RMB',4,3)SORT FIELDS=COPY
OUTFILE FNAMES=SORTOUT,
OUTREC=(1,2,C'RMB',4,3)INCLUDE COND=(1,2,CH,EQ,C'AA',OR,1,2,CH,EQ,C'BB')OMMIT COND=(1,2,CH,EQ,C'AA')
COPY COLUMNS REPLACESpecify output fileINCUDE ROWSOMIT ROWS
SORT FIELDS=COPY
OUTREC FIELDS=(1,2,3,2,CHANGE(2,C'AA',C'FF'),
NOMATCH=(3,2))OUTFILE FNAMES=SORTOUT,
OUTREC=(1,2,3,2,CHANGE(2,C'AA',C'FF'),
NOMATCH=(3,2))INCLUDE COND=(1,2,CH,EQ,C'AA',OR,1,2,CH,EQ,C'BB')OMMIT COND=(1,2,CH,EQ,C'AA')
SORT FIELDS=COPY
COPY COLUMNS REFORMATSpecify outputfileINCUDE ROWSOMIT ROWS
SORT FIELDS=COPY
OUTREC FIELDS=(1:1,2, -
3:4,3, -
6:8,2)SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT,
OUTREC=(1:1,2, -
3:4,3, -
6:8,2)INCLUDE COND=(1,2,CH,EQ,C'AA',OR,1,2,CH,EQ,C'BB')OMMIT COND=(1,2,CH,EQ,C'AA')
COPY N ROWSSpecify outputfileINCUDE ROWSOMIT ROWS
SORT FIELDS=COPY,SKIPREC=2,STOPAFT=2SORT FIELDS=COPY,SKIPREC=2,STOPAFT=2
OUTFIL FNAMES=SORTOUTINCLUDE COND=(1,2,CH,EQ,C'11',OR,1,2,CH,EQ,C'22')OMMIT COND=(1,2,CH,EQ,C'AA')
SPLIT FILESSplit by rowsSplit by columns
SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT1,
INCLUDE=(1,3,CH,EQ,C'AAA')
OUTFIL FNAMES=SORTOUT2,
INCLUDE=(1,3,CH,EQ,C'BBB')
OUTFIL FNAMES=SORTOUT3,SAVESORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT1,
OUTREC=(1,2)
OUTFIL FNAMES=SORTOUT2,
OUTREC=(3,2) /*sortout1 lenght must be 2
