* /* MACMEAN  ESTAE RECOVERY EXIT PARAMETER LIST */                     00100002
* /* MACCOMP Y-2 SCIB9/PZD90                     */                     00150002
* /* MACSTAT Y-2 72266/000000                    */                     00200002
* /* THIS MACRO CONTAINS INFORMATION REQUIRED BY THE CONVERTER          00250002
*    AND INTERPRETER ESTAE RECOVERY ROUTINES. */                        00300002
*        %GOTO EREPLBSL; /*                                             00350002
         MACRO                                                          00400002
         IEFZB9RD                                                       00450002
EREPL    DSECT                                                          00500002
*                                                                       00550002
EREPLCWA DS    F     POINTER TO CWA FOR CONVERTER ESTAE EXIT.           00600002
EREPLIWA DS    F     POINTER TO IWA FOR INTERPRETER ESTAE EXIT.         00650002
EREPLRSV DS    F     ADDRESS OF CALLER'S SAVEAREA                       00660002
EREPFLGS EQU   *     BEGINNING OF INDICATOR FLAGS.                      00700002
EREPFLG1 DS    B     FLAGS                                              00750002
EREPRCUR EQU   X'80' RECURSION BIT.IF ENTRY TO EXIT ROUTINE IS MADE     00800002
*                    WITH THIS BIT ON,THEN AN ABEND DURING RECOVERY     00850002
*                    ATTEMPT OCCURRED.                                  00900002
         DS    XL3   RESERVED                                           00950002
         DS    F     RESERVED                                           01000002
EREPLEN  EQU   *-EREPL  LENGTH OF PARAMETER LIST.                       01050002
         MEND  */                                                       01100002
*%EREPLBSL: ;                                                           01150002
*        DECLARE                                                        01200002
*        1 EREPL BASED(EREPLPTR),                                       01250002
*          2 EREPLCWA PTR(31),     /*POINTER TO CWA-CONVERTER*/         01300002
*          2 EREPLIWA PTR(31),     /*POINTER TO IWA-INTERPRETER*/       01350002
*          2 EREPLRSV PTR(31),     /*ADDRESS OF CALLER'S SAVEAREA*/     01360002
*          2 EREPFLGS,             /*BEGINNING OF FLAG FIELD  */        01400002
*            3 EREPFLG1 BIT(8),    /*FIRST FLAG FIELD */                01450002
*              4 EREPRCUR BIT(1),  /*RECURSION BIT-IF ENTRY IS          01500002
*                                    MADE TO EXIT ROUTINE WITH          01550002
*                                    THIS BIT ON,THEN ABEND OCCURRED    01600002
*                                    DURING RECOVERY PROCESSING. */     01650002
*              4 *        BIT(7),  /*RESERVED*/                         01700002
*            3 *         BIT(24),  /*RESERVED*/                         01750002
*          2 *        FIXED(31);   /*RESERVED*/                         01800002