*        %GOTO PLSRDY;                  /*                              02000010
         MACRO                                                          04000010
         TRDYD                                                          06000010
.*A000000-999999                                               @Y17XAXF 08000010
*                                                                       10000010
*        FORMAT OF READY MACRO GENERATION                               12000010
*                                                                       14000010
IEDRDY   DSECT                                                          16000010
RDYGMMA  DS    A                        GOOD MORNING MESSAGE            18000010
*                                        ROUTINE ADDRESS                20000010
RDYRSMA  DS    A                        RESTART MESSAGE                 22000010
*                                        ROUTINE ADDRESS                24000010
RDYPURGA DS    A                        PURGE EXIT ROUTINE              26000010
*                                        ADDRESS                        28000010
RDYPRIA  DS    A                        PRIORITY EXIT ROUTINE           30000010
*                                        ADDRESS                        32000010
RDYFLAGS DS    XL1                      FLAG BYTE                       34000010
RDYOPEND EQU   X'80'                     OPENCHK=OPEN SPECIFIED         36000010
RDYOPENI EQU   X'40'                     OPENCHK=IDLE SPECIFIED         38000010
*        EQU   X'20'-X'01'               RESERVED                       40000010
         DS    XL3                      RESERVED                        42000010
         MEND  */                                                       44000010
*%PLSRDY : ;                                                            46000010
*/*                                                                  */ 48000010
*/*      FORMAT OF READY MACRO GENERATION                            */ 50000010
*/*                                                                  */ 52000010
* DECLARE                                                               54000010
* 1 IEDRDY BASED(AVTRDYA),                                              56000010
*  2 RDYGMMA  PTR(31),                  /* GOOD MORNING MESSAGE         58000010
*                                          ROUTINE ADDRESS           */ 60000010
*  2 RDYRSMA  PTR(31),                  /* RESTART MESSAGE              62000010
*                                          ROUTINE ADDRESS           */ 64000010
*  2 RDYPURGA PTR(31),                  /* PURGE EXIT ROUTINE           66000010
*                                          ADDRESS                   */ 68000010
*  2 RDYPRIA  PTR(31),                  /* PIORITY EXIT ROUTINE         70000010
*                                          ADDRESS                   */ 72000010
*  2 RDYFLAGS BIT(8),                   /* FLAG BYTE                 */ 74000010
*   3 RDYOPEND BIT(1),                  /*  OPENCHK=OPEN SPECIFIED   */ 76000010
*   3 RDYOPENI BIT(1),                  /*  OPENCHK=IDLE SPECIFIED   */ 78000010
*   3 *        BIT(6),                  /*  RESERVED                 */ 80000010
*  2 *       CHAR(3);                   /* RESERVED                 */  82000010