- INPUT
- Blocked fixed-length records on disk
- OUTPUT
- Blocked fixed-length records on 3380
- WORK DATA SETS
- One SYSDA data set
- USER EXITS
- E11, E15, E17, E18, E19, E31, E35, E38, E39
- FUNCTIONS/OPTIONS
- None
//EXAMP JOB A400,PROGRAMMER 01
//STEPA EXEC SORT 02
//SORTIN DD DSN=SMITH.INPUT,DISP=SHR 03
//SORTOUT DD DSN=SMITH.OUTPUT,DISP=(NEW,CATLG), 04
// UNIT=3380,SPACE=(TRK,(10,2)),VOL=SER=XYZ003 05
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 06
//EXIT DD DSN=SMITH.EXIT.OBJ,DISP=SHR 07
//EXIT2 DD DSN=SMITH.EXIT2.OBJ,DISP=SHR 08
//SORTMODS DD UNIT=SYSDA,SPACE=(TRK,(10,,3)) 09
//SYSIN DD * 10
SORT FIELDS=(1,8,CH,A,20,4,BI,D) 11
MODS E11=(EXIT11,1024,EXIT,S), 12
E15=(E15,1024,SYSIN,T), 13
E17=(EXIT17,1024,EXIT2,T), 14
E18=(EXIT18,1024,EXIT,T), 15
E19=(E19,1024,SYSIN,T), 16
E31=(PH3EXIT,1024,EXIT,T), 17
E35=(PH3EXIT,1024,EXIT,T), 18
E38=(PH3EXIT,1024,EXIT,T), 19
E39=(E39,1024,SYSIN,T) 20
END 21
<object deck for E15 exit here> 22
<object deck for E19 exit here> 23
<object deck for E39 exit here> 24
- Line
- Explanation
- 01
- JOB statement. Introduces this job to the operating system.
- 02
- EXEC statement. Uses the SORT cataloged procedure to call DFSORT
directly and supply the DD statements (not shown) required by the
linkage editor.
- 03
- SORTIN DD statement. The input data set is named SMITH.INPUT
and is cataloged. DFSORT determines the RECFM, LRECL and BLKSIZE
from the data set label.
- 04-05
- SORTOUT DD statement. The output data set is named SMITH.OUTPUT
and is to be allocated on 3380 volume XYZ003 and cataloged. DFSORT
sets the RECFM and LRECL from SORTIN and selects an appropriate BLKSIZE.
- 06
- SORTWK01 DD statement. The work data set is allocated on SYSDA.
- 07
- EXIT DD statement. Specifies the partitioned data set containing
the object decks for the E11, E18, E31, E35 and E38 exit routines.
- 08
- EXIT2 DD statement. Specifies the partitioned data set containing
the object deck for the E17 exit routine.
- 09
- SORTMODS DD statement. The partitioned data set to hold exit
routine object decks from SYSIN for input to the linkage editor is
to be allocated on SYSDA.
- 10
- SYSIN DD statement. DFSORT control statements, and object decks
to be used by the linkage editor, follow.
- 11
- SORT statement. FIELDS specifies an ascending 8-byte character
control field starting at position 1 and a descending 4-byte binary
control field starting at position 20.
- 12-20
- MODS statement. Specifies the exit routines to be used, the
approximate number of bytes required for each exit and that:
- The EXIT11 routine in the EXIT library is to be link-edited separately
from other input phase exit routines and associated with user exit
E11.
- The E15 and E19 routines in SYSIN, the EXIT17 routine in EXIT2,
and the EXIT18 routine in EXIT are to be link-edited together and
associated with user exits E15, E19, E17, and E18, respectively.
- The E31, E35, and E38 routines in the PH3EXIT object deck and
the E39 routine in SYSIN are to be link-edited together and associated
with user exits E31, E35, E38, and E39, respectively.
- 21
- END statement. Marks the end of the DFSORT control statements
and the beginning of the exit routine object decks.
- 22-24
- Object decks. The three object decks for the E15, E19, and
E39 exit routines follow the END statement.