INPUT

Variable-length ASCII records on 3590

OUTPUT

Variable-length ASCII records on 3590

WORK DATA SETS

One SYSDA data set

USER EXITS

None

FUNCTIONS/OPTIONS

None

//EXAMP    JOB A400,PROGRAMMER                                  01
//RUNIT    EXEC SORTD                                           02
//SORTIN   DD DSN=SRTFIL,DISP=(OLD,DELETE),UNIT=3590,           03
//  DCB=(RECFM=D,LRECL=400,BLKSIZE=404,OPTCD=Q,BUFOFF=L),       04
//  VOL=SER=311500,LABEL=(1,AL)                                 05
//SORTOUT  DD DSN=OUTFIL,UNIT=3590,LABEL=(,AL),DISP=(,KEEP),    06
//  DCB=(BLKSIZE=404,OPTCD=Q,BUFOFF=L),VOL=SER=311501           07
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(4))                        08
//SYSIN    DD *                                                 09
  SORT FIELDS=(10,8,AC,D)                                       10
  RECORD TYPE=D,LENGTH=(,,,20,80)                               11

Line

Explanation

01

JOB statement. Introduces this job to the operating system.

02

EXEC statement. Uses the SORTD cataloged procedure to call DFSORT directly.

03-05

SORTIN DD statement. The input data set is named SRTFIL and resides on 3590 volume 311500. It is to be deleted after this job step. It has a RECFM of D (variable-length ASCII records), a maximum LRECL of 400, a BLKSIZE of 404 and an ASCII label. For this job, the buffer offset is the block length indicator. The records are to be translated from ASCII to EBCDIC.

06-07

SORTOUT DD statement. The output data set is named OUTFIL and is to be allocated on 3590 volume 311501 and kept. It is to be written with an ASCII label. DFSORT sets the RECFM and LRECL from SORTIN and sets the BLKSIZE to 404 as indicated in the DD statement. For this job, the buffer offset is the block length indicator. The records are to be translated from EBCDIC to ASCII.

08

SORTWK01 DD statement. The work data set is allocated on SYSDA.

09

SYSIN DD statement. DFSORT control statements follow.

10

SORT statement. FIELDS specifies a descending 8-byte ASCII control field starting at position 10.

11

RECORD statement. TYPE specifies ASCII variable-length records. LENGTH specifies that the minimum record length is 20 and the average record length is 80.