*        %GOTO INFL1;        /*                                         00050002
         MACRO                                                          00100000
         IHAINF , */                                                    00150002
*%INFL1: ;                                                              00160002
*/*      IHAINF - TYPE 1 MESSAGE TABLE ENTRY MAPPING                 */ 00200002
*/*      RELEASE 2.0 VS2, 5/8/73, LEVEL=1                            */ 00250002
*/*                                                                  */ 00300002
*/*      THIS MAPS A SINGLE ENTRY OF THE TYPE 1 MESSAGE TABLE WHICH  */ 00310002
*/*      IS USED AS A DROP AREA FOR INFORMATION ASSOCIATED WITH A    */ 00320002
*/*      FAILURE IN A TYPE 1 SVC.  THE INFORMATION IN THE ENTRY IS   */ 00322002
*/*      PUT OUT VIA WTP BY RTM.  THE ONLY USER OF THIS TABLE        */ 00330002
*/*      CURRENTLY IS GETMAIN/FREEMAIN.                              */ 00340002
*/*                                                                  */ 00342002
*/*      THE COMPLETE TABLE CONSISTS OF A FOUR BYTE POINTER FOLLOWED */ 00344002
*/*      BY A NUMBER OF ENTRIES.  THE POINTER POINTS TO THE BYTE     */ 00346002
*/*      FOLLOWING THE END OF THE COMPLETE TABLE.                    */ 00348002
*/*                                                                  */ 00348402
*%GOTO INFL2; /*                                                        00348802
INFOLIST DSECT , INFPTR -     INFORMATION LIST                          00350000
INFASCB  DS    A -            ADDRESS ASCB                      @Y02702 00360002
INFOBODY DS    0CL32          MAIN BODY OF ENTRY                @Y02702 00370002
INFTCB   DS    A -            ADDRESS TCB                               00400000
INFBADDR DS    A -            REGISTER 14 IF A BRANCH ENTRY             00450000
INFRCL   DS    BL1 -          REASON CODE AND COUNT OF VARIABLE DATA.   00500000
INFCL    EQU   X'E0' -        REASON CODE ON BITS 0-2.                  00550000
INFVARCT EQU   X'1F' -        COUNT OF VARIABLE DATA IN BITS 3-7.       00600000
INFFLG   DS    BL1 -          FLAG BYTE                                 00650000
INFFLG0  EQU   X'80' -        WHEN 1, INDICATES BRANCH ENTRY            00700000
INFCC    DS    0H -           COMPLETION CODE                           00750000
         DS    C                                                        00800000
INFCCSVC DS    C -            SVC NUMBER                                00850000
INFVAR   DS    4F -           VARIABLE INFORMATION                      00900000
         ORG   INFVAR         ORG BACK FOR VARIABLE FIELDS              00950000
INFVAR1  DS    F -            VARIABLE WORD 1                           01000000
INFVAR2  DS    F -            VARIABLE WORD 2                           01050000
INFVAR3  DS    F -            VARIABLE WORD 3                           01100000
INFVAR4  DS    F -            VARIABLE WORD 4                           01150000
INFRSV01 DS    H              RESERVED FOR EXPANSION            @Y02702 01200002
INFRSV02 DS    H              RESERVED FOR EXPANSION            @Y02702 01250002
INFEND   DS    0C -           END OF INFOLIST                           01300000
INFLEN   EQU   INFEND-INFOLIST - LENGTH OF INFOLIST                     01350000
         MEND  , */                                                     01400000
*%INFL2 :  ;                                                            01450002
*DECLARE                                                                01700000
*  1 INFOLIST BASED(INFOPTR), /* INFORMATION LIST                    */ 01750000
*   2 INFASCB PTR(31),        /* ADDRESS ASCB                 @Y02702*/ 01760002
*   2 INFOBODY,               /* MAIN BODY OF ENTRY           @Y02702*/ 01770002
*    4 INFTCB PTR(31),        /* ADDRESS TCB                         */ 01800002
*    4 INFBADDR PTR(31),      /* REGISTER 14 IF BRANCH ENTRY         */ 01850002
*    4 INFRCL CHAR(1),        /* REASON CODE AND COUNT OF VARIABLE      01900002
*                                DATA.                               */ 01950000
*     8 INFCL BIT(3),         /* REASON CODE                         */ 02000002
*     8 INFVARCT BIT(5),      /* COUNT OF VARIABLE DATA.             */ 02050002
*    4 INFFLG CHAR(1),        /* FLAG BYTE                           */ 02100002
*     8 INFFLG0 BIT(1),       /* WHEN 1, INDICATES BRANCH ENTRY      */ 02150002
*    4 INFCC FIXED(15),       /* COMPLETION CODE                     */ 02200002
*     8 * PTR(8),                                                       02250002
*     8 INFCCSVC PTR(8),      /* SVC NUMBER                          */ 02300002
*    4 INFVAR,                /* VARIABLE INFORMATION                */ 02350002
*     8 INFVAR1 FIXED(31),    /* VARIABLE WORD 1                     */ 02400002
*     8 INFVAR2 FIXED(31),    /* VARIABLE WORD 2                     */ 02450002
*     8 INFVAR3 FIXED(31),    /* VARIABLE WORD 3                     */ 02500002
*     8 INFVAR4 FIXED(31),    /* VARIABLE WORD 4              Y00489 */ 02550002
*    4 INFRSV01 FIXED(15),    /* RESERVED                     @Y02702*/ 02600002
*    4 INFRSV02 FIXED(15);    /* RESERVED                     @Y02702*/ 02650002
*DECLARE INFEND CHAR(0) BASED(ADDR(INFOLIST)+LENGTH(INFOLIST));         02700002