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