TITLE 'BLSFAD00-ADD DATA SET NAME SUBCOMMAND PROCESSOR        *00001000
                        '                                               00002000
*          /*        CHANGE ACTIVITY         */                         00003000
*  THIS MODULE IS WRITTEN FOR @G57LPRM                                  00004000
BLSFAD00 CSECT ,                                                01S0002 00005000
@MAINENT DS    0H                                               01S0002 00006000
         USING *,@15                                            01S0002 00007000
         B     @PROLOG                                          01S0002 00008000
         DC    AL1(16)                                          01S0002 00009000
         DC    C'BLSFAD00  78.065'                              01S0002 00010000
         DROP  @15                                                      00011000
@PROLOG  STM   @14,@12,12(@13)                                  01S0002 00012000
         BALR  @12,0                                            01S0002 00013000
@PSTART  DS    0H                                               01S0002 00014000
         USING @PSTART,@12                                      01S0002 00015000
         L     @00,@SIZDATD                                     01S0002 00016000
         BLSUALLR R,LV=(0)                                              00017000
         LR    @11,@01                                          01S0002 00018000
         USING @DATD,@11                                        01S0002 00019000
         ST    @13,@SA00001+4                                   01S0002 00020000
         LM    @00,@01,20(@13)                                  01S0002 00021000
         ST    @11,8(,@13)                                      01S0002 00022000
         LR    @13,@11                                          01S0002 00023000
*BLREXTRN - IDENTIFY EXTERNAL REFERENCES                                00024000
         EXTRN BLSDC600                                                 00025000
*   ZZ2PTR=R1;                      /* GET TASK VARIABLE ADDR        */ 00026000
         LR    ZZ2PTR,R1                                        01S0222 00027000
*   RESPECIFY                                                   01S0223 00028000
*     R1 UNRESTRICTED;              /* RELEASE R1                    */ 00029000
*                                                               01S0223 00030000
*   /*****************************************************************/ 00031000
*   /*                                                               */ 00032000
*   /* INITIALIZE AREAS TO TRACK PROCESSING THROUGH MODULE AREAS HAVE*/ 00033000
*   /* THE LABELS OF FADRETC AND FADBITC IN THE AUTOMATIC STORAGE    */ 00034000
*   /* AREA TO BE USED AS EYE CATCHERS                               */ 00035000
*   /*                                                               */ 00036000
*   /*****************************************************************/ 00037000
*                                                               01S0224 00038000
*   TRACK=TRACK&&TRACK;             /* INITIALIZE TRACKING FIELDS    */ 00039000
         XC    TRACK(11),TRACK                                  01S0224 00040000
*   TRKCODE=TRKCODE&&TRKCODE;       /* INIT RETCODES TO ZERO         */ 00041000
         XC    TRKCODE(36),TRKCODE                              01S0225 00042000
*   ENQFLAG=ENQFLAG&&ENQFLAG;       /* CLEAR ENQ FLAG AREA           */ 00043000
         XC    ENQFLAG(1),ENQFLAG                               01S0226 00044000
*   TRKLBL=FADRETC;                 /* INIT LABEL ON RETCODES        */ 00045000
         MVC   TRKLBL(8),@CC01071                               01S0227 00046000
*   BITLBL=FADBITC;                 /* INIT LABEL ON BIT MAPS        */ 00047000
         MVC   BITLBL(8),@CC01073                               01S0228 00048000
*   PIDPREF=ZEROCHAR;               /* INITIALIZE THE PREFIX         */ 00049000
         MVC   PIDPREF(3),ZEROCHAR                              01S0229 00050000
*   RETC=ZERO;                      /* INITIALIZE THE RETC           */ 00051000
         SLR   RETC,RETC                                        01S0230 00052000
*   CALL CLEARREC;                  /* CLEAR ALL RECORDS TO BIN ZEROS*/ 00053000
         BAL   @14,CLEARREC                                     01S0231 00054000
*/* ***********************************************************      */ 00055000
*/*                                                                  */ 00056000
*/*        START OF MODULE PROCESSING                                */ 00057000
*/*                                                                  */ 00058000
*/* ***********************************************************      */ 00059000
*                                                               01S0232 00060000
*                                                               01S0232 00061000
*   /*****************************************************************/ 00062000
*   /*                                                               */ 00063000
*   /* CALL IKJPARSE TO PARSE THE COMMAND OPERANDS                   */ 00064000
*   /*                                                               */ 00065000
*   /*****************************************************************/ 00066000
*                                                               01S0232 00067000
*   PARSE='1'B;                     /* TRACK CALL TO PARSE           */ 00068000
         OI    PARSE,B'01000000'                                01S0232 00069000
*   DO;                             /* BLSUPARS CONFIRMATION MF(E,PX)*/ 00070000
*     CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS            */ 00071000
         ST    ZZ2PTR,@AL00001                                  01S0234 00072000
         L     @10,PCPTR                                        01S0234 00073000
         ST    @10,@AL00001+4                                   01S0234 00074000
         LA    @10,PDAPTR                                       01S0234 00075000
         ST    @10,@AL00001+8                                   01S0234 00076000
         L     @10,ZZ2BVTP(,ZZ2PTR)                             01S0234 00077000
         L     @15,BVTPARIP(,@10)                               01S0234 00078000
         LA    @01,@AL00001                                     01S0234 00079000
         BALR  @14,@15                                          01S0234 00080000
*     RESPECIFY                                                 01S0235 00081000
*      (GPR15F) RESTRICTED;                                     01S0235 00082000
*     IF GPR15F^=ZZZFLAGI THEN                                  01S0236 00083000
*                                                               01S0236 00084000
         LTR   GPR15F,GPR15F                                    01S0236 00085000
         BZ    @RF00236                                         01S0236 00086000
*       /*************************************************************/ 00087000
*       /*                                                           */ 00088000
*       /* UNABLE TO PARSE                                           */ 00089000
*       /*                                                           */ 00090000
*       /*************************************************************/ 00091000
*                                                               01S0237 00092000
*       DO;                         /* UNABLE TO PARSE               */ 00093000
*         RETC=GPR15F;              /* RETURN CODE                   */ 00094000
         LR    RETC,GPR15F                                      01S0238 00095000
*         GO TO EXITNORL;           /* EXIT WITHOUT PDL              */ 00096000
         B     EXITNORL                                         01S0239 00097000
*       END;                                                    01S0240 00098000
*     RESPECIFY                                                 01S0241 00099000
*      (GPR15F) UNRESTRICTED;                                   01S0241 00100000
@RF00236 DS    0H                                               01S0242 00101000
*     RESPECIFY                                                 01S0242 00102000
*      (PDRPTR) RESTRICTED;                                     01S0242 00103000
*     PDRPTR=PDAPTR;                /* ->PDL                         */ 00104000
         L     PDRPTR,PDAPTR                                    01S0243 00105000
*     GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR);           01S0244 00106000
         USING PD,PDRPTR                                                00107000
*     IF PXTEST=PXTEST1 THEN                                    01S0245 00108000
         CLC   PXTEST(2),@CH00040                               01S0245 00109000
         BNE   @RF00245                                         01S0245 00110000
*       ZZ2AFX=ZZZ1;                /* TEST                          */ 00111000
         OI    ZZ2AFX(ZZ2PTR),B'10000000'                       01S0246 00112000
*     ELSE                                                      01S0247 00113000
*       IF PXTEST=PXTEST0 THEN                                  01S0247 00114000
         B     @RC00245                                         01S0247 00115000
@RF00245 CLC   PXTEST(2),@CH00067                               01S0247 00116000
         BNE   @RF00247                                         01S0247 00117000
*         ZZ2AFX=ZZZ0;              /* NOTEST                        */ 00118000
         NI    ZZ2AFX(ZZ2PTR),B'01111111'                       01S0248 00119000
*     IF PXCONF=PXCONF1 THEN                                    01S0249 00120000
@RF00247 DS    0H                                               01S0249 00121000
@RC00245 CLC   PXCONF(2),@CH00040                               01S0249 00122000
         BNE   @RF00249                                         01S0249 00123000
*       ZZ2AFC=ZZZ1;                /* CONFIRM                       */ 00124000
         OI    ZZ2AFC(ZZ2PTR),B'10000000'                       01S0250 00125000
*     ELSE                                                      01S0251 00126000
*       IF PXCONF=PXCONF0 THEN                                  01S0251 00127000
         B     @RC00249                                         01S0251 00128000
@RF00249 CLC   PXCONF(2),@CH00067                               01S0251 00129000
         BNE   @RF00251                                         01S0251 00130000
*         ZZ2AFC=ZZZ0;              /* NOCONFIRM                     */ 00131000
         NI    ZZ2AFC(ZZ2PTR),B'01111111'                       01S0252 00132000
*   END;                            /* BLSUPARS CONFIRMATION MF(E,PX)   00133000
*                                      PARSE ROUTINE CALLED          */ 00134000
*                                                               01S0253 00135000
@RF00251 DS    0H                                               01S0253 00136000
@RC00249 DS    0H                                               01S0254 00137000
*   /*****************************************************************/ 00138000
*   /*                                                               */ 00139000
*   /* RETURNED FROM PARSE WITH GOOD LIST CONTINUE PROCESSING        */ 00140000
*   /*                                                               */ 00141000
*   /*****************************************************************/ 00142000
*                                                               01S0254 00143000
*                                                               01S0254 00144000
*   /*****************************************************************/ 00145000
*   /*                                                               */ 00146000
*   /* VERIFY THAT THE PROBLEM NUMBER SPECIFIED IS VALID, AND THAT   */ 00147000
*   /* THE DATA SET SPECIFIED CAN HAVE THE MANAGED ATTR REQUESTED BY */ 00148000
*   /* USER.                                                         */ 00149000
*   /*                                                               */ 00150000
*   /*****************************************************************/ 00151000
*                                                               01S0254 00152000
*   FAV='1'B;                       /* INDICATE WE ARE REQ VALIDITY     00153000
*                                      CHK                           */ 00154000
         OI    FAV,B'00100000'                                  01S0254 00155000
*   CALL BLSFAV00(ZZ2,DSNS,PRN,MAN,CURDSN,CURMEM,CURPID,PDRSTKEY,       00156000
*       DSDBSKEY,OLDSTPDR,ENQFLAG); /* GET CURRENT PROB AND DSN (READ   00157000
*                                      IN PDR STATUS RECORD, IF 01S0255 00158000
*                                      AVAILABLE)                    */ 00159000
         ST    ZZ2PTR,@AL00001                                  01S0255 00160000
         LA    @10,DSNS                                         01S0255 00161000
         ST    @10,@AL00001+4                                   01S0255 00162000
         LA    @10,PRN                                          01S0255 00163000
         ST    @10,@AL00001+8                                   01S0255 00164000
         LA    @10,MAN                                          01S0255 00165000
         ST    @10,@AL00001+12                                  01S0255 00166000
         LA    @10,CURDSN                                       01S0255 00167000
         ST    @10,@AL00001+16                                  01S0255 00168000
         LA    @10,CURMEM                                       01S0255 00169000
         ST    @10,@AL00001+20                                  01S0255 00170000
         LA    @10,CURPID                                       01S0255 00171000
         ST    @10,@AL00001+24                                  01S0255 00172000
         LA    @10,PDRSTKEY                                     01S0255 00173000
         ST    @10,@AL00001+28                                  01S0255 00174000
         LA    @10,DSDBSKEY                                     01S0255 00175000
         ST    @10,@AL00001+32                                  01S0255 00176000
         LA    @10,OLDSTPDR                                     01S0255 00177000
         ST    @10,@AL00001+36                                  01S0255 00178000
         LA    @10,ENQFLAG                                      01S0255 00179000
         ST    @10,@AL00001+40                                  01S0255 00180000
         L     @15,@CV01151                                     01S0255 00181000
         LA    @01,@AL00001                                     01S0255 00182000
         BALR  @14,@15                                          01S0255 00183000
*   RESPECIFY                                                   01S0256 00184000
*     RF RESTRICTED;                /* SAVE REG 15                   */ 00185000
*   FAVCODE=RF;                     /* SAVE THE CODE FOR TRACK AND      00186000
*                                      TEST                          */ 00187000
         ST    RF,FAVCODE                                       01S0257 00188000
*   IF ENQDONE='1'B THEN            /* HAS ENQUEUE BEEN COMPLETED?   */ 00189000
         TM    ENQDONE,B'10000000'                              01S0258 00190000
         BNO   @RF00258                                         01S0258 00191000
*     ENQ='1'B;                     /* YES, MARK IT FOR FUTURE  01S0259 00192000
*                                      PROCESSING                    */ 00193000
         OI    ENQ,B'00010000'                                  01S0259 00194000
*   IF RF<TWELVE THEN               /* NO TERMINATING ERROR?         */ 00195000
@RF00258 C     RF,@CF00032                                      01S0260 00196000
         BNL   @RF00260                                         01S0260 00197000
*     DO;                           /* CONTINUE PROCESSING           */ 00198000
*       IF RF=EIGHT THEN            /* MEMBER SPECIFIED - UNMANAGED     00199000
*                                      FORCED                        */ 00200000
         C     RF,@CF00048                                      01S0262 00201000
         BNE   @RF00262                                         01S0262 00202000
*         FORUNMAN='1'B;            /* FORCE UNMANAGED ON            */ 00203000
         OI    FORUNMAN,B'00100000'                             01S0263 00204000
*       DO;                         /* CONTINUE PROCESSING           */ 00205000
*                                                               01S0264 00206000
@RF00262 DS    0H                                               01S0265 00207000
*         /***********************************************************/ 00208000
*         /*                                                         */ 00209000
*         /* READ IN THE DSD BASE RECORD FOR THIS DATA SET IF ONE    */ 00210000
*         /* EXISTS.                                                 */ 00211000
*         /*                                                         */ 00212000
*         /***********************************************************/ 00213000
*                                                               01S0265 00214000
*         FGD='1'B;                 /* TRACK THE CALL TO BLSFGD00    */ 00215000
         OI    FGD,B'00001000'                                  01S0265 00216000
*         CALL BLSFGD00(ZZ2,DSDBSKEY,OLDBSDSD);/* REQ READ OF REC    */ 00217000
         ST    ZZ2PTR,@AL00001                                  01S0266 00218000
         LA    @14,DSDBSKEY                                     01S0266 00219000
         ST    @14,@AL00001+4                                   01S0266 00220000
         LA    @14,OLDBSDSD                                     01S0266 00221000
         ST    @14,@AL00001+8                                   01S0266 00222000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0266 00223000
         L     @15,DVTGD00P(,@10)                               01S0266 00224000
         LA    @01,@AL00001                                     01S0266 00225000
         BALR  @14,@15                                          01S0266 00226000
*         RESPECIFY                                             01S0267 00227000
*           RF RESTRICTED;          /* SAVE REG 15                   */ 00228000
*         FGDCODE=RF;               /* SAVE RETURN CODE FOR TEST AND    00229000
*                                      TRACK                         */ 00230000
         ST    RF,FGDCODE                                       01S0268 00231000
*         IF RF<TWELVE THEN         /* TERMINATING ERROR?            */ 00232000
         C     RF,@CF00032                                      01S0269 00233000
         BNL   @RF00269                                         01S0269 00234000
*           DO;                     /* NO, CONTINUE PROCESSING       */ 00235000
*/************************************************************       */ 00236000
*/*   THE RETURN CODE FROM BLSFGD00 IS USED IN THE CORRECTION        */ 00237000
*/*   OF THE DATA BASE.                                              */ 00238000
*/*   RETCODE = 0 - RECORD ALREADY EXISTS                            */ 00239000
*/*                 (ERROR DURING LAST ADD PROB PROCESSING )         */ 00240000
*/*   RETCODE = 8 - NO RECORD FOUND (NORMAL PROCESSING)              */ 00241000
*/*   RETCODE = 12 - TERMINATING CONDITION                           */ 00242000
*/************************************************************       */ 00243000
*                                                               01S0271 00244000
*             IF RF=ZERO THEN       /* BASE RECORD IS THERE          */ 00245000
         LTR   RF,RF                                            01S0271 00246000
         BNZ   @RF00271                                         01S0271 00247000
*               DO;                                             01S0272 00248000
*                                                               01S0272 00249000
*                 /***************************************************/ 00250000
*                 /*                                                 */ 00251000
*                 /* CHECK IF DS ASSOCIATION RECORD IS AVAILABLE     */ 00252000
*                 /*                                                 */ 00253000
*                 /***************************************************/ 00254000
*                                                               01S0273 00255000
*                 FFP='1'B;         /* TRACK THE CALL TO BLSFFP00    */ 00256000
         OI    FFP,B'00000100'                                  01S0273 00257000
*                 CALL BLSFFP00(ZZ2,CURDSN,CURMEM,CURPID,OLDPRDSD,      00258000
*                     NEWDSPDR);                                01S0274 00259000
         ST    ZZ2PTR,@AL00001                                  01S0274 00260000
         LA    @14,CURDSN                                       01S0274 00261000
         ST    @14,@AL00001+4                                   01S0274 00262000
         LA    @14,CURMEM                                       01S0274 00263000
         ST    @14,@AL00001+8                                   01S0274 00264000
         LA    @14,CURPID                                       01S0274 00265000
         ST    @14,@AL00001+12                                  01S0274 00266000
         LA    @14,OLDPRDSD                                     01S0274 00267000
         ST    @14,@AL00001+16                                  01S0274 00268000
         LA    @14,NEWDSPDR                                     01S0274 00269000
         ST    @14,@AL00001+20                                  01S0274 00270000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0274 00271000
         L     @15,DVTFP00P(,@10)                               01S0274 00272000
         LA    @01,@AL00001                                     01S0274 00273000
         BALR  @14,@15                                          01S0274 00274000
*                 FFPCODE=RF;       /* SAVE THE RETURN CODE FROM FFP */ 00275000
         ST    RF,FFPCODE                                       01S0275 00276000
*/****************************************************************** */ 00277000
*/*      RETURN FROM BLSFFP00 INDICATES WHICH RECORDS ARE THERE -    */ 00278000
*/*                                                                  */ 00279000
*/*        RETCODE = 0 DATA SET ALREADY ASSOCIATED WITH PROBLEM   -  */ 00280000
*/*        RETCODE = 4 DSD PROB ASSOCIATION RECORD NOT FOUND -       */ 00281000
*/*        RETCODE = 8 PDR DATA SET ASSOCIATION RECORD NOT FOUND     */ 00282000
*/*        RETCODE = 12 TERMINATING ERROR                            */ 00283000
*/*                                                                  */ 00284000
*/****************************************************************** */ 00285000
*                                                               01S0276 00286000
*                 IF RF<TWELVE THEN /* ERROR OCCURRED?               */ 00287000
         C     RF,@CF00032                                      01S0276 00288000
         BNL   @RF00276                                         01S0276 00289000
*                   DO;             /* NO, CHECK RETURN CODES FROM      00290000
*                                      FFP                           */ 00291000
*                                                               01S0277 00292000
*                     /***********************************************/ 00293000
*                     /*                                             */ 00294000
*                     /* RETURN CODE OF FOUR IF DATA SET ALREADY     */ 00295000
*                     /* ASSOCIATED                                  */ 00296000
*                     /*                                             */ 00297000
*                     /***********************************************/ 00298000
*                                                               01S0278 00299000
*                     IF RF=ZERO THEN/* DSN ALREADY ASSOCIATED?      */ 00300000
         SLR   @14,@14                                          01S0278 00301000
         CR    RF,@14                                           01S0278 00302000
         BNE   @RF00278                                         01S0278 00303000
*                       DO;         /* DSN ALREADY ASSOCIATED        */ 00304000
*                         MSGPTR=ZERO;/* NO MESSAGE CHAIN            */ 00305000
         ST    @14,MSGPTR                                       01S0280 00306000
*                         IF CURMEM=BLANKS THEN/* IS THERE A MEMBER? */ 00307000
         CLC   CURMEM(8),BLANKS                                 01S0281 00308000
         BNE   @RF00281                                         01S0281 00309000
*                           DO;     /* MEMBER NOT AVAILABLE          */ 00310000
*                             LPARNF=BLANKS(1:1);/* MOVE IN BLANK       00311000
*                                      CHARACTER                     */ 00312000
         MVC   LPARNF(1),BLANKS                                 01S0283 00313000
*                             RPARNF=BLANKS(1:1);/* MOVE IN BLANK       00314000
*                                      CHARACTER                     */ 00315000
         MVC   RPARNF(1),BLANKS                                 01S0284 00316000
*                           END;    /* MEMBER NOT AVAILABLE          */ 00317000
*                         ELSE      /* MEMBER IS AVAILABLE           */ 00318000
*                           DO;     /* MEMBER HERE                   */ 00319000
         B     @RC00281                                         01S0286 00320000
@RF00281 DS    0H                                               01S0287 00321000
*                             LPARNF=LPARN;/* MOVE IN ( CHAR         */ 00322000
         MVI   LPARNF,C'('                                      01S0287 00323000
*                             RPARNF=RPARN;/* MOVE IN ) CHAR         */ 00324000
         MVI   RPARNF,C')'                                      01S0288 00325000
*                           END;    /* END OF MEMBER HERE            */ 00326000
*                         DO;       /* BLSDMSG                  01S0290 00327000
*                                      (ZZ2,04083,MSGPTR,BLSDMSGS)      00328000
*                                      LIFO ROUTE(TERM)INSERT(CURDSN,   00329000
*                                      LPARNF,CURMEM,RPARNF,FPPIDP,CU   00330000
*                                      RPROB)                        */ 00331000
@RC00281 DS    0H                                               01S0291 00332000
*                           IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO   00333000
*                                      NEXT INSERT                   */ 00334000
         LA    @14,IOPTLIST+12                                  01S0291 00335000
         ST    @14,IOPTLIST                                     01S0291 00336000
*                           IOPTLIST(2)=ADDR(CURDSN);/* INSERT NAME     00337000
*                                      POINTER                       */ 00338000
         LA    @14,CURDSN                                       01S0292 00339000
         ST    @14,IOPTLIST+4                                   01S0292 00340000
*                           IOPTLIST(3)=0;/* ZERO RESERVED FIELD     */ 00341000
         SLR   @14,@14                                          01S0293 00342000
         ST    @14,IOPTLIST+8                                   01S0293 00343000
*                           RFY                                 01S0294 00344000
*                             I015F BASED(ADDR(IOPTLIST(3)));/* 01S0294 00345000
*                                      ACCESS BYTES 1-2              */ 00346000
*                           I015F=LENGTH(CURDSN);/* INSERT LENGTH    */ 00347000
         LA    @10,IOPTLIST+8                                   01S0295 00348000
         MVC   I015F(2,@10),@CH00085                            01S0295 00349000
*                           IOPTLIST(4)=ADDR(IOPTLIST(7));/* CHAIN TO   00350000
*                                      NEXT INSERT                   */ 00351000
         LA    @10,IOPTLIST+24                                  01S0296 00352000
         ST    @10,IOPTLIST+12                                  01S0296 00353000
*                           IOPTLIST(5)=ADDR(LPARNF);/* INSERT NAME     00354000
*                                      POINTER                       */ 00355000
         LA    @10,LPARNF                                       01S0297 00356000
         ST    @10,IOPTLIST+16                                  01S0297 00357000
*                           IOPTLIST(6)=0;/* ZERO RESERVED FIELD     */ 00358000
         ST    @14,IOPTLIST+20                                  01S0298 00359000
*                           RFY                                 01S0299 00360000
*                             I015F BASED(ADDR(IOPTLIST(6)));/* 01S0299 00361000
*                                      ACCESS BYTES 1-2              */ 00362000
*                           I015F=LENGTH(LPARNF);/* INSERT LENGTH    */ 00363000
         LA    @10,1                                            01S0300 00364000
         LA    @06,IOPTLIST+20                                  01S0300 00365000
         STH   @10,I015F(,@06)                                  01S0300 00366000
*                           IOPTLIST(7)=ADDR(IOPTLIST(10));/* CHAIN     00367000
*                                      TO NEXT INSERT                */ 00368000
         LA    @06,IOPTLIST+36                                  01S0301 00369000
         ST    @06,IOPTLIST+24                                  01S0301 00370000
*                           IOPTLIST(8)=ADDR(CURMEM);/* INSERT NAME     00371000
*                                      POINTER                       */ 00372000
         LA    @06,CURMEM                                       01S0302 00373000
         ST    @06,IOPTLIST+28                                  01S0302 00374000
*                           IOPTLIST(9)=0;/* ZERO RESERVED FIELD     */ 00375000
         ST    @14,IOPTLIST+32                                  01S0303 00376000
*                           RFY                                 01S0304 00377000
*                             I015F BASED(ADDR(IOPTLIST(9)));/* 01S0304 00378000
*                                      ACCESS BYTES 1-2              */ 00379000
*                           I015F=LENGTH(CURMEM);/* INSERT LENGTH    */ 00380000
         LA    @06,IOPTLIST+32                                  01S0305 00381000
         MVC   I015F(2,@06),@CH00048                            01S0305 00382000
*                           IOPTLIST(10)=ADDR(IOPTLIST(13));/* CHAIN    00383000
*                                      TO NEXT INSERT                */ 00384000
         LA    @06,IOPTLIST+48                                  01S0306 00385000
         ST    @06,IOPTLIST+36                                  01S0306 00386000
*                           IOPTLIST(11)=ADDR(RPARNF);/* INSERT NAME    00387000
*                                      POINTER                       */ 00388000
         LA    @06,RPARNF                                       01S0307 00389000
         ST    @06,IOPTLIST+40                                  01S0307 00390000
*                           IOPTLIST(12)=0;/* ZERO RESERVED FIELD    */ 00391000
         ST    @14,IOPTLIST+44                                  01S0308 00392000
*                           RFY                                 01S0309 00393000
*                             I015F BASED(ADDR(IOPTLIST(12)));/*        00394000
*                                      ACCESS BYTES 1-2              */ 00395000
*                           I015F=LENGTH(RPARNF);/* INSERT LENGTH    */ 00396000
         LA    @06,IOPTLIST+44                                  01S0310 00397000
         STH   @10,I015F(,@06)                                  01S0310 00398000
*                           IOPTLIST(13)=ADDR(IOPTLIST(16));/* CHAIN    00399000
*                                      TO NEXT INSERT                */ 00400000
         LA    @10,IOPTLIST+60                                  01S0311 00401000
         ST    @10,IOPTLIST+48                                  01S0311 00402000
*                           IOPTLIST(14)=ADDR(FPPIDP);/* INSERT NAME    00403000
*                                      POINTER                       */ 00404000
         L     @10,ZZ2ZZ1P(,ZZ2PTR)                             01S0312 00405000
         L     @10,ZZ1FPP(,@10)                                 01S0312 00406000
         LA    @10,FPPIDP(,@10)                                 01S0312 00407000
         ST    @10,IOPTLIST+52                                  01S0312 00408000
*                           IOPTLIST(15)=0;/* ZERO RESERVED FIELD    */ 00409000
         ST    @14,IOPTLIST+56                                  01S0313 00410000
*                           RFY                                 01S0314 00411000
*                             I015F BASED(ADDR(IOPTLIST(15)));/*        00412000
*                                      ACCESS BYTES 1-2              */ 00413000
*                           I015F=LENGTH(FPPIDP);/* INSERT LENGTH    */ 00414000
         LA    @10,IOPTLIST+56                                  01S0315 00415000
         MVC   I015F(2,@10),@CH00093                            01S0315 00416000
*                           IOPTLIST(16)=0;/* LAST INSERT            */ 00417000
         ST    @14,IOPTLIST+60                                  01S0316 00418000
*                           IOPTLIST(17)=ADDR(CURPROB);/* INSERT NAME   00419000
*                                      POINTER                       */ 00420000
         LA    @10,CURPROB                                      01S0317 00421000
         ST    @10,IOPTLIST+64                                  01S0317 00422000
*                           IOPTLIST(18)=0;/* ZERO RESERVED FIELD    */ 00423000
         ST    @14,IOPTLIST+68                                  01S0318 00424000
*                           RFY                                 01S0319 00425000
*                             I015F BASED(ADDR(IOPTLIST(18)));/*        00426000
*                                      ACCESS BYTES 1-2              */ 00427000
*                           I015F=LENGTH(CURPROB);/* INSERT LENGTH   */ 00428000
         LA    @14,IOPTLIST+68                                  01S0320 00429000
         MVC   I015F(2,@14),@CH00090                            01S0320 00430000
*                           CALL BLSDMSG0(ZZ2,04083,MSGPTR,BLSDMSGS,    00431000
*                               '10010000'B,ADDR(IOPTLIST));/* BUILD    00432000
*                                      MESSAGE                       */ 00433000
         ST    ZZ2PTR,@AL00001                                  01S0321 00434000
         LA    @14,@CF01169                                     01S0321 00435000
         ST    @14,@AL00001+4                                   01S0321 00436000
         LA    @14,MSGPTR                                       01S0321 00437000
         ST    @14,@AL00001+8                                   01S0321 00438000
         L     @14,ZZ2MSGSP(,ZZ2PTR)                            01S0321 00439000
         ST    @14,@AL00001+12                                  01S0321 00440000
         LA    @14,@CB01170                                     01S0321 00441000
         ST    @14,@AL00001+16                                  01S0321 00442000
         LA    @14,IOPTLIST                                     01S0321 00443000
         ST    @14,@AFTEMPS+4                                   01S0321 00444000
         LA    @14,@AFTEMPS+4                                   01S0321 00445000
         ST    @14,@AL00001+20                                  01S0321 00446000
         L     @15,ZZ2MSG0P(,ZZ2PTR)                            01S0321 00447000
         LA    @01,@AL00001                                     01S0321 00448000
         BALR  @14,@15                                          01S0321 00449000
*                         END;      /* BLSDMSG                  01S0322 00450000
*                                      (ZZ2,04083,MSGPTR,BLSDMSGS)      00451000
*                                      LIFO ROUTE(TERM)INSERT(CURDSN,   00452000
*                                      LPARNF,CURMEM,RPARNF,FPPIDP,CU   00453000
*                                      RPROB)                        */ 00454000
*                         RETC=FOUR;/* YES, INDICATE DSN ALREADY        00455000
*                                      THERE                         */ 00456000
         LA    RETC,4                                           01S0323 00457000
*                       END;        /* END OF DSN ALREADY ASSOCIATED */ 00458000
*                     ELSE          /* NO, MUST CONTINUE CHECKING    */ 00459000
*                       IF RF=FOUR THEN/* DSD PROB ASSOC RECORD NOT     00460000
*                                      THERE?                        */ 00461000
         B     @RC00278                                         01S0325 00462000
@RF00278 C     RF,@CF00037                                      01S0325 00463000
         BNE   @RF00325                                         01S0325 00464000
*                         CALL BLDALL;/* BUILD ALL OF THE REQUIRED      00465000
*                                      RECORDS                       */ 00466000
         BAL   @14,BLDALL                                       01S0326 00467000
*                       ELSE        /* NOT DSD PROB RECORD           */ 00468000
*                         IF RF=EIGHT THEN/* IS PDR DS REC FOUND?    */ 00469000
         B     @RC00325                                         01S0327 00470000
@RF00325 C     RF,@CF00048                                      01S0327 00471000
         BNE   @RF00327                                         01S0327 00472000
*                           CALL BLDPDR;/* NO, PDR MUST BE BUILT     */ 00473000
         BAL   @14,BLDPDR                                       01S0328 00474000
*                         ELSE      /* SHOULD NEVER HAPPEN           */ 00475000
*                           RETC=TWELVE;/* ERROR REQUEST TERMINATION */ 00476000
         B     @RC00327                                         01S0329 00477000
@RF00327 LA    RETC,12                                          01S0329 00478000
*                   END;            /* END OF CHECK RETURN CODES FROM   00479000
*                                      FFP                           */ 00480000
*                 ELSE              /* TERMINATING ERROR WHILE  01S0331 00481000
*                                      CALLING BLSFFP00              */ 00482000
*                   RETC=TWELVE;    /* INDICATE IT IN RETURN CODE    */ 00483000
         B     @RC00276                                         01S0331 00484000
@RF00276 LA    RETC,12                                          01S0331 00485000
*               END;                /* END OF BASE RECORD IS THERE   */ 00486000
*             ELSE                  /* DSD BASE NOT FOUND            */ 00487000
*               IF RF=EIGHT THEN    /* NO RECORD FOUND FOR DSD BASE  */ 00488000
         B     @RC00271                                         01S0333 00489000
@RF00271 C     RF,@CF00048                                      01S0333 00490000
         BNE   @RF00333                                         01S0333 00491000
*                 CALL BLDDSD;      /* BUILD DSD BASE                */ 00492000
         BAL   @14,BLDDSD                                       01S0334 00493000
*               ELSE                /* NO RECORD FOUND ERROR - SHOULD   00494000
*                                      NEVER HAPPEN                  */ 00495000
*                 RETC=TWELVE;      /* CALL IT ERROR                 */ 00496000
         B     @RC00333                                         01S0335 00497000
@RF00333 LA    RETC,12                                          01S0335 00498000
*           END;                    /* END OF RECORD BUILD ROUTINE   */ 00499000
*         ELSE                      /* ROUTINE FOUND ERROR DURING       00500000
*                                      CHECKING                      */ 00501000
*           RETC=TWELVE;            /* SET ERROR CONDITION FOR  01S0337 00502000
*                                      TERMINATE                     */ 00503000
         B     @RC00269                                         01S0337 00504000
@RF00269 LA    RETC,12                                          01S0337 00505000
*       END;                        /* END OF CONTINUE PROCESSING    */ 00506000
@RC00269 DS    0H                                               01S0339 00507000
*     END;                          /* END NO ERROR IN BLSFAV00      */ 00508000
*   ELSE                            /* YES, THERE IS AN ERROR        */ 00509000
*     RETC=TWELVE;                  /* INDICATE TERMINATION REQUEST  */ 00510000
*                                                               01S0340 00511000
         B     @RC00260                                         01S0340 00512000
@RF00260 LA    RETC,12                                          01S0340 00513000
*   /*****************************************************************/ 00514000
*   /*                                                               */ 00515000
*   /* ESTABLISH DEFAULT DATA SET NAME IF REQUESTED                  */ 00516000
*   /*                                                               */ 00517000
*   /*****************************************************************/ 00518000
*                                                               01S0341 00519000
*   IF DFT=DEFLT THEN               /* REQUEST FOR DEFAULT           */ 00520000
@RC00260 CLC   DFT(2),@CH00040                                  01S0341 00521000
         BNE   @RF00341                                         01S0341 00522000
*     DO;                           /* DEFAULT PROCESSING            */ 00523000
*       IF RETC<TWELVE THEN         /* NO ERRORS FOUND?              */ 00524000
         C     RETC,@CF00032                                    01S0343 00525000
         BNL   @RF00343                                         01S0343 00526000
*         DO;                       /* REQUEST FOR DEFAULT           */ 00527000
*           FSD='1'B;               /* TRACK CALL FOR DEFAULT        */ 00528000
         OI    FSD,B'00000100'                                  01S0345 00529000
*           CALL BLSFSD00(ZZ2,DSNS);/* PROCESS DEFAULT               */ 00530000
         ST    ZZ2PTR,@AL00001                                  01S0346 00531000
         LA    @14,DSNS                                         01S0346 00532000
         ST    @14,@AL00001+4                                   01S0346 00533000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0346 00534000
         L     @15,DVTSD00P(,@10)                               01S0346 00535000
         LA    @01,@AL00001                                     01S0346 00536000
         BALR  @14,@15                                          01S0346 00537000
*           FSDCODE=RF;             /* SAVE RETURN CODE FROM DEFAULT    00538000
*                                      PROCESSING                    */ 00539000
         ST    RF,FSDCODE                                       01S0347 00540000
*           IF RF=EIGHT THEN        /* UNABLE TO SET DEFAULT         */ 00541000
         C     RF,@CF00048                                      01S0348 00542000
         BNE   @RF00348                                         01S0348 00543000
*             RETC=MAX(RETC,RF);    /* SET NEW CONDITION CODE        */ 00544000
         CR    RETC,RF                                          01S0349 00545000
         BNL   *+6                                                      00546000
         LR    RETC,RF                                          01S0349 00547000
*         END;                      /* END OF DEFAULT REQUEST        */ 00548000
*       ELSE                        /* ERROR FOUND SEND MESSAGE      */ 00549000
*         DO;                       /* ERROR MESSAGE DURING DEFAULT     00550000
*                                      PROCESSING                    */ 00551000
         B     @RC00343                                         01S0351 00552000
@RF00343 DS    0H                                               01S0352 00553000
*           MSGPTR=ZERO;            /* NO MSG CHAIN                  */ 00554000
         SLR   @14,@14                                          01S0352 00555000
         ST    @14,MSGPTR                                       01S0352 00556000
*           DO;                     /* BLSDMSG                  01S0353 00557000
*                                      (ZZ2,04069,MSGPTR,BLSDMSGS)      00558000
*                                      LIFO ROUTE(TERM)              */ 00559000
*             CALL BLSDMSG0(ZZ2,04069,MSGPTR,BLSDMSGS,'10010000'B,0);   00560000
         ST    ZZ2PTR,@AL00001                                  01S0354 00561000
         LA    @14,@CF01175                                     01S0354 00562000
         ST    @14,@AL00001+4                                   01S0354 00563000
         LA    @14,MSGPTR                                       01S0354 00564000
         ST    @14,@AL00001+8                                   01S0354 00565000
         L     @14,ZZ2MSGSP(,ZZ2PTR)                            01S0354 00566000
         ST    @14,@AL00001+12                                  01S0354 00567000
         LA    @14,@CB01170                                     01S0354 00568000
         ST    @14,@AL00001+16                                  01S0354 00569000
         LA    @14,@CF00045                                     01S0354 00570000
         ST    @14,@AL00001+20                                  01S0354 00571000
         L     @15,ZZ2MSG0P(,ZZ2PTR)                            01S0354 00572000
         LA    @01,@AL00001                                     01S0354 00573000
         BALR  @14,@15                                          01S0354 00574000
*                                   /* BUILD MESSAGE                 */ 00575000
*           END;                    /* BLSDMSG                  01S0355 00576000
*                                      (ZZ2,04069,MSGPTR,BLSDMSGS)      00577000
*                                      LIFO ROUTE(TERM)              */ 00578000
*         END;                      /* END OF DEFAULT ERROR MESSAGE  */ 00579000
*     END;                          /* END OF REQUEST FOR DEFAULT    */ 00580000
@RC00343 DS    0H                                               01S0358 00581000
*EXITRLSE:                                                      01S0358 00582000
*   DO WHILE(PDAPTR^=0);            /* BLRRLSA MF(E,PD)              */ 00583000
@RF00341 DS    0H                                               01S0358 00584000
EXITRLSE B     @DE00358                                         01S0358 00585000
@DL00358 DS    0H                                               01S0359 00586000
*     PDRPTR=PDAPTR;                                            01S0359 00587000
         L     PDRPTR,PDAPTR                                    01S0359 00588000
*     PDAPTR=PDXP;                                              01S0360 00589000
         L     @14,PDXP-1(,PDRPTR)                              01S0360 00590000
         LA    @14,0(,@14)                                      01S0360 00591000
         ST    @14,PDAPTR                                       01S0360 00592000
*     DO;                           /* FREEMAIN(R)              01S0361 00593000
*                                      LV(PDL)SP(1)A(PDDSECT)        */ 00594000
*       RESPECIFY                                               01S0362 00595000
*        (GPR01F,                                               01S0362 00596000
*         GPR00F) RESTRICTED;                                   01S0362 00597000
*       GPR00F=PDL;                 /* LENGTH REQUESTED              */ 00598000
         L     GPR00F,PDL-1(,PDRPTR)                            01S0363 00599000
         ICM   GPR00F,8,@CB01245                                01S0363 00600000
*       GPR01F=1;                   /* SP IN REG 1                   */ 00601000
         LA    GPR01F,1                                         01S0364 00602000
*       GEN(SLL   GPR01F,24)                                    01S0365 00603000
*       NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW;            01S0365 00604000
         SLL   GPR01F,24                                                00605000
*       GPR00F=GPR00F|GPR01F;       /* SP IN HI BYTE                 */ 00606000
         OR    GPR00F,GPR01F                                    01S0366 00607000
*       GPR01F=ADDR(PDDSECT);       /* SET REGISTER ONE              */ 00608000
         LR    GPR01F,PDRPTR                                    01S0367 00609000
*       SVC(10);                    /* R-FORM OF GETMAIN             */ 00610000
         SVC   10                                               01S0368 00611000
*       RESPECIFY                                               01S0369 00612000
*        (GPR01F,                                               01S0369 00613000
*         GPR00F) UNRESTRICTED;                                 01S0369 00614000
*     END;                          /* FREEMAIN(R)              01S0370 00615000
*                                      LV(PDL)SP(1)A(PDDSECT)        */ 00616000
*   END;                            /* BLRRLSA MF(E,PD) FREE THE        00617000
*                                      PARSE PARM ON EXIT            */ 00618000
@DE00358 L     @14,PDAPTR                                       01S0371 00619000
         LTR   @14,@14                                          01S0371 00620000
         BNZ   @DL00358                                         01S0371 00621000
*EXITNORL:                                                      01S0372 00622000
*   ;                               /* ERROR EXIT FOR PARSE AND EXIT    00623000
*                                      PROCESSING                    */ 00624000
EXITNORL DS    0H                                               01S0373 00625000
*   IF ENQ='1'B THEN                /* CHECK IF ENQ WAS REQUESTED    */ 00626000
         TM    ENQ,B'00010000'                                  01S0373 00627000
         BNO   @RF00373                                         01S0373 00628000
*     DO;                           /* START DEQ PROCESSING          */ 00629000
*                                                               01S0374 00630000
*       /*************************************************************/ 00631000
*       /*                                                           */ 00632000
*       /* CALL DEQ ROUTINE FOR END OF MODULE PROCESSING             */ 00633000
*       /*                                                           */ 00634000
*       /*************************************************************/ 00635000
*                                                               01S0375 00636000
*       CALL BLSDDEQP(ZZ2,CURPROB); /* DEQ THE PROBLEM               */ 00637000
         ST    ZZ2PTR,@AL00001                                  01S0375 00638000
         LA    @14,CURPROB                                      01S0375 00639000
         ST    @14,@AL00001+4                                   01S0375 00640000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0375 00641000
         L     @15,DVTDEQPP(,@10)                               01S0375 00642000
         LA    @01,@AL00001                                     01S0375 00643000
         BALR  @14,@15                                          01S0375 00644000
*       DEQ='1'B;                   /* TRACK DEQ FINISHED            */ 00645000
         OI    DEQ,B'00000010'                                  01S0376 00646000
*     END;                          /* END OF DEQ PROCESSING         */ 00647000
*   RETURN CODE(RETC);              /* RETURN TO THE MONITOR         */ 00648000
*                                                               01S0378 00649000
@RF00373 L     @13,4(,@13)                                      01S0378 00650000
         L     @00,@SIZDATD                                     01S0378 00651000
         LR    @01,@11                                          01S0378 00652000
         BLSUFRER R,LV=(0),A=(1)                                        00653000
         LR    @15,@04                                          01S0378 00654000
         L     @14,12(,@13)                                     01S0378 00655000
         LM    @00,@12,20(@13)                                  01S0378 00656000
         BR    @14                                              01S0378 00657000
*   /*****************************************************************/ 00658000
*   /*                                                               */ 00659000
*   /* END OF MAINLINE PROCESSING                                    */ 00660000
*   /*                                                               */ 00661000
*   /*****************************************************************/ 00662000
*                                                               01S0379 00663000
         EJECT                                                          00664000
*BLDALL:                                                        01S0379 00665000
*   PROCEDURE;                      /* MUST BUILD ALL OF THE RECORDS */ 00666000
*                                                               01S0379 00667000
BLDALL   STM   @14,@03,@SA00002                                 01S0379 00668000
         STM   @05,@12,@SA00002+24                              01S0379 00669000
*   /*****************************************************************/ 00670000
*   /*                                                               */ 00671000
*   /* DSD RECORD NOT THERE MUST BUILD ALL                           */ 00672000
*   /*                                                               */ 00673000
*   /*****************************************************************/ 00674000
*                                                               01S0380 00675000
*   BALL='1'B;                      /* TRACK BLDALL BEING ENTERED    */ 00676000
*                                                               01S0380 00677000
         OI    BALL,B'00000010'                                 01S0380 00678000
*   /*****************************************************************/ 00679000
*   /*                                                               */ 00680000
*   /* BUILD DSD BASE RECORD FROM DATA SUPPLIED                      */ 00681000
*   /*                                                               */ 00682000
*   /*****************************************************************/ 00683000
*                                                               01S0381 00684000
*   FND='1'B;                       /* TRACK BLSFND00 CALLED         */ 00685000
         OI    FND,B'01000000'                                  01S0381 00686000
*   CALL BLSFND00(ZZ2,DSDBSKEY,TYS,MAN,DSC,NEWBSDSD);           01S0382 00687000
         ST    ZZ2PTR,@AL00001                                  01S0382 00688000
         LA    @14,DSDBSKEY                                     01S0382 00689000
         ST    @14,@AL00001+4                                   01S0382 00690000
         LA    @14,TYS                                          01S0382 00691000
         ST    @14,@AL00001+8                                   01S0382 00692000
         LA    @14,MAN                                          01S0382 00693000
         ST    @14,@AL00001+12                                  01S0382 00694000
         LA    @14,DSC                                          01S0382 00695000
         ST    @14,@AL00001+16                                  01S0382 00696000
         LA    @14,NEWBSDSD                                     01S0382 00697000
         ST    @14,@AL00001+20                                  01S0382 00698000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0382 00699000
         L     @15,DVTND00P(,@10)                               01S0382 00700000
         LA    @01,@AL00001                                     01S0382 00701000
         BALR  @14,@15                                          01S0382 00702000
*   FOD='1'B;                       /* TRACK THE CALL                */ 00703000
*                                                               01S0383 00704000
         OI    FOD,B'00100000'                                  01S0383 00705000
*   /*****************************************************************/ 00706000
*   /*                                                               */ 00707000
*   /* VERIFY RECORDS AT THIS POINT                                  */ 00708000
*   /*                                                               */ 00709000
*   /*****************************************************************/ 00710000
*                                                               01S0384 00711000
*   CALL BLSFOD00(ZZ2,OLDBSDSD,NEWBSDSD,DSNS,TYS,MAN,DSC);      01S0384 00712000
         ST    ZZ2PTR,@AL00001                                  01S0384 00713000
         LA    @14,OLDBSDSD                                     01S0384 00714000
         ST    @14,@AL00001+4                                   01S0384 00715000
         LA    @14,NEWBSDSD                                     01S0384 00716000
         ST    @14,@AL00001+8                                   01S0384 00717000
         LA    @14,DSNS                                         01S0384 00718000
         ST    @14,@AL00001+12                                  01S0384 00719000
         LA    @14,TYS                                          01S0384 00720000
         ST    @14,@AL00001+16                                  01S0384 00721000
         LA    @14,MAN                                          01S0384 00722000
         ST    @14,@AL00001+20                                  01S0384 00723000
         LA    @14,DSC                                          01S0384 00724000
         ST    @14,@AL00001+24                                  01S0384 00725000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0384 00726000
         L     @15,DVTOD00P(,@10)                               01S0384 00727000
         LA    @01,@AL00001                                     01S0384 00728000
         BALR  @14,@15                                          01S0384 00729000
*   FODCODE=RF;                     /* SAVE RETURN CODE              */ 00730000
         ST    RF,FODCODE                                       01S0385 00731000
*   IF RF<TWELVE THEN               /* IS RECORD OK TO WRITE OUT?    */ 00732000
         C     RF,@CF00032                                      01S0386 00733000
         BNL   @RF00386                                         01S0386 00734000
*     DO;                           /* OK TO WRITE OUT THE RECORDS   */ 00735000
*       RETC=MAX(RETC,RF);          /* RECORD THE FACT               */ 00736000
         CR    RETC,RF                                          01S0388 00737000
         BNL   *+6                                                      00738000
         LR    RETC,RF                                          01S0388 00739000
*       CALL BUILDREC;              /* BUILD COMMON RECORDS ROUTINES */ 00740000
         BAL   @14,BUILDREC                                     01S0389 00741000
*       IF RETCODE<TWELVE THEN      /* BUILD REC OK?                 */ 00742000
         C     RETCODE,@CF00032                                 01S0390 00743000
         BNL   @RF00390                                         01S0390 00744000
*         DO;                       /* YES, BUILD RECORD OK          */ 00745000
*           CALL COMWRITE;          /* WRITE COMMON RECORDS          */ 00746000
         BAL   @14,COMWRITE                                     01S0392 00747000
*           IF RETCODE=ZERO THEN    /* WRITE RECORDS OK?             */ 00748000
         SLR   @14,@14                                          01S0393 00749000
         CR    RETCODE,@14                                      01S0393 00750000
         BNE   @RF00393                                         01S0393 00751000
*             RETC=MAX(RETC,ZERO);  /* YES, RECORD CODE              */ 00752000
         CR    RETC,@14                                         01S0394 00753000
         BNL   *+6                                                      00754000
         LR    RETC,@14                                         01S0394 00755000
*           ELSE                    /* NO WRITE ERRORS, REQ     01S0395 00756000
*                                      TERMINATION                   */ 00757000
*             RETC=TWELVE;                                      01S0395 00758000
         B     @RC00393                                         01S0395 00759000
@RF00393 LA    RETC,12                                          01S0395 00760000
*         END;                      /* END OF BUILD RECORD OK        */ 00761000
*       ELSE                        /* BUILD RECORD ERROR, USER REQ     00762000
*                                      TERM                          */ 00763000
*         DO;                       /* REQ TERM ON BUILD RECORD      */ 00764000
*                                                               01S0397 00765000
         B     @RC00390                                         01S0397 00766000
@RF00390 DS    0H                                               01S0398 00767000
*           /*********************************************************/ 00768000
*           /*                                                       */ 00769000
*           /* USER REQUESTED TERMINATION WHILE BUILDING RECORDS     */ 00770000
*           /*                                                       */ 00771000
*           /*********************************************************/ 00772000
*                                                               01S0398 00773000
*           RETC=TWELVE;            /* REQUEST TERMINATION           */ 00774000
         LA    RETC,12                                          01S0398 00775000
*         END;                      /* END OF REQ TERM ON BUILD 01S0399 00776000
*                                      RECORD                        */ 00777000
*     END;                          /* END OF OK TO WRITE OUT RECORDS*/ 00778000
*   ELSE                            /* REPLY OF NO TO OVER RIDE 01S0401 00779000
*                                      REQUEST                       */ 00780000
*     DO;                           /* NO TO OVERRIDE                */ 00781000
*                                                               01S0401 00782000
         B     @RC00386                                         01S0401 00783000
@RF00386 DS    0H                                               01S0402 00784000
*       /*************************************************************/ 00785000
*       /*                                                           */ 00786000
*       /* USER REFUSED TO OVERRIDE OR REQ TERMINATION               */ 00787000
*       /*                                                           */ 00788000
*       /*************************************************************/ 00789000
*                                                               01S0402 00790000
*       RETC=TWELVE;                /* COVER RETURN CODE             */ 00791000
         LA    RETC,12                                          01S0402 00792000
*     END;                          /* END TO NO TO OVERRIDE         */ 00793000
*   END BLDALL;                     /* END OF DSD REC NOT THERE MUST    00794000
*                                      BUILD ALL                     */ 00795000
@EL00002 DS    0H                                               01S0404 00796000
@EF00002 DS    0H                                               01S0404 00797000
@ER00002 LM    @14,@03,@SA00002                                 01S0404 00798000
         LM    @05,@12,@SA00002+24                              01S0404 00799000
         BR    @14                                              01S0404 00800000
         EJECT                                                          00801000
*BLDPDR:                                                        01S0405 00802000
*   PROCEDURE;                      /* PDR DS RECORD NOT FOUND MUST     00803000
*                                      BE BUILT                      */ 00804000
*                                                               01S0405 00805000
BLDPDR   STM   @14,@03,@SA00003                                 01S0405 00806000
         STM   @05,@12,@SA00003+24                              01S0405 00807000
*   /*****************************************************************/ 00808000
*   /*                                                               */ 00809000
*   /* PDR DS REC MUST BE BUILT                                      */ 00810000
*   /*                                                               */ 00811000
*   /*****************************************************************/ 00812000
*                                                               01S0406 00813000
*   BPDR='1'B;                      /* TRACK BLDPDR BEING ENTERED    */ 00814000
*                                                               01S0406 00815000
         OI    BPDR,B'00000001'                                 01S0406 00816000
*   /*****************************************************************/ 00817000
*   /*                                                               */ 00818000
*   /* BUILD DSD BASE RECORD FROM DATA SUPPLIED                      */ 00819000
*   /*                                                               */ 00820000
*   /*****************************************************************/ 00821000
*                                                               01S0407 00822000
*   FND='1'B;                       /* TRACK BLSFND00 CALLED         */ 00823000
         OI    FND,B'01000000'                                  01S0407 00824000
*   CALL BLSFND00(ZZ2,DSDBSKEY,TYS,MAN,DSC,NEWBSDSD);/* CALL BUILD      00825000
*                                      DSD BASE RECORD ROUTINE       */ 00826000
         ST    ZZ2PTR,@AL00001                                  01S0408 00827000
         LA    @14,DSDBSKEY                                     01S0408 00828000
         ST    @14,@AL00001+4                                   01S0408 00829000
         LA    @14,TYS                                          01S0408 00830000
         ST    @14,@AL00001+8                                   01S0408 00831000
         LA    @14,MAN                                          01S0408 00832000
         ST    @14,@AL00001+12                                  01S0408 00833000
         LA    @14,DSC                                          01S0408 00834000
         ST    @14,@AL00001+16                                  01S0408 00835000
         LA    @14,NEWBSDSD                                     01S0408 00836000
         ST    @14,@AL00001+20                                  01S0408 00837000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0408 00838000
         L     @15,DVTND00P(,@10)                               01S0408 00839000
         LA    @01,@AL00001                                     01S0408 00840000
         BALR  @14,@15                                          01S0408 00841000
*   FOD='1'B;                       /* TRACK THE CALL                */ 00842000
*                                                               01S0409 00843000
         OI    FOD,B'00100000'                                  01S0409 00844000
*   /*****************************************************************/ 00845000
*   /*                                                               */ 00846000
*   /* VERIFY RECORDS AT THIS POINT                                  */ 00847000
*   /*                                                               */ 00848000
*   /*****************************************************************/ 00849000
*                                                               01S0410 00850000
*   CALL BLSFOD00(ZZ2,OLDBSDSD,NEWBSDSD,DSNS,TYS,MAN,DSC);      01S0410 00851000
*                                                               01S0410 00852000
         ST    ZZ2PTR,@AL00001                                  01S0410 00853000
         LA    @14,OLDBSDSD                                     01S0410 00854000
         ST    @14,@AL00001+4                                   01S0410 00855000
         LA    @14,NEWBSDSD                                     01S0410 00856000
         ST    @14,@AL00001+8                                   01S0410 00857000
         LA    @14,DSNS                                         01S0410 00858000
         ST    @14,@AL00001+12                                  01S0410 00859000
         LA    @14,TYS                                          01S0410 00860000
         ST    @14,@AL00001+16                                  01S0410 00861000
         LA    @14,MAN                                          01S0410 00862000
         ST    @14,@AL00001+20                                  01S0410 00863000
         LA    @14,DSC                                          01S0410 00864000
         ST    @14,@AL00001+24                                  01S0410 00865000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0410 00866000
         L     @15,DVTOD00P(,@10)                               01S0410 00867000
         LA    @01,@AL00001                                     01S0410 00868000
         BALR  @14,@15                                          01S0410 00869000
*   /*****************************************************************/ 00870000
*   /*                                                               */ 00871000
*   /* SAVE RETURN CODE FROM BLSFOD00 IN THE RETC FIELD              */ 00872000
*   /*                                                               */ 00873000
*   /*****************************************************************/ 00874000
*                                                               01S0411 00875000
*   FODCODE=RF;                     /* SAVE RETURN CODE              */ 00876000
         ST    RF,FODCODE                                       01S0411 00877000
*   IF RF<TWELVE THEN               /* IS IT OK TO WRITE IT OUT?     */ 00878000
         C     RF,@CF00032                                      01S0412 00879000
         BNL   @RF00412                                         01S0412 00880000
*     DO;                           /* OK TO WRITE OUT THE RECORDS   */ 00881000
*       RETC=MAX(RETC,RF);          /* RECORD THE FACT               */ 00882000
*                                                               01S0414 00883000
         CR    RETC,RF                                          01S0414 00884000
         BNL   *+6                                                      00885000
         LR    RETC,RF                                          01S0414 00886000
*       /*************************************************************/ 00887000
*       /*                                                           */ 00888000
*       /* PDR DS RECORD ONLY RECORD REQUIRED                        */ 00889000
*       /*                                                           */ 00890000
*       /*************************************************************/ 00891000
*                                                               01S0415 00892000
*       RESPECIFY                                               01S0415 00893000
*         DSDREC BASED(ADDR(OLDPRDSD));                         01S0415 00894000
*       SEQNUM=DSDPRSQN;            /* GET THE CORRECT SEQ NUMBER    */ 00895000
*                                                               01S0416 00896000
         LA    @14,OLDPRDSD                                     01S0416 00897000
         MVC   SEQNUM(4),DSDPRSQN(@14)                          01S0416 00898000
*       /*************************************************************/ 00899000
*       /*                                                           */ 00900000
*       /* BUILD THE PDR DS RECORD                                   */ 00901000
*       /*                                                           */ 00902000
*       /*************************************************************/ 00903000
*                                                               01S0417 00904000
*       FBP='1'B;                   /* KEEP TRACKING INFORMATION     */ 00905000
         OI    FBP,B'00000100'                                  01S0417 00906000
*       CALL BLSFBP00(ZZ2,CURPID,SEQNUM,CURDSN,CURMEM,NEWDSPDR);        00907000
         ST    ZZ2PTR,@AL00001                                  01S0418 00908000
         LA    @14,CURPID                                       01S0418 00909000
         ST    @14,@AL00001+4                                   01S0418 00910000
         LA    @14,SEQNUM                                       01S0418 00911000
         ST    @14,@AL00001+8                                   01S0418 00912000
         LA    @14,CURDSN                                       01S0418 00913000
         ST    @14,@AL00001+12                                  01S0418 00914000
         LA    @14,CURMEM                                       01S0418 00915000
         ST    @14,@AL00001+16                                  01S0418 00916000
         LA    @14,NEWDSPDR                                     01S0418 00917000
         ST    @14,@AL00001+20                                  01S0418 00918000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0418 00919000
         L     @15,DVTBP00P(,@10)                               01S0418 00920000
         LA    @01,@AL00001                                     01S0418 00921000
         BALR  @14,@15                                          01S0418 00922000
*       FBPCODE=RF;                 /* SAVE RETURN CODE              */ 00923000
         ST    RF,FBPCODE                                       01S0419 00924000
*       IF RF=ZERO THEN             /* PDR DS RECORD NORMAL?         */ 00925000
         LTR   RF,RF                                            01S0420 00926000
         BNZ   @RF00420                                         01S0420 00927000
*         DO;                       /* YES, WRITE OUT RECORDS        */ 00928000
*           DSPDR='1'B;             /* TRACK WRITE OF PDR DS REC     */ 00929000
         OI    DSPDR,B'00010000'                                01S0422 00930000
*           CALL BLSFUP00(ZZ2,NEWDSPDR,LENGTH(NEWDSPDR));/* WR PDR      00931000
*                                      ASSOC                         */ 00932000
         ST    ZZ2PTR,@AL00001                                  01S0423 00933000
         LA    @14,NEWDSPDR                                     01S0423 00934000
         ST    @14,@AL00001+4                                   01S0423 00935000
         LA    @14,@CF01234                                     01S0423 00936000
         ST    @14,@AL00001+8                                   01S0423 00937000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0423 00938000
         L     @15,DVTUP00P(,@10)                               01S0423 00939000
         LA    @01,@AL00001                                     01S0423 00940000
         BALR  @14,@15                                          01S0423 00941000
*           IF RF=ZERO THEN         /* PROB ASSOC OK                 */ 00942000
         LTR   RF,RF                                            01S0424 00943000
         BNZ   @RF00424                                         01S0424 00944000
*             DO;                   /* GOOD COMPLETION OF WRITE      */ 00945000
*               WROK='1'B;          /* TRACK WRITE COMPLETED OK      */ 00946000
         OI    WROK,B'00001000'                                 01S0426 00947000
*               RETC=MAX(RETC,FOUR);/* INDICATE ERROR FOUND IN DATA     00948000
*                                      BASE AND CORRECTED            */ 00949000
         LA    @14,4                                            01S0427 00950000
         CR    RETC,@14                                         01S0427 00951000
         BNL   *+6                                                      00952000
         LR    RETC,@14                                         01S0427 00953000
*             END;                                              01S0428 00954000
*           ELSE                    /* ERROR OCCURRED DURING WRITE   */ 00955000
*             RETC=TWELVE;          /* ERROR INDICATE IT             */ 00956000
         B     @RC00424                                         01S0429 00957000
@RF00424 LA    RETC,12                                          01S0429 00958000
*         END;                      /* END OF PDR DS RECORD NORMAL   */ 00959000
*       ELSE                        /* USER REQUESTED TERMINATION    */ 00960000
*         RETC=TWELVE;              /* REQUEST TERMINATION           */ 00961000
         B     @RC00420                                         01S0431 00962000
@RF00420 LA    RETC,12                                          01S0431 00963000
*     END;                          /* END OF OK TO WRITE OUT RECORDS*/ 00964000
*   ELSE                            /* COMPARE FAILED                */ 00965000
*     RETC=TWELVE;                  /* NO REPLY TO OVERRIDE          */ 00966000
         B     @RC00412                                         01S0433 00967000
@RF00412 LA    RETC,12                                          01S0433 00968000
*   END BLDPDR;                     /* END OF BUILD PDR DS RECORD    */ 00969000
@EL00003 DS    0H                                               01S0434 00970000
@EF00003 DS    0H                                               01S0434 00971000
@ER00003 LM    @14,@03,@SA00003                                 01S0434 00972000
         LM    @05,@12,@SA00003+24                              01S0434 00973000
         BR    @14                                              01S0434 00974000
         EJECT                                                          00975000
*BLDDSD:                                                        01S0435 00976000
*   PROCEDURE;                                                  01S0435 00977000
*                                                               01S0435 00978000
BLDDSD   STM   @14,@03,@SA00004                                 01S0435 00979000
         STM   @05,@12,@SA00004+24                              01S0435 00980000
*   /*****************************************************************/ 00981000
*   /*                                                               */ 00982000
*   /* PROCESSING WHEN DSD BASE NOT AVAILABLE                        */ 00983000
*   /*                                                               */ 00984000
*   /*****************************************************************/ 00985000
*                                                               01S0436 00986000
         SPACE 1                                                        00987000
*   BDSD='1'B;                      /* TRACK BLDDSD BEING ENTERED    */ 00988000
*                                                               01S0436 00989000
*   /*****************************************************************/ 00990000
*   /*                                                               */ 00991000
*   /* BUILD DSD BASE RECORD FROM DATA SUPPLIED                      */ 00992000
*   /*                                                               */ 00993000
*   /*****************************************************************/ 00994000
*                                                               01S0437 00995000
*   FND='1'B;                       /* TRACK BLSFND00 CALLED         */ 00996000
*                                                               01S0437 00997000
         OI    BDSD,B'11000000'                                 01S0437 00998000
*   /*****************************************************************/ 00999000
*   /*                                                               */ 01000000
*   /* CALL BUILD DSD BASE RECORD ROUTINE                            */ 01001000
*   /*                                                               */ 01002000
*   /*****************************************************************/ 01003000
*                                                               01S0438 01004000
*   CALL BLSFND00(ZZ2,DSDBSKEY,TYS,MAN,DSC,NEWBSDSD);/* BUILD DSD       01005000
*                                      BASE                          */ 01006000
*                                                               01S0438 01007000
         ST    ZZ2PTR,@AL00001                                  01S0438 01008000
         LA    @14,DSDBSKEY                                     01S0438 01009000
         ST    @14,@AL00001+4                                   01S0438 01010000
         LA    @14,TYS                                          01S0438 01011000
         ST    @14,@AL00001+8                                   01S0438 01012000
         LA    @14,MAN                                          01S0438 01013000
         ST    @14,@AL00001+12                                  01S0438 01014000
         LA    @14,DSC                                          01S0438 01015000
         ST    @14,@AL00001+16                                  01S0438 01016000
         LA    @14,NEWBSDSD                                     01S0438 01017000
         ST    @14,@AL00001+20                                  01S0438 01018000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0438 01019000
         L     @15,DVTND00P(,@10)                               01S0438 01020000
         LA    @01,@AL00001                                     01S0438 01021000
         BALR  @14,@15                                          01S0438 01022000
*   /*****************************************************************/ 01023000
*   /*                                                               */ 01024000
*   /* PROVIDE PROCESSING TO COMPARE RECORDS A VALIDITY CK           */ 01025000
*   /*                                                               */ 01026000
*   /*****************************************************************/ 01027000
*                                                               01S0439 01028000
*   FOD='1'B;                       /* TRACK THE CALL                */ 01029000
         OI    FOD,B'00100000'                                  01S0439 01030000
*   CALL BLSFOD00(ZZ2,OLDBSDSD,NEWBSDSD,DSNS,TYS,MAN,DSC);      01S0440 01031000
         ST    ZZ2PTR,@AL00001                                  01S0440 01032000
         LA    @14,OLDBSDSD                                     01S0440 01033000
         ST    @14,@AL00001+4                                   01S0440 01034000
         LA    @14,NEWBSDSD                                     01S0440 01035000
         ST    @14,@AL00001+8                                   01S0440 01036000
         LA    @14,DSNS                                         01S0440 01037000
         ST    @14,@AL00001+12                                  01S0440 01038000
         LA    @14,TYS                                          01S0440 01039000
         ST    @14,@AL00001+16                                  01S0440 01040000
         LA    @14,MAN                                          01S0440 01041000
         ST    @14,@AL00001+20                                  01S0440 01042000
         LA    @14,DSC                                          01S0440 01043000
         ST    @14,@AL00001+24                                  01S0440 01044000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0440 01045000
         L     @15,DVTOD00P(,@10)                               01S0440 01046000
         LA    @01,@AL00001                                     01S0440 01047000
         BALR  @14,@15                                          01S0440 01048000
*   FODCODE=RF;                     /* SAVE RETURN CODE              */ 01049000
         ST    RF,FODCODE                                       01S0441 01050000
*   IF RF<TWELVE THEN               /* IS IT OK TO WRITE OUT RECORD ?*/ 01051000
         C     RF,@CF00032                                      01S0442 01052000
         BNL   @RF00442                                         01S0442 01053000
*     DO;                           /* OK TO WRITE OUT THE RECORDS   */ 01054000
*       CALL BUILDREC;              /* BUILD COMMON RECORDS ROUTINES */ 01055000
         BAL   @14,BUILDREC                                     01S0444 01056000
*       IF RETCODE=ZERO THEN        /* BUILD RECORDS NORMAL?         */ 01057000
         LTR   RETCODE,RETCODE                                  01S0445 01058000
         BNZ   @RF00445                                         01S0445 01059000
*         DO;                       /* BUILD RECORDS OK              */ 01060000
*           RETC=MAX(RETC,RF);      /* RECORD THE FACT               */ 01061000
*                                                               01S0447 01062000
         CR    RETC,RF                                          01S0447 01063000
         BNL   *+6                                                      01064000
         LR    RETC,RF                                          01S0447 01065000
*           /*********************************************************/ 01066000
*           /*                                                       */ 01067000
*           /* WRITE OUT ALL OF THE RECORDS                          */ 01068000
*           /*                                                       */ 01069000
*           /*********************************************************/ 01070000
*                                                               01S0448 01071000
*           BSDSD='1'B;             /* INDICATE A REQUEST FOR WRITE     01072000
*                                      OF DSD BASE                   */ 01073000
         OI    BSDSD,B'00000001'                                01S0448 01074000
*           CALL BLSFUD00(ZZ2,NEWBSDSD,LENGTH(NEWBSDSD));       01S0449 01075000
         ST    ZZ2PTR,@AL00001                                  01S0449 01076000
         LA    @14,NEWBSDSD                                     01S0449 01077000
         ST    @14,@AL00001+4                                   01S0449 01078000
         LA    @14,@CF01235                                     01S0449 01079000
         ST    @14,@AL00001+8                                   01S0449 01080000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0449 01081000
         L     @15,DVTUD00P(,@10)                               01S0449 01082000
         LA    @01,@AL00001                                     01S0449 01083000
         BALR  @14,@15                                          01S0449 01084000
*           IF RF=ZERO THEN         /* WRITE OK CONTINUE PROCESSING  */ 01085000
         LTR   RF,RF                                            01S0450 01086000
         BNZ   @RF00450                                         01S0450 01087000
*             DO;                   /* BASE DSD RECORD OK, WRITE OUT    01088000
*                                      OTHERS                        */ 01089000
*               CALL COMWRITE;      /* WRITE OUT REST OF COMMON 01S0452 01090000
*                                      RECORDS                       */ 01091000
         BAL   @14,COMWRITE                                     01S0452 01092000
*               IF RETCODE=ZERO THEN/* WRITE COMPLETE NO ERRORS      */ 01093000
         SLR   @14,@14                                          01S0453 01094000
         CR    RETCODE,@14                                      01S0453 01095000
         BNE   @RF00453                                         01S0453 01096000
*                 RETC=MAX(RETC,ZERO);/* SET UP RETURN CODE          */ 01097000
         CR    RETC,@14                                         01S0454 01098000
         BNL   *+6                                                      01099000
         LR    RETC,@14                                         01S0454 01100000
*               ELSE                                            01S0455 01101000
*                 RETC=TWELVE;      /* ERROR INDICATED TERMINATE     */ 01102000
         B     @RC00453                                         01S0455 01103000
@RF00453 LA    RETC,12                                          01S0455 01104000
*             END;                  /* END OF GOOD DSD BASE RECORD      01105000
*                                      WRITE                         */ 01106000
*           ELSE                    /* BASE DSD RECORD FAILED   01S0457 01107000
*                                      TERMINATE PROCESSING          */ 01108000
*             RETC=TWELVE;          /* ERROR INDICATED TERMINATE PROC*/ 01109000
         B     @RC00450                                         01S0457 01110000
@RF00450 LA    RETC,12                                          01S0457 01111000
*         END;                      /* END OF BUILD RECORDS OK       */ 01112000
*       ELSE                        /* RECORD BUILD FAILED           */ 01113000
*         RETC=TWELVE;              /* REQ TERMINATION               */ 01114000
         B     @RC00445                                         01S0459 01115000
@RF00445 LA    RETC,12                                          01S0459 01116000
*     END;                          /* OK TO WRITE OUT RECORDS       */ 01117000
*   ELSE                            /* NO SPECIFIED TO OVERRIDE      */ 01118000
*     RETC=TWELVE;                                              01S0461 01119000
         B     @RC00442                                         01S0461 01120000
@RF00442 LA    RETC,12                                          01S0461 01121000
*   END BLDDSD;                     /* END OF NO DSD BASE RECORD        01122000
*                                      FOUND                         */ 01123000
@EL00004 DS    0H                                               01S0462 01124000
@EF00004 DS    0H                                               01S0462 01125000
@ER00004 LM    @14,@03,@SA00004                                 01S0462 01126000
         LM    @05,@12,@SA00004+24                              01S0462 01127000
         BR    @14                                              01S0462 01128000
         EJECT                                                          01129000
*BUILDREC:                                                      01S0463 01130000
*   PROCEDURE;                      /* BUILD COMMON RECORD ROUTINE   */ 01131000
*                                                               01S0463 01132000
BUILDREC STM   @14,@07,@SA00005                                 01S0463 01133000
         STM   @09,@12,@SA00005+40                              01S0463 01134000
*   /*****************************************************************/ 01135000
*   /*                                                               */ 01136000
*   /* BUILD NEW STATUS RECORD FOR PROBLEM WITH NEW SEED             */ 01137000
*   /*                                                               */ 01138000
*   /*****************************************************************/ 01139000
*                                                               01S0464 01140000
*   BREC='1'B;                      /* TRACK CALL TO BUILDREC        */ 01141000
         OI    BREC,B'00010000'                                 01S0464 01142000
*   RETCODE=ZERO;                   /* INIT RETCODE FROM BUILD RECORD*/ 01143000
         SLR   RETCODE,RETCODE                                  01S0465 01144000
*   CALL GETSTPDR;                  /* GET DEFAULT SEQ NUMBER FROM      01145000
*                                      STATUS AND UP COUNT           */ 01146000
         BAL   @14,GETSTPDR                                     01S0466 01147000
*   IF RETCODE=ZERO THEN            /* BUILD PDR STATUS RECORD OK    */ 01148000
         LTR   RETCODE,RETCODE                                  01S0467 01149000
         BNZ   @RF00467                                         01S0467 01150000
*     DO;                           /* YES, BUILD PDR DS RECORD      */ 01151000
*                                                               01S0468 01152000
*       /*************************************************************/ 01153000
*       /*                                                           */ 01154000
*       /* BUILD THE PDR DS RECORD                                   */ 01155000
*       /*                                                           */ 01156000
*       /*************************************************************/ 01157000
*                                                               01S0469 01158000
*       FBP='1'B;                   /* KEEP TRACKING INFORMATION     */ 01159000
         OI    FBP,B'00000100'                                  01S0469 01160000
*       CALL BLSFBP00(ZZ2,CURPID,SEQNUM,CURDSN,CURMEM,NEWDSPDR);        01161000
         ST    ZZ2PTR,@AL00001                                  01S0470 01162000
         LA    @14,CURPID                                       01S0470 01163000
         ST    @14,@AL00001+4                                   01S0470 01164000
         LA    @14,SEQNUM                                       01S0470 01165000
         ST    @14,@AL00001+8                                   01S0470 01166000
         LA    @14,CURDSN                                       01S0470 01167000
         ST    @14,@AL00001+12                                  01S0470 01168000
         LA    @14,CURMEM                                       01S0470 01169000
         ST    @14,@AL00001+16                                  01S0470 01170000
         LA    @14,NEWDSPDR                                     01S0470 01171000
         ST    @14,@AL00001+20                                  01S0470 01172000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0470 01173000
         L     @15,DVTBP00P(,@10)                               01S0470 01174000
         LA    @01,@AL00001                                     01S0470 01175000
         BALR  @14,@15                                          01S0470 01176000
*       FBPCODE=RF;                 /* SAVE THE RETURN CODE          */ 01177000
         ST    RF,FBPCODE                                       01S0471 01178000
*       IF RF=ZERO THEN             /* BUILD NORMALLY?               */ 01179000
         LTR   RF,RF                                            01S0472 01180000
         BNZ   @RF00472                                         01S0472 01181000
*         DO;                       /* YES, NO ERROR BLSFBP00        */ 01182000
*                                                               01S0473 01183000
*           /*********************************************************/ 01184000
*           /*                                                       */ 01185000
*           /* BUILD THE DSD DATASET ASSOCIATION RECORD              */ 01186000
*           /*                                                       */ 01187000
*           /*********************************************************/ 01188000
*                                                               01S0474 01189000
*           FND01='1'B;             /* KEEP TRACKING INFO ON         */ 01190000
         OI    FND01,B'00000010'                                01S0474 01191000
*           CALL BLSFND01(ZZ2,CURDSN,CURMEM,CURPID,SEQNUM,NEWPRDSD);    01192000
         ST    ZZ2PTR,@AL00001                                  01S0475 01193000
         LA    @14,CURDSN                                       01S0475 01194000
         ST    @14,@AL00001+4                                   01S0475 01195000
         LA    @14,CURMEM                                       01S0475 01196000
         ST    @14,@AL00001+8                                   01S0475 01197000
         LA    @14,CURPID                                       01S0475 01198000
         ST    @14,@AL00001+12                                  01S0475 01199000
         LA    @14,SEQNUM                                       01S0475 01200000
         ST    @14,@AL00001+16                                  01S0475 01201000
         LA    @14,NEWPRDSD                                     01S0475 01202000
         ST    @14,@AL00001+20                                  01S0475 01203000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0475 01204000
         L     @15,DVTND01P(,@10)                               01S0475 01205000
         LA    @01,@AL00001                                     01S0475 01206000
         BALR  @14,@15                                          01S0475 01207000
*         END;                      /* END OF NO ERROR BLSFBP00      */ 01208000
*       ELSE                        /* REQUEST TERMINATION           */ 01209000
*         DO;                       /* USER REQUESTED TERMINATION    */ 01210000
*                                                               01S0477 01211000
         B     @RC00472                                         01S0477 01212000
@RF00472 DS    0H                                               01S0478 01213000
*           /*********************************************************/ 01214000
*           /*                                                       */ 01215000
*           /* USER REQUESTED TERMINATION WHILE PROCESSING BLSFBP00  */ 01216000
*           /*                                                       */ 01217000
*           /*********************************************************/ 01218000
*                                                               01S0478 01219000
*           RETCODE=TWELVE;         /* INDICATE REQ TERM             */ 01220000
         LA    RETCODE,12                                       01S0478 01221000
*         END;                      /* END OF USER REQUESTED    01S0479 01222000
*                                      TERMINATION                   */ 01223000
*     END;                          /* END OF BUILD PDR DS RECORD    */ 01224000
*   ELSE                            /* USER REQ TERM DURING BUILD OF    01225000
*                                      PDR STATUS RECORD             */ 01226000
*     RETCODE=TWELVE;               /* REQUEST TERMINATION DURING       01227000
*                                      PROCESSING                    */ 01228000
         B     @RC00467                                         01S0481 01229000
@RF00467 LA    RETCODE,12                                       01S0481 01230000
*   END BUILDREC;                   /* END OF COMMON BUILD ROUTINE   */ 01231000
@EL00005 DS    0H                                               01S0482 01232000
@EF00005 DS    0H                                               01S0482 01233000
@ER00005 LM    @14,@07,@SA00005                                 01S0482 01234000
         LM    @09,@12,@SA00005+40                              01S0482 01235000
         BR    @14                                              01S0482 01236000
         EJECT                                                          01237000
*CLEARREC:                                                      01S0483 01238000
*   PROCEDURE;                      /* CLEAR RECORDS                 */ 01239000
*                                                               01S0483 01240000
CLEARREC STM   @14,@12,12(@13)                                  01S0483 01241000
*   /*****************************************************************/ 01242000
*   /*                                                               */ 01243000
*   /* CLEAR ALL RECORDS TO ZEROS                                    */ 01244000
*   /*                                                               */ 01245000
*   /*****************************************************************/ 01246000
*                                                               01S0484 01247000
*   CREC='1'B;                      /* TRACK CLEAR OF RECORDS        */ 01248000
         OI    CREC,B'10000000'                                 01S0484 01249000
*   RESPECIFY                                                   01S0485 01250000
*    (R2,                                                       01S0485 01251000
*     R3,                                                       01S0485 01252000
*     R4,                                                       01S0485 01253000
*     R5) RESTRICTED;               /* USE IN CLEARING THE RECORDS   */ 01254000
*                                                               01S0485 01255000
*   /*****************************************************************/ 01256000
*   /*                                                               */ 01257000
*   /* CLEAR ORIGINAL BASE RECORD                                    */ 01258000
*   /*                                                               */ 01259000
*   /*****************************************************************/ 01260000
*                                                               01S0486 01261000
*   R2=ADDR(OLDBSDSD);              /* POINT TO OLD DSD RECORD       */ 01262000
         LA    R2,OLDBSDSD                                      01S0486 01263000
*   R3=LENGTH(OLDBSDSD);            /* LENGTH OF RECORD              */ 01264000
         LA    R3,144                                           01S0487 01265000
*   R4=ADDR(HEXZERO);               /* FROM FIELD                    */ 01266000
         LA    R4,@CH00045+1                                    01S0488 01267000
*   R5=ONE;                         /* PAD CHAR = HEX ZERO , LENGTH =   01268000
*                                      1                             */ 01269000
         LA    R5,1                                             01S0489 01270000
*   MVCL(R2,R4);                    /* CLEAR OUT THE RECORD          */ 01271000
*                                                               01S0490 01272000
         MVCL  R2,R4                                            01S0490 01273000
*   /*****************************************************************/ 01274000
*   /*                                                               */ 01275000
*   /* CLEAR NEW DSD BASE RECORD                                     */ 01276000
*   /*                                                               */ 01277000
*   /*****************************************************************/ 01278000
*                                                               01S0491 01279000
*   R2=ADDR(NEWBSDSD);              /* POINT TO RECORD               */ 01280000
         LA    R2,NEWBSDSD                                      01S0491 01281000
*   R3=LENGTH(NEWBSDSD);            /* LENGTH OF RECORD              */ 01282000
         LA    R3,144                                           01S0492 01283000
*   R4=ADDR(HEXZERO);               /* FROM FIELD                    */ 01284000
         LA    R4,@CH00045+1                                    01S0493 01285000
*   R5=ONE;                         /* PAD CHAR = HEX ZERO , LENGTH =   01286000
*                                      1                             */ 01287000
         LA    R5,1                                             01S0494 01288000
*   MVCL(R2,R4);                    /* CLEAR OUT THE RECORD          */ 01289000
*                                                               01S0495 01290000
         MVCL  R2,R4                                            01S0495 01291000
*   /*****************************************************************/ 01292000
*   /*                                                               */ 01293000
*   /* CLEAR OLD DSD PROB ASSOC RECORD                               */ 01294000
*   /*                                                               */ 01295000
*   /*****************************************************************/ 01296000
*                                                               01S0496 01297000
*   R2=ADDR(OLDPRDSD);              /* POINT TO RECORD               */ 01298000
         LA    R2,OLDPRDSD                                      01S0496 01299000
*   R3=LENGTH(OLDPRDSD);            /* LENGTH OF RECORD              */ 01300000
         LA    R3,68                                            01S0497 01301000
*   R4=ADDR(HEXZERO);               /* FROM FIELD                    */ 01302000
         LA    R4,@CH00045+1                                    01S0498 01303000
*   R5=ONE;                         /* PAD CHAR = HEX ZERO , LENGTH =   01304000
*                                      1                             */ 01305000
         LA    R5,1                                             01S0499 01306000
*   MVCL(R2,R4);                    /* CLEAR OUT THE RECORD          */ 01307000
*                                                               01S0500 01308000
         MVCL  R2,R4                                            01S0500 01309000
*   /*****************************************************************/ 01310000
*   /*                                                               */ 01311000
*   /* CLEAR NEW DSD PROB ASSOC RECORD                               */ 01312000
*   /*                                                               */ 01313000
*   /*****************************************************************/ 01314000
*                                                               01S0501 01315000
*   R2=ADDR(NEWPRDSD);              /* POINT TO RECORD               */ 01316000
         LA    R2,NEWPRDSD                                      01S0501 01317000
*   R3=LENGTH(NEWPRDSD);            /* LENGTH OF RECORD              */ 01318000
         LA    R3,68                                            01S0502 01319000
*   R4=ADDR(HEXZERO);               /* FROM FIELD                    */ 01320000
         LA    R4,@CH00045+1                                    01S0503 01321000
*   R5=ONE;                         /* PAD CHAR = HEX ZERO , LENGTH =   01322000
*                                      1                             */ 01323000
         LA    R5,1                                             01S0504 01324000
*   MVCL(R2,R4);                    /* CLEAR OUT THE RECORD          */ 01325000
*                                                               01S0505 01326000
         MVCL  R2,R4                                            01S0505 01327000
*   /*****************************************************************/ 01328000
*   /*                                                               */ 01329000
*   /* CLEAR OLD PDR STATUS RECORD                                   */ 01330000
*   /*                                                               */ 01331000
*   /*****************************************************************/ 01332000
*                                                               01S0506 01333000
*   R2=ADDR(OLDSTPDR);              /* POINT TO RECORD               */ 01334000
         LA    R2,OLDSTPDR                                      01S0506 01335000
*   R3=LENGTH(OLDSTPDR);            /* LENGTH OF RECORD              */ 01336000
         LA    R3,416                                           01S0507 01337000
*   R4=ADDR(HEXZERO);               /* FROM FIELD                    */ 01338000
         LA    R4,@CH00045+1                                    01S0508 01339000
*   R5=ONE;                         /* PAD CHAR = HEX ZERO , LENGTH =   01340000
*                                      1                             */ 01341000
         LA    R5,1                                             01S0509 01342000
*   MVCL(R2,R4);                    /* CLEAR OUT THE RECORD          */ 01343000
*                                                               01S0510 01344000
         MVCL  R2,R4                                            01S0510 01345000
*   /*****************************************************************/ 01346000
*   /*                                                               */ 01347000
*   /* CLEAR NEW PDR STATUS RECORD                                   */ 01348000
*   /*                                                               */ 01349000
*   /*****************************************************************/ 01350000
*                                                               01S0511 01351000
*   R2=ADDR(NEWSTPDR);              /* POINT TO RECORD               */ 01352000
         LA    R2,NEWSTPDR                                      01S0511 01353000
*   R3=LENGTH(NEWSTPDR);            /* LENGTH OF RECORD              */ 01354000
         LA    R3,416                                           01S0512 01355000
*   R4=ADDR(HEXZERO);               /* FROM FIELD                    */ 01356000
         LA    R4,@CH00045+1                                    01S0513 01357000
*   R5=ONE;                         /* PAD CHAR = HEX ZERO , LENGTH =   01358000
*                                      1                             */ 01359000
         LA    R5,1                                             01S0514 01360000
*   MVCL(R2,R4);                    /* CLEAR OUT THE RECORD          */ 01361000
*                                                               01S0515 01362000
         MVCL  R2,R4                                            01S0515 01363000
*   /*****************************************************************/ 01364000
*   /*                                                               */ 01365000
*   /* CLEAR NEW DATA SET PDR RECORD                                 */ 01366000
*   /*                                                               */ 01367000
*   /*****************************************************************/ 01368000
*                                                               01S0516 01369000
*   R2=ADDR(NEWDSPDR);              /* POINT TO RECORD               */ 01370000
         LA    R2,NEWDSPDR                                      01S0516 01371000
*   R3=LENGTH(NEWDSPDR);            /* LENGTH OF RECORD              */ 01372000
         LA    R3,80                                            01S0517 01373000
*   R4=ADDR(HEXZERO);               /* FROM FIELD                    */ 01374000
         LA    R4,@CH00045+1                                    01S0518 01375000
*   R5=ONE;                         /* PAD CHAR = HEX ZERO , LENGTH =   01376000
*                                      1                             */ 01377000
         LA    R5,1                                             01S0519 01378000
*   MVCL(R2,R4);                    /* CLEAR OUT THE RECORD          */ 01379000
         MVCL  R2,R4                                            01S0520 01380000
*   RETURN;                         /* RETURN TO CALLER              */ 01381000
@EL00006 DS    0H                                               01S0521 01382000
@EF00006 DS    0H                                               01S0521 01383000
@ER00006 LM    @14,@12,12(@13)                                  01S0521 01384000
         BR    @14                                              01S0521 01385000
*   RESPECIFY                                                   01S0522 01386000
*    (R2,                                                       01S0522 01387000
*     R3,                                                       01S0522 01388000
*     R4,                                                       01S0522 01389000
*     R5) UNRESTRICTED;             /* RETURN THE REGS- NO LONGER       01390000
*                                      NEEDED                        */ 01391000
*   END CLEARREC;                   /* END OF CLEAR RECORDS          */ 01392000
         EJECT                                                          01393000
*COMWRITE:                                                      01S0524 01394000
*   PROCEDURE;                      /* COMMON WRITE ROUTINE          */ 01395000
*                                                               01S0524 01396000
COMWRITE STM   @14,@07,@SA00007                                 01S0524 01397000
         STM   @09,@12,@SA00007+40                              01S0524 01398000
*   /*****************************************************************/ 01399000
*   /*                                                               */ 01400000
*   /* COMMON ROUTINE TO WRITE ALL RECORDS                           */ 01401000
*   /*                                                               */ 01402000
*   /*****************************************************************/ 01403000
*                                                               01S0525 01404000
*   RETCODE=ZERO;                   /* ZERO RETURN CODE FOR COMWRITE */ 01405000
         SLR   RETCODE,RETCODE                                  01S0525 01406000
*   WREC='1'B;                      /* TRACK ENTRY INTO ROUTINE      */ 01407000
*   STPDR='1'B;                     /* TRACK WRITE OF STATUS PDR REC */ 01408000
         OI    WREC,B'11000000'                                 01S0527 01409000
*   CALL BLSFUP00(ZZ2,NEWSTPDR,LENGTH(NEWSTPDR));/* WRITE PROB ST    */ 01410000
         ST    ZZ2PTR,@AL00001                                  01S0528 01411000
         LA    @14,NEWSTPDR                                     01S0528 01412000
         ST    @14,@AL00001+4                                   01S0528 01413000
         LA    @14,@CF01236                                     01S0528 01414000
         ST    @14,@AL00001+8                                   01S0528 01415000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0528 01416000
         L     @15,DVTUP00P(,@10)                               01S0528 01417000
         LA    @01,@AL00001                                     01S0528 01418000
         BALR  @14,@15                                          01S0528 01419000
*   IF RF=ZERO THEN                 /* FIRST WRITE OK CONTINUE       */ 01420000
         LTR   RF,RF                                            01S0529 01421000
         BNZ   @RF00529                                         01S0529 01422000
*     DO;                           /* STOP WHEN FIRST ERROR OCCURS  */ 01423000
*       PRDSD='1'B;                 /* TRACK WRITE OF PROB DSD RECORD*/ 01424000
         OI    PRDSD,B'00100000'                                01S0531 01425000
*       CALL BLSFUD00(ZZ2,NEWPRDSD,LENGTH(NEWPRDSD));           01S0532 01426000
         ST    ZZ2PTR,@AL00001                                  01S0532 01427000
         LA    @14,NEWPRDSD                                     01S0532 01428000
         ST    @14,@AL00001+4                                   01S0532 01429000
         LA    @14,@CF01233                                     01S0532 01430000
         ST    @14,@AL00001+8                                   01S0532 01431000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0532 01432000
         L     @15,DVTUD00P(,@10)                               01S0532 01433000
         LA    @01,@AL00001                                     01S0532 01434000
         BALR  @14,@15                                          01S0532 01435000
*       IF RF=ZERO THEN             /* WRITE PROB STATUS REC OK      */ 01436000
         LTR   RF,RF                                            01S0533 01437000
         BNZ   @RF00533                                         01S0533 01438000
*         DO;                       /* STOP WHEN NOT ZERO            */ 01439000
*           DSPDR='1'B;             /* TRACK WRITE OF DS PDR REC     */ 01440000
*                                                               01S0535 01441000
         OI    DSPDR,B'00010000'                                01S0535 01442000
*           /*********************************************************/ 01443000
*           /*                                                       */ 01444000
*           /* WRITE PDR DATA SET ASSOCIATION RECORD                 */ 01445000
*           /*                                                       */ 01446000
*           /*********************************************************/ 01447000
*                                                               01S0536 01448000
*           CALL BLSFUP00(ZZ2,NEWDSPDR,LENGTH(NEWDSPDR));       01S0536 01449000
         ST    ZZ2PTR,@AL00001                                  01S0536 01450000
         LA    @14,NEWDSPDR                                     01S0536 01451000
         ST    @14,@AL00001+4                                   01S0536 01452000
         LA    @14,@CF01234                                     01S0536 01453000
         ST    @14,@AL00001+8                                   01S0536 01454000
         L     @10,ZZ2DVTP(,ZZ2PTR)                             01S0536 01455000
         L     @15,DVTUP00P(,@10)                               01S0536 01456000
         LA    @01,@AL00001                                     01S0536 01457000
         BALR  @14,@15                                          01S0536 01458000
*           IF RF=ZERO THEN         /* WRITE SUCCESSFUL              */ 01459000
         LTR   RF,RF                                            01S0537 01460000
         BNZ   @RF00537                                         01S0537 01461000
*             WROK='1'B;            /* TRACK COMPLETION OF WRITE     */ 01462000
         OI    WROK,B'00001000'                                 01S0538 01463000
*           ELSE                    /* ERROR OCCURED                 */ 01464000
*             RETCODE=TWELVE;       /* RETURN CODE TO USER           */ 01465000
         B     @RC00537                                         01S0539 01466000
@RF00537 LA    RETCODE,12                                       01S0539 01467000
*         END;                      /* WRITE PROB DS PDR REC         */ 01468000
*       ELSE                                                    01S0541 01469000
*         RETCODE=TWELVE;           /* ERROR INDICATE IT             */ 01470000
         B     @RC00533                                         01S0541 01471000
@RF00533 LA    RETCODE,12                                       01S0541 01472000
*     END;                          /* END OF WRITE PDR STATUS RECORD*/ 01473000
*   ELSE                                                        01S0543 01474000
*     RETCODE=TWELVE;               /* ERROR INDICATE IT             */ 01475000
         B     @RC00529                                         01S0543 01476000
@RF00529 LA    RETCODE,12                                       01S0543 01477000
*   END COMWRITE;                   /* END OF COMMON WRITE ROUTINE   */ 01478000
@EL00007 DS    0H                                               01S0544 01479000
@EF00007 DS    0H                                               01S0544 01480000
@ER00007 LM    @14,@07,@SA00007                                 01S0544 01481000
         LM    @09,@12,@SA00007+40                              01S0544 01482000
         BR    @14                                              01S0544 01483000
         EJECT                                                          01484000
*GETSTPDR:                                                      01S0545 01485000
*   PROCEDURE;                      /* OBTAIN THE SEQ NUMBER FROM THE   01486000
*                                      STATUS REC                    */ 01487000
GETSTPDR STM   @14,@07,@SA00008                                 01S0545 01488000
         STM   @09,@12,@SA00008+40                              01S0545 01489000
*/*   GET SEQ NUMBER FROM STATUS RECORD AND UPDATE IT TO THE NEXT       01490000
*     NUMBER                                                         */ 01491000
*                                                               01S0546 01492000
*   GSTPDR='1'B;                    /* GET STATUS RECORD PROC TRACKED*/ 01493000
*                                                               01S0546 01494000
         OI    GSTPDR,B'00001000'                               01S0546 01495000
*   /*****************************************************************/ 01496000
*   /*                                                               */ 01497000
*   /* MOVE THE STATUS RECORD INTO BUFFER TO BE WRITTEN OUT          */ 01498000
*   /*                                                               */ 01499000
*   /*****************************************************************/ 01500000
*                                                               01S0547 01501000
*   IF ZZ1EVEP='0'B THEN            /* USER REQUEST TERMINATION?     */ 01502000
         L     @14,ZZ2ZZ1P(,ZZ2PTR)                             01S0547 01503000
         TM    ZZ1EVEP(@14),B'01000000'                         01S0547 01504000
         BNZ   @RF00547                                         01S0547 01505000
*     DO;                           /* NO, GET SEQ NUMBER            */ 01506000
*       RESPECIFY                                               01S0549 01507000
*        (R2,                                                   01S0549 01508000
*         R3,                                                   01S0549 01509000
*         R4,                                                   01S0549 01510000
*         R5) RESTRICTED;           /* SAVE REGS USED DURING THE MOVE*/ 01511000
*                                                               01S0549 01512000
*       /*************************************************************/ 01513000
*       /*                                                           */ 01514000
*       /* CLEAR AREA FOR STATUS RECORD                              */ 01515000
*       /*                                                           */ 01516000
*       /*************************************************************/ 01517000
*                                                               01S0550 01518000
*       R2=ADDR(NEWSTPDR);          /* POINT TO NEW STATUS RECORD    */ 01519000
         LA    R2,NEWSTPDR                                      01S0550 01520000
*       R3=LENGTH(NEWSTPDR);        /* LENGTH OF RECORD              */ 01521000
         LA    @14,416                                          01S0551 01522000
         LR    R3,@14                                           01S0551 01523000
*       R4=ADDR(OLDSTPDR);          /* FROM FIELD                    */ 01524000
         LA    R4,OLDSTPDR                                      01S0552 01525000
*       R5=LENGTH(OLDSTPDR);        /* LENGTH OF CHARACTER           */ 01526000
         LR    R5,@14                                           01S0553 01527000
*       R5=R5|PADCHAR;              /* INDICATE A PAD CHAR OF BLANK  */ 01528000
         O     R5,@CF01063                                      01S0554 01529000
*       MVCL(R2,R4);                /* CLEAR OUT THE RECORD          */ 01530000
         MVCL  R2,R4                                            01S0555 01531000
*       RESPECIFY                                               01S0556 01532000
*        (R2,                                                   01S0556 01533000
*         R3,                                                   01S0556 01534000
*         R4,                                                   01S0556 01535000
*         R5) UNRESTRICTED;         /* FREE REGS USED DURING THE MOVE*/ 01536000
*                                                               01S0556 01537000
*       /*************************************************************/ 01538000
*       /*                                                           */ 01539000
*       /* OBTAIN THE SEQ NUMBER FOR THIS ASSOCIATION                */ 01540000
*       /*                                                           */ 01541000
*       /*************************************************************/ 01542000
*                                                               01S0557 01543000
*       RESPECIFY                                               01S0557 01544000
*         PDREC BASED(ADDR(NEWSTPDR));/* ESTABLISH NEW PDR RECORD    */ 01545000
*       SEQNUM=PDRDSSEQ;            /* SEQUENCE NUMBER FOR THE DATA     01546000
*                                      SET RECORD                    */ 01547000
         LA    @14,NEWSTPDR                                     01S0558 01548000
         MVC   SEQNUM(4),PDRDSSEQ(@14)                          01S0558 01549000
*       IF(SEQNUM&SEQMASK)=SEQMASK THEN/* ARE THEY ALL NUMBERS?      */ 01550000
         MVC   @TS00001(4),SEQNUM                               01S0559 01551000
         NC    @TS00001(4),@CC01052                             01S0559 01552000
         CLC   @TS00001(4),@CC01052                             01S0559 01553000
         BNE   @RF00559                                         01S0559 01554000
*         DO;                       /* YES, PACK AND CONVERT         */ 01555000
*           PACK(PKINSEQ,SEQNUM);   /* PACK THE SEQ NUMBER           */ 01556000
         PACK  PKINSEQ(4),SEQNUM(4)                             01S0561 01557000
*           CVB(CVBINSEQ,PKINSEQ);  /* CONVERT TO BINARY             */ 01558000
*                                                               01S0562 01559000
         XC    @TS00001(8),@TS00001                             01S0562 01560000
         MVC   @TS00001+4(4),PKINSEQ                            01S0562 01561000
         CVB   CVBINSEQ,@TS00001                                01S0562 01562000
*           /*********************************************************/ 01563000
*           /*                                                       */ 01564000
*           /* ADD ONE TO THE SEQ NUMBER FOR NEXT RECORD ASSOCIATION */ 01565000
*           /*                                                       */ 01566000
*           /*********************************************************/ 01567000
*                                                               01S0563 01568000
*           CVBINSEQ=CVBINSEQ+ONE;  /* ADD ONE FOR NEW SEQ NUMBER    */ 01569000
*                                                               01S0563 01570000
         AL    CVBINSEQ,@CF00040                                01S0563 01571000
*           /*********************************************************/ 01572000
*           /*                                                       */ 01573000
*           /* CONVERT THE NUMBER TO PRINTABLE CHARACTERS            */ 01574000
*           /*                                                       */ 01575000
*           /*********************************************************/ 01576000
*                                                               01S0564 01577000
*           CVD(CVBINSEQ,PKOUTSEQ); /* CONVER TO DECIMAL             */ 01578000
         CVD   CVBINSEQ,@TS00001                                01S0564 01579000
         MVC   PKOUTSEQ(4),@TS00001+4                           01S0564 01580000
*           TEMPSEQ=PKOUTSEQ(2:4);  /* SAVE ONLY AMOUNT NEEDED       */ 01581000
         MVC   TEMPSEQ(3),PKOUTSEQ+1                            01S0565 01582000
*           UNPK(NEWSEQNR,TEMPSEQ); /* UNPACK THE NEW SEQUENCE NUMBER*/ 01583000
*                                                               01S0566 01584000
         UNPK  NEWSEQNR(4),TEMPSEQ(3)                           01S0566 01585000
*           /*********************************************************/ 01586000
*           /*                                                       */ 01587000
*           /* UPDATE THE SEQUENCE NUMBER IN THE NEW PDR RECORD      */ 01588000
*           /*                                                       */ 01589000
*           /*********************************************************/ 01590000
*                                                               01S0567 01591000
*           NEWSEQNR(4:4)=NEWSEQNR(4:4)|ZEROCHAR(1:1);/* FIX THE SIGN*/ 01592000
         OC    NEWSEQNR+3(1),ZEROCHAR                           01S0567 01593000
*           PDRDSSEQ=NEWSEQNR;      /* UPDATE THE NUMBER IN THE 01S0568 01594000
*                                      STATUS RECORD                 */ 01595000
         MVC   PDRDSSEQ(4,@14),NEWSEQNR                         01S0568 01596000
*         END;                      /* END PACK AND CONVERT          */ 01597000
*       ELSE                        /* NO, STATUS RECORD IS IN ERROR */ 01598000
*         DO;                       /* STATUS RECORD - INVALID SEQ      01599000
*                                      NUMBER                        */ 01600000
*                                                               01S0570 01601000
         B     @RC00559                                         01S0570 01602000
@RF00559 DS    0H                                               01S0571 01603000
*           /*********************************************************/ 01604000
*           /*                                                       */ 01605000
*           /* INVALID SEQ NUMBER FOUND IN THE STATUS RECORD ISSUE   */ 01606000
*           /* MESSAGE OF INVALID CONDITION STATUS RECORD FOR PROBLEM*/ 01607000
*           /* XXXXXXXX INVALID, SUBCOMMAND TERMINATED               */ 01608000
*           /*                                                       */ 01609000
*           /*********************************************************/ 01610000
*                                                               01S0571 01611000
*           MSGPTR=ZERO;            /* INDICATE NO MSG CHAIN         */ 01612000
         SLR   @14,@14                                          01S0571 01613000
         ST    @14,MSGPTR                                       01S0571 01614000
*           DO;                     /* BLSDMSG                  01S0572 01615000
*                                      (ZZ2,04068,MSGPTR,BLSDMSGS)      01616000
*                                      LIFO ROUTE(TERM)INSERT(FPPIDP,   01617000
*                                      CURPROB,PDRDSSEQ)             */ 01618000
*             IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT INSERT  */ 01619000
         LA    @10,IOPTLIST+12                                  01S0573 01620000
         ST    @10,IOPTLIST                                     01S0573 01621000
*             IOPTLIST(2)=ADDR(FPPIDP);/* INSERT NAME POINTER        */ 01622000
         L     @10,ZZ2ZZ1P(,ZZ2PTR)                             01S0574 01623000
         L     @10,ZZ1FPP(,@10)                                 01S0574 01624000
         LA    @10,FPPIDP(,@10)                                 01S0574 01625000
         ST    @10,IOPTLIST+4                                   01S0574 01626000
*             IOPTLIST(3)=0;        /* ZERO RESERVED FIELD           */ 01627000
         ST    @14,IOPTLIST+8                                   01S0575 01628000
*             RFY                                               01S0576 01629000
*               I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2   */ 01630000
*             I015F=LENGTH(FPPIDP); /* INSERT LENGTH                 */ 01631000
         LA    @10,IOPTLIST+8                                   01S0577 01632000
         MVC   I015F(2,@10),@CH00093                            01S0577 01633000
*             IOPTLIST(4)=ADDR(IOPTLIST(7));/* CHAIN TO NEXT INSERT  */ 01634000
         LA    @10,IOPTLIST+24                                  01S0578 01635000
         ST    @10,IOPTLIST+12                                  01S0578 01636000
*             IOPTLIST(5)=ADDR(CURPROB);/* INSERT NAME POINTER       */ 01637000
         LA    @10,CURPROB                                      01S0579 01638000
         ST    @10,IOPTLIST+16                                  01S0579 01639000
*             IOPTLIST(6)=0;        /* ZERO RESERVED FIELD           */ 01640000
         ST    @14,IOPTLIST+20                                  01S0580 01641000
*             RFY                                               01S0581 01642000
*               I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS BYTES 1-2   */ 01643000
*             I015F=LENGTH(CURPROB);/* INSERT LENGTH                 */ 01644000
         LA    @10,IOPTLIST+20                                  01S0582 01645000
         MVC   I015F(2,@10),@CH00090                            01S0582 01646000
*             IOPTLIST(7)=0;        /* LAST INSERT                   */ 01647000
         ST    @14,IOPTLIST+24                                  01S0583 01648000
*             IOPTLIST(8)=ADDR(PDRDSSEQ);/* INSERT NAME POINTER      */ 01649000
         LA    @10,NEWSTPDR                                     01S0584 01650000
         LA    @10,PDRDSSEQ(,@10)                               01S0584 01651000
         ST    @10,IOPTLIST+28                                  01S0584 01652000
*             IOPTLIST(9)=0;        /* ZERO RESERVED FIELD           */ 01653000
         ST    @14,IOPTLIST+32                                  01S0585 01654000
*             RFY                                               01S0586 01655000
*               I015F BASED(ADDR(IOPTLIST(9)));/* ACCESS BYTES 1-2   */ 01656000
*             I015F=LENGTH(PDRDSSEQ);/* INSERT LENGTH                */ 01657000
         LA    @14,IOPTLIST+32                                  01S0587 01658000
         MVC   I015F(2,@14),@CH00037                            01S0587 01659000
*             CALL BLSDMSG0(ZZ2,04068,MSGPTR,BLSDMSGS,'10010000'B,ADDR( 01660000
*                 IOPTLIST));       /* BUILD MESSAGE                 */ 01661000
         ST    ZZ2PTR,@AL00001                                  01S0588 01662000
         LA    @14,@CF01221                                     01S0588 01663000
         ST    @14,@AL00001+4                                   01S0588 01664000
         LA    @14,MSGPTR                                       01S0588 01665000
         ST    @14,@AL00001+8                                   01S0588 01666000
         L     @14,ZZ2MSGSP(,ZZ2PTR)                            01S0588 01667000
         ST    @14,@AL00001+12                                  01S0588 01668000
         LA    @14,@CB01170                                     01S0588 01669000
         ST    @14,@AL00001+16                                  01S0588 01670000
         LA    @14,IOPTLIST                                     01S0588 01671000
         ST    @14,@AFTEMPS                                     01S0588 01672000
         LA    @14,@AFTEMPS                                     01S0588 01673000
         ST    @14,@AL00001+20                                  01S0588 01674000
         L     @15,ZZ2MSG0P(,ZZ2PTR)                            01S0588 01675000
         LA    @01,@AL00001                                     01S0588 01676000
         BALR  @14,@15                                          01S0588 01677000
*           END;                    /* BLSDMSG                  01S0589 01678000
*                                      (ZZ2,04068,MSGPTR,BLSDMSGS)      01679000
*                                      LIFO ROUTE(TERM)INSERT(FPPIDP,   01680000
*                                      CURPROB,PDRDSSEQ)             */ 01681000
*           RETCODE=TWELVE;         /* INDICATE TERMINATION REQUIRED */ 01682000
         LA    RETCODE,12                                       01S0590 01683000
*         END;                      /* END OF INVALID SEQ NUMBER     */ 01684000
*     END;                          /* END OF GET SEQ NUMBER         */ 01685000
*   ELSE                            /* YES USER REQUESTED TERMINATION*/ 01686000
*     RETCODE=TWELVE;               /* REQUEST TERMINATION           */ 01687000
         B     @RC00547                                         01S0593 01688000
@RF00547 LA    RETCODE,12                                       01S0593 01689000
*   END GETSTPDR;                                               01S0594 01690000
*                                                               01S0594 01691000
@EL00008 DS    0H                                               01S0594 01692000
@EF00008 DS    0H                                               01S0594 01693000
@ER00008 LM    @14,@07,@SA00008                                 01S0594 01694000
         LM    @09,@12,@SA00008+40                              01S0594 01695000
         BR    @14                                              01S0594 01696000
*/*BLSUPEND--MVS IPCS MODULE                                         */ 01697000
*                                                               01S0595 01698000
*   DECLARE                         /* GENERAL PURPOSE REGISTERS     */ 01699000
*     GPR00F FIXED(31) REG(0),                                  01S0595 01700000
*     GPR01F FIXED(31) REG(1),                                  01S0595 01701000
*     GPR15F FIXED(31) REG(15);                                 01S0595 01702000
*   DECLARE                         /* COMMON VARIABLES              */ 01703000
*     I256C CHAR(256) BASED,                                    01S0596 01704000
*     I031F FIXED(31) BASED,                                    01S0596 01705000
*     I031P PTR(31) BASED,                                      01S0596 01706000
*     I015F FIXED(15) BASED,                                    01S0596 01707000
*     I015P PTR(15) BASED,                                      01S0596 01708000
*     I008P PTR(8) BASED,                                       01S0596 01709000
*     I001C CHAR(1) BASED;                                      01S0596 01710000
*   DECLARE                                                     01S0597 01711000
*     IOPTLIST(18) PTR(31) BDY(WORD);/* OPTION LIST ARRAY            */ 01712000
*   GENERATE NODEFS NOREFS DATA;                                01S0598 01713000
*   END                             /* BLRPEND END OF PROCESSING     */ 01714000
*                                                               01S0599 01715000
*/* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM.     */ 01716000
*/*%INCLUDE SYSLIB  (BLSUZZZ )                                       */ 01717000
*/*%INCLUDE SYSLIB  (BLRFULL )                                       */ 01718000
*/*%INCLUDE SYSLIB  (IKJCPPL )                                       */ 01719000
*/*%INCLUDE SYSLIB  (IKJPSCB )                                       */ 01720000
*/*%INCLUDE SYSLIB  (IKJECT  )                                       */ 01721000
*/*%INCLUDE SYSLIB  (IKJUPT  )                                       */ 01722000
*/*%INCLUDE SYSLIB  (BLSUSERV)                                       */ 01723000
*/*%INCLUDE SYSLIB  (BLRSERV )                                       */ 01724000
*/*%INCLUDE SYSLIB  (BLRSERVD)                                       */ 01725000
*/*%INCLUDE SYSLIB  (BLSDSERV)                                       */ 01726000
*/*%INCLUDE SYSLIB  (BLSFP   )                                       */ 01727000
*/*%INCLUDE SYSLIB  (BLSPDR  )                                       */ 01728000
*/*%INCLUDE SYSLIB  (BLSDSD  )                                       */ 01729000
*/*%INCLUDE SYSLIB  (BLSFAD  )                                       */ 01730000
*                                                               01S0599 01731000
*       ;                                                       01S0599 01732000
@EL00001 L     @13,4(,@13)                                      01S0599 01733000
@EF00001 L     @00,@SIZDATD                                     01S0599 01734000
         LR    @01,@11                                          01S0599 01735000
         BLSUFRER R,LV=(0),A=(1)                                        01736000
@ER00001 LM    @14,@12,12(@13)                                  01S0599 01737000
         BR    @14                                              01S0599 01738000
@DATA    DS    0H                                                       01739000
@CH00067 DC    H'2'                                                     01740000
@CH00093 DC    H'3'                                                     01741000
@CH00090 DC    H'5'                                                     01742000
@CH00085 DC    H'44'                                                    01743000
@DATD    DSECT                                                          01744000
         DS    0F                                                       01745000
@SA00001 DS    18F                                                      01746000
@SA00002 DS    14F                                                      01747000
@SA00003 DS    14F                                                      01748000
@SA00004 DS    14F                                                      01749000
@SA00005 DS    14F                                                      01750000
@SA00007 DS    14F                                                      01751000
@SA00008 DS    14F                                                      01752000
@AL00001 DS    11A                                                      01753000
@AFTEMPS DS    2F                                                       01754000
BLSFAD00 CSECT                                                          01755000
         DS    0F                                                       01756000
@CF00045 DC    F'0'                                                     01757000
@CH00045 EQU   @CF00045+2                                               01758000
@CF00040 DC    F'1'                                                     01759000
@CH00040 EQU   @CF00040+2                                               01760000
@CF00037 DC    F'4'                                                     01761000
@CH00037 EQU   @CF00037+2                                               01762000
@CF00048 DC    F'8'                                                     01763000
@CH00048 EQU   @CF00048+2                                               01764000
@CF00032 DC    F'12'                                                    01765000
@CF01233 DC    F'68'                                                    01766000
@CF01234 DC    F'80'                                                    01767000
@CF01235 DC    F'144'                                                   01768000
@CF01236 DC    F'416'                                                   01769000
@CF01221 DC    F'4068'                                                  01770000
@CF01175 DC    F'4069'                                                  01771000
@CF01169 DC    F'4083'                                                  01772000
@CF01063 DC    XL4'40000000'                                            01773000
@DATD    DSECT                                                          01774000
         DS    0D                                                       01775000
PDAPTR   DS    A                                                        01776000
MSGPTR   DS    A                                                        01777000
         DS    0D                                                       01778000
@TS00001 DS    CL8                                                      01779000
SEQNUM   DS    CL4                                                      01780000
PKINSEQ  DS    CL4                                                      01781000
PKOUTSEQ DS    CL4                                                      01782000
NEWSEQNR DS    CL4                                                      01783000
TEMPSEQ  DS    CL3                                                      01784000
LPARNF   DS    CL1                                                      01785000
RPARNF   DS    CL1                                                      01786000
ENQFLAG  DS    CL1                                                      01787000
         ORG   ENQFLAG                                                  01788000
ENQDONE  DS    BL1                                                      01789000
@NM00079 EQU   ENQFLAG+0                                                01790000
         ORG   ENQFLAG+1                                                01791000
CURVALUE DS    CL62                                                     01792000
         ORG   CURVALUE                                                 01793000
CURDSNM  DS    CL52                                                     01794000
         ORG   CURDSNM                                                  01795000
CURDSN   DS    CL44                                                     01796000
CURMEM   DS    CL8                                                      01797000
         ORG   CURVALUE+52                                              01798000
CURPID   DS    CL8                                                      01799000
         ORG   CURPID                                                   01800000
PIDPREF  DS    CL3                                                      01801000
CURPROB  DS    CL5                                                      01802000
         ORG   CURVALUE+60                                              01803000
MANATTR  DS    CL1                                                      01804000
         ORG   MANATTR                                                  01805000
SPECMAN  DS    BL1                                                      01806000
SPUNMAN  EQU   MANATTR+0                                                01807000
FORUNMAN EQU   MANATTR+0                                                01808000
FORCEMGE EQU   MANATTR+0                                                01809000
@NM00080 EQU   MANATTR+0                                                01810000
         ORG   CURVALUE+61                                              01811000
TYPEATTR DS    CL1                                                      01812000
         ORG   TYPEATTR                                                 01813000
SPECDUMP DS    BL1                                                      01814000
SPECPRT  EQU   TYPEATTR+0                                               01815000
SPECUNDF EQU   TYPEATTR+0                                               01816000
FORCEDMP EQU   TYPEATTR+0                                               01817000
FORCEPRT EQU   TYPEATTR+0                                               01818000
FORCUNDF EQU   TYPEATTR+0                                               01819000
@NM00081 EQU   TYPEATTR+0                                               01820000
         ORG   CURVALUE+62                                              01821000
TRKCODE  DS    CL36                                                     01822000
         ORG   TRKCODE                                                  01823000
TRKLBL   DS    CL8                                                      01824000
FAVCODE  DS    FL4                                                      01825000
FGDCODE  DS    FL4                                                      01826000
FFPCODE  DS    FL4                                                      01827000
FNDCODE  DS    FL4                                                      01828000
FODCODE  DS    FL4                                                      01829000
FBPCODE  DS    FL4                                                      01830000
FSDCODE  DS    FL4                                                      01831000
         ORG   TRKCODE+36                                               01832000
TRACK    DS    CL11                                                     01833000
         ORG   TRACK                                                    01834000
BITLBL   DS    CL8                                                      01835000
CREC     DS    BL1                                                      01836000
PARSE    EQU   TRACK+8                                                  01837000
FAV      EQU   TRACK+8                                                  01838000
ENQ      EQU   TRACK+8                                                  01839000
FGD      EQU   TRACK+8                                                  01840000
FFP      EQU   TRACK+8                                                  01841000
BALL     EQU   TRACK+8                                                  01842000
BPDR     EQU   TRACK+8                                                  01843000
BDSD     DS    BL1                                                      01844000
FND      EQU   TRACK+9                                                  01845000
FOD      EQU   TRACK+9                                                  01846000
BREC     EQU   TRACK+9                                                  01847000
GSTPDR   EQU   TRACK+9                                                  01848000
FBP      EQU   TRACK+9                                                  01849000
FND01    EQU   TRACK+9                                                  01850000
BSDSD    EQU   TRACK+9                                                  01851000
WREC     DS    BL1                                                      01852000
STPDR    EQU   TRACK+10                                                 01853000
PRDSD    EQU   TRACK+10                                                 01854000
DSPDR    EQU   TRACK+10                                                 01855000
WROK     EQU   TRACK+10                                                 01856000
FSD      EQU   TRACK+10                                                 01857000
DEQ      EQU   TRACK+10                                                 01858000
         ORG   TRACK+11                                                 01859000
DSDBSKEY DS    CL61                                                     01860000
PDRSTKEY DS    CL14                                                     01861000
OLDBSDSD DS    CL144                                                    01862000
NEWBSDSD DS    CL144                                                    01863000
OLDPRDSD DS    CL68                                                     01864000
NEWPRDSD DS    CL68                                                     01865000
OLDSTPDR DS    CL416                                                    01866000
NEWSTPDR DS    CL416                                                    01867000
NEWDSPDR DS    CL80                                                     01868000
         DS    CL2                                                      01869000
IOPTLIST DS    18A                                                      01870000
BLSFAD00 CSECT                                                          01871000
         DS    0F                                                       01872000
@SIZDATD DC    AL1(0)                                                   01873000
         DC    AL3(@ENDDATD-@DATD)                                      01874000
@CV01151 DC    V(BLSFAV00)                                              01875000
         DS    0D                                                       01876000
PCPTR    DC    AL4(PC)                                                  01877000
@CC01071 DC    C'FADRCODE'                                              01878000
@CC01073 DC    C'FADBCODE'                                              01879000
@CC01052 DC    C'0000'                                                  01880000
@CB01245 DC    X'00'                                                    01881000
@CB01170 DC    B'10010000'                                              01882000
ZEROCHAR DC    CL3'000'                                                 01883000
BLANKS   DC    CL8' '                                                   01884000
@DATD    DSECT                                                          01885000
         SPACE 2                                                        01886000
*********************************************************************** 01887000
* THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION     * 01888000
* TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY    * 01889000
* CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE                 * 01890000
*********************************************************************** 01891000
         SPACE                                                          01892000
BLSFAD00 CSECT                                                          01893000
         ORG                                                            01894000
         DS    0D                                                       01895000
BLRPATCH DC    CL8'ZAPAREA',(((*-BLSFAD00+19)/20+7)/8)CL8'BLSFAD00'     01896000
@DATD    DSECT                                                          01897000
         SPACE 2                                                        01898000
*********************************************************************** 01899000
* IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX                     * 01900000
*********************************************************************** 01901000
         SPACE                                                          01902000
BLSFAD00 CSECT                                                          01903000
PC       IKJPARM DSECT=PD                                               01904000
@DATD    DSECT                                                          01905000
BLSFAD00 CSECT                                                          01906000
DSNWD    IKJKEYWD                                                       01907000
@DATD    DSECT                                                          01908000
BLSFAD00 CSECT                                                          01909000
         IKJNAME 'DSNAME',ALIAS=('DATASET'),SUBFLD=DSNSUB               01910000
@DATD    DSECT                                                          01911000
BLSFAD00 CSECT                                                          01912000
PRO      IKJKEYWD                                                       01913000
@DATD    DSECT                                                          01914000
BLSFAD00 CSECT                                                          01915000
         IKJNAME 'PROBLEM',SUBFLD=PROBSUB                               01916000
@DATD    DSECT                                                          01917000
BLSFAD00 CSECT                                                          01918000
MAN      IKJKEYWD                                                       01919000
@DATD    DSECT                                                          01920000
BLSFAD00 CSECT                                                          01921000
         IKJNAME 'MANAGED'                                              01922000
@DATD    DSECT                                                          01923000
BLSFAD00 CSECT                                                          01924000
         IKJNAME 'UNMANAGED'                                            01925000
@DATD    DSECT                                                          01926000
BLSFAD00 CSECT                                                          01927000
TYP      IKJKEYWD                                                       01928000
@DATD    DSECT                                                          01929000
BLSFAD00 CSECT                                                          01930000
         IKJNAME 'TYPE',SUBFLD=TYPESUB                                  01931000
@DATD    DSECT                                                          01932000
BLSFAD00 CSECT                                                          01933000
DCR      IKJKEYWD                                                       01934000
@DATD    DSECT                                                          01935000
BLSFAD00 CSECT                                                          01936000
         IKJNAME 'DESCRIPTION',SUBFLD=DESCSUB                           01937000
@DATD    DSECT                                                          01938000
BLSFAD00 CSECT                                                          01939000
DFT      IKJKEYWD                                                       01940000
@DATD    DSECT                                                          01941000
BLSFAD00 CSECT                                                          01942000
         IKJNAME 'DEFAULT'                                              01943000
@DATD    DSECT                                                          01944000
BLSFAD00 CSECT                                                          01945000
PXTEST   IKJKEYWD                                                       01946000
@DATD    DSECT                                                          01947000
BLSFAD00 CSECT                                                          01948000
         IKJNAME 'TEST'                                                 01949000
@DATD    DSECT                                                          01950000
BLSFAD00 CSECT                                                          01951000
         IKJNAME 'NOTEST'                                               01952000
@DATD    DSECT                                                          01953000
BLSFAD00 CSECT                                                          01954000
PXCONF   IKJKEYWD                                                       01955000
@DATD    DSECT                                                          01956000
BLSFAD00 CSECT                                                          01957000
         IKJNAME 'CONFIRM'                                              01958000
@DATD    DSECT                                                          01959000
BLSFAD00 CSECT                                                          01960000
         IKJNAME 'NOCONFIRM'                                            01961000
@DATD    DSECT                                                          01962000
BLSFAD00 CSECT                                                          01963000
         SPACE                                                          01964000
DSNSUB   IKJSUBF                                                        01965000
@DATD    DSECT                                                          01966000
BLSFAD00 CSECT                                                          01967000
DSNS     IKJPOSIT DSNAME,USID,PROMPT='NAME OF DATA SET TO BE ADDED'     01968000
@DATD    DSECT                                                          01969000
BLSFAD00 CSECT                                                          01970000
         SPACE                                                          01971000
PROBSUB  IKJSUBF                                                        01972000
@DATD    DSECT                                                          01973000
BLSFAD00 CSECT                                                          01974000
PRN      IKJIDENT 'PROBLEM NUMBER',UPPERCASE,FIRST=NUMERIC,MAXLNTH=5,  *01975000
               OTHER=NUMERIC,                                          *01976000
               PROMPT='PROBLEM NUMBER DATA SET IS RELATED TO'           01977000
@DATD    DSECT                                                          01978000
BLSFAD00 CSECT                                                          01979000
         SPACE                                                          01980000
TYPESUB  IKJSUBF                                                        01981000
@DATD    DSECT                                                          01982000
BLSFAD00 CSECT                                                          01983000
TYS      IKJKEYWD                                                       01984000
@DATD    DSECT                                                          01985000
BLSFAD00 CSECT                                                          01986000
         IKJNAME 'DUMP'                                                 01987000
@DATD    DSECT                                                          01988000
BLSFAD00 CSECT                                                          01989000
         IKJNAME 'PRINT'                                                01990000
@DATD    DSECT                                                          01991000
BLSFAD00 CSECT                                                          01992000
         IKJNAME 'UDEF'                                                 01993000
@DATD    DSECT                                                          01994000
BLSFAD00 CSECT                                                          01995000
         SPACE                                                          01996000
DESCSUB  IKJSUBF                                                        01997000
@DATD    DSECT                                                          01998000
BLSFAD00 CSECT                                                          01999000
DSC      IKJPOSIT QSTRING,UPPERCASE,PROMPT='DESCRIPTION OF DATA SET - 6*02000000
               0 CHARACTERS MAXIMUM',VALIDCK=BLSDC600                   02001000
@DATD    DSECT                                                          02002000
PD       DSECT                                                          02003000
LISTEND  DS    0C                                                       02004000
BLSFAD00 CSECT                                                          02005000
         IKJENDP                                                        02006000
         SPACE 2                                                        02007000
*********************************************************************** 02008000
* IKJENDP--END SYNTAX DESCRIPTION                                     * 02009000
*********************************************************************** 02010000
         SPACE                                                          02011000
@DATD    DSECT                                                          02012000
         SPACE 2                                                        02013000
*********************************************************************** 02014000
* ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY                          * 02015000
*********************************************************************** 02016000
         SPACE                                                          02017000
         DS    0D                                                       02018000
@DATD    DSECT                                                          02019000
         ORG   *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA                02020000
@ENDDATD EQU   *                                                        02021000
BLSFAD00 CSECT                                                          02022000
@00      EQU   00                      EQUATES FOR REGISTERS 0-15       02023000
@01      EQU   01                                                       02024000
@02      EQU   02                                                       02025000
@03      EQU   03                                                       02026000
@04      EQU   04                                                       02027000
@05      EQU   05                                                       02028000
@06      EQU   06                                                       02029000
@07      EQU   07                                                       02030000
@08      EQU   08                                                       02031000
@09      EQU   09                                                       02032000
@10      EQU   10                                                       02033000
@11      EQU   11                                                       02034000
@12      EQU   12                                                       02035000
@13      EQU   13                                                       02036000
@14      EQU   14                                                       02037000
@15      EQU   15                                                       02038000
RETCODE  EQU   @08                                                      02039000
CVBINSEQ EQU   @02                                                      02040000
RETC     EQU   @04                                                      02041000
ZZ2PTR   EQU   @07                                                      02042000
R0       EQU   @00                                                      02043000
R1       EQU   @01                                                      02044000
R2       EQU   @02                                                      02045000
R3       EQU   @03                                                      02046000
R4       EQU   @04                                                      02047000
R5       EQU   @05                                                      02048000
R9       EQU   @09                                                      02049000
RB       EQU   @11                                                      02050000
RD       EQU   @13                                                      02051000
RE       EQU   @14                                                      02052000
RF       EQU   @15                                                      02053000
PDRPTR   EQU   @05                                                      02054000
GPR15F   EQU   @15                                                      02055000
GPR01F   EQU   @01                                                      02056000
GPR00F   EQU   @00                                                      02057000
RA       EQU   @10                                                      02058000
RC       EQU   @12                                                      02059000
R6       EQU   @06                                                      02060000
R7       EQU   @07                                                      02061000
R8       EQU   @08                                                      02062000
ZZ1      EQU   0                                                        02063000
ZZ1FPP   EQU   ZZ1+140                                                  02064000
ZZ1ATTN  EQU   ZZ1+360                                                  02065000
ZZ1EVE   EQU   ZZ1ATTN+4                                                02066000
ZZ1EVEP  EQU   ZZ1EVE                                                   02067000
ZZ1F     EQU   ZZ1+368                                                  02068000
ZZ1N     EQU   ZZ1+1116                                                 02069000
ZZ2      EQU   0                                                        02070000
ZZ2AMD   EQU   ZZ2                                                      02071000
@NM00013 EQU   ZZ2AMD+7                                                 02072000
ZZ2PRT   EQU   ZZ2+138                                                  02073000
ZZ2PRTT  EQU   ZZ2PRT+4                                                 02074000
ZZ2PRTT1 EQU   ZZ2PRTT+1                                                02075000
ZZ2A     EQU   ZZ2+272                                                  02076000
ZZ2AF    EQU   ZZ2A+16                                                  02077000
ZZ2AFC   EQU   ZZ2AF+1                                                  02078000
ZZ2AFX   EQU   ZZ2AF+5                                                  02079000
ZZ2APID  EQU   ZZ2A+64                                                  02080000
ZZ2AD    EQU   ZZ2A+74                                                  02081000
ZZ2ADD   EQU   ZZ2AD                                                    02082000
ZZ2ADDT  EQU   ZZ2ADD+2                                                 02083000
ZZ2ADM   EQU   ZZ2AD+46                                                 02084000
ZZ2ADMT  EQU   ZZ2ADM+2                                                 02085000
ZZ2ADP   EQU   ZZ2AD+56                                                 02086000
ZZ2ADPT  EQU   ZZ2ADP+2                                                 02087000
ZZ2AQAS  EQU   ZZ2A+144                                                 02088000
ZZ2AQD   EQU   ZZ2A+160                                                 02089000
ZZ2AQDT  EQU   ZZ2AQD+10                                                02090000
ZZ2AQDF  EQU   ZZ2AQD+52                                                02091000
ZZ2STG   EQU   ZZ2+960                                                  02092000
ZZ2ALLOP EQU   ZZ2+992                                                  02093000
ZZ2FREEP EQU   ZZ2+996                                                  02094000
ZZ2FF19P EQU   ZZ2+1000                                                 02095000
ZZ2FRE1P EQU   ZZ2+1004                                                 02096000
ZZ2FF18P EQU   ZZ2+1008                                                 02097000
ZZ2DYNAP EQU   ZZ2+1012                                                 02098000
ZZ2ZZ2CP EQU   ZZ2+1016                                                 02099000
ZZ2ZZ2DP EQU   ZZ2+1020                                                 02100000
ZZ2STAIP EQU   ZZ2+1024                                                 02101000
ZZ2FF02P EQU   ZZ2+1028                                                 02102000
ZZ2GETLP EQU   ZZ2+1032                                                 02103000
ZZ2PARSP EQU   ZZ2+1036                                                 02104000
ZZ2PTGTP EQU   ZZ2+1040                                                 02105000
ZZ2PUTLP EQU   ZZ2+1044                                                 02106000
ZZ2SCANP EQU   ZZ2+1048                                                 02107000
ZZ2STCKP EQU   ZZ2+1052                                                 02108000
ZZ2ALOCP EQU   ZZ2+1056                                                 02109000
ZZ2MSGSP EQU   ZZ2+1060                                                 02110000
ZZ2TRMOP EQU   ZZ2+1064                                                 02111000
ZZ2TRMVP EQU   ZZ2+1068                                                 02112000
ZZ2MSG0P EQU   ZZ2+1076                                                 02113000
ZZ2PUTNP EQU   ZZ2+1084                                                 02114000
ZZ2TRMNP EQU   ZZ2+1088                                                 02115000
ZZ2ENQ0P EQU   ZZ2+1092                                                 02116000
ZZ2ADSDP EQU   ZZ2+1096                                                 02117000
ZZ2APDRP EQU   ZZ2+1100                                                 02118000
ZZ2FDSDP EQU   ZZ2+1104                                                 02119000
ZZ2FPDRP EQU   ZZ2+1108                                                 02120000
ZZ2ZZ1P  EQU   ZZ2+1264                                                 02121000
ZZ2DVTP  EQU   ZZ2+1276                                                 02122000
ZZ2BVTP  EQU   ZZ2+1280                                                 02123000
ZZ2CPPL  EQU   ZZ2+1292                                                 02124000
ZZ2CPPLC EQU   ZZ2CPPL                                                  02125000
ZZ2ITR   EQU   ZZ2+2840                                                 02126000
ZZ2ITRE  EQU   ZZ2ITR+16                                                02127000
ZZ2ITSE  EQU   ZZ2+2864                                                 02128000
ZZ2ES    EQU   ZZ2+2872                                                 02129000
ZZ2AMDX  EQU   ZZ2+7160                                                 02130000
ZZ2AXO   EQU   ZZ2+7934                                                 02131000
ZZ2AXOT  EQU   ZZ2AXO+2                                                 02132000
CMD      EQU   0                                                        02133000
CMDT     EQU   CMD+4                                                    02134000
PSCB     EQU   0                                                        02135000
PSCBATR1 EQU   PSCB+16                                                  02136000
ECT      EQU   0                                                        02137000
ECTSWS   EQU   ECT+28                                                   02138000
ECTSWS2  EQU   ECT+40                                                   02139000
ECTSWS21 EQU   ECTSWS2                                                  02140000
UPT      EQU   0                                                        02141000
UPTSWS   EQU   UPT+12                                                   02142000
SA       EQU   0                                                        02143000
SA1      EQU   SA                                                       02144000
SAR      EQU   SA+12                                                    02145000
BLSUPARI EQU   0                                                        02146000
BVT      EQU   0                                                        02147000
BVTPUTLP EQU   BVT+4                                                    02148000
BVTPUTOP EQU   BVT+12                                                   02149000
BVTPUTTP EQU   BVT+16                                                   02150000
BVTPUTVP EQU   BVT+20                                                   02151000
BVTPUTAP EQU   BVT+24                                                   02152000
BVTPRTTP EQU   BVT+28                                                   02153000
BVTPRTAP EQU   BVT+32                                                   02154000
BVTPUTDP EQU   BVT+36                                                   02155000
BVTMONP  EQU   BVT+40                                                   02156000
BVTMON2P EQU   BVT+44                                                   02157000
BVTVSARP EQU   BVT+48                                                   02158000
BVTVSENP EQU   BVT+64                                                   02159000
BVTVSERP EQU   BVT+68                                                   02160000
BVTVSGEP EQU   BVT+72                                                   02161000
BVTVSGUP EQU   BVT+76                                                   02162000
BVTVSPOP EQU   BVT+80                                                   02163000
BVTVSPUP EQU   BVT+84                                                   02164000
BVTMPKNP EQU   BVT+104                                                  02165000
BVTMONLP EQU   BVT+108                                                  02166000
BVTPUTCP EQU   BVT+132                                                  02167000
BVTMPK1P EQU   BVT+136                                                  02168000
BVTZZ2RP EQU   BVT+140                                                  02169000
BVTPGMRP EQU   BVT+144                                                  02170000
BVTMONAP EQU   BVT+148                                                  02171000
BVTBLDDP EQU   BVT+152                                                  02172000
BVTBLDLP EQU   BVT+156                                                  02173000
BVTPGMCP EQU   BVT+160                                                  02174000
BVTPGMDP EQU   BVT+164                                                  02175000
BVTPGMLP EQU   BVT+168                                                  02176000
BVTMONCP EQU   BVT+180                                                  02177000
BVTMONDP EQU   BVT+184                                                  02178000
BVTMONTP EQU   BVT+188                                                  02179000
BVTPARIP EQU   BVT+192                                                  02180000
BVTPARUP EQU   BVT+196                                                  02181000
BVTPRTNP EQU   BVT+204                                                  02182000
BVTVSCRP EQU   BVT+208                                                  02183000
BVTVSMRP EQU   BVT+212                                                  02184000
BVTMONXP EQU   BVT+216                                                  02185000
BVTTRMAP EQU   BVT+228                                                  02186000
BLSDDEQP EQU   0                                                        02187000
BLSDMSGS EQU   0                                                        02188000
BLSDMSG0 EQU   0                                                        02189000
BLSFBP00 EQU   0                                                        02190000
BLSFFP00 EQU   0                                                        02191000
BLSFGD00 EQU   0                                                        02192000
BLSFND00 EQU   0                                                        02193000
BLSFND01 EQU   0                                                        02194000
BLSFOD00 EQU   0                                                        02195000
BLSFSD00 EQU   0                                                        02196000
BLSFUD00 EQU   0                                                        02197000
BLSFUP00 EQU   0                                                        02198000
DVT      EQU   0                                                        02199000
DVTDEQPP EQU   DVT+8                                                    02200000
DVTENQPP EQU   DVT+12                                                   02201000
DVTAUTHP EQU   DVT+20                                                   02202000
DVTLPCLP EQU   DVT+24                                                   02203000
DVTBP00P EQU   DVT+28                                                   02204000
DVTCN00P EQU   DVT+32                                                   02205000
DVTDF00P EQU   DVT+36                                                   02206000
DVTDS00P EQU   DVT+44                                                   02207000
DVTFL00P EQU   DVT+48                                                   02208000
DVTFP00P EQU   DVT+52                                                   02209000
DVTGD00P EQU   DVT+56                                                   02210000
DVTGG00P EQU   DVT+60                                                   02211000
DVTGP00P EQU   DVT+64                                                   02212000
DVTND00P EQU   DVT+68                                                   02213000
DVTND01P EQU   DVT+72                                                   02214000
DVTOD00P EQU   DVT+76                                                   02215000
DVTPS00P EQU   DVT+80                                                   02216000
DVTSD00P EQU   DVT+84                                                   02217000
DVTSL00P EQU   DVT+88                                                   02218000
DVTTL00P EQU   DVT+92                                                   02219000
DVTUD00P EQU   DVT+96                                                   02220000
DVTUP00P EQU   DVT+100                                                  02221000
DVTLP00P EQU   DVT+104                                                  02222000
DVTLALLP EQU   DVT+108                                                  02223000
DVTLPFMP EQU   DVT+112                                                  02224000
DVTCLOSP EQU   DVT+116                                                  02225000
DVTOPENP EQU   DVT+120                                                  02226000
DVTPERAP EQU   DVT+124                                                  02227000
DVTDALLP EQU   DVT+128                                                  02228000
FPBLOK   EQU   0                                                        02229000
FPPIDP   EQU   FPBLOK+96                                                02230000
FPADMNM  EQU   FPBLOK+120                                               02231000
FPDELNM  EQU   FPBLOK+128                                               02232000
PDREC    EQU   0                                                        02233000
PDRKEY   EQU   PDREC                                                    02234000
PDRGRP   EQU   PDRKEY                                                   02235000
PDRKPID  EQU   PDRGRP+2                                                 02236000
PDRINFO  EQU   PDREC+16                                                 02237000
DSDREC   EQU   0                                                        02238000
DSDKEY   EQU   DSDREC                                                   02239000
DSDKGRP  EQU   DSDKEY                                                   02240000
DSDKDSNM EQU   DSDKGRP+1                                                02241000
DSDKBSID EQU   DSDKEY+53                                                02242000
DSDKPID  EQU   DSDKBSID                                                 02243000
DSDINFO  EQU   DSDREC+64                                                02244000
PCCSECT  EQU   0                                                        02245000
PDDSECT  EQU   0                                                        02246000
PDXP     EQU   PDDSECT+1                                                02247000
PDL      EQU   PDDSECT+5                                                02248000
I015F    EQU   0                                                        02249000
BLSCALOC EQU   0                                                        02250000
BLSDADSD EQU   0                                                        02251000
BLSDAPDR EQU   0                                                        02252000
BLSDENQP EQU   0                                                        02253000
BLSDENQ0 EQU   0                                                        02254000
BLSDFDSD EQU   0                                                        02255000
BLSDFPDR EQU   0                                                        02256000
BLSEAUTH EQU   0                                                        02257000
BLSELPCL EQU   0                                                        02258000
BLSELPFM EQU   0                                                        02259000
BLSFCLOS EQU   0                                                        02260000
BLSFCN00 EQU   0                                                        02261000
BLSFDALL EQU   0                                                        02262000
BLSFDF00 EQU   0                                                        02263000
BLSFDS00 EQU   0                                                        02264000
BLSFFL00 EQU   0                                                        02265000
BLSFGG00 EQU   0                                                        02266000
BLSFGP00 EQU   0                                                        02267000
BLSFLALL EQU   0                                                        02268000
BLSFLP00 EQU   0                                                        02269000
BLSFOPEN EQU   0                                                        02270000
BLSFPERA EQU   0                                                        02271000
BLSFPS00 EQU   0                                                        02272000
BLSFSL00 EQU   0                                                        02273000
BLSFTL00 EQU   0                                                        02274000
BLSUALLO EQU   0                                                        02275000
BLSUBLDD EQU   0                                                        02276000
BLSUBLDL EQU   0                                                        02277000
BLSUDYNA EQU   0                                                        02278000
BLSUFREE EQU   0                                                        02279000
BLSUFRE1 EQU   0                                                        02280000
BLSUMON  EQU   0                                                        02281000
BLSUMONA EQU   0                                                        02282000
BLSUMONC EQU   0                                                        02283000
BLSUMOND EQU   0                                                        02284000
BLSUMONL EQU   0                                                        02285000
BLSUMONT EQU   0                                                        02286000
BLSUMONX EQU   0                                                        02287000
BLSUMON2 EQU   0                                                        02288000
BLSUMPKN EQU   0                                                        02289000
BLSUMPK1 EQU   0                                                        02290000
BLSUPARU EQU   0                                                        02291000
BLSUPGMC EQU   0                                                        02292000
BLSUPGMD EQU   0                                                        02293000
BLSUPGML EQU   0                                                        02294000
BLSUPGMR EQU   0                                                        02295000
BLSUPRTA EQU   0                                                        02296000
BLSUPRTN EQU   0                                                        02297000
BLSUPRTT EQU   0                                                        02298000
BLSUPUTA EQU   0                                                        02299000
BLSUPUTC EQU   0                                                        02300000
BLSUPUTD EQU   0                                                        02301000
BLSUPUTL EQU   0                                                        02302000
BLSUPUTN EQU   0                                                        02303000
BLSUPUTO EQU   0                                                        02304000
BLSUPUTT EQU   0                                                        02305000
BLSUPUTV EQU   0                                                        02306000
BLSUSTAI EQU   0                                                        02307000
BLSUTRMA EQU   0                                                        02308000
BLSUTRMN EQU   0                                                        02309000
BLSUTRMO EQU   0                                                        02310000
BLSUTRMV EQU   0                                                        02311000
BLSUVSAR EQU   0                                                        02312000
BLSUVSCR EQU   0                                                        02313000
BLSUVSEN EQU   0                                                        02314000
BLSUVSER EQU   0                                                        02315000
BLSUVSGE EQU   0                                                        02316000
BLSUVSGU EQU   0                                                        02317000
BLSUVSMR EQU   0                                                        02318000
BLSUVSPO EQU   0                                                        02319000
BLSUVSPU EQU   0                                                        02320000
BLSUZZ2C EQU   0                                                        02321000
BLSUZZ2D EQU   0                                                        02322000
BLSUZZ2R EQU   0                                                        02323000
DSCQ     EQU   0                                                        02324000
DSNSD    EQU   0                                                        02325000
DSNSM    EQU   0                                                        02326000
DSNSP    EQU   0                                                        02327000
IKJEFF02 EQU   0                                                        02328000
IKJEFF18 EQU   0                                                        02329000
IKJEFF19 EQU   0                                                        02330000
IKJGETL  EQU   0                                                        02331000
IKJPARS  EQU   0                                                        02332000
IKJPTGT  EQU   0                                                        02333000
IKJPUTL  EQU   0                                                        02334000
IKJSCAN  EQU   0                                                        02335000
IKJSTCK  EQU   0                                                        02336000
I001C    EQU   0                                                        02337000
I008P    EQU   0                                                        02338000
I015P    EQU   0                                                        02339000
I031F    EQU   0                                                        02340000
I031P    EQU   0                                                        02341000
I256C    EQU   0                                                        02342000
PRNI     EQU   0                                                        02343000
DSNSDP   EQU   DSNS                                                     02344000
DSNSDF   EQU   DSNS+6                                                   02345000
DSNSMP   EQU   DSNS+8                                                   02346000
DSNSMF   EQU   DSNS+14                                                  02347000
DSNSPP   EQU   DSNS+16                                                  02348000
DSNSPF   EQU   DSNS+22                                                  02349000
PRNIP    EQU   PRN                                                      02350000
PRNIF    EQU   PRN+6                                                    02351000
DSCQP    EQU   DSC                                                      02352000
DSCQF    EQU   DSC+6                                                    02353000
CPPL     EQU   ZZ2CPPL                                                  02354000
CPPLUPT  EQU   CPPL+4                                                   02355000
CPPLPSCB EQU   CPPL+8                                                   02356000
CPPLECT  EQU   CPPL+12                                                  02357000
PDRSTREC EQU   PDRINFO                                                  02358000
PDRODATE EQU   PDRSTREC                                                 02359000
PDROWNNM EQU   PDRSTREC+32                                              02360000
PDRDSSEQ EQU   PDRSTREC+396                                             02361000
PDRDEREC EQU   PDRINFO                                                  02362000
PDRDESCR EQU   PDRDEREC                                                 02363000
PDRTRREC EQU   PDRINFO                                                  02364000
PDRTRARR EQU   PDRTRREC                                                 02365000
PDRHSREC EQU   PDRINFO                                                  02366000
PDRDSREC EQU   PDRINFO                                                  02367000
PDRDSNM  EQU   PDRDSREC                                                 02368000
PDRSVALU EQU   PDRODATE                                                 02369000
DSDBASRC EQU   DSDINFO                                                  02370000
DSDDSATR EQU   DSDBASRC+8                                               02371000
DSDPRASR EQU   DSDINFO                                                  02372000
DSDPRSQN EQU   DSDPRASR                                                 02373000
*                                      START UNREFERENCED COMPONENTS    02374000
DSDBRES1 EQU   DSDBASRC+76                                              02375000
DSDDESC  EQU   DSDBASRC+16                                              02376000
DSDSLOWN EQU   DSDDSATR                                                 02377000
DSDDSNTY EQU   DSDBASRC                                                 02378000
PDRSVNUM EQU   PDRSVALU+3                                               02379000
PDRSVRES EQU   PDRSVALU                                                 02380000
PDRDSRES EQU   PDRDSREC+52                                              02381000
PDRMEMB  EQU   PDRDSNM+44                                               02382000
PDRDSN   EQU   PDRDSNM                                                  02383000
PDRHYMSD EQU   PDRHSREC+4                                               02384000
PDRHSLEN EQU   PDRHSREC                                                 02385000
PDRTRKD  EQU   PDRTRARR                                                 02386000
PDRDESC  EQU   PDRDESCR                                                 02387000
PDRRES6  EQU   PDRSTREC+392                                             02388000
PDRTRKL  EQU   PDRSTREC+388                                             02389000
PDRDESCL EQU   PDRSTREC+384                                             02390000
PDRABS   EQU   PDRSTREC+256                                             02391000
PDRRES5  EQU   PDRSTREC+252                                             02392000
PDRFIXID EQU   PDRSTREC+192                                             02393000
PDRFTIME EQU   PDRSTREC+184                                             02394000
PDRFDATE EQU   PDRSTREC+176                                             02395000
PDRFSTAT EQU   PDRSTREC+172                                             02396000
PDRRES4  EQU   PDRSTREC+167                                             02397000
PDRPTFID EQU   PDRSTREC+160                                             02398000
PDRTTIME EQU   PDRSTREC+152                                             02399000
PDRTDATE EQU   PDRSTREC+144                                             02400000
PDRTSTAT EQU   PDRSTREC+140                                             02401000
PDRRES3  EQU   PDRSTREC+135                                             02402000
PDRAPRID EQU   PDRSTREC+128                                             02403000
PDRITIME EQU   PDRSTREC+120                                             02404000
PDRIDATE EQU   PDRSTREC+112                                             02405000
PDRISTAT EQU   PDRSTREC+104                                             02406000
PDRRTIME EQU   PDRSTREC+96                                              02407000
PDRRDATE EQU   PDRSTREC+88                                              02408000
PDRPTIME EQU   PDRSTREC+80                                              02409000
PDRPDATE EQU   PDRSTREC+72                                              02410000
PDRPSTAT EQU   PDRSTREC+64                                              02411000
PDRUSER  EQU   PDRSTREC+56                                              02412000
PDRSYS   EQU   PDRSTREC+48                                              02413000
PDRGROUP EQU   PDRSTREC+40                                              02414000
PDROWNLN EQU   PDROWNNM+7                                               02415000
PDROWNID EQU   PDROWNNM                                                 02416000
PDRRES1  EQU   PDRSTREC+27                                              02417000
PDRSEV   EQU   PDRSTREC+26                                              02418000
PDRCOMP  EQU   PDRSTREC+16                                              02419000
PDROTIME EQU   PDRSTREC+8                                               02420000
CPPLCBUF EQU   CPPL                                                     02421000
@NM00078 EQU   DSC+8                                                    02422000
@NM00077 EQU   DSC+7                                                    02423000
DSCQF8   EQU   DSCQF                                                    02424000
DSCQF7   EQU   DSCQF                                                    02425000
DSCQF6   EQU   DSCQF                                                    02426000
DSCQF5   EQU   DSCQF                                                    02427000
DSCQF4   EQU   DSCQF                                                    02428000
DSCQF3   EQU   DSCQF                                                    02429000
DSCQF2   EQU   DSCQF                                                    02430000
DSCQFP   EQU   DSCQF                                                    02431000
DSCQL    EQU   DSC+4                                                    02432000
@NM00076 EQU   PRN+8                                                    02433000
@NM00075 EQU   PRN+7                                                    02434000
PRNIF8   EQU   PRNIF                                                    02435000
PRNIF7   EQU   PRNIF                                                    02436000
PRNIF6   EQU   PRNIF                                                    02437000
PRNIF5   EQU   PRNIF                                                    02438000
PRNIF4   EQU   PRNIF                                                    02439000
PRNIF3   EQU   PRNIF                                                    02440000
PRNIF2   EQU   PRNIF                                                    02441000
PRNIFP   EQU   PRNIF                                                    02442000
PRNIL    EQU   PRN+4                                                    02443000
@NM00074 EQU   DSNS+24                                                  02444000
@NM00073 EQU   DSNS+23                                                  02445000
DSNSPF8  EQU   DSNSPF                                                   02446000
DSNSPF7  EQU   DSNSPF                                                   02447000
DSNSPF6  EQU   DSNSPF                                                   02448000
DSNSPF5  EQU   DSNSPF                                                   02449000
DSNSPF4  EQU   DSNSPF                                                   02450000
DSNSPF3  EQU   DSNSPF                                                   02451000
DSNSPF2  EQU   DSNSPF                                                   02452000
DSNSPFP  EQU   DSNSPF                                                   02453000
DSNSPL   EQU   DSNS+20                                                  02454000
@NM00072 EQU   DSNS+15                                                  02455000
DSNSMF8  EQU   DSNSMF                                                   02456000
DSNSMF7  EQU   DSNSMF                                                   02457000
DSNSMF6  EQU   DSNSMF                                                   02458000
DSNSMF5  EQU   DSNSMF                                                   02459000
DSNSMF4  EQU   DSNSMF                                                   02460000
DSNSMF3  EQU   DSNSMF                                                   02461000
DSNSMF2  EQU   DSNSMF                                                   02462000
DSNSMFP  EQU   DSNSMF                                                   02463000
DSNSML   EQU   DSNS+12                                                  02464000
@NM00071 EQU   DSNS+7                                                   02465000
@NM00070 EQU   DSNSDF                                                   02466000
DSNSDFQ  EQU   DSNSDF                                                   02467000
DSNSDFP  EQU   DSNSDF                                                   02468000
DSNSDL   EQU   DSNS+4                                                   02469000
PDSP     EQU   PDDSECT+4                                                02470000
@NM00069 EQU   PDDSECT                                                  02471000
DSDRES1  EQU   DSDREC+61                                                02472000
DSDKPNUM EQU   DSDKPID+3                                                02473000
DSDKPREF EQU   DSDKPID                                                  02474000
DSDKMEMN EQU   DSDKDSNM+44                                              02475000
DSDKDSN  EQU   DSDKDSNM                                                 02476000
DSDKTYP  EQU   DSDKGRP                                                  02477000
PDRRESV  EQU   PDREC+14                                                 02478000
PDRRECSQ EQU   PDRKEY+10                                                02479000
PDRKPNUM EQU   PDRKPID+3                                                02480000
PDRKPREF EQU   PDRKPID                                                  02481000
PDRKRCTY EQU   PDRGRP                                                   02482000
FPRES6   EQU   FPBLOK+136                                               02483000
FPDELLN  EQU   FPDELNM+7                                                02484000
FPDELID  EQU   FPDELNM                                                  02485000
FPADMLN  EQU   FPADMNM+7                                                02486000
FPADMID  EQU   FPADMNM                                                  02487000
FPGRPID  EQU   FPBLOK+112                                               02488000
FPSYSID  EQU   FPBLOK+104                                               02489000
FPRES4   EQU   FPBLOK+103                                               02490000
FPDBPIDP EQU   FPBLOK+100                                               02491000
FPRES3   EQU   FPBLOK+99                                                02492000
FPRES2   EQU   FPBLOK+92                                                02493000
FPDSDS   EQU   FPBLOK+48                                                02494000
FPRES1   EQU   FPBLOK+44                                                02495000
FPPDDS   EQU   FPBLOK                                                   02496000
DVT99999 EQU   DVT+256                                                  02497000
DVT0064P EQU   DVT+252                                                  02498000
DVT0063P EQU   DVT+248                                                  02499000
DVT0062P EQU   DVT+244                                                  02500000
DVT0061P EQU   DVT+240                                                  02501000
DVT0060P EQU   DVT+236                                                  02502000
DVT0059P EQU   DVT+232                                                  02503000
DVT0058P EQU   DVT+228                                                  02504000
DVT0057P EQU   DVT+224                                                  02505000
DVT0056P EQU   DVT+220                                                  02506000
DVT0055P EQU   DVT+216                                                  02507000
DVT0054P EQU   DVT+212                                                  02508000
DVT0053P EQU   DVT+208                                                  02509000
DVT0052P EQU   DVT+204                                                  02510000
DVT0051P EQU   DVT+200                                                  02511000
DVT0050P EQU   DVT+196                                                  02512000
DVT0049P EQU   DVT+192                                                  02513000
DVT0048P EQU   DVT+188                                                  02514000
DVT0047P EQU   DVT+184                                                  02515000
DVT0046P EQU   DVT+180                                                  02516000
DVT0045P EQU   DVT+176                                                  02517000
DVT0044P EQU   DVT+172                                                  02518000
DVT0043P EQU   DVT+168                                                  02519000
DVT0042P EQU   DVT+164                                                  02520000
DVT0041P EQU   DVT+160                                                  02521000
DVT0040P EQU   DVT+156                                                  02522000
DVT0039P EQU   DVT+152                                                  02523000
DVT0038P EQU   DVT+148                                                  02524000
DVT0037P EQU   DVT+144                                                  02525000
DVT0036P EQU   DVT+140                                                  02526000
DVT0035P EQU   DVT+136                                                  02527000
DVT0034P EQU   DVT+132                                                  02528000
DVT0011P EQU   DVT+40                                                   02529000
DVT0005P EQU   DVT+16                                                   02530000
DVT0002P EQU   DVT+4                                                    02531000
DVT0001P EQU   DVT                                                      02532000
BVT99999 EQU   BVT+256                                                  02533000
BVT0064P EQU   BVT+252                                                  02534000
BVT0063P EQU   BVT+248                                                  02535000
BVT0062P EQU   BVT+244                                                  02536000
BVT0061P EQU   BVT+240                                                  02537000
BVT0060P EQU   BVT+236                                                  02538000
BVT0059P EQU   BVT+232                                                  02539000
BVT0057P EQU   BVT+224                                                  02540000
BVT0056P EQU   BVT+220                                                  02541000
BVTSTBLP EQU   BVT+200                                                  02542000
BVT0045P EQU   BVT+176                                                  02543000
BVT0044P EQU   BVT+172                                                  02544000
BVT0033P EQU   BVT+128                                                  02545000
BVT0032P EQU   BVT+124                                                  02546000
BVT0031P EQU   BVT+120                                                  02547000
BVT0030P EQU   BVT+116                                                  02548000
BVT0029P EQU   BVT+112                                                  02549000
BVT0026P EQU   BVT+100                                                  02550000
BVT0025P EQU   BVT+96                                                   02551000
BVT0024P EQU   BVT+92                                                   02552000
BVT0023P EQU   BVT+88                                                   02553000
BVT0016P EQU   BVT+60                                                   02554000
BVT0015P EQU   BVT+56                                                   02555000
BVT0014P EQU   BVT+52                                                   02556000
BVT0003P EQU   BVT+8                                                    02557000
BVT0001P EQU   BVT                                                      02558000
SA99     EQU   SA+72                                                    02559000
SARC     EQU   SAR+56                                                   02560000
SARB     EQU   SAR+52                                                   02561000
SARA     EQU   SAR+48                                                   02562000
SAR9     EQU   SAR+44                                                   02563000
SAR8     EQU   SAR+40                                                   02564000
SAR7     EQU   SAR+36                                                   02565000
SAR6     EQU   SAR+32                                                   02566000
SAR5     EQU   SAR+28                                                   02567000
SAR4     EQU   SAR+24                                                   02568000
SAR3     EQU   SAR+20                                                   02569000
SAR2     EQU   SAR+16                                                   02570000
SAR1     EQU   SAR+12                                                   02571000
SAR0     EQU   SAR+8                                                    02572000
SARF     EQU   SAR+4                                                    02573000
SARE     EQU   SAR                                                      02574000
SAFWD    EQU   SA+8                                                     02575000
SABAK    EQU   SA+4                                                     02576000
SA1L     EQU   SA1+1                                                    02577000
SA1P     EQU   SA1                                                      02578000
UPTPREFL EQU   UPT+23                                                   02579000
UPTPREFX EQU   UPT+16                                                   02580000
@NM00068 EQU   UPT+15                                                   02581000
UPTLDEL  EQU   UPT+14                                                   02582000
UPTCDEL  EQU   UPT+13                                                   02583000
UPTWTP   EQU   UPTSWS                                                   02584000
UPTMODE  EQU   UPTSWS                                                   02585000
UPTALD   EQU   UPTSWS                                                   02586000
UPTPAUS  EQU   UPTSWS                                                   02587000
UPTNCOM  EQU   UPTSWS                                                   02588000
UPTMID   EQU   UPTSWS                                                   02589000
UPTNPRM  EQU   UPTSWS                                                   02590000
UPTRCVR  EQU   UPTSWS                                                   02591000
UPTUSER  EQU   UPT+2                                                    02592000
@NM00067 EQU   UPT                                                      02593000
@NM00066 EQU   ECT+52                                                   02594000
@NM00065 EQU   ECT+48                                                   02595000
@NM00064 EQU   ECT+44                                                   02596000
@NM00063 EQU   ECTSWS2+1                                                02597000
@NM00062 EQU   ECTSWS21                                                 02598000
ECTTABND EQU   ECTSWS21                                                 02599000
ECTDEFCS EQU   ECTSWS21                                                 02600000
ECTBKPB  EQU   ECT+36                                                   02601000
ECTUSER  EQU   ECT+32                                                   02602000
ECTDDNUM EQU   ECT+29                                                   02603000
ECTATTN  EQU   ECTSWS                                                   02604000
ECTBKGRD EQU   ECTSWS                                                   02605000
ECTNNOT  EQU   ECTSWS                                                   02606000
ECTNMAL  EQU   ECTSWS                                                   02607000
ECTLOGF  EQU   ECTSWS                                                   02608000
ECTATRM  EQU   ECTSWS                                                   02609000
@NM00061 EQU   ECTSWS                                                   02610000
ECTNOPD  EQU   ECTSWS                                                   02611000
ECTSCMD  EQU   ECT+20                                                   02612000
ECTPCMD  EQU   ECT+12                                                   02613000
ECTSMSG  EQU   ECT+9                                                    02614000
ECTMSGF  EQU   ECT+8                                                    02615000
ECTIOWA  EQU   ECT+4                                                    02616000
ECTRTCD  EQU   ECT+1                                                    02617000
ECTRCDF  EQU   ECT                                                      02618000
PSCBU    EQU   PSCB+64                                                  02619000
PSCBRSZ  EQU   PSCB+60                                                  02620000
PSCBLINE EQU   PSCB+59                                                  02621000
PSCBCHAR EQU   PSCB+58                                                  02622000
PSCBUPTL EQU   PSCB+56                                                  02623000
PSCBUPT  EQU   PSCB+52                                                  02624000
PSCBRLGB EQU   PSCB+48                                                  02625000
PSCBDEST EQU   PSCB+40                                                  02626000
@NM00060 EQU   PSCB+36                                                  02627000
@NM00059 EQU   PSCB+32                                                  02628000
@NM00058 EQU   PSCB+28                                                  02629000
PSCBLTI2 EQU   PSCB+24                                                  02630000
PSCBLTIM EQU   PSCB+20                                                  02631000
PSCBATR2 EQU   PSCB+18                                                  02632000
@NM00057 EQU   PSCBATR1                                                 02633000
@NM00056 EQU   PSCBATR1                                                 02634000
@NM00055 EQU   PSCBATR1                                                 02635000
PSCBATTN EQU   PSCBATR1                                                 02636000
PSCBVMNT EQU   PSCBATR1                                                 02637000
PSCBJCL  EQU   PSCBATR1                                                 02638000
PSCBACCT EQU   PSCBATR1                                                 02639000
PSCBCTRL EQU   PSCBATR1                                                 02640000
PSCBGPNM EQU   PSCB+8                                                   02641000
PSCBUSRL EQU   PSCB+7                                                   02642000
PSCBUSER EQU   PSCB                                                     02643000
CMDT1    EQU   CMDT                                                     02644000
CMDO     EQU   CMD+2                                                    02645000
CMDL     EQU   CMD                                                      02646000
ZZ299999 EQU   ZZ2+8192                                                 02647000
ZZ2AXOT1 EQU   ZZ2AXOT                                                  02648000
ZZ2AXOL  EQU   ZZ2AXO                                                   02649000
@NM00054 EQU   ZZ2+7288                                                 02650000
@NM00053 EQU   ZZ2AMDX+4                                                02651000
ZZ2AMDXC EQU   ZZ2AMDX                                                  02652000
ZZ2HSD   EQU   ZZ2+3056                                                 02653000
@NM00052 EQU   ZZ2ES                                                    02654000
@NM00051 EQU   ZZ2+2868                                                 02655000
ZZ2ITSEC EQU   ZZ2ITSE+1                                                02656000
@NM00050 EQU   ZZ2ITSE                                                  02657000
ZZ2ITSEP EQU   ZZ2ITSE                                                  02658000
ZZ2ITSEW EQU   ZZ2ITSE                                                  02659000
@NM00049 EQU   ZZ2ITR+20                                                02660000
ZZ2ITREC EQU   ZZ2ITRE+1                                                02661000
@NM00048 EQU   ZZ2ITRE                                                  02662000
ZZ2ITREP EQU   ZZ2ITRE                                                  02663000
ZZ2ITREW EQU   ZZ2ITRE                                                  02664000
@NM00047 EQU   ZZ2ITR+9                                                 02665000
ZZ2ITRRC EQU   ZZ2ITR+8                                                 02666000
ZZ2ITR2P EQU   ZZ2ITR+4                                                 02667000
ZZ2ITRPP EQU   ZZ2ITR                                                   02668000
@NM00046 EQU   ZZ2+1544                                                 02669000
ZZ2PGM   EQU   ZZ2+1536                                                 02670000
@NM00045 EQU   ZZ2+1526                                                 02671000
ZZ2CW    EQU   ZZ2+1524                                                 02672000
@NM00044 EQU   ZZ2+1504                                                 02673000
@NM00043 EQU   ZZ2+1352                                                 02674000
ZZ2FFSYP EQU   ZZ2+1348                                                 02675000
ZZ2SASYP EQU   ZZ2+1344                                                 02676000
ZZ2RDSYP EQU   ZZ2+1340                                                 02677000
ZZ2RASYP EQU   ZZ2+1336                                                 02678000
ZZ2PHSYP EQU   ZZ2+1332                                                 02679000
ZZ2ESSYP EQU   ZZ2+1328                                                 02680000
ZZ200SYP EQU   ZZ2+1324                                                 02681000
ZZ2SCWP  EQU   ZZ2+1320                                                 02682000
ZZ2TTLP  EQU   ZZ2+1316                                                 02683000
ZZ2LOADP EQU   ZZ2+1312                                                 02684000
ZZ2VRESP EQU   ZZ2+1308                                                 02685000
ZZ2CPPLE EQU   ZZ2CPPL+12                                               02686000
ZZ2CPPLP EQU   ZZ2CPPL+8                                                02687000
ZZ2CPPLU EQU   ZZ2CPPL+4                                                02688000
ZZ2VRSAP EQU   ZZ2+1288                                                 02689000
ZZ2RVTP  EQU   ZZ2+1284                                                 02690000
@NM00042 EQU   ZZ2+1272                                                 02691000
@NM00041 EQU   ZZ2+1268                                                 02692000
ZZ2RPLP  EQU   ZZ2+1260                                                 02693000
ZZ2TCBP  EQU   ZZ2+1256                                                 02694000
@NM00040 EQU   ZZ2+1252                                                 02695000
ZZ2ZZ2P  EQU   ZZ2+1248                                                 02696000
@NM00039 EQU   ZZ2+1112                                                 02697000
@NM00038 EQU   ZZ2+1080                                                 02698000
ZZ2FT25P EQU   ZZ2+1072                                                 02699000
@NM00037 EQU   ZZ2+976                                                  02700000
ZZ2TOD   EQU   ZZ2+968                                                  02701000
ZZ2STGN  EQU   ZZ2STG+4                                                 02702000
ZZ2STGP  EQU   ZZ2STG                                                   02703000
@NM00036 EQU   ZZ2+952                                                  02704000
ZZ2SCMDE EQU   ZZ2+944                                                  02705000
ZZ2SCMDN EQU   ZZ2+936                                                  02706000
ZZ2IDENT EQU   ZZ2+928                                                  02707000
ZZ2A9999 EQU   ZZ2A+656                                                 02708000
@NM00035 EQU   ZZ2A+224                                                 02709000
@NM00034 EQU   ZZ2A+220                                                 02710000
ZZ2AQD99 EQU   ZZ2AQD+60                                                02711000
@NM00033 EQU   ZZ2AQD+56                                                02712000
@NM00032 EQU   ZZ2AQDF                                                  02713000
ZZ2AQDFA EQU   ZZ2AQDF                                                  02714000
ZZ2AQDIL EQU   ZZ2AQD+48                                                02715000
ZZ2AQDIM EQU   ZZ2AQD+44                                                02716000
ZZ2AQDT9 EQU   ZZ2AQDT+34                                               02717000
ZZ2AQDTE EQU   ZZ2AQDT+33                                               02718000
ZZ2AQDTD EQU   ZZ2AQDT+2                                                02719000
@NM00031 EQU   ZZ2AQDT+1                                                02720000
ZZ2AQDTY EQU   ZZ2AQDT                                                  02721000
ZZ2AQDT0 EQU   ZZ2AQDT                                                  02722000
ZZ2AQDLB EQU   ZZ2AQD+9                                                 02723000
ZZ2AQDOB EQU   ZZ2AQD+8                                                 02724000
ZZ2AQDLE EQU   ZZ2AQD+4                                                 02725000
ZZ2AQDOF EQU   ZZ2AQD                                                   02726000
ZZ2AQD00 EQU   ZZ2AQD                                                   02727000
ZZ2AQAS9 EQU   ZZ2AQAS+16                                               02728000
@NM00030 EQU   ZZ2AQAS+12                                               02729000
ZZ2AQAS2 EQU   ZZ2AQAS+8                                                02730000
ZZ2AQAS1 EQU   ZZ2AQAS+4                                                02731000
@NM00029 EQU   ZZ2AQAS+2                                                02732000
ZZ2AQAST EQU   ZZ2AQAS                                                  02733000
ZZ2AQAS0 EQU   ZZ2AQAS                                                  02734000
ZZ2AZZ6P EQU   ZZ2A+140                                                 02735000
ZZ2ADPTA EQU   ZZ2ADPT                                                  02736000
ZZ2ADPL  EQU   ZZ2ADP                                                   02737000
ZZ2ADMTA EQU   ZZ2ADMT                                                  02738000
ZZ2ADML  EQU   ZZ2ADM                                                   02739000
ZZ2ADDTA EQU   ZZ2ADDT                                                  02740000
ZZ2ADDL  EQU   ZZ2ADD                                                   02741000
@NM00028 EQU   ZZ2A+72                                                  02742000
ZZ2APIDB EQU   ZZ2APID+3                                                02743000
ZZ2APIDA EQU   ZZ2APID                                                  02744000
@NM00027 EQU   ZZ2A+24                                                  02745000
@NM00026 EQU   ZZ2AF+5                                                  02746000
@NM00025 EQU   ZZ2AF+3                                                  02747000
ZZ2AFS   EQU   ZZ2AF+2                                                  02748000
ZZ2AFD   EQU   ZZ2AF+2                                                  02749000
ZZ2AFQ   EQU   ZZ2AF+2                                                  02750000
ZZ2AF$   EQU   ZZ2AF+2                                                  02751000
@NM00024 EQU   ZZ2AF+2                                                  02752000
ZZ2AFM   EQU   ZZ2AF+2                                                  02753000
@NM00023 EQU   ZZ2AF+2                                                  02754000
@NM00022 EQU   ZZ2AF+1                                                  02755000
ZZ2AFV   EQU   ZZ2AF+1                                                  02756000
@NM00021 EQU   ZZ2AF+1                                                  02757000
@NM00020 EQU   ZZ2AF                                                    02758000
ZZ2AFFS  EQU   ZZ2AF                                                    02759000
ZZ2AFT   EQU   ZZ2AF                                                    02760000
ZZ2AFP   EQU   ZZ2AF                                                    02761000
@NM00019 EQU   ZZ2A+8                                                   02762000
ZZ2ALINE EQU   ZZ2A+4                                                   02763000
@NM00018 EQU   ZZ2A+3                                                   02764000
ZZ2ASE   EQU   ZZ2A+2                                                   02765000
ZZ2ACH   EQU   ZZ2A                                                     02766000
@NM00017 EQU   ZZ2+264                                                  02767000
@NM00016 EQU   ZZ2+263                                                  02768000
ZZ2PRTT0 EQU   ZZ2PRTT                                                  02769000
ZZ2PRTO  EQU   ZZ2PRT+2                                                 02770000
ZZ2PRTL  EQU   ZZ2PRT                                                   02771000
@NM00015 EQU   ZZ2AMD+56                                                02772000
ZZ2AMDXP EQU   ZZ2AMD+52                                                02773000
ZZ2AMDD  EQU   ZZ2AMD+48                                                02774000
ZZ2AMDL  EQU   ZZ2AMD+44                                                02775000
ZZ2AMDU  EQU   ZZ2AMD+28                                                02776000
ZZ2AMDF  EQU   ZZ2AMD+24                                                02777000
ZZ2AMDS  EQU   ZZ2AMD+20                                                02778000
ZZ2AMDC  EQU   ZZ2AMD+16                                                02779000
ZZ2AMDP  EQU   ZZ2AMD+12                                                02780000
ZZ2AMDB  EQU   ZZ2AMD+8                                                 02781000
@NM00014 EQU   @NM00013                                                 02782000
ZZ2AMD2  EQU   @NM00013                                                 02783000
ZZ2AMD1  EQU   @NM00013                                                 02784000
ZZ2AMD0  EQU   ZZ2AMD+6                                                 02785000
ZZ2AMDA  EQU   ZZ2AMD+4                                                 02786000
ZZ2AMDT  EQU   ZZ2AMD                                                   02787000
ZZ199999 EQU   ZZ1+3072                                                 02788000
@NM00012 EQU   ZZ1+2160                                                 02789000
ZZ1TRTAS EQU   ZZ1+1904                                                 02790000
ZZ1TRUPC EQU   ZZ1+1648                                                 02791000
ZZ1TRCTX EQU   ZZ1+1392                                                 02792000
ZZ1NASID EQU   ZZ1N+274                                                 02793000
ZZ1NSTRL EQU   ZZ1N+272                                                 02794000
ZZ1NOFF  EQU   ZZ1N+268                                                 02795000
ZZ1NBDY  EQU   ZZ1N+264                                                 02796000
ZZ1NADE  EQU   ZZ1N+260                                                 02797000
ZZ1NADB  EQU   ZZ1N+256                                                 02798000
ZZ1NSTR  EQU   ZZ1N                                                     02799000
@NM00011 EQU   ZZ1+1080                                                 02800000
ZZ1TREBC EQU   ZZ1+824                                                  02801000
ZZ1TRHEX EQU   ZZ1+568                                                  02802000
@NM00010 EQU   ZZ1+377                                                  02803000
ZZ1USTAE EQU   ZZ1+376                                                  02804000
@NM00009 EQU   ZZ1F+1                                                   02805000
@NM00008 EQU   ZZ1F                                                     02806000
ZZ1FM    EQU   ZZ1F                                                     02807000
ZZ1FX    EQU   ZZ1F                                                     02808000
ZZ1FU    EQU   ZZ1F                                                     02809000
ZZ1EVEC  EQU   ZZ1EVE+1                                                 02810000
@NM00007 EQU   ZZ1EVE                                                   02811000
ZZ1EVEW  EQU   ZZ1EVE                                                   02812000
ZZ1ACMP  EQU   ZZ1ATTN                                                  02813000
@NM00006 EQU   ZZ1+144                                                  02814000
ZZ1ZZ6P  EQU   ZZ1+136                                                  02815000
@NM00005 EQU   ZZ1+84                                                   02816000
ZZ1PLINE EQU   ZZ1+80                                                   02817000
ZZ1PGSZ  EQU   ZZ1+76                                                   02818000
ZZ1PCNT  EQU   ZZ1+72                                                   02819000
@NM00004 EQU   ZZ1+68                                                   02820000
ZZ1TPAGE EQU   ZZ1+64                                                   02821000
ZZ1TLINE EQU   ZZ1+60                                                   02822000
@NM00003 EQU   ZZ1+52                                                   02823000
ZZ1DMCBP EQU   ZZ1+48                                                   02824000
ZZ1DSDP  EQU   ZZ1+44                                                   02825000
ZZ1PDRP  EQU   ZZ1+40                                                   02826000
ZZ1ZZ2P  EQU   ZZ1+36                                                   02827000
ZZ1327WP EQU   ZZ1+32                                                   02828000
ZZ1ACBP  EQU   ZZ1+28                                                   02829000
@NM00002 EQU   ZZ1+24                                                   02830000
ZZ1PDCBP EQU   ZZ1+20                                                   02831000
ZZ1BLRBL EQU   ZZ1+16                                                   02832000
@NM00001 EQU   ZZ1+12                                                   02833000
ZZ1PNULL EQU   ZZ1+8                                                    02834000
ZZ1NULL  EQU   ZZ1+4                                                    02835000
ZZ1IDE   EQU   ZZ1                                                      02836000
*                                      END UNREFERENCED COMPONENTS      02837000
@RC00333 EQU   @RC00269                                                 02838000
@RC00271 EQU   @RC00269                                                 02839000
@RF00348 EQU   @RC00343                                                 02840000
@RC00386 EQU   @EL00002                                                 02841000
@RC00412 EQU   @EL00003                                                 02842000
@RC00442 EQU   @EL00004                                                 02843000
@RC00467 EQU   @EL00005                                                 02844000
@RC00529 EQU   @EL00007                                                 02845000
@RC00547 EQU   @EL00008                                                 02846000
@RC00276 EQU   @RC00271                                                 02847000
@RC00390 EQU   @RC00386                                                 02848000
@RC00420 EQU   @RC00412                                                 02849000
@RC00445 EQU   @RC00442                                                 02850000
@RC00472 EQU   @RC00467                                                 02851000
@RC00533 EQU   @RC00529                                                 02852000
@RC00559 EQU   @RC00547                                                 02853000
@RC00327 EQU   @RC00276                                                 02854000
@RC00325 EQU   @RC00276                                                 02855000
@RC00278 EQU   @RC00276                                                 02856000
@RC00393 EQU   @RC00390                                                 02857000
@RC00424 EQU   @RC00420                                                 02858000
@RC00450 EQU   @RC00445                                                 02859000
@RC00537 EQU   @RC00533                                                 02860000
@RC00453 EQU   @RC00450                                                 02861000
@ENDDATA EQU   *                                                        02862000
         END   BLSFAD00,(C'PLS1419',0701,78065)                         02863000