TITLE 'TYPE 1 SVC MESSAGE AREA'                                00060000
*********************************************************************** 00070000
*                              PROLOGUE                               * 00100000
*********************************************************************** 00150000
*   STATUS-                                                           * 00200000
*      VERSION = 0                                                    * 00250000
*   FUNCTION-                                                         * 00300000
*      USED AS A DROP AREA FOR PROBLEM DETERMINATION INFORMATION      * 00350000
*      FROM TYPE 1 SVC ROUTINES WHEN AN ABEND OCCURS.  THIS           * 00400000
*      INFORMATION WILL BE FORMATTED AND OUTPUT VIA WTP BY AN         * 00450000
*      RTM2  MODULE.  THIS IS DONE BY RTM2  SINCE A TYPE 1 SVC  @Y02702 00500002
*      CANNOT ISSUE A WTP.                                            * 00550000
*   ENTRY POINTS-                                                     * 00600000
*      IEAQMSGS                                                       * 00650000
*   TABLES/WORK AREAS-                                                * 00700000
*      IHAINF- DSECT FOR INFORMATION LIST ENTRY                       * 00750000
*   ATTRIBUTES-                                                       * 00800000
*      RESIDENT IN NUCLEUS                                            * 00850000
*********************************************************************** 00900000
*********************************************************************** 00950000
*********************************************************************** 01000000
         SPACE 2                                                        01010000
         IHAINF                                                         01050000
         SPACE 2                                                        01100000
IEAQMSGS CSECT                                                          01150000
CNT      EQU   15                  COUNT OF WORK AREAS          @Y02702 01160002
FOUR     EQU   4                   FOUR                                 01170000
         DC    A(*+CNT*INFLEN+FOUR) ADDRESS FIRST BYTE BEYOND BUFFER    01200000
         DC    (CNT)XL(INFLEN)'0'   DEFINES WORK AREAS          @Y02702 01250002
         END                                                            01300000