Example of Use

In the following example a test is made to determine if a storage area is a logical unit control block (LCB). If the control block is incorrect, a DM553 ABEND should occur. The IATXSNFG macro is used to obtain a SNARJP FAILDSP work area. Inside this work area, JES3 attempts to store any data that might be useful in solving the failure. Once the work area has been initialized, the IATXSNFS macro is issued to ABEND the caller.

         CLC      LCBCBID,=CL4'LCB'  IS THIS AN LCB?
         BC       EQ,LABEL           YES, GO CONTINUE PROCESSING
         IATXSNFG                    GET FAILDSP WORK AREA
         USING    IATYSNFS,R2        ESTABLISH ADDRESSABILITY TO IT
         LA       R3,SNFSDATA        POINT TO USER AREA
         USING    YSNFSD553,R3       ESTABLISH ADDRESSABILITY TO IT
         LA       R4,D553LENX        GET LENGTH OF INFORMATION
         ST       R4,D553LEN         STORE IN USER AREA
         ST       R5,D553LCB         STORE LCB ADDRESS
         IATXSNFS CODE=DUMP553,DATA=(R2)  ABEND THE CALLER
LABEL    DS 0H