Dynamic output programming example (concluded)

The SVC 99 text units and request block are shown. Definitions for DALOUTPT and DALSYSOU, which are mapped by IEFZB4D2, are not shown. See IEFZB4D2 in z/OS MVS Data Areas in the z/OS Internet library.
 * POINTERS TO THE TWO DYNAMIC ALLOCATION TEXT UNITS
 *
 TXTPTRS2 DS 0F
 POINTERA DC AL4(SYSOUT)            PTR TO SYSOUT TU
 POINTERB DC AL4(OUTPUT)            PTR TO OUTPUT TU
 *
 SYSOUT   DS 0H                     SYSOUT TU
          DC AL2(DALSYSOU)          KEY = SYSOUT
          DC XL2'0001'              HOW MANY VAL FIELDS
          DC XL2'0001'              LEN OF VALUE FIELD
          DC CL1'A'                 VAL FIELD, SYSOUT=A
 *
 OUTPUT   DS 0H                     DATA SET NAME TU
          DC AL2(DALOUTPT)          KEY=OUTPUT REFERENCE
          DC XL2'0001'              HOW MANY VAL FIELDS
          DC XL2'0008'              LEN OF VALUE FIELD
          DC CL8'OUT1'              VAL FLD, OUTPUT=*.OUT1
 *
 * SVC 99 REQUEST BLOCK DSECT, ABRIDGED EXPANSION
 *
          IEFZB4D0       MAP SVC 99 REQUEST BLOCK
+S99RBP   DSECT
+S99RBPTR DS     F       REQUEST BLOCK POINTER
+S99RB    DSECT          REQUEST BLOCK
          DS     0F
+S99RBLN  DS     CL1     LENGTH OF REQUEST BLOCK
+S99VERB  DS     CL1     VERB CODE
+S99VRBAL EQU    X'01'   ALLOCATION
+S99FLAG1 DS     0CL2    FLAGS
+S99FLG11 DS     CL1     FIRST FLAGS BYTE
+S99FLG12 DS     CL1     SECOND BYTE OF FLAGS
+S99RSC   DS     0CL4    REASON CODE FIELDS
+S99ERROR DS     XL2     ERROR REASON CODE
+S99INFO  DS     XL2     INFORMATION REASON CODE
+S99TXTPP DS     F       ADDR OF LIST OF TEXT UNIT PTRS
+S99S99X  DS     F       ADDR OF REQ BLK EXTENSION
+S99FLAG2 DS     0CL4    FLAGS FOR AUTHORIZED FUNCTIONS
+S99FLG21 DS     CL1     FIRST BYTE OF FLAGS
+S99FLG22 DS     CL1     SECOND BYTE OF FLAGS
+S99FLG23 DS     CL1     THIRD BYTE OF FLAGS
+S99FLG24 DS     CL1     FOURTH BYTE OF FLAGS
+S99RBEND EQU    *       END MARKER
          IEFZB4D2       MAP SVC 99 KEY TABLE
 *
 * FIELDS INDICATING PRINTED OUTPUT CHARACTERISTICS
 *
 INPUT_DATA DSECT                   INPUT MAPPING
 COPYIN     DS XL1                  HOW MANY COPIES
 GROUPIN1   DS XL1                  COPIES GROUP VAL
 GROUPIN2   DS XL1                  COPIES GROUP VAL
 FORMDIN    DS CL6                  WHAT KIND OF FORMS
          END