Parameter list examples

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.