24-Bit Parameter List Example
The example in Figure 1 shows, in assembler
language, how to use a 24-bit parameter list to code parameters and
statement images and how to pass control to DFSORT.
Figure 1. Coding
a 24-Bit Parameter List LA 1,PARLST LOAD ADDR OF PARAM POINTER IN R1
ATTACH EP=SORT INVOKE SORT
.
.
.
PARLST DC X'80',AL3(ADLST) POINTER FLAG/ADDRESS OF PARAM LIST
.
.
.
CNOP 2,4 ALIGN TO CORRECT BOUNDARY
ADLST DC AL2(LISTEND-LISTBEG) PARAM LIST LENGTH
LISTBEG DC A(SORTA) BEGINNING ADDRESS OF SORT STMT
DC A(SORTZ) END ADDRESS OF SORT STMT
DC A(RECA) BEGINNING ADDR OF RECORD STMT
DC A(RECZ) END ADDR OF RECORD STMT
DC A(MOD1) ADDR OF E15 RTN
DC A(MOD2) ADDR OF E35 RTN
DC C'ABC#' DDNAME CHARACTERS
DC F'720000' OPTIONAL MAIN STORAGE VALUE
DC X'FF' MESSAGE OPTION FLAG BYTE
DC C'(U)' MESSAGE OPTION
LISTEND EQU *
SORTA DC C' SORT FIELDS=(10,15,CH,A),' SORT CONTROL STMT
DC C'FILSZ=E4780' (CONTINUED)
SORTZ DC C' ' DELIMITER
RECA DC C' RECORD LENGTH=100,TYPE=F' RECORD CONTROL STMT
RECZ DC C' ' DELIMITER
DS 0H
USING *,15
MOD1 (routine for E15 user exit)
.
.
USING *,15
MOD2 (routine for E35 user exit)
Extended Parameter List Example
The example in Figure 2 shows, in assembler language,
how to use an extended parameter list to code parameters and statement
images and how to pass control to DFSORT.
Figure 2. Coding an Extended Parameter
List .
.
.
LA R1,PL1 SET ADDRESS OF PARAMETER LIST
* TO BE PASSED TO SORT/MERGE
ST R2,PL4 SET ADDRESS OF GETMAINED AREA
* TO BE PASSED TO E15
LINK EP=SORT INVOKE SORT/MERGE
.
.
.
PL1 DC A(CTLST) ADDRESS OF CONTROL STATEMENTS
PL2 DC A(E15) ADDRESS OF E15 ROUTINE
PL3 DC A(0) NO E35 ROUTINE
PL4 DS A USER EXIT ADDRESS CONSTANT
PL5 DC F'-1' INDICATE END OF LIST
CTLST DS 0H CONTROL STATEMENTS AREA
DC AL2(CTL2-CTL1) LENGTH OF CHARACTER STRING
CTL1 DC C' SORT FIELDS=(4,5,CH,A)'
DC C' OPTION '
DC C'RESINV=2048,FILSZ=E25000,MSGDDN=MSGOUT '
DC C' OMIT COND=(5,8,EQ,13,8),FORMAT=FI '
DC C' RECORD TYPE=F,LENGTH=80 '
CTL2 EQU *
OUT DCB DDNAME=SYSOUT,... MYSORT USES SYSOUT
E15 DS 0H E15 ROUTINE
.
.
.
BR R14 RETURN TO SORT/MERGE
* MAPPING OF PARAMETER LIST PASSED TO E15 FROM SORT/MERGE
SRTLST DS A ADDRESS OF RECORD
GMA DS A ADDRESS OF AREA GETMAINED BY
* MYSORT
.
.
.
64-Bit Parameter List Example
Example 15. Sort with 64-bit parameter lists, E15, E35 and OUTFIL in Examples of DFSORT job streams shows, in assembler language, how to use a 64-bit parameter
list to code parameters and statement images and how to pass control
to DFSORT.