*        %GOTO PLSINVL;                 /*                              01000010
         MACRO                                                          02000010
         TINVLD                                                         03000010
.*A00000000-99999999                                           @Y17XAXF 04000010
IEDINVL  DSECT                                                          05000010
*                                                                       06000010
*        INVITATION LIST DSECT                                          07000010
*                                                                       08000010
INVCTL   DS    0CL4 .                   CONTROL WORD                    09000010
INVTOTNT DS    XL1 .                     TOTAL ENTRIES IN LIST          10000010
INVACTNT DS    XL1 .                     TOTAL ACTIVE ENTRIES           11000010
INVENTLG DS    XL1 .                     ENTRY LENGTH                   12000010
INVSTATS DS    XL1 .                     STATUS                         13000010
INVEOT   EQU   X'80' .                    EOT SPECIFIED                 14000010
INVOFSRT EQU   X'40' .                    OFFSETS SORTED                15000010
INVCONT  EQU   X'20' .                    CONTENTION                    16000010
*        EQU   X'10'-X'08'                RESERVED                      17000010
INVCRR   EQU   X'04' .                    CHECKPOINT RESTART            18000010
*        EQU   X'02' .                    RESERVED                      19000010
INVAUTPL EQU   X'01' .                    AUTOPOLL IN EFFECT            20000010
INVCPUID DS    0A .                     IF SEQUENCE ADDRESS             21000010
INVBFRTM DS    0CL4 .                    BUFFERED TERM FIELD            22000010
INVACTCT DS    XL1 .                      NO. ACTIVE TERM               23000010
INVUCBST DS    XL1 .                      UCB STATUS                    24000010
         DS    XL1 .                      RESERVED                      25000010
INVTRMCT DS    XL1 .                      NO TERMS ON THIS LINE         26000010
INVENTRY EQU   *                        BEGIN INVITATION LIST           27000010
*                                        ENTRIES                        28000010
INVENDL  EQU   X'FE' .                  END OF ACTIVE LIST INDICATOR    29000010
         MEND  */                                                       30000010
*%PLSINVL: ;                                                            31000010
*/*                                                                  */ 32000010
*/*      INVITATION LIST DSECT                                       */ 33000010
*/*                                                                  */ 34000010
* DECLARE                                                               35000010
* 1 IEDINVL  BASED(RINVL),                                              36000010
*  2 INVCTL   CHAR(4),                  /* CONTROL WORD              */ 37000010
*   3 INVTOTNT FIXED(8),                /*  TOTAL ENTRIES IN LIST    */ 38000010
*   3 INVACTNT FIXED(8),                /*  TOTAL ACTIVE ENTRIES     */ 39000010
*   3 INVENTLG FIXED(8),                /*  ENTRY LENGTH             */ 40000010
*   3 INVSTATS FIXED(8),                /*  STATUS                   */ 41000010
*    4 INVEOT   BIT(1),                 /*   EOT SPECIFIED           */ 42000010
*    4 INVOFSRT BIT(1),                 /*   OFFSETS SORTED          */ 43000010
*    4 INVCONT  BIT(1),                 /*   CONTENTION              */ 44000010
*    4 *        BIT(2),                 /*   RESERVED                */ 45000010
*    4 INVCRR   BIT(1),                 /*   CHECKPOINT RESTART      */ 46000010
*    4 *        BIT(1),                 /*   RESERVED                */ 47000010
*    4 INVAUTPL BIT(1),                 /*   AUTOPOLL IN EFFECT      */ 48000010
*  2 INVCPUID PTR(31),                  /* IF SEQUENCE ADDRESS       */ 49000010
*   3 INVBFRTM CHAR(4),                 /*  BUFFERED TERM FIELD      */ 50000010
*    4 INVACTCT FIXED(8),               /*   NO. ACTIVE TERM         */ 51000010
*    4 INVUCBST BIT(8),                 /*   UCB STATUS              */ 52000010
*    4 *        BIT(8),                 /*   RESERVED                */ 53000010
*    4 INVTRMCT FIXED(8),               /*   NO TERMS ON THIS LINE   */ 54000010
*  2 INVENTRY CHAR(*);                  /* BEGIN INVITATION LIST        55000010
*                                          ENTRIES                   */ 56000010
* DCL INVENDL  BIT(8) CONSTANT('FE'X);  /* END OF ACTIVE LIST INDICATOR 57000010
*                                                                    */ 58000010