* /*     06/01/72 R2                                                 */ 00050002
*   %GOTO ZB502BSL;                                                  /* 00100002
         MACRO                                                          00150002
         IEFZB502                                                       00200002
ZB502    DSECT                                                          00250002
SWPRBN   DS    F                   RELATIVE BLOCK NUMBER                00300002
SWPSTA   DS    CL1                 STATUS BYTE                          00302002
SWPWRT   EQU   X'80'               INDICATES BLOCK WRITTEN              00302402
SWPVA    DS    CL3                 SELF POINTER                         00330002
SWPID    DS    CL1                 BLOCK IDENTIFIER                     00380002
SWPLNGTH DS    CL3                 BLOCK LENGTH (NOT INCLUDING PREFIX)  00610002
SWPACRO  DS    CL4                 BLOCK ACRONYM                        00612002
         MEND                                                        */ 00650002
*%ZB502BSL:;                                                            00700002
*   DCL                                                                 00750002
*         1 SWAPFX BASED(SPFXPTR),  /* 16 BYTE SWA PREFIX            */ 00800002
*           2 SWPRBN FIXED (31),    /* RELATIVE BLOCK NUMBER         */ 00850002
*           2 SWPSTA BIT (8),       /* STATUS BYTE                   */ 00900002
*             3 SWPWRT BIT (1),     /* SET WHEN BLOCK WRITTEN        */ 00950002
*             3 * BIT (7),          /* RESERVED                      */ 01050002
*           2 SWPVA CHAR (3),       /* SELF POINTER                  */ 01200002
*           2 SWPID CHAR (1),       /* BLOCK IDENTIFIER              */ 01250002
*           2 SWPLNGTH PTR (24),    /* BLOCK LENGTH (NOT INCLUDING   */ 01310002
*                                   /* SWA PREFIX)                   */ 01320002
*           2 SWPACRO CHAR (4);     /* BLOCK ACRONYM                 */ 01350002