TITLE 'HMASMSER ******** DESCRIPTION *********'                00001000
HMASMSER CSECT ,                                                   0001 00002000
@MAINENT DS    0H                                                  0001 00003000
         USING *,@15                                               0001 00004000
         B     @PROLOG                                             0001 00005000
         DC    AL1(16)                                             0001 00006000
         DC    C'HMASMSER  78.334'                                 0001 00007000
         DROP  @15                                                      00008000
@PROLOG  BALR  @12,0                                               0001 00009000
@PSTART  DS    0H                                                  0001 00010000
         USING @PSTART,@12                                         0001 00011000
        LR    R12,R15             SET NORMAL BASE REGISTERS             00012000
        USING HMASMSER,R12        ESTABLISH REAL BASES                  00013000
*   SAVER14=R14;                    /* SAVE RETURN REGISTER          */ 00014000
         LR    SAVER14,R14                                         0094 00015000
*   SAVER2=R2;                      /* RVA PTR IF NO SDWA FORM RTM   */ 00016000
         LR    SAVER2,R2                                           0095 00017000
*   SAVER1=R1;                      /* BASE FOR SDWA                 */ 00018000
         LR    SAVER1,R1                                           0096 00019000
*   SAVER0=R0;                      /* SDWA PRSENENT INDICATOR       */ 00020000
         LR    SAVER0,R0                                           0097 00021000
*   RFY                                                            0098 00022000
*    (R0,                                                          0098 00023000
*     R1,                                                          0098 00024000
*     R2,                                                          0098 00025000
*     R14) UNRSTD;                                                 0098 00026000
*                                                                  0098 00027000
*   /*****************************************************************/ 00028000
*   /*                                                               */ 00029000
*   /* SET UP BASE FOR RVA. PTR WILL BE SET UP BELOW.                */ 00030000
*   /*                                                               */ 00031000
*   /*****************************************************************/ 00032000
*                                                                  0099 00033000
*   RFY                                                            0099 00034000
*     RVAPARM BASED(SRVAPTR);       /*                               */ 00035000
*                                                                  0099 00036000
*   /*****************************************************************/ 00037000
*   /*                                                               */ 00038000
*   /* IF REG 0 = C THEN THERE IS NO SDWA.                           */ 00039000
*   /*                                                               */ 00040000
*   /*****************************************************************/ 00041000
*                                                                  0100 00042000
*   IF SAVER0='C'X THEN                                            0100 00043000
         CH    SAVER0,@CH00711                                     0100 00044000
         BNE   @RF00100                                            0100 00045000
*     DO;                           /* NO SDWA - RETURN TO RTM       */ 00046000
*       SRVAPTR=SAVER2;             /* RVA PTR FROM REG2             */ 00047000
         LR    SRVAPTR,SAVER2                                      0102 00048000
*       RVAABNDC=SAVER1;            /* PICK UP ABEND CODE            */ 00049000
         ST    SAVER1,RVAABNDC(,SRVAPTR)                           0103 00050000
*       RVASDWFD=OFF;               /* NO SDWA FROM RTM              */ 00051000
         NI    RVASDWFD(SRVAPTR),B'11011111'                       0104 00052000
*     END;                                                         0105 00053000
*                                                                  0105 00054000
*   /*****************************************************************/ 00055000
*   /*                                                               */ 00056000
*   /* SDWA WAS PROVIDED, SET UP FOR PROCESSING                      */ 00057000
*   /*                                                               */ 00058000
*   /*****************************************************************/ 00059000
*                                                                  0106 00060000
*   ELSE                            /*                               */ 00061000
*     DO;                           /*                               */ 00062000
         B     @RC00100                                            0106 00063000
@RF00100 DS    0H                                                  0107 00064000
*       SDWAPTR=SAVER1;             /* BASE OF THE SDWA              */ 00065000
         LR    SDWAPTR,SAVER1                                      0107 00066000
*       SRVAPTR=SDWAPARM;           /* BASE FOR THE RVA              */ 00067000
         L     SRVAPTR,SDWAPARM(,SDWAPTR)                          0108 00068000
*       RVASDWFD=ON;                /* INDICATE SDWA PRESENT         */ 00069000
         OI    RVASDWFD(SRVAPTR),B'00100000'                       0109 00070000
*       RVAABNDC=SDWAABCC;          /* SAVE ABEND CODE IN RVA        */ 00071000
         MVC   RVAABNDC(4,SRVAPTR),SDWAABCC(SDWAPTR)               0110 00072000
*       RVASDWAP=SDWAPTR;           /* SAVE SDWA PTR IN RVA          */ 00073000
         ST    SDWAPTR,RVASDWAP(,SRVAPTR)                          0111 00074000
*     END;                          /*                               */ 00075000
*                                                                  0113 00076000
*   /*****************************************************************/ 00077000
*   /*                                                               */ 00078000
*   /* PROCEEDE WITH RECOVERY                                        */ 00079000
*   /*                                                               */ 00080000
*   /*****************************************************************/ 00081000
*                                                                  0113 00082000
*   SERHIRC=ZERO;                   /* INIT ERROR CODE               */ 00083000
*                                                                  0113 00084000
@RC00100 SLR   SERHIRC,SERHIRC                                     0113 00085000
*   /*****************************************************************/ 00086000
*   /*                                                               */ 00087000
*   /* SET UP CCA PTR                                                */ 00088000
*   /*                                                               */ 00089000
*   /*****************************************************************/ 00090000
*                                                                  0114 00091000
*   CCAPTR=RVACCAP;                 /* SET CCA PTR FROM THE RVA      */ 00092000
         L     CCAPTR,RVACCAP(,SRVAPTR)                            0114 00093000
*   IF CCACURDS=IOPHLDS             /* IF DS WAS LOG                 */ 00094000
*     THEN                          /*                               */ 00095000
         CLI   CCACURDS(CCAPTR),1                                  0115 00096000
         BNE   @RF00115                                            0115 00097000
*     DO;                           /*                               */ 00098000
*       CCALOGNG=ON;                /* SET LOG DEAD BIT              */ 00099000
         OI    CCALOGNG(CCAPTR),B'10000000'                        0117 00100000
*       CCATERM=ON;                 /* STOP SMP AT DRV NEXT TIME     */ 00101000
         OI    CCATERM(CCAPTR),B'00100000'                         0118 00102000
*     END;                          /*                               */ 00103000
*   ELSE                            /*                               */ 00104000
*     IF CCACURDS=IOPPRINT          /* IF DS WAS SMPOUT              */ 00105000
*       THEN                        /*                               */ 00106000
         B     @RC00115                                            0120 00107000
@RF00115 CLI   CCACURDS(CCAPTR),11                                 0120 00108000
         BNE   @RF00120                                            0120 00109000
*       DO;                         /*                               */ 00110000
*         CCAOUTNG=ON;              /* SET SMPOUT DEAD BIT           */ 00111000
         OI    CCAOUTNG(CCAPTR),B'01000000'                        0122 00112000
*         CCATERM=ON;               /* STOP SMP AT DRV NEXT TIME     */ 00113000
         OI    CCATERM(CCAPTR),B'00100000'                         0123 00114000
*       END;                        /*                               */ 00115000
*   RFY                                                            0125 00116000
*     TBLPARM BASED(CCATBLPA);      /* BASE OF TBL PARMS             */ 00117000
@RF00120 DS    0H                                                  0125 00118000
@RC00115 DS    0H                                                  0126 00119000
*   RFY                                                            0126 00120000
*     RECXPARM BASED(RVAREC);       /* BASE OF REC PARMS             */ 00121000
*                                                                  0126 00122000
*   /*****************************************************************/ 00123000
*   /*                                                               */ 00124000
*   /* ESTABLISH SAVE AREA FOR CALLED PROGRAMS                       */ 00125000
*   /*                                                               */ 00126000
*   /*****************************************************************/ 00127000
*                                                                  0127 00128000
*   RFY                                                            0127 00129000
*     R13 RSTD;                     /*                               */ 00130000
*   R13=ADDR(REGSAVE);              /* LOCAL REG SAVE AREA           */ 00131000
*                                                                  0128 00132000
         LA    R13,REGSAVE                                         0128 00133000
*   /*****************************************************************/ 00134000
*   /*                                                               */ 00135000
*   /* REWRITE THE DIRECTORIES IN STORAGE IF REQUIRED                */ 00136000
*   /*                                                               */ 00137000
*   /*****************************************************************/ 00138000
*                                                                  0129 00139000
*   CALL DISPROC;                   /*                               */ 00140000
*                                                                  0129 00141000
         BAL   @14,DISPROC                                         0129 00142000
*   /*****************************************************************/ 00143000
*   /*                                                               */ 00144000
*   /* ISSUE INFORMATIONAL MESSAGE.                                  */ 00145000
*   /*                                                               */ 00146000
*   /*****************************************************************/ 00147000
*                                                                  0130 00148000
*   IF SERHIRC=ZERO THEN            /*                               */ 00149000
         LTR   SERHIRC,SERHIRC                                     0130 00150000
         BNZ   @RF00130                                            0130 00151000
*     CALL MSGPROC;                 /*                               */ 00152000
         BAL   @14,MSGPROC                                         0131 00153000
*   IF RVASDWFD=ON THEN             /* DONT DO MORE IF NO SDWA       */ 00154000
@RF00130 TM    RVASDWFD(SRVAPTR),B'00100000'                       0132 00155000
         BNO   @RF00132                                            0132 00156000
*     DO;                           /*                               */ 00157000
*                                                                  0133 00158000
*       /*************************************************************/ 00159000
*       /*                                                           */ 00160000
*       /* DO SYSMOD COMPLETION PROCESSING.                          */ 00161000
*       /*                                                           */ 00162000
*       /*************************************************************/ 00163000
*                                                                  0134 00164000
*       IF SERHIRC=ZERO THEN        /*                               */ 00165000
         LTR   SERHIRC,SERHIRC                                     0134 00166000
         BNZ   @RF00134                                            0134 00167000
*         CALL CPLPROC;             /*                               */ 00168000
*                                                                  0135 00169000
         BAL   @14,CPLPROC                                         0135 00170000
*       /*************************************************************/ 00171000
*       /*                                                           */ 00172000
*       /* ISSUE SMP SUMMARY REPORTS.                                */ 00173000
*       /*                                                           */ 00174000
*       /*************************************************************/ 00175000
*                                                                  0136 00176000
*       IF SERHIRC<STOPSMP THEN     /* CALL UNLESS SMP ERROR         */ 00177000
@RF00134 CH    SERHIRC,@CH00185                                    0136 00178000
         BNL   @RF00136                                            0136 00179000
*         CALL RPTPROC;             /*                               */ 00180000
         BAL   @14,RPTPROC                                         0137 00181000
*     END;                          /*                               */ 00182000
*                                                                  0138 00183000
@RF00136 DS    0H                                                  0139 00184000
*   /*****************************************************************/ 00185000
*   /*                                                               */ 00186000
*   /* RETURN TO RTM                                                 */ 00187000
*   /*                                                               */ 00188000
*   /*****************************************************************/ 00189000
*                                                                  0139 00190000
*   RFY                                                            0139 00191000
*     R14 RSTD;                     /*                               */ 00192000
@RF00132 DS    0H                                                  0140 00193000
*   RFY                                                            0140 00194000
*     R15 RSTD;                     /*                               */ 00195000
*   R14=SAVER14;                    /* RETURN ADDRESS                */ 00196000
         LR    R14,SAVER14                                         0141 00197000
*   R15=ZERO;                       /* CLEAR CODE                    */ 00198000
         SLR   R15,R15                                             0142 00199000
*   RETURN;                                                        0143 00200000
@EL00001 DS    0H                                                  0143 00201000
@EF00001 DS    0H                                                  0143 00202000
@ER00001 BR    @14                                                 0143 00203000
*DISPROC:                                                          0144 00204000
*   PROC;                           /*                               */ 00205000
*                                                                  0144 00206000
DISPROC  STM   @14,@01,@SA00002                                    0144 00207000
         STM   @03,@12,@SA00002+16                                 0144 00208000
*   /*****************************************************************/ 00209000
*   /*                                                               */ 00210000
*   /* HMASMDR2 IS CALLED TO PROCESS THE DIRECTORY RE-WRITE.         */ 00211000
*   /*                                                               */ 00212000
*   /*****************************************************************/ 00213000
*                                                                  0145 00214000
*   DCL                                                            0145 00215000
*     SEVCODE FIXED(31) CONSTANT(16);/*                              */ 00216000
*   CALL HMASMDR2(TBLPARM,TBLPARM,SEVCODE);/*                        */ 00217000
         L     @10,CCATBLPA(,CCAPTR)                               0146 00218000
         ST    @10,@AL00001                                        0146 00219000
         ST    @10,@AL00001+4                                      0146 00220000
         LA    @10,@CF00185                                        0146 00221000
         ST    @10,@AL00001+8                                      0146 00222000
         L     @15,@CV00664                                        0146 00223000
         LA    @01,@AL00001                                        0146 00224000
         BALR  @14,@15                                             0146 00225000
*   RFY                                                            0147 00226000
*     RTNCODE RSTD;                 /*                               */ 00227000
*   SERHIRC=MAX(SERHIRC,RTNCODE);   /*                               */ 00228000
         CR    SERHIRC,RTNCODE                                     0148 00229000
         BNL   *+6                                                      00230000
         LR    SERHIRC,RTNCODE                                     0148 00231000
*   END DISPROC;                    /*                               */ 00232000
@EL00002 DS    0H                                                  0149 00233000
@EF00002 DS    0H                                                  0149 00234000
@ER00002 LM    @14,@01,@SA00002                                    0149 00235000
         LM    @03,@12,@SA00002+16                                 0149 00236000
         BR    @14                                                 0149 00237000
*MSGPROC:                                                          0150 00238000
*   PROC;                           /*                               */ 00239000
*                                                                  0150 00240000
MSGPROC  STM   @14,@12,@SA00003                                    0150 00241000
*   /*****************************************************************/ 00242000
*   /*                                                               */ 00243000
*   /* PUT OUT PRIMARY FAILURE MESSAGE                               */ 00244000
*   /*                                                               */ 00245000
*   /*****************************************************************/ 00246000
*                                                                  0151 00247000
*   RFY                                                            0151 00248000
*     R2 RSTD;                                                     0151 00249000
*   R2=RVAABNDC;                    /* GET ABEND CODE                */ 00250000
         L     R2,RVAABNDC(,SRVAPTR)                               0152 00251000
*   SLL(R2,20);                     /* CHECK FOR USER ABEND          */ 00252000
         SLL   R2,20                                               0153 00253000
*   IF R2^=0 THEN                                                  0154 00254000
         LTR   R2,R2                                               0154 00255000
         BZ    @RF00154                                            0154 00256000
*     DO;                           /* USER ABEND                    */ 00257000
*       SRL(R2,20);                 /* PUT CODE INTO NORMAL POSITION */ 00258000
         SRL   R2,20                                               0156 00259000
*       TYPE='USER  ';              /* INDICATE USER ABEND           */ 00260000
         MVC   TYPE(6),@CC00729                                    0157 00261000
*     END;                                                         0158 00262000
*   ELSE                                                           0159 00263000
*     DO;                           /* SYSTEM ABEND                  */ 00264000
         B     @RC00154                                            0159 00265000
@RF00154 DS    0H                                                  0160 00266000
*       R2=RVAABNDC;                /* GET SYSTEM ABEND CODE         */ 00267000
         L     R2,RVAABNDC(,SRVAPTR)                               0160 00268000
*       SLL(R2,8);                                                 0161 00269000
         SLL   R2,8                                                0161 00270000
*       SRL(R2,20);                 /* PUT CODE INTO NORMAL POSITION */ 00271000
         SRL   R2,20                                               0162 00272000
*       TYPE='SYSTEM';              /* INDICATE SYSTEM ABEND         */ 00273000
         MVC   TYPE(6),@CC00730                                    0163 00274000
*     END;                                                         0164 00275000
*   ABENDCC=R2;                     /* FORMAT ABEND CODE             */ 00276000
@RC00154 ST    R2,ABENDCC                                          0165 00277000
*   RFY                                                            0166 00278000
*     R2 UNRSTD;                                                   0166 00279000
*   AC=ABENDCC(3:4);                                               0167 00280000
         MVC   AC(2),ABENDCC+2                                     0167 00281000
*   UNPK(WORK5,ACCWORK);                                           0168 00282000
         UNPK  WORK5(5),ACCWORK(3)                                 0168 00283000
*   WORK5(1:4)=WORK5(1:4)&'0F0F0F0F'X;                             0169 00284000
         NC    WORK5(4),@CB00732                                   0169 00285000
*   TR(WORK5(1:4),HEXTAB);                                         0170 00286000
         TR    WORK5(4),HEXTAB                                     0170 00287000
*   ABCODE=WORK5(1:4);                                             0171 00288000
         MVC   ABCODE(4),WORK5                                     0171 00289000
*   HMASMMGP=''B;                   /*                               */ 00290000
         XC    HMASMMGP(24),HMASMMGP                               0172 00291000
*   MGPHLDS=ON;                     /*                               */ 00292000
*   MGPPRINT=ON;                    /*                               */ 00293000
         OI    MGPHLDS,B'10010000'                                 0174 00294000
*   MGPMGNO1=HMA432I;               /*                               */ 00295000
         MVC   MGPMGNO1(2),@CH00688                                0175 00296000
*   MGPVARPT(1)=ADDR(TYPE);         /* ABEND TYPE                    */ 00297000
         LA    @10,TYPE                                            0176 00298000
         ST    @10,MGPVARPT                                        0176 00299000
*   MGPVARPT(2)=ADDR(ABCODE);       /* ABEND CODE                    */ 00300000
         LA    @10,ABCODE                                          0177 00301000
         ST    @10,MGPVARPT+4                                      0177 00302000
*   MGPVARPT(3)=ADDR(RVAEPRNM);     /* CULPRET                       */ 00303000
         LA    @10,RVAEPRNM(,SRVAPTR)                              0178 00304000
         ST    @10,MGPVARPT+8                                      0178 00305000
*   MGPTYPE=MGPTERM;                /* TERMINAL CONDITION RC=16      */ 00306000
         MVI   MGPTYPE,X'05'                                       0179 00307000
*   CALL HMASMMSG(HMASMMGP);        /*                               */ 00308000
         L     @15,@CV00668                                        0180 00309000
         LA    @01,@AL00180                                        0180 00310000
         BALR  @14,@15                                             0180 00311000
*   END MSGPROC;                                                   0181 00312000
@EL00003 DS    0H                                                  0181 00313000
@EF00003 DS    0H                                                  0181 00314000
@ER00003 LM    @14,@12,@SA00003                                    0181 00315000
         BR    @14                                                 0181 00316000
*                                                                  0182 00317000
*   /*****************************************************************/ 00318000
*   /*                                                               */ 00319000
*   /* PROCESS COMPLETED SYSMODS.                                    */ 00320000
*   /*                                                               */ 00321000
*   /*****************************************************************/ 00322000
*                                                                  0182 00323000
*CPLPROC:                                                          0182 00324000
*   PROC;                           /*                               */ 00325000
CPLPROC  STM   @14,@01,@SA00004                                    0182 00326000
         STM   @03,@12,@SA00004+16                                 0182 00327000
*   DECLARE                         /*                               */ 00328000
*     STAENOGO CHAR(1) CONSTANT('S');/*                              */ 00329000
*                                                                  0183 00330000
*   /*****************************************************************/ 00331000
*   /*                                                               */ 00332000
*   /* DO SYSMOD COMPLETION IF GOOD ICT BUILT.                       */ 00333000
*   /*                                                               */ 00334000
*   /*****************************************************************/ 00335000
*                                                                  0184 00336000
*   IF CCAICTOK=ON THEN             /*                               */ 00337000
         TM    CCAICTOK(CCAPTR),B'00000001'                        0184 00338000
         BNO   @RF00184                                            0184 00339000
*     DO;                           /*                               */ 00340000
*       CALL HMASMCPL(STAENOGO);    /*                               */ 00341000
         L     @15,@CV00666                                        0186 00342000
         LA    @01,@AL00186                                        0186 00343000
         BALR  @14,@15                                             0186 00344000
*       RFY                                                        0187 00345000
*         RTNCODE RSTD;             /*                               */ 00346000
*       SERHIRC=MAX(SERHIRC,RTNCODE);/*                              */ 00347000
         CR    SERHIRC,RTNCODE                                     0188 00348000
         BNL   *+6                                                      00349000
         LR    SERHIRC,RTNCODE                                     0188 00350000
*       RFY                                                        0189 00351000
*         RTNCODE UNRSTD;           /*                               */ 00352000
*     END;                          /*                               */ 00353000
*   END CPLPROC;                    /*                               */ 00354000
@EL00004 DS    0H                                                  0191 00355000
@EF00004 DS    0H                                                  0191 00356000
@ER00004 LM    @14,@01,@SA00004                                    0191 00357000
         LM    @03,@12,@SA00004+16                                 0191 00358000
         BR    @14                                                 0191 00359000
*RPTPROC:                                                          0192 00360000
*   PROC;                           /*                               */ 00361000
*                                                                  0192 00362000
RPTPROC  STM   @14,@12,@SA00005                                    0192 00363000
*   /*****************************************************************/ 00364000
*   /*                                                               */ 00365000
*   /* ISSUE THE SMP SUMMARY REPORTS.                                */ 00366000
*   /*                                                               */ 00367000
*   /*****************************************************************/ 00368000
*                                                                  0193 00369000
*   IF CCAICTOK=ON THEN             /* OK TO ISSUE REPORTS           */ 00370000
         TM    CCAICTOK(CCAPTR),B'00000001'                        0193 00371000
         BNO   @RF00193                                            0193 00372000
*     DO;                           /*                               */ 00373000
*       CALL HMASMARL(TBLPARM);     /*                               */ 00374000
         L     @10,CCATBLPA(,CCAPTR)                               0195 00375000
         ST    @10,@AL00001                                        0195 00376000
         L     @15,@CV00665                                        0195 00377000
         LA    @01,@AL00001                                        0195 00378000
         BALR  @14,@15                                             0195 00379000
*       RFY                                                        0196 00380000
*         RTNCODE RSTD;             /*                               */ 00381000
*       SERHIRC=MAX(SERHIRC,RTNCODE);/*                              */ 00382000
         CR    SERHIRC,RTNCODE                                     0197 00383000
         BNL   *+6                                                      00384000
         LR    SERHIRC,RTNCODE                                     0197 00385000
*       RFY                                                        0198 00386000
*         RTNCODE UNRSTD;           /*                               */ 00387000
*     END;                          /*                               */ 00388000
*   IF CCAREC=ON THEN               /* RECEIVE REPORT NEEDED?        */ 00389000
@RF00193 TM    CCAREC(CCAPTR),B'10000000'                          0200 00390000
         BNO   @RF00200                                            0200 00391000
*     DO;                           /*                               */ 00392000
*       CALL HMASMRCL(RECXPARM);    /*                               */ 00393000
         L     @10,RVAREC(,SRVAPTR)                                0202 00394000
         ST    @10,@AL00001                                        0202 00395000
         L     @15,@CV00667                                        0202 00396000
         LA    @01,@AL00001                                        0202 00397000
         BALR  @14,@15                                             0202 00398000
*       RFY                                                        0203 00399000
*         RTNCODE RSTD;             /*                               */ 00400000
*       SERHIRC=MAX(SERHIRC,RTNCODE);/*                              */ 00401000
         CR    SERHIRC,RTNCODE                                     0204 00402000
         BNL   *+6                                                      00403000
         LR    SERHIRC,RTNCODE                                     0204 00404000
*       RFY                                                        0205 00405000
*         RTNCODE UNRSTD;           /*                               */ 00406000
*     END;                          /*                               */ 00407000
*   END RPTPROC;                    /*                               */ 00408000
@EL00005 DS    0H                                                  0207 00409000
@EF00005 DS    0H                                                  0207 00410000
@ER00005 LM    @14,@12,@SA00005                                    0207 00411000
         BR    @14                                                 0207 00412000
*   END HMASMSER                    /*                               */ 00413000
*                                                                  0208 00414000
*/* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM.     */ 00415000
*/*%INCLUDE SYSLIB  (HMASMCCA)                                       */ 00416000
*/*%INCLUDE SYSLIB  (HMASMIOP)                                       */ 00417000
*/*%INCLUDE SYSLIB  (HMASMMGP)                                       */ 00418000
*/*%INCLUDE SYSLIB  (IHASDWA )                                       */ 00419000
*                                                                  0208 00420000
*       ;                                                          0208 00421000
@DATA    DS    0H                                                       00422000
@CH00688 DC    H'233'                                                   00423000
@CH00711 DC    XL2'C'                                                   00424000
         DS    0F                                                       00425000
@AL00180 DC    A(HMASMMGP)             LIST WITH   1 ARGUMENT(S)        00426000
@AL00186 DC    A(@CC00739)             LIST WITH   1 ARGUMENT(S)        00427000
         DS    0F                                                       00428000
@SA00005 DS    0F                                                       00429000
@SA00004 DS    0F                                                       00430000
@SA00003 DS    0F                                                       00431000
@SA00002 DS    0F                                                       00432000
         DS    15F                                                      00433000
@AL00001 DS    3A                                                       00434000
         DS    0F                                                       00435000
@CF00185 DC    F'16'                                                    00436000
@CH00185 EQU   @CF00185+2                                               00437000
@CV00664 DC    V(HMASMDR2)                                              00438000
@CV00665 DC    V(HMASMARL)                                              00439000
@CV00666 DC    V(HMASMCPL)                                              00440000
@CV00667 DC    V(HMASMRCL)                                              00441000
@CV00668 DC    V(HMASMMSG)                                              00442000
         DS    0D                                                       00443000
IOPPTR   DS    A                                                        00444000
@CC00729 DC    C'USER  '                                                00445000
@CC00730 DC    C'SYSTEM'                                                00446000
@CC00739 EQU   @CC00730                                                 00447000
@CB00732 DC    X'0F0F0F0F'                                              00448000
HMASMMGP DS    CL24                                                     00449000
         ORG   HMASMMGP                                                 00450000
MGPFIXED DS    CL12                                                     00451000
         ORG   MGPFIXED                                                 00452000
MGPCLEAR DS    CL6                                                      00453000
         ORG   MGPCLEAR                                                 00454000
MGPMGNO1 DS    FL2                                                      00455000
MGPMGNO2 DS    FL2                                                      00456000
MGPMGNO3 DS    FL2                                                      00457000
         ORG   MGPFIXED+6                                               00458000
MGPFLAGS DS    BL2                                                      00459000
         ORG   MGPFLAGS                                                 00460000
MGPPRINT DS    BL1                                                      00461000
MGPLIST  EQU   MGPFLAGS+0                                               00462000
MGPRPT   EQU   MGPFLAGS+0                                               00463000
MGPHLDS  EQU   MGPFLAGS+0                                               00464000
MGPWTOR  EQU   MGPFLAGS+0                                               00465000
MGPWTO   EQU   MGPFLAGS+0                                               00466000
MGPWTP   EQU   MGPFLAGS+0                                               00467000
@NM00053 EQU   MGPFLAGS+0                                               00468000
         ORG   MGPFIXED+8                                               00469000
MGPTYPE  DS    FL1                                                      00470000
@NM00054 DS    CL3                                                      00471000
         ORG   HMASMMGP+12                                              00472000
MGPVAR   DS    CL12                                                     00473000
         ORG   MGPVAR                                                   00474000
MGPVARPT DS    3A                                                       00475000
         ORG   HMASMMGP+24                                              00476000
REGSAVE  DS    CL72                                                     00477000
WORKCHAR DS    CL8                                                      00478000
         DS    CL4                                                      00479000
WORKAREA DS    CL8                                                      00480000
ABENDCC  DS    CL4                                                      00481000
HEXTAB   DC    CL16'0123456789ABCDEF'                                   00482000
TYPE     DS    CL6                                                      00483000
ABCODE   DS    CL4                                                      00484000
PATCHSER DS    CL80                                                     00485000
         ORG   PATCHSER                                                 00486000
@NM00064 DC    80X'FF'                                                  00487000
         ORG   PATCHSER+80                                              00488000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       00489000
@01      EQU   01                                                       00490000
@02      EQU   02                                                       00491000
@03      EQU   03                                                       00492000
@04      EQU   04                                                       00493000
@05      EQU   05                                                       00494000
@06      EQU   06                                                       00495000
@07      EQU   07                                                       00496000
@08      EQU   08                                                       00497000
@09      EQU   09                                                       00498000
@10      EQU   10                                                       00499000
@11      EQU   11                                                       00500000
@12      EQU   12                                                       00501000
@13      EQU   13                                                       00502000
@14      EQU   14                                                       00503000
@15      EQU   15                                                       00504000
SAVER14  EQU   @08                                                      00505000
SAVER2   EQU   @07                                                      00506000
SAVER1   EQU   @06                                                      00507000
SAVER0   EQU   @05                                                      00508000
SRVAPTR  EQU   @05                                                      00509000
SERHIRC  EQU   @02                                                      00510000
SDWAPTR  EQU   @02                                                      00511000
CCAPTR   EQU   @11                                                      00512000
RTNCODE  EQU   @15                                                      00513000
R0       EQU   @00                                                      00514000
R1       EQU   @01                                                      00515000
R2       EQU   @02                                                      00516000
R12      EQU   @12                                                      00517000
R13      EQU   @13                                                      00518000
R14      EQU   @14                                                      00519000
R15      EQU   @15                                                      00520000
RTNREG   EQU   @14                                                      00521000
R10      EQU   @10                                                      00522000
R11      EQU   @11                                                      00523000
R3       EQU   @03                                                      00524000
R4       EQU   @04                                                      00525000
R5       EQU   @05                                                      00526000
R6       EQU   @06                                                      00527000
R7       EQU   @07                                                      00528000
R8       EQU   @08                                                      00529000
R9       EQU   @09                                                      00530000
HMASMCCA EQU   0                                                        00531000
CCAFBUFR EQU   HMASMCCA+4                                               00532000
CCADSAD  EQU   CCAFBUFR+124                                             00533000
CCATPAD  EQU   CCAFBUFR+128                                             00534000
CCAFLAG7 EQU   CCAFBUFR+132                                             00535000
CCAFIOP  EQU   HMASMCCA+140                                             00536000
CCAFSYS  EQU   HMASMCCA+148                                             00537000
CCASREL  EQU   CCAFSYS+12                                               00538000
CCAFLAGA EQU   CCAFSYS+21                                               00539000
CCAFSTA  EQU   HMASMCCA+188                                             00540000
CCAFICT  EQU   HMASMCCA+192                                             00541000
CCAFPGM  EQU   HMASMCCA+208                                             00542000
CCABLDLP EQU   CCAFPGM                                                  00543000
CCADBLDL EQU   CCAFPGM+4                                                00544000
CCAFGTP  EQU   HMASMCCA+224                                             00545000
CCASEGTP EQU   CCAFGTP                                                  00546000
@NM00009 EQU   HMASMCCA+244                                             00547000
CCATBLPA EQU   @NM00009+12                                              00548000
CCAFFUNC EQU   HMASMCCA+264                                             00549000
CCAFLAG1 EQU   CCAFFUNC+8                                               00550000
CCAREC   EQU   CCAFLAG1                                                 00551000
CCAFLAG2 EQU   CCAFFUNC+11                                              00552000
CCATERM  EQU   CCAFLAG2                                                 00553000
CCAFPROC EQU   HMASMCCA+276                                             00554000
CCAFLAG3 EQU   CCAFPROC                                                 00555000
CCAICTOK EQU   CCAFLAG3                                                 00556000
CCAFDIS  EQU   HMASMCCA+278                                             00557000
CCAFLAG4 EQU   CCAFDIS                                                  00558000
CCAFLAG5 EQU   CCAFDIS+1                                                00559000
CCAFLAG6 EQU   CCAFDIS+2                                                00560000
CCAFCNV  EQU   HMASMCCA+281                                             00561000
CCAFLAG8 EQU   CCAFCNV                                                  00562000
CCAFCTL  EQU   HMASMCCA+282                                             00563000
CCAFLAG9 EQU   CCAFCTL                                                  00564000
CCAFDSNG EQU   HMASMCCA+298                                             00565000
CCAFLAGB EQU   CCAFDSNG                                                 00566000
CCALOGNG EQU   CCAFLAGB                                                 00567000
CCAOUTNG EQU   CCAFLAGB                                                 00568000
CCACURDS EQU   CCAFDSNG+2                                               00569000
CCABLDLA EQU   0                                                        00570000
@NM00025 EQU   CCABLDLA                                                 00571000
CCABLDLL EQU   0                                                        00572000
@NM00027 EQU   CCABLDLL                                                 00573000
CCALKDRC EQU   @NM00027+20                                              00574000
@NM00029 EQU   CCABLDLL+124                                             00575000
CCAASMRC EQU   @NM00029+20                                              00576000
@NM00031 EQU   CCABLDLL+248                                             00577000
CCACPYRC EQU   @NM00031+20                                              00578000
@NM00033 EQU   CCABLDLL+372                                             00579000
CCACOMRC EQU   @NM00033+20                                              00580000
@NM00035 EQU   CCABLDLL+496                                             00581000
CCAZAPRC EQU   @NM00035+20                                              00582000
@NM00037 EQU   CCABLDLL+620                                             00583000
CCASUPRC EQU   @NM00037+20                                              00584000
@NM00039 EQU   CCABLDLL+744                                             00585000
CCAUPDRC EQU   @NM00039+20                                              00586000
CCABLDLM EQU   0                                                        00587000
CCABELMT EQU   CCABLDLM+4                                               00588000
CCABMPOS EQU   CCABELMT                                                 00589000
HMASMIOP EQU   0                                                        00590000
IOPNAME  EQU   HMASMIOP+4                                               00591000
@NM00043 EQU   HMASMIOP+12                                              00592000
@NM00044 EQU   @NM00043                                                 00593000
IOPDDNAM EQU   HMASMIOP+24                                              00594000
IOPDRMAP EQU   HMASMIOP+56                                              00595000
IOPINAME EQU   IOPDRMAP                                                 00596000
IOPINAM  EQU   IOPINAME                                                 00597000
IOPITYP  EQU   IOPINAM                                                  00598000
IOPUSERL EQU   IOPDRMAP+11                                              00599000
IOPEND   EQU   IOPDRMAP+12                                              00600000
RVAPARM  EQU   0                                                        00601000
RVAINFO  EQU   RVAPARM                                                  00602000
RVACCAP  EQU   RVAINFO+4                                                00603000
RVAPASS  EQU   RVAPARM+12                                               00604000
RVAREC   EQU   RVAPASS+4                                                00605000
RVASTAE  EQU   RVAPARM+20                                               00606000
RVASDWAP EQU   RVASTAE                                                  00607000
RVAEPRNM EQU   RVASTAE+4                                                00608000
RVAABNDC EQU   RVASTAE+12                                               00609000
@NM00055 EQU   RVASTAE+16                                               00610000
@NM00056 EQU   RVASTAE+20                                               00611000
RVAFLAGS EQU   RVASTAE+24                                               00612000
RVASDWFD EQU   RVAFLAGS                                                 00613000
SDWA     EQU   0                                                        00614000
SDWAPARM EQU   SDWA                                                     00615000
SDWAFIOB EQU   SDWA+4                                                   00616000
SDWAABCC EQU   SDWAFIOB                                                 00617000
SDWACMPF EQU   SDWAABCC                                                 00618000
SDWACTL1 EQU   SDWA+8                                                   00619000
SDWACMKA EQU   SDWACTL1                                                 00620000
SDWAMWPA EQU   SDWACTL1+1                                               00621000
SDWAPMKA EQU   SDWACTL1+4                                               00622000
SDWACTL2 EQU   SDWA+16                                                  00623000
SDWACMKP EQU   SDWACTL2                                                 00624000
SDWAMWPP EQU   SDWACTL2+1                                               00625000
SDWAPMKP EQU   SDWACTL2+4                                               00626000
SDWAGRSV EQU   SDWA+24                                                  00627000
SDWANAME EQU   SDWA+88                                                  00628000
TBLPARM  EQU   0                                                        00629000
RECXPARM EQU   0                                                        00630000
CCADSIDA EQU   0                                                        00631000
CCATYPEA EQU   0                                                        00632000
IOPNTMAP EQU   IOPDRMAP                                                 00633000
IOPCDMAP EQU   IOPNTMAP                                                 00634000
IOPPTMAP EQU   IOPCDMAP                                                 00635000
IOPSCMAP EQU   IOPPTMAP                                                 00636000
IOPDIRCT EQU   IOPSCMAP+12                                              00637000
IOPCDMAX EQU   IOPDIRCT                                                 00638000
WORK5    EQU   WORKCHAR                                                 00639000
ACCWORK  EQU   WORKAREA                                                 00640000
AC       EQU   ACCWORK                                                  00641000
IOPUDATA EQU   IOPEND                                                   00642000
         AGO   .@UNREFD                START UNREFERENCED COMPONENTS    00643000
@NM00063 EQU   ACCWORK+2                                                00644000
IOPPTMAX EQU   IOPCDMAX                                                 00645000
@NM00052 EQU   IOPSCMAP+11                                              00646000
@NM00051 EQU   IOPSCMAP+8                                               00647000
@NM00050 EQU   IOPSCMAP                                                 00648000
SDWAIOBR EQU   SDWA+100                                                 00649000
SDWAEPA  EQU   SDWA+96                                                  00650000
@NM00062 EQU   SDWANAME+4                                               00651000
SDWARBAD EQU   SDWANAME                                                 00652000
SDWAGR15 EQU   SDWAGRSV+60                                              00653000
SDWAGR14 EQU   SDWAGRSV+56                                              00654000
SDWAGR13 EQU   SDWAGRSV+52                                              00655000
SDWAGR12 EQU   SDWAGRSV+48                                              00656000
SDWAGR11 EQU   SDWAGRSV+44                                              00657000
SDWAGR10 EQU   SDWAGRSV+40                                              00658000
SDWAGR09 EQU   SDWAGRSV+36                                              00659000
SDWAGR08 EQU   SDWAGRSV+32                                              00660000
SDWAGR07 EQU   SDWAGRSV+28                                              00661000
SDWAGR06 EQU   SDWAGRSV+24                                              00662000
SDWAGR05 EQU   SDWAGRSV+20                                              00663000
SDWAGR04 EQU   SDWAGRSV+16                                              00664000
SDWAGR03 EQU   SDWAGRSV+12                                              00665000
SDWAGR02 EQU   SDWAGRSV+8                                               00666000
SDWAGR01 EQU   SDWAGRSV+4                                               00667000
SDWAGR00 EQU   SDWAGRSV                                                 00668000
SDWANXTP EQU   SDWACTL2+5                                               00669000
SDWASGP  EQU   SDWAPMKP                                                 00670000
SDWAEUP  EQU   SDWAPMKP                                                 00671000
SDWADOP  EQU   SDWAPMKP                                                 00672000
SDWAFPP  EQU   SDWAPMKP                                                 00673000
SDWACCP  EQU   SDWAPMKP                                                 00674000
SDWAILP  EQU   SDWAPMKP                                                 00675000
SDWAINTP EQU   SDWACTL2+2                                               00676000
SDWASPVP EQU   SDWAMWPP                                                 00677000
SDWAWATP EQU   SDWAMWPP                                                 00678000
SDWAMCKP EQU   SDWAMWPP                                                 00679000
@NM00061 EQU   SDWAMWPP                                                 00680000
SDWAKEYP EQU   SDWAMWPP                                                 00681000
SDWAEXTP EQU   SDWACMKP                                                 00682000
SDWAIOP  EQU   SDWACMKP                                                 00683000
SDWANXTA EQU   SDWACTL1+5                                               00684000
SDWASGA  EQU   SDWAPMKA                                                 00685000
SDWAEUA  EQU   SDWAPMKA                                                 00686000
SDWADOA  EQU   SDWAPMKA                                                 00687000
SDWAFPA  EQU   SDWAPMKA                                                 00688000
SDWACCA  EQU   SDWAPMKA                                                 00689000
SDWAILA  EQU   SDWAPMKA                                                 00690000
SDWAINTA EQU   SDWACTL1+2                                               00691000
SDWASPVA EQU   SDWAMWPA                                                 00692000
SDWAWATA EQU   SDWAMWPA                                                 00693000
SDWAMCKA EQU   SDWAMWPA                                                 00694000
@NM00060 EQU   SDWAMWPA                                                 00695000
SDWAKEYA EQU   SDWAMWPA                                                 00696000
SDWAEXTA EQU   SDWACMKA                                                 00697000
SDWAIOA  EQU   SDWACMKA                                                 00698000
SDWACMPC EQU   SDWAABCC+1                                               00699000
@NM00059 EQU   SDWACMPF                                                 00700000
SDWASTCC EQU   SDWACMPF                                                 00701000
@NM00058 EQU   SDWACMPF                                                 00702000
SDWASTEP EQU   SDWACMPF                                                 00703000
SDWAREQ  EQU   SDWACMPF                                                 00704000
RVAEND   EQU   RVASTAE+25                                               00705000
@NM00057 EQU   RVAFLAGS                                                 00706000
RVAVS1   EQU   RVAFLAGS                                                 00707000
RVAMVS   EQU   RVAFLAGS                                                 00708000
RVAUSRCH EQU   @NM00056+2                                               00709000
RVASYSCH EQU   @NM00056                                                 00710000
RVAUSRCD EQU   @NM00055+2                                               00711000
RVASYSCD EQU   @NM00055                                                 00712000
RVATBL   EQU   RVAPASS                                                  00713000
RVAMAJNM EQU   RVAINFO+8                                                00714000
RVAHDR   EQU   RVAINFO                                                  00715000
@NM00049 EQU   IOPUSERL                                                 00716000
@NM00048 EQU   IOPUSERL                                                 00717000
IOPALIS  EQU   IOPUSERL                                                 00718000
IOPTTR   EQU   IOPDRMAP+8                                               00719000
IOPINAM2 EQU   IOPINAM+1                                                00720000
IOPITYP2 EQU   IOPITYP                                                  00721000
IOPBUFAD EQU   HMASMIOP+52                                              00722000
@NM00047 EQU   HMASMIOP+32                                              00723000
IOPDELDD EQU   IOPDDNAM                                                 00724000
@NM00046 EQU   @NM00043+10                                              00725000
IOPSEQNO EQU   @NM00043+8                                               00726000
@NM00045 EQU   @NM00044+7                                               00727000
IOPPTFNM EQU   @NM00044                                                 00728000
IOPNAM17 EQU   IOPNAME                                                  00729000
IOPTYPE  EQU   HMASMIOP+3                                               00730000
IOPRETRN EQU   HMASMIOP+2                                               00731000
IOPFUNCT EQU   HMASMIOP+1                                               00732000
IOPDSID  EQU   HMASMIOP                                                 00733000
CCABMREC EQU   CCABELMT+10                                              00734000
CCABPOS  EQU   CCABMPOS+8                                               00735000
CCABNAME EQU   CCABMPOS                                                 00736000
@NM00042 EQU   CCABLDLM+2                                               00737000
@NM00041 EQU   CCABLDLM                                                 00738000
CCAUPDPM EQU   @NM00039+24                                              00739000
@NM00040 EQU   @NM00039+21                                              00740000
CCARUPDT EQU   CCAUPDRC                                                 00741000
CCAUPDSP EQU   @NM00039+12                                              00742000
CCAUPDTE EQU   @NM00039+8                                               00743000
CCAUPDNM EQU   @NM00039                                                 00744000
CCASUPPM EQU   @NM00037+24                                              00745000
@NM00038 EQU   @NM00037+21                                              00746000
CCARSUP  EQU   CCASUPRC                                                 00747000
CCASUPSP EQU   @NM00037+12                                              00748000
CCAIOSUP EQU   @NM00037+8                                               00749000
CCASUPNM EQU   @NM00037                                                 00750000
CCAZAPPM EQU   @NM00035+24                                              00751000
@NM00036 EQU   @NM00035+21                                              00752000
CCARZAP  EQU   CCAZAPRC                                                 00753000
CCAZAPSP EQU   @NM00035+12                                              00754000
CCASPZAP EQU   @NM00035+8                                               00755000
CCAZAPNM EQU   @NM00035                                                 00756000
CCACOMPM EQU   @NM00033+24                                              00757000
@NM00034 EQU   @NM00033+21                                              00758000
CCARCOMP EQU   CCACOMRC                                                 00759000
CCACOMSP EQU   @NM00033+12                                              00760000
CCACOMRS EQU   @NM00033+8                                               00761000
CCACOMNM EQU   @NM00033                                                 00762000
CCACPYPM EQU   @NM00031+24                                              00763000
@NM00032 EQU   @NM00031+21                                              00764000
CCARCOPY EQU   CCACPYRC                                                 00765000
CCACPYSP EQU   @NM00031+12                                              00766000
CCACOPY  EQU   @NM00031+8                                               00767000
CCACPYNM EQU   @NM00031                                                 00768000
CCAASMPM EQU   @NM00029+24                                              00769000
@NM00030 EQU   @NM00029+21                                              00770000
CCARASM  EQU   CCAASMRC                                                 00771000
CCAASMSP EQU   @NM00029+12                                              00772000
CCAASM   EQU   @NM00029+8                                               00773000
CCAASMNM EQU   @NM00029                                                 00774000
CCALKDPM EQU   @NM00027+24                                              00775000
@NM00028 EQU   @NM00027+21                                              00776000
CCARLINK EQU   CCALKDRC                                                 00777000
CCALKDSP EQU   @NM00027+12                                              00778000
CCALKED  EQU   @NM00027+8                                               00779000
CCALKDNM EQU   @NM00027                                                 00780000
CCAPGMPM EQU   @NM00025+24                                              00781000
@NM00026 EQU   @NM00025+21                                              00782000
CCABPGRC EQU   @NM00025+20                                              00783000
CCABPGSP EQU   @NM00025+12                                              00784000
CCABPGAD EQU   @NM00025+8                                               00785000
CCABPGNM EQU   @NM00025                                                 00786000
CCAEND   EQU   HMASMCCA+371                                             00787000
@NM00024 EQU   HMASMCCA+309                                             00788000
CCACURDD EQU   CCAFDSNG+3                                               00789000
@NM00023 EQU   CCAFLAGB                                                 00790000
CCAFMID  EQU   HMASMCCA+291                                             00791000
CCALSTDS EQU   CCAFCTL+8                                                00792000
CCARPTDS EQU   CCAFCTL+7                                                00793000
CCATIME  EQU   CCAFCTL+4                                                00794000
CCADATE  EQU   CCAFCTL+1                                                00795000
@NM00022 EQU   CCAFLAG9                                                 00796000
CCARVCAN EQU   CCAFLAG9                                                 00797000
CCARVEST EQU   CCAFLAG9                                                 00798000
CCAPTSNJ EQU   CCAFLAG9                                                 00799000
CCASTSNP EQU   CCAFLAG9                                                 00800000
CCAMTSNP EQU   CCAFLAG9                                                 00801000
CCAPTSNP EQU   CCAFLAG9                                                 00802000
@NM00021 EQU   CCAFLAG8                                                 00803000
CCAACDSC EQU   CCAFLAG8                                                 00804000
CCACDSC  EQU   CCAFLAG8                                                 00805000
@NM00020 EQU   CCAFLAG6                                                 00806000
CCAACRUP EQU   CCAFLAG6                                                 00807000
CCACRQUP EQU   CCAFLAG6                                                 00808000
CCAACDUP EQU   CCAFLAG6                                                 00809000
CCACDSUP EQU   CCAFLAG6                                                 00810000
@NM00019 EQU   CCAFLAG5                                                 00811000
CCAACROS EQU   CCAFLAG5                                                 00812000
CCACRQOS EQU   CCAFLAG5                                                 00813000
CCAACDOS EQU   CCAFLAG5                                                 00814000
CCACDSOS EQU   CCAFLAG5                                                 00815000
@NM00018 EQU   CCAFLAG4                                                 00816000
CCAACRIS EQU   CCAFLAG4                                                 00817000
CCACRQIS EQU   CCAFLAG4                                                 00818000
CCAACDIS EQU   CCAFLAG4                                                 00819000
CCACDSIS EQU   CCAFLAG4                                                 00820000
@NM00017 EQU   CCAFLAG3+1                                               00821000
CCARGNP  EQU   CCAFLAG3+1                                               00822000
CCADISRQ EQU   CCAFLAG3+1                                               00823000
CCADELP  EQU   CCAFLAG3                                                 00824000
CCACMPRS EQU   CCAFLAG3                                                 00825000
CCAZAPP  EQU   CCAFLAG3                                                 00826000
CCALINKP EQU   CCAFLAG3                                                 00827000
CCACOPYP EQU   CCAFLAG3                                                 00828000
CCAASIP  EQU   CCAFLAG3                                                 00829000
CCAUPDP  EQU   CCAFLAG3                                                 00830000
CCAEOSMP EQU   CCAFLAG2                                                 00831000
CCAEOFNC EQU   CCAFLAG2                                                 00832000
@NM00016 EQU   CCAFLAG2                                                 00833000
CCACHECK EQU   CCAFLAG2                                                 00834000
CCASVCLB EQU   CCAFLAG2                                                 00835000
CCANCPTF EQU   CCAFLAG2                                                 00836000
@NM00015 EQU   CCAFLAG1+1                                               00837000
CCAUNL   EQU   CCAFLAG1+1                                               00838000
CCARESET EQU   CCAFLAG1+1                                               00839000
CCALOG   EQU   CCAFLAG1+1                                               00840000
CCACNV   EQU   CCAFLAG1+1                                               00841000
CCALIST  EQU   CCAFLAG1                                                 00842000
CCAUPDU  EQU   CCAFLAG1                                                 00843000
CCAUPDJ  EQU   CCAFLAG1                                                 00844000
CCARES   EQU   CCAFLAG1                                                 00845000
CCAREJ   EQU   CCAFLAG1                                                 00846000
CCAACCPT EQU   CCAFLAG1                                                 00847000
CCAAPPLY EQU   CCAFLAG1                                                 00848000
CCAFUNCT EQU   CCAFFUNC                                                 00849000
@NM00014 EQU   @NM00009+18                                              00850000
@NM00013 EQU   @NM00009+16                                              00851000
@NM00012 EQU   @NM00009+8                                               00852000
@NM00011 EQU   @NM00009+4                                               00853000
@NM00010 EQU   @NM00009                                                 00854000
CCAIFGTP EQU   CCAFGTP+16                                               00855000
CCAGTP3  EQU   CCAFGTP+12                                               00856000
CCAGTP2  EQU   CCAFGTP+8                                                00857000
CCAGTP1  EQU   CCAFGTP+4                                                00858000
CCASETAD EQU   CCASEGTP                                                 00859000
CCACLST  EQU   CCAFPGM+12                                               00860000
CCASPDCB EQU   CCAFPGM+8                                                00861000
CCAICLMD EQU   CCAFICT+12                                               00862000
CCAICMOD EQU   CCAFICT+8                                                00863000
CCAICPTF EQU   CCAFICT+4                                                00864000
CCAICT   EQU   CCAFICT                                                  00865000
CCARVAD  EQU   CCAFSTA                                                  00866000
CCAACDID EQU   CCAFSYS+32                                               00867000
CCACDSID EQU   CCAFSYS+24                                               00868000
CCALNLEN EQU   CCAFSYS+22                                               00869000
@NM00008 EQU   CCAFLAGA                                                 00870000
CCAPSYSF EQU   CCAFLAGA                                                 00871000
CCAASYSF EQU   CCAFLAGA                                                 00872000
CCACSYSF EQU   CCAFLAGA                                                 00873000
CCANUCID EQU   CCAFSYS+20                                               00874000
CCAASREL EQU   CCAFSYS+16                                               00875000
CCACSREL EQU   CCASREL                                                  00876000
CCAPEMAX EQU   CCAFSYS+10                                               00877000
CCAPGLEN EQU   CCAFSYS+8                                                00878000
CCAIOPAS EQU   CCAFSYS+4                                                00879000
CCAIOPCS EQU   CCAFSYS                                                  00880000
CCAPESIZ EQU   CCAFIOP+4                                                00881000
CCAIOPTR EQU   CCAFIOP                                                  00882000
@NM00007 EQU   CCAFLAG7+3                                               00883000
CCALOGP  EQU   CCAFLAG7+2                                               00884000
CCAOUTP  EQU   CCAFLAG7+2                                               00885000
CCASLBP  EQU   CCAFLAG7+2                                               00886000
CCARPTP  EQU   CCAFLAG7+2                                               00887000
CCALISTP EQU   CCAFLAG7+2                                               00888000
CCAJCLP  EQU   CCAFLAG7+2                                               00889000
CCAPTFP  EQU   CCAFLAG7+2                                               00890000
CCATLBP  EQU   CCAFLAG7+2                                               00891000
CCAUT3P  EQU   CCAFLAG7+1                                               00892000
CCAUT2P  EQU   CCAFLAG7+1                                               00893000
CCAUT1P  EQU   CCAFLAG7+1                                               00894000
CCAWK5P  EQU   CCAFLAG7+1                                               00895000
CCAWK4P  EQU   CCAFLAG7+1                                               00896000
CCAWK3P  EQU   CCAFLAG7+1                                               00897000
CCAWK2P  EQU   CCAFLAG7+1                                               00898000
CCAWK1P  EQU   CCAFLAG7+1                                               00899000
CCAACRQP EQU   CCAFLAG7                                                 00900000
CCACRQP  EQU   CCAFLAG7                                                 00901000
CCASTSP  EQU   CCAFLAG7                                                 00902000
CCAMTSP  EQU   CCAFLAG7                                                 00903000
CCAPTSP  EQU   CCAFLAG7                                                 00904000
CCASCDSP EQU   CCAFLAG7                                                 00905000
CCAACDSP EQU   CCAFLAG7                                                 00906000
CCACDSP  EQU   CCAFLAG7                                                 00907000
@NM00006 EQU   CCAFBUFR+122                                             00908000
@NM00005 EQU   CCAFBUFR+120                                             00909000
@NM00004 EQU   CCAFBUFR+118                                             00910000
CCATBFMX EQU   CCAFBUFR+116                                             00911000
CCA4BFMX EQU   CCAFBUFR+114                                             00912000
CCA3BFMX EQU   CCAFBUFR+112                                             00913000
CCA2BFMX EQU   CCAFBUFR+110                                             00914000
CCA1BFMX EQU   CCAFBUFR+108                                             00915000
CCAXBFMX EQU   CCAFBUFR+106                                             00916000
CCAQBFMX EQU   CCAFBUFR+104                                             00917000
CCASBFMX EQU   CCAFBUFR+102                                             00918000
CCAMBFMX EQU   CCAFBUFR+100                                             00919000
CCAPBFMX EQU   CCAFBUFR+98                                              00920000
CCAVBFMX EQU   CCAFBUFR+96                                              00921000
CCAABFMX EQU   CCAFBUFR+94                                              00922000
CCACBFMX EQU   CCAFBUFR+92                                              00923000
@NM00003 EQU   CCAFBUFR+88                                              00924000
@NM00002 EQU   CCAFBUFR+84                                              00925000
CCA4BFSZ EQU   CCAFBUFR+80                                              00926000
CCATBFSZ EQU   CCAFBUFR+76                                              00927000
CCAWBFSZ EQU   CCAFBUFR+72                                              00928000
CCAQBFSZ EQU   CCAFBUFR+68                                              00929000
CCAPBFSZ EQU   CCAFBUFR+64                                              00930000
CCAVBFSZ EQU   CCAFBUFR+60                                              00931000
CCACBFSZ EQU   CCAFBUFR+56                                              00932000
@NM00001 EQU   CCAFBUFR+52                                              00933000
CCA4BFOA EQU   CCAFBUFR+48                                              00934000
CCA4BFIA EQU   CCAFBUFR+44                                              00935000
CCATBFIA EQU   CCAFBUFR+40                                              00936000
CCAWBFOA EQU   CCAFBUFR+36                                              00937000
CCAWBFIA EQU   CCAFBUFR+32                                              00938000
CCAQBFOA EQU   CCAFBUFR+28                                              00939000
CCAQBFIA EQU   CCAFBUFR+24                                              00940000
CCAPBFOA EQU   CCAFBUFR+20                                              00941000
CCAPBFIA EQU   CCAFBUFR+16                                              00942000
CCAVBFOA EQU   CCAFBUFR+12                                              00943000
CCAVBFIA EQU   CCAFBUFR+8                                               00944000
CCACBFOA EQU   CCAFBUFR+4                                               00945000
CCACBFIA EQU   CCAFBUFR                                                 00946000
CCAID    EQU   HMASMCCA                                                 00947000
.@UNREFD ANOP                          END UNREFERENCED COMPONENTS      00948000
@RF00184 EQU   @EL00004                                                 00949000
@RF00200 EQU   @EL00005                                                 00950000
@ENDDATA EQU   *                                                        00951000
         END   HMASMSER,(C'PLS2118',0802,78334)                         00952000