INPUT Blocked fixed-length records on disk
OUTPUT Blocked fixed-length records on disk
WORK DATA SETS Not applicable
USER EXITS None
FUNCTIONS/OPTIONS OUTREC, PARSE, BUILD
//EXAMP JOB A400,PROGRAMMER 01
//S1 EXEC PGM=ICEMAN 02
//SYSOUT DD SYSOUT=A 03
//SORTIN DD DSN=FLY.VAR.FIELDS.IN,DISP=SHR 04
//SORTOUT DD DSN=FLY.FIX.FIELDS.OUT,DISP=OLD 05
//SYSIN DD * 06
OPTION COPY 07
OUTREC PARSE=(%00=(ABSPOS=21,STARTAFT=BLANKS, 08
ENDBEFR=C',',FIXLEN=5), 09
%=(ENDBEFR=C','), 10
%01=(ENDBEFR=C',',FIXLEN=10), 11
%02=(FIXLEN=7)), 12
BUILD=(1,15, 13
18:%00,JFY=(SHIFT=RIGHT,LEAD=C'(',TRAIL=C')',LENGTH=7), 14
30:%02,SFF,TO=ZD,LENGTH=7, 15
40:%01,60:X) 16
- Line
- Explanation
- 01
- JOB statement. Introduces this job to the operating system.
- 02
- EXEC statement. Calls DFSORT directly.
- 03
- SYSOUT DD statement. Directs DFSORT messages and control statements
to sysout class A.
- 04
- SORTIN DD statement. The input data set is named FLY.VAR.FIELDS.IN
and is cataloged. DFSORT determines from the data set label that the
RECFM is FB, the LRECL is 60 and the BLKSIZE is 27960.
- 05
- SORTOUT DD statement. The output data set is named FLY.FIX.FIELDS.OUT
and is cataloged. DFSORT determines from the data set label that the
RECFM is FB, the LRECL is 60 and the BLKSIZE is 27960.
- 06
- SYSIN DD statement. DFSORT control statements follow.
- 07
- OPTION statement. COPY specifies a copy application.
- 08-16
- OUTREC statement. PARSE and BUILD reformat the input records
containing one fixed position/length field and four variable position/length
fields to output records containing four fixed position/length fields.