ADP1 TITLE 'BLSEADP1- ADD PROBLEM DESCRIPTION TO IPCS DATA BASE *00001000 ' 00002000 * /* CHANGE ACTIVITY 00003000 * THIS MODULE IS WRITTEN FOR @G57LPJD 00004000 * 01/25/78 PTM 7633 00005000 * 01/25/78 PTM 7634 00006000 * 02/21/78 PTM 7788 00007000 BLSEADP1 CSECT , 0002 00008000 @MAINENT DS 0H 0002 00009000 USING *,@15 0002 00010000 B @PROLOG 0002 00011000 DC AL1(16) 0002 00012000 DC C'BLSEADP1 78.062' 0002 00013000 DROP @15 00014000 @PROLOG STM @14,@12,12(@13) 0002 00015000 BALR @12,0 0002 00016000 @PSTART DS 0H 0002 00017000 USING @PSTART,@12 0002 00018000 L @00,@SIZDATD 0002 00019000 BLSUALLS R,LV=(0) 00020000 LR @11,@01 0002 00021000 USING @DATD,@11 0002 00022000 ST @13,@SA00001+4 0002 00023000 LM @00,@01,20(@13) 0002 00024000 ST @11,8(,@13) 0002 00025000 LR @13,@11 0002 00026000 MVC @PC00001(12),0(@01) 0002 00027000 SPACE 2 00028000 * 0116 00029000 */********************************************************************/ 00030000 */* */ 00031000 */* MAIN CODE BEGINS */ 00032000 */* */ 00033000 */********************************************************************/ 00034000 * 0116 00035000 * BUFPTR=ADDR(REMBUF); /* SET ADDRESSABILITY TO STATUS */ 00036000 L BUFPTR,@PC00001+8 0116 00037000 * RETC=0; /* CLEAR RETURN CODE */ 00038000 SLR RETC,RETC 0117 00039000 * DESBUFP=ADDR(BUF1); /* SET POINTER TO BUFFER */ 00040000 LA DESBUFP,BUF1 0118 00041000 * PDREC=BUFPTR->PDREC; /* COPY RECORD HEADER */ 00042000 MVC PDREC(16,DESBUFP),PDREC(BUFPTR) 0119 00043000 * PDRKRCTY=PDRDESCC; /* SET RECORD TYPE TO PROBLEM 0120 00044000 * DESCRIPTION */ 00045000 MVC PDRKRCTY(2,DESBUFP),@CC00832 0120 00046000 * RNUM=0; /* INITIALIZE RECORD SEQUENCE 0121 00047000 * NUMBER */ 00048000 SLR RNUM,RNUM 0121 00049000 * ENDSW=0; /* CLEAR TERMINATION SWITCH */ 00050000 SLR ENDSW,ENDSW 0122 00051000 * DELSW=0; /* CLEAD MESSAGE DELETE SWITCH */ 00052000 SLR @04,@04 0123 00053000 ST @04,DELSW 0123 00054000 * K=1; /* INITIALIZE INDEX TO LINE */ 00055000 LA K,1 0124 00056000 * MYDMPTR=0; /* CLEAR POINTER TO INPUT DMCB */ 00057000 ST @04,MYDMPTR 0125 00058000 * DSDL=DDSDL; /* COPY LENGTH OF DSNAME */ 00059000 L @04,@PC00001+4 0126 00060000 LH @15,DDSDL(,@04) 0126 00061000 ST @15,DSDL 0126 00062000 * DSML=DDSML; /* COPY LENGTH OF MEMBER NAME */ 00063000 LH @15,DDSML(,@04) 0127 00064000 ST @15,DSML 0127 00065000 * DSPL=DDSPL; /* COPY LENGTH OF PASSWORD */ 00066000 LH @15,DDSPL(,@04) 0128 00067000 ST @15,DSPL 0128 00068000 */* BLSALLOC (ZZ2,MYDMPTR,MODEL,ACCMODE) DISP(SHR)DSN(DSDL,DDSD)MEMBER( 00069000 *SML,DDSM)PASSWORD(DSPL,DDSP) */ 00070000 * 0129 00071000 * DO; /* BLSALLOC 0129 00072000 * (ZZ2,MYDMPTR,MODEL,ACCMODE) DI 00073000 * SP(SHR)DSN(DSDL,DDSD)MEMBER(DS 00074000 * ML,DDSM)PASSWORD(DSPL,DDSP) */ 00075000 * IOPTLIST(1)=ADDR(ZZ2); /* ZZ2 POINTER PARAMETER */ 00076000 L @15,@PC00001 0130 00077000 ST @15,IOPTLIST 0130 00078000 * IOPTLIST(2)=ADDR(MYDMPTR); /* DMCB POINTER PARAMETER */ 00079000 LA @14,MYDMPTR 0131 00080000 ST @14,IOPTLIST+4 0131 00081000 * IOPTLIST(3)=ADDR(MODEL); /* MODEL NAME PARAMETER */ 00082000 LA @14,MODEL 0132 00083000 ST @14,IOPTLIST+8 0132 00084000 * IOPTLIST(4)=ADDR(ACCMODE); /* MAXIMUM ACCESS PARAMETER */ 00085000 LA @14,ACCMODE 0133 00086000 ST @14,IOPTLIST+12 0133 00087000 * IOPTLIST(5)=ADDR(DMCBALOC); /* INDICATE ALLOCATE REQUEST */ 00088000 LA @14,@CB01068 0134 00089000 ST @14,IOPTLIST+16 0134 00090000 * IOPTLIST(6)='02000000'X; /* 'DSN' KEY */ 00091000 MVC IOPTLIST+20(4),@CF01088 0135 00092000 * IOPTLIST(7)=ADDR(DSDL); /* 'DSN' LENGTH */ 00093000 LA @14,DSDL 0136 00094000 ST @14,IOPTLIST+24 0136 00095000 * IOPTLIST(8)=ADDR(DDSD); /* 'DSN' TEXT */ 00096000 L @14,DDSDP(,@04) 0137 00097000 ST @14,IOPTLIST+28 0137 00098000 * IOPTLIST(9)='03000000'X; /* 'MEMBER' KEY */ 00099000 MVC IOPTLIST+32(4),@CF01090 0138 00100000 * IOPTLIST(10)=ADDR(DSML); /* 'MEMBER' LENGTH */ 00101000 LA @14,DSML 0139 00102000 ST @14,IOPTLIST+36 0139 00103000 * IOPTLIST(11)=ADDR(DDSM); /* 'MEMBER' TEXT */ 00104000 L @14,DDSMP(,@04) 0140 00105000 ST @14,IOPTLIST+40 0140 00106000 * IOPTLIST(12)='50000000'X; /* 'PASSWORD' KEY */ 00107000 MVC IOPTLIST+44(4),@CF01091 0141 00108000 * IOPTLIST(13)=ADDR(DSPL); /* 'PASSWORD' LENGTH */ 00109000 LA @14,DSPL 0142 00110000 ST @14,IOPTLIST+48 0142 00111000 * IOPTLIST(14)=ADDR(DDSP); /* 'PASSWORD' TEXT */ 00112000 L @04,DDSPP(,@04) 0143 00113000 ST @04,IOPTLIST+52 0143 00114000 * IOPTLIST(15)='04000008'X; /* 'DISP' KEY, STATUS='SHR' */ 00115000 L @04,@CF01092 0144 00116000 ST @04,IOPTLIST+56 0144 00117000 * IOPTLIST(15)=IOPTLIST(15)|'80000000'X;/* PLIST END MARKER */ 00118000 O @04,@CF00066 0145 00119000 ST @04,IOPTLIST+56 0145 00120000 * RFY 0146 00121000 * (GPR01P, 0146 00122000 * GPR15P) RSTD; 0146 00123000 * GPR01P=ADDR(IOPTLIST); /* POINT REGISTER 1 TO PLIST */ 00124000 LA GPR01P,IOPTLIST 0147 00125000 * GPR15P=ZZ2ALOCP; /* BLSCALOC ENTRY POINT */ 00126000 L @04,@PC00001 0148 00127000 L GPR15P,ZZ2ALOCP(,@04) 0148 00128000 * CALL GPR15P->DMCBDMGR; /* PERFORM DATA SET ALLOCATION */ 00129000 BALR @14,@15 0149 00130000 * RFY 0150 00131000 * (GPR01P, 0150 00132000 * GPR15P) UNRSTD; 0150 00133000 * END; /* BLSALLOC 0151 00134000 * (ZZ2,MYDMPTR,MODEL,ACCMODE) DI 00135000 * SP(SHR)DSN(DSDL,DDSD)MEMBER(DS 00136000 * ML,DDSM)PASSWORD(DSPL,DDSP) */ 00137000 * RESPECIFY 0152 00138000 * RF RESTRICTED; 0152 00139000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 00140000 LTR RF,RF 0153 00141000 BZ @RF00153 0153 00142000 * DO; 0154 00143000 * RETC=RF; /* SAVE RETURN CODE */ 00144000 LR RETC,RF 0155 00145000 * RESPECIFY 0156 00146000 * R0 RESTRICTED; 0156 00147000 * MSGPTR=R0; /* SAVE MESSAGES FROM DM */ 00148000 ST R0,MSGPTR 0157 00149000 * RESPECIFY 0158 00150000 * (R0, 0158 00151000 * RF) UNRESTRICTED; 0158 00152000 * DO; /* BLSDMSG 0159 00153000 * (ZZ2,04011,MSGPTR,BLSDMSGS) 0159 00154000 * ROUTE(BOTH)LIFO */ 00155000 * CALL BLSDMSG0(ZZ2,04011,MSGPTR,BLSDMSGS,'10110000'B,0);/* 00156000 * BUILD MESSAGE */ 00157000 L @10,@PC00001 0160 00158000 ST @10,@AL00001 0160 00159000 LA @04,@CF01095 0160 00160000 ST @04,@AL00001+4 0160 00161000 LA @04,MSGPTR 0160 00162000 ST @04,@AL00001+8 0160 00163000 L @04,ZZ2MSGSP(,@10) 0160 00164000 ST @04,@AL00001+12 0160 00165000 LA @04,@CB01096 0160 00166000 ST @04,@AL00001+16 0160 00167000 LA @04,@CF00051 0160 00168000 ST @04,@AL00001+20 0160 00169000 L @15,ZZ2MSG0P(,@10) 0160 00170000 LA @01,@AL00001 0160 00171000 BALR @14,@15 0160 00172000 * END; /* BLSDMSG 0161 00173000 * (ZZ2,04011,MSGPTR,BLSDMSGS) 0161 00174000 * ROUTE(BOTH)LIFO */ 00175000 * END; 0162 00176000 * ELSE 0163 00177000 * CALL SEG1; /* NO PROBLEM */ 00178000 B @RC00153 0163 00179000 @RF00153 BAL @14,SEG1 0163 00180000 * RETURN CODE(RETC); /* ALL IS WELL */ 00181000 @RC00153 L @13,4(,@13) 0164 00182000 L @00,@SIZDATD 0164 00183000 LR @01,@11 0164 00184000 BLSUFRES R,LV=(0),A=(1) 00185000 LR @15,@05 0164 00186000 L @14,12(,@13) 0164 00187000 LM @00,@12,20(@13) 0164 00188000 BR @14 0164 00189000 EJECT 00190000 *SEG1: 0165 00191000 * PROCEDURE; 0165 00192000 SEG1 STM @14,@04,@SA00002 0165 00193000 STM @06,@12,@SA00002+28 0165 00194000 * DO; /* BLSOPEN(MYDMPTR)INPUT */ 00195000 * RFY 0167 00196000 * GPR01P RSTD; 0167 00197000 * GPR01P=MYDMPTR; /* ADDRESS DMCB */ 00198000 L GPR01P,MYDMPTR 0168 00199000 * RFY 0169 00200000 * DMCB BASED(GPR01P); 0169 00201000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB ? */ 00202000 * THEN 0170 00203000 LR @04,GPR01P 0170 00204000 N @04,@CF01102 0170 00205000 CLR @04,GPR01P 0170 00206000 BNE @RF00170 0170 00207000 CLC DMCBID(4,GPR01P),@CC01103 0170 00208000 BNE @RF00170 0170 00209000 * DO; 0171 00210000 * DMCBRQST=DMCBOPR; /* INDICATE OPEN REQUEST */ 00211000 MVI DMCBRQST(GPR01P),X'01' 0172 00212000 * DMCBOUT='0'B; /* INDICATE OPEN FOR INPUT */ 00213000 NI DMCBOUT(GPR01P),B'01111111' 0173 00214000 * CALL DMCBRI->DMCBDMGR; /* CALL BLSCRQST */ 00215000 L @15,DMCBRI(,GPR01P) 0174 00216000 BALR @14,@15 0174 00217000 * END; 0175 00218000 * ELSE 0176 00219000 * DO; 0176 00220000 B @RC00170 0176 00221000 @RF00170 DS 0H 0177 00222000 * RFY 0177 00223000 * (GPR00F, 0177 00224000 * GPR15F) RSTD; 0177 00225000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00226000 SLR GPR00F,GPR00F 0178 00227000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00228000 LA GPR15F,16 0179 00229000 * RFY 0180 00230000 * (GPR00F, 0180 00231000 * GPR15F); 0180 00232000 * END; 0181 00233000 * RFY 0182 00234000 * DMCB; 0182 00235000 @RC00170 DS 0H 0183 00236000 * RFY 0183 00237000 * GPR01P; 0183 00238000 * END; /* BLSOPEN(MYDMPTR)INPUT OPEN 0184 00239000 * DESCRIPTION DATASET */ 00240000 * RESPECIFY 0185 00241000 * RF RESTRICTED; 0185 00242000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 00243000 LTR RF,RF 0186 00244000 BZ @RF00186 0186 00245000 * DO; 0187 00246000 * IF RF=16 THEN /* IF INVALID DMCB */ 00247000 C RF,@CF00057 0188 00248000 BNE @RF00188 0188 00249000 * DO; /* ABEND(148) DUMP */ 00250000 * RESPECIFY 0190 00251000 * (GPR01F) RESTRICTED; 0190 00252000 * GPR01F=148; /* COMP CODE IN REG 1 */ 00253000 LA GPR01F,148 0191 00254000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00255000 O GPR01F,@CF00066 0192 00256000 * SVC(13); /* ISSUE ABEND SVC */ 00257000 SVC 13 0193 00258000 * RESPECIFY 0194 00259000 * (GPR01F) UNRESTRICTED; 0194 00260000 * END; /* ABEND(148) DUMP QUIT RIGHT 0195 00261000 * HERE */ 00262000 * ELSE 0196 00263000 * ; 0196 00264000 @RF00188 DS 0H 0197 00265000 * RETC=RF; /* SAVE RETURN CODE */ 00266000 LR RETC,RF 0197 00267000 * DO; /* BLSDMSG 0198 00268000 * (ZZ2,04012,DMCBMSG,BLSDMSGS) 00269000 * ROUTE(BOTH)LIFO */ 00270000 * CALL BLSDMSG0(ZZ2,04012,DMCBMSG,BLSDMSGS,'10110000'B,0);/* 00271000 * BUILD MESSAGE */ 00272000 L @14,@PC00001 0199 00273000 ST @14,@AL00001 0199 00274000 LA @10,@CF01109 0199 00275000 ST @10,@AL00001+4 0199 00276000 L @10,ZZ2ZZ1P(,@14) 0199 00277000 L @10,ZZ1PDRP(,@10) 0199 00278000 LA @10,DMCBMSG(,@10) 0199 00279000 ST @10,@AL00001+8 0199 00280000 L @10,ZZ2MSGSP(,@14) 0199 00281000 ST @10,@AL00001+12 0199 00282000 LA @10,@CB01096 0199 00283000 ST @10,@AL00001+16 0199 00284000 LA @10,@CF00051 0199 00285000 ST @10,@AL00001+20 0199 00286000 L @15,ZZ2MSG0P(,@14) 0199 00287000 LA @01,@AL00001 0199 00288000 BALR @14,@15 0199 00289000 * END; /* BLSDMSG 0200 00290000 * (ZZ2,04012,DMCBMSG,BLSDMSGS) 00291000 * ROUTE(BOTH)LIFO */ 00292000 * END; 0201 00293000 * ELSE 0202 00294000 * CALL SEG2; /* NO PROBLEM */ 00295000 B @RC00186 0202 00296000 @RF00186 BAL @14,SEG2 0202 00297000 * RESPECIFY 0203 00298000 * RF UNRESTRICTED; 0203 00299000 @RC00186 DS 0H 0204 00300000 * DO; /* BLSFREE (MYDMPTR) */ 00301000 * IF(MYDMPTR&'FFFFFFF8'X)=MYDMPTR&MYDMPTR->DMCBID='DMCB' THEN/* 00302000 * TEST FOR VALID DMCB */ 00303000 L @10,MYDMPTR 0205 00304000 LR @04,@10 0205 00305000 N @04,@CF01102 0205 00306000 CLR @04,@10 0205 00307000 BNE @RF00205 0205 00308000 CLC DMCBID(4,@10),@CC01103 0205 00309000 BNE @RF00205 0205 00310000 * DO; /* VALID DMCB */ 00311000 * CALL MYDMPTR->DMCBFR->DMCBDMGR(MYDMPTR->DMCB,MYDMPTR,0);/* 00312000 * CALL TO BLSCFREE */ 00313000 ST @10,@AL00001 0207 00314000 LA @04,MYDMPTR 0207 00315000 ST @04,@AL00001+4 0207 00316000 LA @04,@CF00051 0207 00317000 ST @04,@AL00001+8 0207 00318000 L @15,DMCBFR(,@10) 0207 00319000 LA @01,@AL00001 0207 00320000 BALR @14,@15 0207 00321000 * END; /* VALID DMCB */ 00322000 * ELSE 0209 00323000 * DO; /* INVALID DMCB */ 00324000 B @RC00205 0209 00325000 @RF00205 DS 0H 0210 00326000 * RFY 0210 00327000 * (GPR00F, 0210 00328000 * GPR15F) RSTD; 0210 00329000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00330000 SLR GPR00F,GPR00F 0211 00331000 * GPR15F=16; /* INVALID DMCB */ 00332000 LA GPR15F,16 0212 00333000 * RFY 0213 00334000 * (GPR00F, 0213 00335000 * GPR15F) UNRSTD; 0213 00336000 * END; /* INVALID DMCB */ 00337000 * END; /* BLSFREE (MYDMPTR) */ 00338000 * 0215 00339000 @RC00205 DS 0H 0216 00340000 * /*****************************************************************/ 00341000 * /* */ 00342000 * /* FREE INPUT DATA SET */ 00343000 * /* */ 00344000 * /*****************************************************************/ 00345000 * 0216 00346000 * RESPECIFY 0216 00347000 * RF RESTRICTED; 0216 00348000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 00349000 LTR RF,RF 0217 00350000 BZ @RF00217 0217 00351000 * DO; 0218 00352000 * IF RF=16 THEN /* IF INVALID DMCB */ 00353000 C RF,@CF00057 0219 00354000 BNE @RF00219 0219 00355000 * DO; /* ABEND(148) DUMP */ 00356000 * RESPECIFY 0221 00357000 * (GPR01F) RESTRICTED; 0221 00358000 * GPR01F=148; /* COMP CODE IN REG 1 */ 00359000 LA GPR01F,148 0222 00360000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00361000 O GPR01F,@CF00066 0223 00362000 * SVC(13); /* ISSUE ABEND SVC */ 00363000 SVC 13 0224 00364000 * RESPECIFY 0225 00365000 * (GPR01F) UNRESTRICTED; 0225 00366000 * END; /* ABEND(148) DUMP QUIT RIGHT 0226 00367000 * HERE */ 00368000 * ELSE 0227 00369000 * ; 0227 00370000 @RF00219 DS 0H 0228 00371000 * RETC=RF; /* SAVE RETURN CODE */ 00372000 LR RETC,RF 0228 00373000 * RESPECIFY 0229 00374000 * R0 RESTRICTED; 0229 00375000 * MSGPTR=R0; /* SAVE MESSAGES FROM DM */ 00376000 ST R0,MSGPTR 0230 00377000 * RESPECIFY 0231 00378000 * (R0, 0231 00379000 * RF) UNRESTRICTED; 0231 00380000 * DO; /* BLSDMSG 0232 00381000 * (ZZ2,04012,MSGPTR,BLSDMSGS) 0232 00382000 * ROUTE(BOTH)LIFO */ 00383000 * CALL BLSDMSG0(ZZ2,04012,MSGPTR,BLSDMSGS,'10110000'B,0);/* 00384000 * BUILD MESSAGE */ 00385000 L @10,@PC00001 0233 00386000 ST @10,@AL00001 0233 00387000 LA @04,@CF01109 0233 00388000 ST @04,@AL00001+4 0233 00389000 LA @04,MSGPTR 0233 00390000 ST @04,@AL00001+8 0233 00391000 L @04,ZZ2MSGSP(,@10) 0233 00392000 ST @04,@AL00001+12 0233 00393000 LA @04,@CB01096 0233 00394000 ST @04,@AL00001+16 0233 00395000 LA @04,@CF00051 0233 00396000 ST @04,@AL00001+20 0233 00397000 L @15,ZZ2MSG0P(,@10) 0233 00398000 LA @01,@AL00001 0233 00399000 BALR @14,@15 0233 00400000 * END; /* BLSDMSG 0234 00401000 * (ZZ2,04012,MSGPTR,BLSDMSGS) 0234 00402000 * ROUTE(BOTH)LIFO */ 00403000 * END; 0235 00404000 * ELSE 0236 00405000 * ; /* NO PROBLEM */ 00406000 @RF00217 DS 0H 0237 00407000 * END SEG1; 0237 00408000 @EL00002 DS 0H 0237 00409000 @EF00002 DS 0H 0237 00410000 @ER00002 LM @14,@04,@SA00002 0237 00411000 LM @06,@12,@SA00002+28 0237 00412000 BR @14 0237 00413000 EJECT 00414000 *SEG2: 0238 00415000 * PROCEDURE; 0238 00416000 * 0238 00417000 SEG2 STM @14,@04,@SA00003 0238 00418000 STM @06,@12,@SA00003+28 0238 00419000 * /*****************************************************************/ 00420000 * /* */ 00421000 * /* BLSSET (MYDMPTR) AREA(TEXTBUF)AREALEN(LENGTH(TEXTBUF))SEQ */ 00422000 * /* */ 00423000 * /*****************************************************************/ 00424000 * 0239 00425000 * DO; /* BLSSET (MYDMPTR) AREA(TEXTBUF) 00426000 * AREALEN(LENGTH(TEXTBUF))SEQ */ 00427000 * RFY 0240 00428000 * GPR01P RSTD; 0240 00429000 * GPR01P=MYDMPTR; /* ADDRESS DMCB */ 00430000 L GPR01P,MYDMPTR 0241 00431000 * RFY 0242 00432000 * DMCB BASED(GPR01P); 0242 00433000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB ? */ 00434000 * THEN 0243 00435000 LR @04,GPR01P 0243 00436000 N @04,@CF01102 0243 00437000 CLR @04,GPR01P 0243 00438000 BNE @RF00243 0243 00439000 CLC DMCBID(4,GPR01P),@CC01103 0243 00440000 BNE @RF00243 0243 00441000 * DO; 0244 00442000 * DMCBBUFP=ADDR(TEXTBUF); /* PLACE BUFFER ADDRESS IN DMCB */ 00443000 LA @04,TEXTBUF 0245 00444000 ST @04,DMCBBUFP(,GPR01P) 0245 00445000 * DMCBBLEN=LENGTH(TEXTBUF)&'7FFFFFFF'X;/* PLACE BUFFER LENGTH 00446000 * IN DMCB */ 00447000 MVC DMCBBLEN(4,GPR01P),@CF00929 0246 00448000 * DMCBKYD='0'B; /* INDICATE UNKEYED ACCESS */ 00449000 * DMCBRNO='0'B; /* INDICATE SEQUENTIAL */ 00450000 * DMCBAPX='0'B; /* RESET APPROX BIT */ 00451000 NI DMCBKYD(GPR01P),B'00011111' 0249 00452000 * DMCBRQST=DMCBSER; /* INDICATE SET REQUEST */ 00453000 MVI DMCBRQST(GPR01P),X'03' 0250 00454000 * CALL DMCBRI->DMCBDMGR; /* CALL BLSCRQST */ 00455000 L @15,DMCBRI(,GPR01P) 0251 00456000 BALR @14,@15 0251 00457000 * END; 0252 00458000 * ELSE 0253 00459000 * DO; 0253 00460000 B @RC00243 0253 00461000 @RF00243 DS 0H 0254 00462000 * RFY 0254 00463000 * (GPR00F, 0254 00464000 * GPR15F) RSTD; 0254 00465000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00466000 SLR GPR00F,GPR00F 0255 00467000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00468000 LA GPR15F,16 0256 00469000 * RFY 0257 00470000 * (GPR00F, 0257 00471000 * GPR15F); 0257 00472000 * END; 0258 00473000 * RFY 0259 00474000 * DMCB; 0259 00475000 @RC00243 DS 0H 0260 00476000 * RFY 0260 00477000 * GPR01P; 0260 00478000 * END; /* BLSSET (MYDMPTR) AREA(TEXTBUF) 00479000 * AREALEN(LENGTH(TEXTBUF))SEQ */ 00480000 * RESPECIFY 0262 00481000 * RF RESTRICTED; 0262 00482000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 00483000 LTR RF,RF 0263 00484000 BZ @RF00263 0263 00485000 * DO; 0264 00486000 * IF RF=16 THEN /* IF INVALID DMCB */ 00487000 C RF,@CF00057 0265 00488000 BNE @RF00265 0265 00489000 * DO; /* ABEND(148) DUMP */ 00490000 * RESPECIFY 0267 00491000 * (GPR01F) RESTRICTED; 0267 00492000 * GPR01F=148; /* COMP CODE IN REG 1 */ 00493000 LA GPR01F,148 0268 00494000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00495000 O GPR01F,@CF00066 0269 00496000 * SVC(13); /* ISSUE ABEND SVC */ 00497000 SVC 13 0270 00498000 * RESPECIFY 0271 00499000 * (GPR01F) UNRESTRICTED; 0271 00500000 * END; /* ABEND(148) DUMP QUIT RIGHT 0272 00501000 * HERE */ 00502000 * ELSE 0273 00503000 * ; 0273 00504000 @RF00265 DS 0H 0274 00505000 * RETC=RF; /* SAVE RETURN CODE */ 00506000 LR RETC,RF 0274 00507000 * RESPECIFY 0275 00508000 * RF UNRESTRICTED; 0275 00509000 * RESPECIFY 0276 00510000 * DMCB BASED(MYDMPTR); 0276 00511000 * DO; /* BLSDMSG 0277 00512000 * (ZZ2,04012,DMCBMSG,BLSDMSGS) 00513000 * ROUTE(BOTH)LIFO */ 00514000 * CALL BLSDMSG0(ZZ2,04012,DMCBMSG,BLSDMSGS,'10110000'B,0);/* 00515000 * BUILD MESSAGE */ 00516000 L @10,@PC00001 0278 00517000 ST @10,@AL00001 0278 00518000 LA @04,@CF01109 0278 00519000 ST @04,@AL00001+4 0278 00520000 L @04,MYDMPTR 0278 00521000 LA @04,DMCBMSG(,@04) 0278 00522000 ST @04,@AL00001+8 0278 00523000 L @04,ZZ2MSGSP(,@10) 0278 00524000 ST @04,@AL00001+12 0278 00525000 LA @04,@CB01096 0278 00526000 ST @04,@AL00001+16 0278 00527000 LA @04,@CF00051 0278 00528000 ST @04,@AL00001+20 0278 00529000 L @15,ZZ2MSG0P(,@10) 0278 00530000 LA @01,@AL00001 0278 00531000 BALR @14,@15 0278 00532000 * END; /* BLSDMSG 0279 00533000 * (ZZ2,04012,DMCBMSG,BLSDMSGS) 00534000 * ROUTE(BOTH)LIFO */ 00535000 * END; 0280 00536000 * ELSE 0281 00537000 * CALL SEG3; /* NO PROBLEM */ 00538000 B @RC00263 0281 00539000 @RF00263 BAL @14,SEG3 0281 00540000 * DO; /* BLSCLOSE(MYDMPTR) */ 00541000 @RC00263 DS 0H 0283 00542000 * RFY 0283 00543000 * GPR01P RSTD; 0283 00544000 * GPR01P=MYDMPTR; /* ADDRESS THE DMCB */ 00545000 L GPR01P,MYDMPTR 0284 00546000 * RFY 0285 00547000 * DMCB BASED(GPR01P); 0285 00548000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB ? */ 00549000 * THEN 0286 00550000 LR @10,GPR01P 0286 00551000 N @10,@CF01102 0286 00552000 CLR @10,GPR01P 0286 00553000 BNE @RF00286 0286 00554000 CLC DMCBID(4,GPR01P),@CC01103 0286 00555000 BNE @RF00286 0286 00556000 * DO; 0287 00557000 * DMCBRQST=DMCBCLR; /* INDICATE CLOSE REQUEST */ 00558000 MVI DMCBRQST(GPR01P),X'02' 0288 00559000 * DMCBTMP='0'B; /* INDICATE NON TEMP CLOSE */ 00560000 * DMCBRM6='0'B; /* INDICATE */ 00561000 * DMCBRM5='0'B; /* DISP OPTION */ 00562000 NI DMCBTMP(GPR01P),B'00011111' 0291 00563000 * CALL DMCBRI->DMCBDMGR; /* CALL BLSCRQST */ 00564000 L @15,DMCBRI(,GPR01P) 0292 00565000 BALR @14,@15 0292 00566000 * END; 0293 00567000 * ELSE 0294 00568000 * DO; 0294 00569000 B @RC00286 0294 00570000 @RF00286 DS 0H 0295 00571000 * RFY 0295 00572000 * (GPR00F, 0295 00573000 * GPR15F) RSTD; 0295 00574000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00575000 SLR GPR00F,GPR00F 0296 00576000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00577000 LA GPR15F,16 0297 00578000 * RFY 0298 00579000 * (GPR00F, 0298 00580000 * GPR15F); 0298 00581000 * END; 0299 00582000 * RFY 0300 00583000 * DMCB; 0300 00584000 @RC00286 DS 0H 0301 00585000 * RFY 0301 00586000 * GPR01P; 0301 00587000 * END; /* BLSCLOSE(MYDMPTR) CLOSE INPUT 00588000 * DATA SET */ 00589000 * RESPECIFY 0303 00590000 * RF RESTRICTED; 0303 00591000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 00592000 LTR RF,RF 0304 00593000 BZ @RF00304 0304 00594000 * DO; 0305 00595000 * IF RF=16 THEN /* IF INVALID DMCB */ 00596000 C RF,@CF00057 0306 00597000 BNE @RF00306 0306 00598000 * DO; /* ABEND(148) DUMP */ 00599000 * RESPECIFY 0308 00600000 * (GPR01F) RESTRICTED; 0308 00601000 * GPR01F=148; /* COMP CODE IN REG 1 */ 00602000 LA GPR01F,148 0309 00603000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00604000 O GPR01F,@CF00066 0310 00605000 * SVC(13); /* ISSUE ABEND SVC */ 00606000 SVC 13 0311 00607000 * RESPECIFY 0312 00608000 * (GPR01F) UNRESTRICTED; 0312 00609000 * END; /* ABEND(148) DUMP QUIT RIGHT 0313 00610000 * HERE */ 00611000 * ELSE 0314 00612000 * ; 0314 00613000 @RF00306 DS 0H 0315 00614000 * RETC=RF; /* SAVE RETURN CODE */ 00615000 LR RETC,RF 0315 00616000 * RESPECIFY 0316 00617000 * RF UNRESTRICTED; 0316 00618000 * RESPECIFY 0317 00619000 * DMCB BASED(MYDMPTR); 0317 00620000 * DO; /* BLSDMSG 0318 00621000 * (ZZ2,04012,DMCBMSG,BLSDMSGS) 00622000 * ROUTE(BOTH)LIFO */ 00623000 * CALL BLSDMSG0(ZZ2,04012,DMCBMSG,BLSDMSGS,'10110000'B,0);/* 00624000 * BUILD MESSAGE */ 00625000 L @10,@PC00001 0319 00626000 ST @10,@AL00001 0319 00627000 LA @04,@CF01109 0319 00628000 ST @04,@AL00001+4 0319 00629000 L @04,MYDMPTR 0319 00630000 LA @04,DMCBMSG(,@04) 0319 00631000 ST @04,@AL00001+8 0319 00632000 L @04,ZZ2MSGSP(,@10) 0319 00633000 ST @04,@AL00001+12 0319 00634000 LA @04,@CB01096 0319 00635000 ST @04,@AL00001+16 0319 00636000 LA @04,@CF00051 0319 00637000 ST @04,@AL00001+20 0319 00638000 L @15,ZZ2MSG0P(,@10) 0319 00639000 LA @01,@AL00001 0319 00640000 BALR @14,@15 0319 00641000 * END; /* BLSDMSG 0320 00642000 * (ZZ2,04012,DMCBMSG,BLSDMSGS) 00643000 * ROUTE(BOTH)LIFO */ 00644000 * END; 0321 00645000 * ELSE 0322 00646000 * ; /* NO PROBLEM */ 00647000 @RF00304 DS 0H 0323 00648000 * RETURN CODE(RETC); 0323 00649000 LR @15,RETC 0323 00650000 L @14,@SA00003 0323 00651000 LM @00,@04,@SA00003+8 0323 00652000 LM @06,@12,@SA00003+28 0323 00653000 BR @14 0323 00654000 * END SEG2; 0324 00655000 EJECT 00656000 *SEG3: 0325 00657000 * PROCEDURE; 0325 00658000 SEG3 STM @14,@04,@SA00004 0325 00659000 STM @06,@12,@SA00004+28 0325 00660000 * DO WHILE ENDSW=0&RETC=0; /* COPY TEXT OF DESCRIPTION */ 00661000 * 0326 00662000 B @DE00326 0326 00663000 @DL00326 DS 0H 0327 00664000 * /***************************************************************/ 00665000 * /* */ 00666000 * /* BLSGET (MYDMPTR) */ 00667000 * /* */ 00668000 * /***************************************************************/ 00669000 * 0327 00670000 * DO; /* BLSGET (MYDMPTR) */ 00671000 * RFY 0328 00672000 * GPR01P RSTD; 0328 00673000 * GPR01P=MYDMPTR; /* ADDRESS DMCB */ 00674000 L GPR01P,MYDMPTR 0329 00675000 * RFY 0330 00676000 * DMCB BASED(GPR01P); 0330 00677000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB ? */ 00678000 * THEN 0331 00679000 LR @04,GPR01P 0331 00680000 N @04,@CF01102 0331 00681000 CLR @04,GPR01P 0331 00682000 BNE @RF00331 0331 00683000 CLC DMCBID(4,GPR01P),@CC01103 0331 00684000 BNE @RF00331 0331 00685000 * DO; 0332 00686000 * DMCBUPD='0'B; /* DEFAULT FOR GET IS NUP */ 00687000 NI DMCBUPD(GPR01P),B'11101111' 0333 00688000 * DMCBRQST=DMCBGER; /* INDICATE GET REQUEST */ 00689000 MVI DMCBRQST(GPR01P),X'04' 0334 00690000 * CALL DMCBRI->DMCBDMGR; /* CALL BLSCRQST */ 00691000 L @15,DMCBRI(,GPR01P) 0335 00692000 BALR @14,@15 0335 00693000 * END; 0336 00694000 * ELSE 0337 00695000 * DO; 0337 00696000 B @RC00331 0337 00697000 @RF00331 DS 0H 0338 00698000 * RFY 0338 00699000 * (GPR00F, 0338 00700000 * GPR15F) RSTD; 0338 00701000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00702000 SLR GPR00F,GPR00F 0339 00703000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00704000 LA GPR15F,16 0340 00705000 * RFY 0341 00706000 * (GPR00F, 0341 00707000 * GPR15F); 0341 00708000 * END; 0342 00709000 * RFY 0343 00710000 * DMCB; 0343 00711000 @RC00331 DS 0H 0344 00712000 * RFY 0344 00713000 * GPR01P; 0344 00714000 * END; /* BLSGET (MYDMPTR) GET THE NEXT 00715000 * RECORD */ 00716000 * RESPECIFY 0346 00717000 * RF RESTRICTED; 0346 00718000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 00719000 LTR RF,RF 0347 00720000 BZ @RF00347 0347 00721000 * DO; 0348 00722000 * IF RF=16 THEN /* IF INVALID DMCB */ 00723000 C RF,@CF00057 0349 00724000 BNE @RF00349 0349 00725000 * DO; /* ABEND(148) DUMP */ 00726000 * RESPECIFY 0351 00727000 * (GPR01F) RESTRICTED; 0351 00728000 * GPR01F=148; /* COMP CODE IN REG 1 */ 00729000 LA GPR01F,148 0352 00730000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00731000 O GPR01F,@CF00066 0353 00732000 * SVC(13); /* ISSUE ABEND SVC */ 00733000 SVC 13 0354 00734000 * RESPECIFY 0355 00735000 * (GPR01F) UNRESTRICTED; 0355 00736000 * END; /* ABEND(148) DUMP QUIT RIGHT 0356 00737000 * HERE */ 00738000 * ELSE 0357 00739000 * ; 0357 00740000 @RF00349 DS 0H 0358 00741000 * ENDSW=1; /* TERMINATE COPY LOOP */ 00742000 LA ENDSW,1 0358 00743000 * IF RF^=8 THEN /* IF NOT END OF FILE */ 00744000 LA @14,8 0359 00745000 CR RF,@14 0359 00746000 BE @RF00359 0359 00747000 * DO; 0360 00748000 * RETC=8; /* SET RETURN CODE TO 8 */ 00749000 LR RETC,@14 0361 00750000 * RESPECIFY 0362 00751000 * RF UNRESTRICTED; 0362 00752000 * RESPECIFY 0363 00753000 * DMCB BASED(MYDMPTR); 0363 00754000 * DO; /* BLSDMSG 0364 00755000 * (ZZ2,04012,DMCBMSG,BLSDMSGS) 00756000 * ROUTE(BOTH)LIFO */ 00757000 * CALL BLSDMSG0(ZZ2,04012,DMCBMSG,BLSDMSGS,'10110000'B,0) 00758000 * ; /* BUILD MESSAGE */ 00759000 L @04,@PC00001 0365 00760000 ST @04,@AL00001 0365 00761000 LA @15,@CF01109 0365 00762000 ST @15,@AL00001+4 0365 00763000 L @01,MYDMPTR 0365 00764000 LA @15,DMCBMSG(,@01) 0365 00765000 ST @15,@AL00001+8 0365 00766000 L @01,ZZ2MSGSP(,@04) 0365 00767000 ST @01,@AL00001+12 0365 00768000 LA @15,@CB01096 0365 00769000 ST @15,@AL00001+16 0365 00770000 LA @15,@CF00051 0365 00771000 ST @15,@AL00001+20 0365 00772000 L @15,ZZ2MSG0P(,@04) 0365 00773000 LA @01,@AL00001 0365 00774000 BALR @14,@15 0365 00775000 * END; /* BLSDMSG 0366 00776000 * (ZZ2,04012,DMCBMSG,BLSDMSGS) 00777000 * ROUTE(BOTH)LIFO */ 00778000 * END; 0367 00779000 * ELSE 0368 00780000 * IF DMCBMSG^=0 THEN /* END OF FILE */ 00781000 B @RC00359 0368 00782000 @RF00359 L @04,MYDMPTR 0368 00783000 L @15,DMCBMSG(,@04) 0368 00784000 LTR @15,@15 0368 00785000 BZ @RF00368 0368 00786000 * DO; /* BLSDMSG 0369 00787000 * (ZZ2,-1,DMCBMSG,BLSDMSGS) */ 00788000 * CALL BLSDMSG0(ZZ2,-1,DMCBMSG,BLSDMSGS,'00000000'B,0); 00789000 L @15,@PC00001 0370 00790000 ST @15,@AL00001 0370 00791000 LA @14,@CF01125 0370 00792000 ST @14,@AL00001+4 0370 00793000 LA @04,DMCBMSG(,@04) 0370 00794000 ST @04,@AL00001+8 0370 00795000 L @04,ZZ2MSGSP(,@15) 0370 00796000 ST @04,@AL00001+12 0370 00797000 LA @04,@CB01126 0370 00798000 ST @04,@AL00001+16 0370 00799000 LA @04,@CF00051 0370 00800000 ST @04,@AL00001+20 0370 00801000 L @15,ZZ2MSG0P(,@15) 0370 00802000 LA @01,@AL00001 0370 00803000 BALR @14,@15 0370 00804000 * /* BUILD MESSAGE */ 00805000 * END; /* BLSDMSG 0371 00806000 * (ZZ2,-1,DMCBMSG,BLSDMSGS) 0371 00807000 * PURGE MESSAGES */ 00808000 * ELSE 0372 00809000 * ; /* NO MESSAGES */ 00810000 @RF00368 DS 0H 0373 00811000 * END; 0373 00812000 * ELSE 0374 00813000 * DO; 0374 00814000 B @RC00347 0374 00815000 @RF00347 DS 0H 0375 00816000 * PDRDESCR(K)=TEXTLINE; /* COPY LINE OF TEXT */ 00817000 LR @04,K 0375 00818000 MH @04,@CH00813 0375 00819000 ALR @04,DESBUFP 0375 00820000 AL @04,@CF01161 0375 00821000 MVC PDRDESCR-16(72,@04),TEXTLINE 0375 00822000 * K=K+1; /* STEP LINE INDEX */ 00823000 LA @04,1 0376 00824000 ALR K,@04 0376 00825000 * BUFPTR->PDRDESCL=BUFPTR->PDRDESCL+1;/* STEP LINE COUNT */ 00826000 AL @04,PDRDESCL(,BUFPTR) 0377 00827000 ST @04,PDRDESCL(,BUFPTR) 0377 00828000 * IF K>PDRDEMAX THEN /* IF DESCRIPTION RECORD FULL */ 00829000 C K,@CF00147 0378 00830000 BNH @RF00378 0378 00831000 * DO; 0379 00832000 * CALL WRITEIT; /* GO WRITE IT OUT */ 00833000 BAL @14,WRITEIT 0380 00834000 * RESPECIFY 0381 00835000 * RF RESTRICTED; 0381 00836000 * RETC=RF; /* SAVE RETURN CODE */ 00837000 LR RETC,RF 0382 00838000 * RESPECIFY 0383 00839000 * RF UNRESTRICTED; 0383 00840000 * END; 0384 00841000 * ELSE 0385 00842000 * ; /* NOTHING ELSE TO DO */ 00843000 @RF00378 DS 0H 0386 00844000 * END; 0386 00845000 * END; /* END OF COPY LOOP */ 00846000 @RC00347 DS 0H 0387 00847000 @DE00326 SLR @04,@04 0387 00848000 CR ENDSW,@04 0387 00849000 BNE @DC00326 0387 00850000 CR RETC,@04 0387 00851000 BE @DL00326 0387 00852000 @DC00326 DS 0H 0388 00853000 * IF K>1&RETC=0 THEN /* IF ANY LINES IN RECORD */ 00854000 C K,@CF00046 0388 00855000 BNH @RF00388 0388 00856000 LTR RETC,RETC 0388 00857000 BNZ @RF00388 0388 00858000 * DO; /* WRITE OUT THE LAST ONE */ 00859000 * K=K-1; /* STEP BACK TO TRUE LINE COUNT */ 00860000 BCTR K,0 0390 00861000 * IF RNUM<10000 THEN 0391 00862000 C RNUM,@CF01128 0391 00863000 BNL @RF00391 0391 00864000 * DO; 0392 00865000 * CVD(RNUM,PACKED); /* CONVERT RECORD NUMBER TO 0393 00866000 * DECIMAL */ 00867000 CVD RNUM,PACKED 0393 00868000 * UNPK(PDRRECSQ,PACKED); /* UNPACK IT */ 00869000 UNPK PDRRECSQ(4,DESBUFP),PACKED(8) 0394 00870000 * PDRRECSQ(LENGTH(PDRRECSQ))=PDRRECSQ(LENGTH(PDRRECSQ))|'0'; 00871000 OI PDRRECSQ+3(DESBUFP),C'0' 0395 00872000 * /* CORRECT ZONE OF LAST DIGIT */ 00873000 * 0396 00874000 * /*********************************************************/ 00875000 * /* */ 00876000 * /* BLSPUT (ZZ1PDRP) */ 00877000 * /* AREA(PDREC)RECLEN(LENGTH(PDREC)+K*LENGTH(PDRDESC)) */ 00878000 * /* */ 00879000 * /*********************************************************/ 00880000 * 0396 00881000 * DO; /* BLSPUT (ZZ1PDRP) AREA(PDREC)RE 00882000 * CLEN(LENGTH(PDREC)+K*LENGTH(PD 00883000 * RDESC)) */ 00884000 * RFY 0397 00885000 * GPR01P RSTD; 0397 00886000 * GPR01P=ZZ1PDRP; /* ADDRESS DMCB */ 00887000 L @10,@PC00001 0398 00888000 L @10,ZZ2ZZ1P(,@10) 0398 00889000 L GPR01P,ZZ1PDRP(,@10) 0398 00890000 * RFY 0399 00891000 * DMCB BASED(GPR01P); 0399 00892000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID 00893000 * DMCB ? */ 00894000 * THEN 0400 00895000 LR @10,GPR01P 0400 00896000 N @10,@CF01102 0400 00897000 CLR @10,GPR01P 0400 00898000 BNE @RF00400 0400 00899000 CLC DMCBID(4,GPR01P),@CC01103 0400 00900000 BNE @RF00400 0400 00901000 * DO; 0401 00902000 * DMCBBUFP=ADDR(PDREC);/* PLACE BUFFER ADDRESS IN 0402 00903000 * DMCB */ 00904000 ST DESBUFP,DMCBBUFP(,GPR01P) 0402 00905000 * DMCBORL=(LENGTH(PDREC)+K*LENGTH(PDRDESC))&'7FFFFFFF'X 00906000 * ; /* PLACE RECORD LENGTH IN DMCB */ 00907000 LR @10,K 0403 00908000 MH @10,@CH00813 0403 00909000 AL @10,@CF00057 0403 00910000 N @10,@CF01115 0403 00911000 ST @10,DMCBORL(,GPR01P) 0403 00912000 * DMCBRQST=DMCBPUR; /* INDICATE PUT REQUEST */ 00913000 MVI DMCBRQST(GPR01P),X'05' 0404 00914000 * CALL DMCBRI->DMCBDMGR;/* CALL BLSCRQST */ 00915000 L @15,DMCBRI(,GPR01P) 0405 00916000 BALR @14,@15 0405 00917000 * END; 0406 00918000 * ELSE 0407 00919000 * DO; 0407 00920000 B @RC00400 0407 00921000 @RF00400 DS 0H 0408 00922000 * RFY 0408 00923000 * (GPR00F, 0408 00924000 * GPR15F) RSTD; 0408 00925000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00926000 SLR GPR00F,GPR00F 0409 00927000 * GPR15F=16; /* INDICATE INVALID DMCB */ 00928000 LA GPR15F,16 0410 00929000 * RFY 0411 00930000 * (GPR00F, 0411 00931000 * GPR15F); 0411 00932000 * END; 0412 00933000 * RFY 0413 00934000 * DMCB; 0413 00935000 @RC00400 DS 0H 0414 00936000 * RFY 0414 00937000 * GPR01P; 0414 00938000 * END; /* BLSPUT (ZZ1PDRP) AREA(PDREC)RE 00939000 * CLEN(LENGTH(PDREC)+K*LENGTH(PD 00940000 * RDESC)) WRITE OUT LAST 0415 00941000 * DESCRIPTION RECORD */ 00942000 * RESPECIFY 0416 00943000 * RF RESTRICTED; 0416 00944000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 00945000 LTR RF,RF 0417 00946000 BZ @RF00417 0417 00947000 * DO; 0418 00948000 * IF RF=16 THEN /* IF INVALID DMCB */ 00949000 C RF,@CF00057 0419 00950000 BNE @RF00419 0419 00951000 * DO; /* ABEND(148) DUMP */ 00952000 * RESPECIFY 0421 00953000 * (GPR01F) RESTRICTED; 0421 00954000 * GPR01F=148; /* COMP CODE IN REG 1 */ 00955000 LA GPR01F,148 0422 00956000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS 00957000 * FLAG */ 00958000 O GPR01F,@CF00066 0423 00959000 * SVC(13); /* ISSUE ABEND SVC */ 00960000 SVC 13 0424 00961000 * RESPECIFY 0425 00962000 * (GPR01F) UNRESTRICTED; 0425 00963000 * END; /* ABEND(148) DUMP QUIT RIGHT 0426 00964000 * HERE */ 00965000 * ELSE 0427 00966000 * ; 0427 00967000 @RF00419 DS 0H 0428 00968000 * RETC=RF; /* SAVE RETURN CODE */ 00969000 LR RETC,RF 0428 00970000 * RESPECIFY 0429 00971000 * RF UNRESTRICTED; 0429 00972000 * DO; /* BLSDMSG 0430 00973000 * (ZZ2,04044,DMCBMSG,BLSDMSGS) 00974000 * ROUTE(BOTH)LIFO */ 00975000 * CALL BLSDMSG0(ZZ2,04044,DMCBMSG,BLSDMSGS,'10110000'B, 00976000 * 0); /* BUILD MESSAGE */ 00977000 L @10,@PC00001 0431 00978000 ST @10,@AL00001 0431 00979000 LA @04,@CF01132 0431 00980000 ST @04,@AL00001+4 0431 00981000 L @04,ZZ2ZZ1P(,@10) 0431 00982000 L @04,ZZ1PDRP(,@04) 0431 00983000 LA @04,DMCBMSG(,@04) 0431 00984000 ST @04,@AL00001+8 0431 00985000 L @04,ZZ2MSGSP(,@10) 0431 00986000 ST @04,@AL00001+12 0431 00987000 LA @04,@CB01096 0431 00988000 ST @04,@AL00001+16 0431 00989000 LA @04,@CF00051 0431 00990000 ST @04,@AL00001+20 0431 00991000 L @15,ZZ2MSG0P(,@10) 0431 00992000 LA @01,@AL00001 0431 00993000 BALR @14,@15 0431 00994000 * END; /* BLSDMSG 0432 00995000 * (ZZ2,04044,DMCBMSG,BLSDMSGS) 00996000 * ROUTE(BOTH)LIFO */ 00997000 * END; 0433 00998000 * ELSE 0434 00999000 * ; /* NO PROBLEM */ 01000000 @RF00417 DS 0H 0435 01001000 * END; 0435 01002000 * ELSE 0436 01003000 * CALL OVF; /* RECORD NUMBER OVERFLOW */ 01004000 B @RC00391 0436 01005000 @RF00391 BAL @14,OVF 0436 01006000 * END; 0437 01007000 * ELSE 0438 01008000 * ; /* CAME OUT EVEN WITH NOTHING 0438 01009000 * LEFT OVER (THAT'S UNUSUAL!) */ 01010000 @RF00388 DS 0H 0439 01011000 * END SEG3; 0439 01012000 @EL00004 DS 0H 0439 01013000 @EF00004 DS 0H 0439 01014000 @ER00004 LM @14,@04,@SA00004 0439 01015000 LM @06,@12,@SA00004+28 0439 01016000 BR @14 0439 01017000 EJECT 01018000 *OVF: 0440 01019000 * PROCEDURE; /* RECORD SEQUENCE # OVERFLOW */ 01020000 OVF STM @14,@12,@SA00005 0440 01021000 * IF DELSW=0 THEN 0441 01022000 L @10,DELSW 0441 01023000 LTR @10,@10 0441 01024000 BNZ @RF00441 0441 01025000 * DO; 0442 01026000 * DELSW=1; 0443 01027000 MVC DELSW(4),@CF00046 0443 01028000 * DO; /* BLSDMSG 0444 01029000 * (ZZ2,04070,DMCBMSG,BLSDMSGS) 01030000 * ROUTE(BOTH)LIFO */ 01031000 * CALL BLSDMSG0(ZZ2,04070,DMCBMSG,BLSDMSGS,'10110000'B,0);/* 01032000 * BUILD MESSAGE */ 01033000 L @10,@PC00001 0445 01034000 ST @10,@AL00001 0445 01035000 LA @15,@CF01137 0445 01036000 ST @15,@AL00001+4 0445 01037000 L @01,ZZ2ZZ1P(,@10) 0445 01038000 L @01,ZZ1PDRP(,@01) 0445 01039000 LA @15,DMCBMSG(,@01) 0445 01040000 ST @15,@AL00001+8 0445 01041000 L @01,ZZ2MSGSP(,@10) 0445 01042000 ST @01,@AL00001+12 0445 01043000 LA @15,@CB01096 0445 01044000 ST @15,@AL00001+16 0445 01045000 LA @15,@CF00051 0445 01046000 ST @15,@AL00001+20 0445 01047000 L @15,ZZ2MSG0P(,@10) 0445 01048000 LA @01,@AL00001 0445 01049000 BALR @14,@15 0445 01050000 * END; /* BLSDMSG 0446 01051000 * (ZZ2,04070,DMCBMSG,BLSDMSGS) 01052000 * ROUTE(BOTH)LIFO */ 01053000 * END; 0447 01054000 * ELSE 0448 01055000 * ; 0448 01056000 @RF00441 DS 0H 0449 01057000 * END OVF; 0449 01058000 @EL00005 DS 0H 0449 01059000 @EF00005 DS 0H 0449 01060000 @ER00005 LM @14,@12,@SA00005 0449 01061000 BR @14 0449 01062000 EJECT 01063000 *WRITEIT: 0450 01064000 * PROCEDURE; 0450 01065000 WRITEIT STM @14,@06,@SA00006 0450 01066000 STM @09,@12,@SA00006+36 0450 01067000 * K=1; /* RESET LINE NUMBER */ 01068000 LA @10,1 0451 01069000 LR K,@10 0451 01070000 * IF RNUM<10000 THEN 0452 01071000 C RNUM,@CF01128 0452 01072000 BNL @RF00452 0452 01073000 * DO; 0453 01074000 * CVD(RNUM,PACKED); /* CONVERT RSEQUENCE NUMBER TO */ 01075000 CVD RNUM,PACKED 0454 01076000 * UNPK(PDRRECSQ,PACKED); /* DECIMAL AND UNPACK IT */ 01077000 UNPK PDRRECSQ(4,DESBUFP),PACKED(8) 0455 01078000 * PDRRECSQ(LENGTH(PDRRECSQ))=PDRRECSQ(LENGTH(PDRRECSQ))|'0';/* 01079000 * CORRECT THE ZONE OF LAST DIGIT*/ 01080000 OI PDRRECSQ+3(DESBUFP),C'0' 0456 01081000 * RNUM=RNUM+1; /* BUMP THE SEQUENCE NUMBER */ 01082000 * 0457 01083000 ALR RNUM,@10 0457 01084000 * /*************************************************************/ 01085000 * /* */ 01086000 * /* BLSPUT (ZZ1PDRP) */ 01087000 * /* AREA(PDREC)RECLEN(LENGTH(PDREC)+PDRDEMAX*LENGTH(PDRDESC)) */ 01088000 * /* */ 01089000 * /*************************************************************/ 01090000 * 0458 01091000 * DO; /* BLSPUT (ZZ1PDRP) AREA(PDREC)RE 01092000 * CLEN(LENGTH(PDREC)+PDRDEMAX*LE 01093000 * NGTH(PDRDESC)) */ 01094000 * RFY 0459 01095000 * GPR01P RSTD; 0459 01096000 * GPR01P=ZZ1PDRP; /* ADDRESS DMCB */ 01097000 L @10,@PC00001 0460 01098000 L @10,ZZ2ZZ1P(,@10) 0460 01099000 L GPR01P,ZZ1PDRP(,@10) 0460 01100000 * RFY 0461 01101000 * DMCB BASED(GPR01P); 0461 01102000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* VALID DMCB 01103000 * ? */ 01104000 * THEN 0462 01105000 LR @10,GPR01P 0462 01106000 N @10,@CF01102 0462 01107000 CLR @10,GPR01P 0462 01108000 BNE @RF00462 0462 01109000 CLC DMCBID(4,GPR01P),@CC01103 0462 01110000 BNE @RF00462 0462 01111000 * DO; 0463 01112000 * DMCBBUFP=ADDR(PDREC); /* PLACE BUFFER ADDRESS IN DMCB */ 01113000 ST DESBUFP,DMCBBUFP(,GPR01P) 0464 01114000 * DMCBORL=(LENGTH(PDREC)+PDRDEMAX*LENGTH(PDRDESC))& 0465 01115000 * '7FFFFFFF'X; /* PLACE RECORD LENGTH IN DMCB */ 01116000 MVC DMCBORL(4,GPR01P),@CF01154 0465 01117000 * DMCBRQST=DMCBPUR; /* INDICATE PUT REQUEST */ 01118000 MVI DMCBRQST(GPR01P),X'05' 0466 01119000 * CALL DMCBRI->DMCBDMGR;/* CALL BLSCRQST */ 01120000 L @15,DMCBRI(,GPR01P) 0467 01121000 BALR @14,@15 0467 01122000 * END; 0468 01123000 * ELSE 0469 01124000 * DO; 0469 01125000 B @RC00462 0469 01126000 @RF00462 DS 0H 0470 01127000 * RFY 0470 01128000 * (GPR00F, 0470 01129000 * GPR15F) RSTD; 0470 01130000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 01131000 SLR GPR00F,GPR00F 0471 01132000 * GPR15F=16; /* INDICATE INVALID DMCB */ 01133000 LA GPR15F,16 0472 01134000 * RFY 0473 01135000 * (GPR00F, 0473 01136000 * GPR15F); 0473 01137000 * END; 0474 01138000 * RFY 0475 01139000 * DMCB; 0475 01140000 @RC00462 DS 0H 0476 01141000 * RFY 0476 01142000 * GPR01P; 0476 01143000 * END; /* BLSPUT (ZZ1PDRP) AREA(PDREC)RE 01144000 * CLEN(LENGTH(PDREC)+PDRDEMAX*LE 01145000 * NGTH(PDRDESC)) WRITE OUT THE 01146000 * RECORD */ 01147000 * RESPECIFY 0478 01148000 * RF RESTRICTED; 0478 01149000 * IF RF^=0 THEN /* IF RETURN CODE NOT ZERO */ 01150000 LTR RF,RF 0479 01151000 BZ @RF00479 0479 01152000 * DO; 0480 01153000 * IF RF=16 THEN /* IF INVALID DMCB */ 01154000 C RF,@CF00057 0481 01155000 BNE @RF00481 0481 01156000 * DO; /* ABEND(148) DUMP */ 01157000 * RESPECIFY 0483 01158000 * (GPR01F) RESTRICTED; 0483 01159000 * GPR01F=148; /* COMP CODE IN REG 1 */ 01160000 LA GPR01F,148 0484 01161000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 01162000 O GPR01F,@CF00066 0485 01163000 * SVC(13); /* ISSUE ABEND SVC */ 01164000 SVC 13 0486 01165000 * RESPECIFY 0487 01166000 * (GPR01F) UNRESTRICTED; 0487 01167000 * END; /* ABEND(148) DUMP QUIT RIGHT 0488 01168000 * HERE */ 01169000 * ELSE 0489 01170000 * ; 0489 01171000 @RF00481 DS 0H 0490 01172000 * RETC=RF; /* SAVE RETURN CODE */ 01173000 LR RETC,RF 0490 01174000 * DO; /* BLSDMSG 0491 01175000 * (ZZ2,04044,DMCBMSG,BLSDMSGS) 01176000 * ROUTE(BOTH)LIFO */ 01177000 * CALL BLSDMSG0(ZZ2,04044,DMCBMSG,BLSDMSGS,'10110000'B,0); 01178000 L @14,@PC00001 0492 01179000 ST @14,@AL00001 0492 01180000 LA @10,@CF01132 0492 01181000 ST @10,@AL00001+4 0492 01182000 L @10,ZZ2ZZ1P(,@14) 0492 01183000 L @10,ZZ1PDRP(,@10) 0492 01184000 LA @10,DMCBMSG(,@10) 0492 01185000 ST @10,@AL00001+8 0492 01186000 L @10,ZZ2MSGSP(,@14) 0492 01187000 ST @10,@AL00001+12 0492 01188000 LA @10,@CB01096 0492 01189000 ST @10,@AL00001+16 0492 01190000 LA @10,@CF00051 0492 01191000 ST @10,@AL00001+20 0492 01192000 L @15,ZZ2MSG0P(,@14) 0492 01193000 LA @01,@AL00001 0492 01194000 BALR @14,@15 0492 01195000 * /* BUILD MESSAGE */ 01196000 * END; /* BLSDMSG 0493 01197000 * (ZZ2,04044,DMCBMSG,BLSDMSGS) 01198000 * ROUTE(BOTH)LIFO */ 01199000 * END; 0494 01200000 * ELSE 0495 01201000 * ; /* NO PROBLEM */ 01202000 @RF00479 DS 0H 0496 01203000 * RESPECIFY 0496 01204000 * RF UNRESTRICTED; 0496 01205000 * END; 0497 01206000 * ELSE 0498 01207000 * CALL OVF; /* RECORD NUMBER OVERFLOW */ 01208000 B @RC00452 0498 01209000 @RF00452 BAL @14,OVF 0498 01210000 * RETURN CODE(RETC); /* ALL IS OK */ 01211000 @RC00452 LR @15,RETC 0499 01212000 L @14,@SA00006 0499 01213000 LM @00,@06,@SA00006+8 0499 01214000 LM @09,@12,@SA00006+36 0499 01215000 BR @14 0499 01216000 * END WRITEIT; /* READY TO PROCESS NEXT RECORD */ 01217000 */********************************************************************/ 01218000 */* */ 01219000 */* MAIN CODE ENDS */ 01220000 */* */ 01221000 */********************************************************************/ 01222000 * 0501 01223000 EJECT 01224000 * 0501 01225000 */*BLSUPEND--MVS IPCS MODULE */ 01226000 * 0501 01227000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01228000 * GPR00F FIXED(31) REG(0), 0501 01229000 * GPR01F FIXED(31) REG(1), 0501 01230000 * GPR15F FIXED(31) REG(15), 0501 01231000 * GPR01P PTR(31) REG(1), 0501 01232000 * GPR15P PTR(31) REG(15); 0501 01233000 * DECLARE /* COMMON VARIABLES */ 01234000 * I256C CHAR(256) BASED, 0502 01235000 * I031F FIXED(31) BASED, 0502 01236000 * I031P PTR(31) BASED, 0502 01237000 * I015F FIXED(15) BASED, 0502 01238000 * I015P PTR(15) BASED, 0502 01239000 * I008P PTR(8) BASED, 0502 01240000 * I001C CHAR(1) BASED; 0502 01241000 * DECLARE 0503 01242000 * IOPTLIST(15) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 01243000 * GENERATE NODEFS NOREFS DATA; 0504 01244000 * END /* BLRPEND */ 01245000 * 0505 01246000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01247000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 01248000 */*%INCLUDE SYSLIB (BLRFULL ) */ 01249000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 01250000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 01251000 */*%INCLUDE SYSLIB (IKJECT ) */ 01252000 */*%INCLUDE SYSLIB (IKJUPT ) */ 01253000 */*%INCLUDE SYSLIB (BLSUSERV) */ 01254000 */*%INCLUDE SYSLIB (BLRSERV ) */ 01255000 */*%INCLUDE SYSLIB (BLRSERVD) */ 01256000 */*%INCLUDE SYSLIB (BLSDSERV) */ 01257000 */*%INCLUDE SYSLIB (BLSPDR ) */ 01258000 */*%INCLUDE SYSLIB (BLSFP ) */ 01259000 * 0505 01260000 * ; 0505 01261000 @EL00001 L @13,4(,@13) 0505 01262000 @EF00001 L @00,@SIZDATD 0505 01263000 LR @01,@11 0505 01264000 BLSUFRES R,LV=(0),A=(1) 01265000 @ER00001 LM @14,@12,12(@13) 0505 01266000 BR @14 0505 01267000 @DATA DS 0H 01268000 @CH00813 DC H'72' 01269000 @DATD DSECT 01270000 DS 0F 01271000 @SA00001 DS 18F 01272000 @PC00001 DS 3F 01273000 @SA00002 DS 14F 01274000 @SA00003 DS 14F 01275000 @SA00004 DS 14F 01276000 @SA00006 DS 13F 01277000 @SA00005 DS 15F 01278000 @AL00001 DS 6A 01279000 BLSEADP1 CSECT 01280000 DS 0F 01281000 @CF00051 DC F'0' 01282000 @CF00046 DC F'1' 01283000 @CF00147 DC F'13' 01284000 @CF00057 DC F'16' 01285000 @CF00929 DC F'80' 01286000 @CF01154 DC F'952' 01287000 @CF01095 DC F'4011' 01288000 @CF01109 DC F'4012' 01289000 @CF01132 DC F'4044' 01290000 @CF01137 DC F'4070' 01291000 @CF01128 DC F'10000' 01292000 @CF01161 DC F'-56' 01293000 @CF01125 DC F'-1' 01294000 @CF00066 DC XL4'80000000' 01295000 @CF01088 DC XL4'02000000' 01296000 @CF01090 DC XL4'03000000' 01297000 @CF01091 DC XL4'50000000' 01298000 @CF01092 DC XL4'04000008' 01299000 @CF01102 DC XL4'FFFFFFF8' 01300000 @CF01115 DC XL4'7FFFFFFF' 01301000 @DATD DSECT 01302000 DS 0D 01303000 DELSW DS F 01304000 DSDL DS F 01305000 DSML DS F 01306000 DSPL DS F 01307000 MYDMPTR DS A 01308000 MSGPTR DS A 01309000 PACKED DS CL8 01310000 TEXTBUF DS CL80 01311000 ORG TEXTBUF 01312000 TEXTLINE DS CL72 01313000 ORG TEXTBUF+80 01314000 BUF1 DS CL1024 01315000 IOPTLIST DS 15A 01316000 BLSEADP1 CSECT 01317000 DS 0F 01318000 @SIZDATD DC AL1(0) 01319000 DC AL3(@ENDDATD-@DATD) 01320000 DS 0D 01321000 @CC01103 DC C'DMCB' 01322000 @CC00832 DC C'DE' 01323000 @CB01068 DC X'01' 01324000 @CB01096 DC B'10110000' 01325000 @CB01126 DC B'00000000' 01326000 MODEL DC CL8'RDQSAMDS' 01327000 ACCMODE DC CL1'0' 01328000 @DATD DSECT 01329000 SPACE 2 01330000 *********************************************************************** 01331000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01332000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01333000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01334000 *********************************************************************** 01335000 SPACE 01336000 BLSEADP1 CSECT 01337000 ORG 01338000 DS 0D 01339000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSEADP1+19)/20+7)/8)CL8'BLSEADP1' 01340000 @DATD DSECT 01341000 SPACE 2 01342000 *********************************************************************** 01343000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 01344000 *********************************************************************** 01345000 SPACE 01346000 DS 0D 01347000 @DATD DSECT 01348000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01349000 @ENDDATD EQU * 01350000 BLSEADP1 CSECT 01351000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01352000 @01 EQU 01 01353000 @02 EQU 02 01354000 @03 EQU 03 01355000 @04 EQU 04 01356000 @05 EQU 05 01357000 @06 EQU 06 01358000 @07 EQU 07 01359000 @08 EQU 08 01360000 @09 EQU 09 01361000 @10 EQU 10 01362000 @11 EQU 11 01363000 @12 EQU 12 01364000 @13 EQU 13 01365000 @14 EQU 14 01366000 @15 EQU 15 01367000 ENDSW EQU @10 01368000 RNUM EQU @08 01369000 K EQU @07 01370000 BUFPTR EQU @09 01371000 RETC EQU @05 01372000 DESBUFP EQU @06 01373000 R0 EQU @00 01374000 R1 EQU @01 01375000 R2 EQU @02 01376000 R3 EQU @03 01377000 R4 EQU @04 01378000 R5 EQU @05 01379000 R9 EQU @09 01380000 RB EQU @11 01381000 RD EQU @13 01382000 RE EQU @14 01383000 RF EQU @15 01384000 GPR01P EQU @01 01385000 GPR15P EQU @15 01386000 GPR00F EQU @00 01387000 GPR15F EQU @15 01388000 GPR01F EQU @01 01389000 RA EQU @10 01390000 RC EQU @12 01391000 R6 EQU @06 01392000 R7 EQU @07 01393000 R8 EQU @08 01394000 ZZ1 EQU 0 01395000 ZZ1PDRP EQU ZZ1+40 01396000 ZZ1FPP EQU ZZ1+140 01397000 ZZ1ATTN EQU ZZ1+360 01398000 ZZ1EVE EQU ZZ1ATTN+4 01399000 ZZ1F EQU ZZ1+368 01400000 ZZ1N EQU ZZ1+1116 01401000 CMD EQU 0 01402000 CMDT EQU CMD+4 01403000 PSCB EQU 0 01404000 PSCBATR1 EQU PSCB+16 01405000 ECT EQU 0 01406000 ECTSWS EQU ECT+28 01407000 ECTSWS2 EQU ECT+40 01408000 ECTSWS21 EQU ECTSWS2 01409000 UPT EQU 0 01410000 UPTSWS EQU UPT+12 01411000 SA EQU 0 01412000 SA1 EQU SA 01413000 SAR EQU SA+12 01414000 BVT EQU 0 01415000 BVTPUTLP EQU BVT+4 01416000 BVTPUTOP EQU BVT+12 01417000 BVTPUTTP EQU BVT+16 01418000 BVTPUTVP EQU BVT+20 01419000 BVTPUTAP EQU BVT+24 01420000 BVTPRTTP EQU BVT+28 01421000 BVTPRTAP EQU BVT+32 01422000 BVTPUTDP EQU BVT+36 01423000 BVTMONP EQU BVT+40 01424000 BVTMON2P EQU BVT+44 01425000 BVTVSARP EQU BVT+48 01426000 BVTVSENP EQU BVT+64 01427000 BVTVSERP EQU BVT+68 01428000 BVTVSGEP EQU BVT+72 01429000 BVTVSGUP EQU BVT+76 01430000 BVTVSPOP EQU BVT+80 01431000 BVTVSPUP EQU BVT+84 01432000 BVTMPKNP EQU BVT+104 01433000 BVTMONLP EQU BVT+108 01434000 BVTPUTCP EQU BVT+132 01435000 BVTMPK1P EQU BVT+136 01436000 BVTZZ2RP EQU BVT+140 01437000 BVTPGMRP EQU BVT+144 01438000 BVTMONAP EQU BVT+148 01439000 BVTBLDDP EQU BVT+152 01440000 BVTBLDLP EQU BVT+156 01441000 BVTPGMCP EQU BVT+160 01442000 BVTPGMDP EQU BVT+164 01443000 BVTPGMLP EQU BVT+168 01444000 BVTMONCP EQU BVT+180 01445000 BVTMONDP EQU BVT+184 01446000 BVTMONTP EQU BVT+188 01447000 BVTPARIP EQU BVT+192 01448000 BVTPARUP EQU BVT+196 01449000 BVTPRTNP EQU BVT+204 01450000 BVTVSCRP EQU BVT+208 01451000 BVTVSMRP EQU BVT+212 01452000 BVTMONXP EQU BVT+216 01453000 BVTTRMAP EQU BVT+228 01454000 BLSDMSGS EQU 0 01455000 BLSDMSG0 EQU 0 01456000 DVT EQU 0 01457000 DVTDEQPP EQU DVT+8 01458000 DVTENQPP EQU DVT+12 01459000 DVTAUTHP EQU DVT+20 01460000 DVTLPCLP EQU DVT+24 01461000 DVTBP00P EQU DVT+28 01462000 DVTCN00P EQU DVT+32 01463000 DVTDF00P EQU DVT+36 01464000 DVTDS00P EQU DVT+44 01465000 DVTFL00P EQU DVT+48 01466000 DVTFP00P EQU DVT+52 01467000 DVTGD00P EQU DVT+56 01468000 DVTGG00P EQU DVT+60 01469000 DVTGP00P EQU DVT+64 01470000 DVTND00P EQU DVT+68 01471000 DVTND01P EQU DVT+72 01472000 DVTOD00P EQU DVT+76 01473000 DVTPS00P EQU DVT+80 01474000 DVTSD00P EQU DVT+84 01475000 DVTSL00P EQU DVT+88 01476000 DVTTL00P EQU DVT+92 01477000 DVTUD00P EQU DVT+96 01478000 DVTUP00P EQU DVT+100 01479000 DVTLP00P EQU DVT+104 01480000 DVTLALLP EQU DVT+108 01481000 DVTLPFMP EQU DVT+112 01482000 DVTCLOSP EQU DVT+116 01483000 DVTOPENP EQU DVT+120 01484000 DVTPERAP EQU DVT+124 01485000 DVTDALLP EQU DVT+128 01486000 PDREC EQU 0 01487000 PDRKEY EQU PDREC 01488000 PDRGRP EQU PDRKEY 01489000 PDRKRCTY EQU PDRGRP 01490000 PDRKPID EQU PDRGRP+2 01491000 PDRRECSQ EQU PDRKEY+10 01492000 PDRINFO EQU PDREC+16 01493000 FPBLOK EQU 0 01494000 FPADMNM EQU FPBLOK+120 01495000 FPDELNM EQU FPBLOK+128 01496000 DDSD EQU 0 01497000 DDSM EQU 0 01498000 DDSP EQU 0 01499000 DMCB EQU 0 01500000 DMCBID EQU DMCB 01501000 DMCBFTY EQU DMCB+20 01502000 DMCBOPN EQU DMCB+21 01503000 DMCBRQST EQU DMCB+22 01504000 DMCBRMOD EQU DMCB+23 01505000 DMCBOUT EQU DMCBRMOD 01506000 DMCBTMP EQU DMCBOUT 01507000 DMCBRM6 EQU DMCBRMOD 01508000 DMCBRM5 EQU DMCBRMOD 01509000 DMCBOPTS EQU DMCB+24 01510000 DMCBKYD EQU DMCBOPTS 01511000 DMCBGKY EQU DMCBOPTS 01512000 DMCBRNO EQU DMCBGKY 01513000 DMCBAPX EQU DMCBOPTS 01514000 DMCBUPD EQU DMCBOPTS 01515000 DMCBMFLG EQU DMCB+28 01516000 DMCBBUFP EQU DMCB+32 01517000 DMCBBLEN EQU DMCB+36 01518000 DMCBORL EQU DMCB+40 01519000 DMCBKEYP EQU DMCB+44 01520000 DMCBMSG EQU DMCB+52 01521000 DMCBRI EQU DMCB+64 01522000 DMCBACBE EQU DMCB+124 01523000 DMCBSPEC EQU DMCB+380 01524000 DMCBFR EQU DMCB+412 01525000 DMCBAMS EQU DMCB+416 01526000 DMCBAUDT EQU DMCB+568 01527000 DMCBLSCP EQU DMCBAUDT+16 01528000 DMCBDMGR EQU 0 01529000 BLSCALOC EQU 0 01530000 BLSDADSD EQU 0 01531000 BLSDAPDR EQU 0 01532000 BLSDDEQP EQU 0 01533000 BLSDENQP EQU 0 01534000 BLSDENQ0 EQU 0 01535000 BLSDFDSD EQU 0 01536000 BLSDFPDR EQU 0 01537000 BLSEAUTH EQU 0 01538000 BLSELPCL EQU 0 01539000 BLSELPFM EQU 0 01540000 BLSFBP00 EQU 0 01541000 BLSFCLOS EQU 0 01542000 BLSFCN00 EQU 0 01543000 BLSFDALL EQU 0 01544000 BLSFDF00 EQU 0 01545000 BLSFDS00 EQU 0 01546000 BLSFFL00 EQU 0 01547000 BLSFFP00 EQU 0 01548000 BLSFGD00 EQU 0 01549000 BLSFGG00 EQU 0 01550000 BLSFGP00 EQU 0 01551000 BLSFLALL EQU 0 01552000 BLSFLP00 EQU 0 01553000 BLSFND00 EQU 0 01554000 BLSFND01 EQU 0 01555000 BLSFOD00 EQU 0 01556000 BLSFOPEN EQU 0 01557000 BLSFPERA EQU 0 01558000 BLSFPS00 EQU 0 01559000 BLSFSD00 EQU 0 01560000 BLSFSL00 EQU 0 01561000 BLSFTL00 EQU 0 01562000 BLSFUD00 EQU 0 01563000 BLSFUP00 EQU 0 01564000 BLSUALLO EQU 0 01565000 BLSUBLDD EQU 0 01566000 BLSUBLDL EQU 0 01567000 BLSUDYNA EQU 0 01568000 BLSUFREE EQU 0 01569000 BLSUFRE1 EQU 0 01570000 BLSUMON EQU 0 01571000 BLSUMONA EQU 0 01572000 BLSUMONC EQU 0 01573000 BLSUMOND EQU 0 01574000 BLSUMONL EQU 0 01575000 BLSUMONT EQU 0 01576000 BLSUMONX EQU 0 01577000 BLSUMON2 EQU 0 01578000 BLSUMPKN EQU 0 01579000 BLSUMPK1 EQU 0 01580000 BLSUPARI EQU 0 01581000 BLSUPARU EQU 0 01582000 BLSUPGMC EQU 0 01583000 BLSUPGMD EQU 0 01584000 BLSUPGML EQU 0 01585000 BLSUPGMR EQU 0 01586000 BLSUPRTA EQU 0 01587000 BLSUPRTN EQU 0 01588000 BLSUPRTT EQU 0 01589000 BLSUPUTA EQU 0 01590000 BLSUPUTC EQU 0 01591000 BLSUPUTD EQU 0 01592000 BLSUPUTL EQU 0 01593000 BLSUPUTN EQU 0 01594000 BLSUPUTO EQU 0 01595000 BLSUPUTT EQU 0 01596000 BLSUPUTV EQU 0 01597000 BLSUSTAI EQU 0 01598000 BLSUTRMA EQU 0 01599000 BLSUTRMN EQU 0 01600000 BLSUTRMO EQU 0 01601000 BLSUTRMV EQU 0 01602000 BLSUVSAR EQU 0 01603000 BLSUVSCR EQU 0 01604000 BLSUVSEN EQU 0 01605000 BLSUVSER EQU 0 01606000 BLSUVSGE EQU 0 01607000 BLSUVSGU EQU 0 01608000 BLSUVSMR EQU 0 01609000 BLSUVSPO EQU 0 01610000 BLSUVSPU EQU 0 01611000 BLSUZZ2C EQU 0 01612000 BLSUZZ2D EQU 0 01613000 BLSUZZ2R EQU 0 01614000 DMCBRQC EQU 0 01615000 IKJEFF02 EQU 0 01616000 IKJEFF18 EQU 0 01617000 IKJEFF19 EQU 0 01618000 IKJGETL EQU 0 01619000 IKJPARS EQU 0 01620000 IKJPTGT EQU 0 01621000 IKJPUTL EQU 0 01622000 IKJSCAN EQU 0 01623000 IKJSTCK EQU 0 01624000 I001C EQU 0 01625000 I008P EQU 0 01626000 I015F EQU 0 01627000 I015P EQU 0 01628000 I031F EQU 0 01629000 I031P EQU 0 01630000 I256C EQU 0 01631000 ZZ2 EQU 0 01632000 ZZ2AMD EQU ZZ2 01633000 @NM00013 EQU ZZ2AMD+7 01634000 ZZ2PRT EQU ZZ2+138 01635000 ZZ2PRTT EQU ZZ2PRT+4 01636000 ZZ2PRTT1 EQU ZZ2PRTT+1 01637000 ZZ2A EQU ZZ2+272 01638000 ZZ2AF EQU ZZ2A+16 01639000 ZZ2APID EQU ZZ2A+64 01640000 ZZ2AD EQU ZZ2A+74 01641000 ZZ2ADD EQU ZZ2AD 01642000 ZZ2ADDT EQU ZZ2ADD+2 01643000 ZZ2ADM EQU ZZ2AD+46 01644000 ZZ2ADMT EQU ZZ2ADM+2 01645000 ZZ2ADP EQU ZZ2AD+56 01646000 ZZ2ADPT EQU ZZ2ADP+2 01647000 ZZ2AQAS EQU ZZ2A+144 01648000 ZZ2AQD EQU ZZ2A+160 01649000 ZZ2AQDT EQU ZZ2AQD+10 01650000 ZZ2AQDF EQU ZZ2AQD+52 01651000 ZZ2STG EQU ZZ2+960 01652000 ZZ2ALLOP EQU ZZ2+992 01653000 ZZ2FREEP EQU ZZ2+996 01654000 ZZ2FF19P EQU ZZ2+1000 01655000 ZZ2FRE1P EQU ZZ2+1004 01656000 ZZ2FF18P EQU ZZ2+1008 01657000 ZZ2DYNAP EQU ZZ2+1012 01658000 ZZ2ZZ2CP EQU ZZ2+1016 01659000 ZZ2ZZ2DP EQU ZZ2+1020 01660000 ZZ2STAIP EQU ZZ2+1024 01661000 ZZ2FF02P EQU ZZ2+1028 01662000 ZZ2GETLP EQU ZZ2+1032 01663000 ZZ2PARSP EQU ZZ2+1036 01664000 ZZ2PTGTP EQU ZZ2+1040 01665000 ZZ2PUTLP EQU ZZ2+1044 01666000 ZZ2SCANP EQU ZZ2+1048 01667000 ZZ2STCKP EQU ZZ2+1052 01668000 ZZ2ALOCP EQU ZZ2+1056 01669000 ZZ2MSGSP EQU ZZ2+1060 01670000 ZZ2TRMOP EQU ZZ2+1064 01671000 ZZ2TRMVP EQU ZZ2+1068 01672000 ZZ2MSG0P EQU ZZ2+1076 01673000 ZZ2PUTNP EQU ZZ2+1084 01674000 ZZ2TRMNP EQU ZZ2+1088 01675000 ZZ2ENQ0P EQU ZZ2+1092 01676000 ZZ2ADSDP EQU ZZ2+1096 01677000 ZZ2APDRP EQU ZZ2+1100 01678000 ZZ2FDSDP EQU ZZ2+1104 01679000 ZZ2FPDRP EQU ZZ2+1108 01680000 ZZ2ZZ1P EQU ZZ2+1264 01681000 ZZ2DVTP EQU ZZ2+1276 01682000 ZZ2BVTP EQU ZZ2+1280 01683000 ZZ2CPPL EQU ZZ2+1292 01684000 ZZ2CPPLC EQU ZZ2CPPL 01685000 ZZ2ITR EQU ZZ2+2840 01686000 ZZ2ITRE EQU ZZ2ITR+16 01687000 ZZ2ITSE EQU ZZ2+2864 01688000 ZZ2ES EQU ZZ2+2872 01689000 ZZ2AMDX EQU ZZ2+7160 01690000 ZZ2AXO EQU ZZ2+7934 01691000 ZZ2AXOT EQU ZZ2AXO+2 01692000 DDS EQU 0 01693000 DDSDP EQU DDS 01694000 DDSDL EQU DDS+4 01695000 DDSDF EQU DDS+6 01696000 DDSMP EQU DDS+8 01697000 DDSML EQU DDS+12 01698000 DDSMF EQU DDS+14 01699000 DDSPP EQU DDS+16 01700000 DDSPL EQU DDS+20 01701000 DDSPF EQU DDS+22 01702000 REMBUF EQU 0 01703000 CPPL EQU ZZ2CPPL 01704000 CPPLUPT EQU CPPL+4 01705000 CPPLPSCB EQU CPPL+8 01706000 CPPLECT EQU CPPL+12 01707000 PDRSTREC EQU PDRINFO 01708000 PDRODATE EQU PDRSTREC 01709000 PDROWNNM EQU PDRSTREC+32 01710000 PDRDESCL EQU PDRSTREC+384 01711000 PDRDEREC EQU PDRINFO 01712000 PDRDESCR EQU PDRDEREC 01713000 PDRDESC EQU PDRDESCR 01714000 PDRTRREC EQU PDRINFO 01715000 PDRTRARR EQU PDRTRREC 01716000 PDRHSREC EQU PDRINFO 01717000 PDRDSREC EQU PDRINFO 01718000 PDRDSNM EQU PDRDSREC 01719000 PDRSVALU EQU PDRODATE 01720000 DMCBVSM EQU DMCBAMS 01721000 DMCBQSM EQU DMCBAMS 01722000 * START UNREFERENCED COMPONENTS 01723000 DMCBRES7 EQU DMCBQSM+96 01724000 DMCBDCB EQU DMCBQSM 01725000 DMCBACB EQU DMCBVSM+76 01726000 DMCBRPL EQU DMCBVSM 01727000 PDRSVNUM EQU PDRSVALU+3 01728000 PDRSVRES EQU PDRSVALU 01729000 PDRDSRES EQU PDRDSREC+52 01730000 PDRMEMB EQU PDRDSNM+44 01731000 PDRDSN EQU PDRDSNM 01732000 PDRHYMSD EQU PDRHSREC+4 01733000 PDRHSLEN EQU PDRHSREC 01734000 PDRTRKD EQU PDRTRARR 01735000 PDRDSSEQ EQU PDRSTREC+396 01736000 PDRRES6 EQU PDRSTREC+392 01737000 PDRTRKL EQU PDRSTREC+388 01738000 PDRABS EQU PDRSTREC+256 01739000 PDRRES5 EQU PDRSTREC+252 01740000 PDRFIXID EQU PDRSTREC+192 01741000 PDRFTIME EQU PDRSTREC+184 01742000 PDRFDATE EQU PDRSTREC+176 01743000 PDRFSTAT EQU PDRSTREC+172 01744000 PDRRES4 EQU PDRSTREC+167 01745000 PDRPTFID EQU PDRSTREC+160 01746000 PDRTTIME EQU PDRSTREC+152 01747000 PDRTDATE EQU PDRSTREC+144 01748000 PDRTSTAT EQU PDRSTREC+140 01749000 PDRRES3 EQU PDRSTREC+135 01750000 PDRAPRID EQU PDRSTREC+128 01751000 PDRITIME EQU PDRSTREC+120 01752000 PDRIDATE EQU PDRSTREC+112 01753000 PDRISTAT EQU PDRSTREC+104 01754000 PDRRTIME EQU PDRSTREC+96 01755000 PDRRDATE EQU PDRSTREC+88 01756000 PDRPTIME EQU PDRSTREC+80 01757000 PDRPDATE EQU PDRSTREC+72 01758000 PDRPSTAT EQU PDRSTREC+64 01759000 PDRUSER EQU PDRSTREC+56 01760000 PDRSYS EQU PDRSTREC+48 01761000 PDRGROUP EQU PDRSTREC+40 01762000 PDROWNLN EQU PDROWNNM+7 01763000 PDROWNID EQU PDROWNNM 01764000 PDRRES1 EQU PDRSTREC+27 01765000 PDRSEV EQU PDRSTREC+26 01766000 PDRCOMP EQU PDRSTREC+16 01767000 PDROTIME EQU PDRSTREC+8 01768000 CPPLCBUF EQU CPPL 01769000 @NM00075 EQU DDS+24 01770000 @NM00074 EQU DDS+23 01771000 @NM00073 EQU DDSPF 01772000 DDSPFP EQU DDSPF 01773000 @NM00072 EQU DDS+15 01774000 @NM00071 EQU DDSMF 01775000 DDSMFP EQU DDSMF 01776000 @NM00070 EQU DDS+7 01777000 @NM00069 EQU DDSDF 01778000 DDSDFQ EQU DDSDF 01779000 DDSDFP EQU DDSDF 01780000 ZZ299999 EQU ZZ2+8192 01781000 ZZ2AXOT1 EQU ZZ2AXOT 01782000 ZZ2AXOL EQU ZZ2AXO 01783000 @NM00054 EQU ZZ2+7288 01784000 @NM00053 EQU ZZ2AMDX+4 01785000 ZZ2AMDXC EQU ZZ2AMDX 01786000 ZZ2HSD EQU ZZ2+3056 01787000 @NM00052 EQU ZZ2ES 01788000 @NM00051 EQU ZZ2+2868 01789000 ZZ2ITSEC EQU ZZ2ITSE+1 01790000 @NM00050 EQU ZZ2ITSE 01791000 ZZ2ITSEP EQU ZZ2ITSE 01792000 ZZ2ITSEW EQU ZZ2ITSE 01793000 @NM00049 EQU ZZ2ITR+20 01794000 ZZ2ITREC EQU ZZ2ITRE+1 01795000 @NM00048 EQU ZZ2ITRE 01796000 ZZ2ITREP EQU ZZ2ITRE 01797000 ZZ2ITREW EQU ZZ2ITRE 01798000 @NM00047 EQU ZZ2ITR+9 01799000 ZZ2ITRRC EQU ZZ2ITR+8 01800000 ZZ2ITR2P EQU ZZ2ITR+4 01801000 ZZ2ITRPP EQU ZZ2ITR 01802000 @NM00046 EQU ZZ2+1544 01803000 ZZ2PGM EQU ZZ2+1536 01804000 @NM00045 EQU ZZ2+1526 01805000 ZZ2CW EQU ZZ2+1524 01806000 @NM00044 EQU ZZ2+1504 01807000 @NM00043 EQU ZZ2+1352 01808000 ZZ2FFSYP EQU ZZ2+1348 01809000 ZZ2SASYP EQU ZZ2+1344 01810000 ZZ2RDSYP EQU ZZ2+1340 01811000 ZZ2RASYP EQU ZZ2+1336 01812000 ZZ2PHSYP EQU ZZ2+1332 01813000 ZZ2ESSYP EQU ZZ2+1328 01814000 ZZ200SYP EQU ZZ2+1324 01815000 ZZ2SCWP EQU ZZ2+1320 01816000 ZZ2TTLP EQU ZZ2+1316 01817000 ZZ2LOADP EQU ZZ2+1312 01818000 ZZ2VRESP EQU ZZ2+1308 01819000 ZZ2CPPLE EQU ZZ2CPPL+12 01820000 ZZ2CPPLP EQU ZZ2CPPL+8 01821000 ZZ2CPPLU EQU ZZ2CPPL+4 01822000 ZZ2VRSAP EQU ZZ2+1288 01823000 ZZ2RVTP EQU ZZ2+1284 01824000 @NM00042 EQU ZZ2+1272 01825000 @NM00041 EQU ZZ2+1268 01826000 ZZ2RPLP EQU ZZ2+1260 01827000 ZZ2TCBP EQU ZZ2+1256 01828000 @NM00040 EQU ZZ2+1252 01829000 ZZ2ZZ2P EQU ZZ2+1248 01830000 @NM00039 EQU ZZ2+1112 01831000 @NM00038 EQU ZZ2+1080 01832000 ZZ2FT25P EQU ZZ2+1072 01833000 @NM00037 EQU ZZ2+976 01834000 ZZ2TOD EQU ZZ2+968 01835000 ZZ2STGN EQU ZZ2STG+4 01836000 ZZ2STGP EQU ZZ2STG 01837000 @NM00036 EQU ZZ2+952 01838000 ZZ2SCMDE EQU ZZ2+944 01839000 ZZ2SCMDN EQU ZZ2+936 01840000 ZZ2IDENT EQU ZZ2+928 01841000 ZZ2A9999 EQU ZZ2A+656 01842000 @NM00035 EQU ZZ2A+224 01843000 @NM00034 EQU ZZ2A+220 01844000 ZZ2AQD99 EQU ZZ2AQD+60 01845000 @NM00033 EQU ZZ2AQD+56 01846000 @NM00032 EQU ZZ2AQDF 01847000 ZZ2AQDFA EQU ZZ2AQDF 01848000 ZZ2AQDIL EQU ZZ2AQD+48 01849000 ZZ2AQDIM EQU ZZ2AQD+44 01850000 ZZ2AQDT9 EQU ZZ2AQDT+34 01851000 ZZ2AQDTE EQU ZZ2AQDT+33 01852000 ZZ2AQDTD EQU ZZ2AQDT+2 01853000 @NM00031 EQU ZZ2AQDT+1 01854000 ZZ2AQDTY EQU ZZ2AQDT 01855000 ZZ2AQDT0 EQU ZZ2AQDT 01856000 ZZ2AQDLB EQU ZZ2AQD+9 01857000 ZZ2AQDOB EQU ZZ2AQD+8 01858000 ZZ2AQDLE EQU ZZ2AQD+4 01859000 ZZ2AQDOF EQU ZZ2AQD 01860000 ZZ2AQD00 EQU ZZ2AQD 01861000 ZZ2AQAS9 EQU ZZ2AQAS+16 01862000 @NM00030 EQU ZZ2AQAS+12 01863000 ZZ2AQAS2 EQU ZZ2AQAS+8 01864000 ZZ2AQAS1 EQU ZZ2AQAS+4 01865000 @NM00029 EQU ZZ2AQAS+2 01866000 ZZ2AQAST EQU ZZ2AQAS 01867000 ZZ2AQAS0 EQU ZZ2AQAS 01868000 ZZ2AZZ6P EQU ZZ2A+140 01869000 ZZ2ADPTA EQU ZZ2ADPT 01870000 ZZ2ADPL EQU ZZ2ADP 01871000 ZZ2ADMTA EQU ZZ2ADMT 01872000 ZZ2ADML EQU ZZ2ADM 01873000 ZZ2ADDTA EQU ZZ2ADDT 01874000 ZZ2ADDL EQU ZZ2ADD 01875000 @NM00028 EQU ZZ2A+72 01876000 ZZ2APIDB EQU ZZ2APID+3 01877000 ZZ2APIDA EQU ZZ2APID 01878000 @NM00027 EQU ZZ2A+24 01879000 @NM00026 EQU ZZ2AF+5 01880000 ZZ2AFX EQU ZZ2AF+5 01881000 @NM00025 EQU ZZ2AF+3 01882000 ZZ2AFS EQU ZZ2AF+2 01883000 ZZ2AFD EQU ZZ2AF+2 01884000 ZZ2AFQ EQU ZZ2AF+2 01885000 ZZ2AF$ EQU ZZ2AF+2 01886000 @NM00024 EQU ZZ2AF+2 01887000 ZZ2AFM EQU ZZ2AF+2 01888000 @NM00023 EQU ZZ2AF+2 01889000 @NM00022 EQU ZZ2AF+1 01890000 ZZ2AFV EQU ZZ2AF+1 01891000 @NM00021 EQU ZZ2AF+1 01892000 ZZ2AFC EQU ZZ2AF+1 01893000 @NM00020 EQU ZZ2AF 01894000 ZZ2AFFS EQU ZZ2AF 01895000 ZZ2AFT EQU ZZ2AF 01896000 ZZ2AFP EQU ZZ2AF 01897000 @NM00019 EQU ZZ2A+8 01898000 ZZ2ALINE EQU ZZ2A+4 01899000 @NM00018 EQU ZZ2A+3 01900000 ZZ2ASE EQU ZZ2A+2 01901000 ZZ2ACH EQU ZZ2A 01902000 @NM00017 EQU ZZ2+264 01903000 @NM00016 EQU ZZ2+263 01904000 ZZ2PRTT0 EQU ZZ2PRTT 01905000 ZZ2PRTO EQU ZZ2PRT+2 01906000 ZZ2PRTL EQU ZZ2PRT 01907000 @NM00015 EQU ZZ2AMD+56 01908000 ZZ2AMDXP EQU ZZ2AMD+52 01909000 ZZ2AMDD EQU ZZ2AMD+48 01910000 ZZ2AMDL EQU ZZ2AMD+44 01911000 ZZ2AMDU EQU ZZ2AMD+28 01912000 ZZ2AMDF EQU ZZ2AMD+24 01913000 ZZ2AMDS EQU ZZ2AMD+20 01914000 ZZ2AMDC EQU ZZ2AMD+16 01915000 ZZ2AMDP EQU ZZ2AMD+12 01916000 ZZ2AMDB EQU ZZ2AMD+8 01917000 @NM00014 EQU @NM00013 01918000 ZZ2AMD2 EQU @NM00013 01919000 ZZ2AMD1 EQU @NM00013 01920000 ZZ2AMD0 EQU ZZ2AMD+6 01921000 ZZ2AMDA EQU ZZ2AMD+4 01922000 ZZ2AMDT EQU ZZ2AMD 01923000 DMCBWRK EQU DMCB+648 01924000 DMCBRES8 EQU DMCB+640 01925000 DMCBMODN EQU DMCB+632 01926000 DMCBCARY EQU DMCBAUDT+20 01927000 DMCBCLC EQU DMCBAUDT+12 01928000 DMCBOPC EQU DMCBAUDT+8 01929000 DMCBFRC EQU DMCBAUDT+4 01930000 DMCBALC EQU DMCBAUDT 01931000 DMCBRES6 EQU DMCB+410 01932000 DMCBIRSC EQU DMCB+408 01933000 DMCBSUBC EQU DMCB+404 01934000 DMCBDRBP EQU DMCB+400 01935000 DMCBRSZM EQU DMCB+398 01936000 DMCBRSZA EQU DMCB+396 01937000 DMCBCISZ EQU DMCB+394 01938000 DMCBDCBL EQU DMCB+392 01939000 DMCBDCLR EQU DMCB+390 01940000 DMCBDCFM EQU DMCB+389 01941000 DMCBRES5 EQU DMCB+388 01942000 DMCBLBRT EQU DMCB+386 01943000 DMCBLBSQ EQU DMCB+384 01944000 DMCBLBPS EQU DMCB+383 01945000 DMCBLBTY EQU DMCB+382 01946000 DMCBRES4 EQU DMCB+381 01947000 DMCBSPRS EQU DMCBSPEC 01948000 DMCBSPRN EQU DMCBSPEC 01949000 DMCBSPCT EQU DMCBSPEC 01950000 DMCBSPRL EQU DMCBSPEC 01951000 DMCBSPSE EQU DMCB+376 01952000 DMCBSPPR EQU DMCB+372 01953000 DMCBSPTY EQU DMCB+369 01954000 DMCBODIS EQU DMCB+368 01955000 DMCBDISP EQU DMCB+367 01956000 DMCBSTAT EQU DMCB+366 01957000 DMCBRES3 EQU DMCB+364 01958000 DMCBMEMB EQU DMCB+356 01959000 DMCBMODL EQU DMCB+348 01960000 DMCBRES9 EQU DMCB+340 01961000 DMCBPID EQU DMCB+332 01962000 DMCBTYPE EQU DMCB+328 01963000 DMCBDSN EQU DMCB+284 01964000 DMCBUNIT EQU DMCB+276 01965000 DMCBDSOR EQU DMCB+274 01966000 DMCBVOL EQU DMCB+268 01967000 DMCBDDNM EQU DMCB+260 01968000 DMCBSYNM EQU DMCB+132 01969000 DMCBRPLF EQU DMCB+128 01970000 DMCBDCBE EQU DMCBACBE 01971000 DMCBARC EQU DMCB+120 01972000 DMCBCPC EQU DMCB+116 01973000 DMCBRET EQU DMCB+112 01974000 DMCBSTL EQU DMCB+96 01975000 DMCBEOB EQU DMCB+92 01976000 DMCBFRE EQU DMCB+88 01977000 DMCBRES2 EQU DMCB+85 01978000 DMCBSPID EQU DMCB+84 01979000 DMCBRESC EQU DMCB+80 01980000 DMCBZZ1P EQU DMCB+76 01981000 DMCBMSGS EQU DMCB+72 01982000 DMCBMSG0 EQU DMCB+68 01983000 DMCBRRL EQU DMCB+60 01984000 DMCBRBA EQU DMCB+56 01985000 DMCBKEYL EQU DMCB+48 01986000 DMCBKPC EQU DMCBKEYP 01987000 DMCBBFPC EQU DMCBBUFP 01988000 DMCBRES1 EQU DMCB+31 01989000 DMCBACCM EQU DMCB+30 01990000 DMCBREJ EQU DMCB+29 01991000 DMCBRESB EQU DMCBMFLG 01992000 DMCBFMOD EQU DMCBMFLG 01993000 DMCBLOPT EQU DMCB+27 01994000 DMCBLRM EQU DMCB+26 01995000 DMCBLRQ EQU DMCB+25 01996000 DMCBOPRS EQU DMCBOPTS 01997000 DMCBLRD EQU DMCBOPTS 01998000 DMCBBWD EQU DMCBOPTS 01999000 DMCBRMRS EQU DMCBRMOD 02000000 DMCBRESA EQU DMCBOPN 02001000 DMCBSOUT EQU DMCBOPN 02002000 DMCBSIN EQU DMCBOPN 02003000 DMCBVSF EQU DMCBFTY 02004000 DMCBKSF EQU DMCBFTY 02005000 DMCBFTRS EQU DMCBFTY 02006000 DMCBSHF EQU DMCBFTY 02007000 DMCBIRL EQU DMCB+16 02008000 DMCBRTC EQU DMCB+12 02009000 DMCBTVP EQU DMCB+8 02010000 DMCBNEXT EQU DMCB+4 02011000 FPRES6 EQU FPBLOK+136 02012000 FPDELLN EQU FPDELNM+7 02013000 FPDELID EQU FPDELNM 02014000 FPADMLN EQU FPADMNM+7 02015000 FPADMID EQU FPADMNM 02016000 FPGRPID EQU FPBLOK+112 02017000 FPSYSID EQU FPBLOK+104 02018000 FPRES4 EQU FPBLOK+103 02019000 FPDBPIDP EQU FPBLOK+100 02020000 FPRES3 EQU FPBLOK+99 02021000 FPPIDP EQU FPBLOK+96 02022000 FPRES2 EQU FPBLOK+92 02023000 FPDSDS EQU FPBLOK+48 02024000 FPRES1 EQU FPBLOK+44 02025000 FPPDDS EQU FPBLOK 02026000 PDRRESV EQU PDREC+14 02027000 PDRKPNUM EQU PDRKPID+3 02028000 PDRKPREF EQU PDRKPID 02029000 DVT99999 EQU DVT+256 02030000 DVT0064P EQU DVT+252 02031000 DVT0063P EQU DVT+248 02032000 DVT0062P EQU DVT+244 02033000 DVT0061P EQU DVT+240 02034000 DVT0060P EQU DVT+236 02035000 DVT0059P EQU DVT+232 02036000 DVT0058P EQU DVT+228 02037000 DVT0057P EQU DVT+224 02038000 DVT0056P EQU DVT+220 02039000 DVT0055P EQU DVT+216 02040000 DVT0054P EQU DVT+212 02041000 DVT0053P EQU DVT+208 02042000 DVT0052P EQU DVT+204 02043000 DVT0051P EQU DVT+200 02044000 DVT0050P EQU DVT+196 02045000 DVT0049P EQU DVT+192 02046000 DVT0048P EQU DVT+188 02047000 DVT0047P EQU DVT+184 02048000 DVT0046P EQU DVT+180 02049000 DVT0045P EQU DVT+176 02050000 DVT0044P EQU DVT+172 02051000 DVT0043P EQU DVT+168 02052000 DVT0042P EQU DVT+164 02053000 DVT0041P EQU DVT+160 02054000 DVT0040P EQU DVT+156 02055000 DVT0039P EQU DVT+152 02056000 DVT0038P EQU DVT+148 02057000 DVT0037P EQU DVT+144 02058000 DVT0036P EQU DVT+140 02059000 DVT0035P EQU DVT+136 02060000 DVT0034P EQU DVT+132 02061000 DVT0011P EQU DVT+40 02062000 DVT0005P EQU DVT+16 02063000 DVT0002P EQU DVT+4 02064000 DVT0001P EQU DVT 02065000 BVT99999 EQU BVT+256 02066000 BVT0064P EQU BVT+252 02067000 BVT0063P EQU BVT+248 02068000 BVT0062P EQU BVT+244 02069000 BVT0061P EQU BVT+240 02070000 BVT0060P EQU BVT+236 02071000 BVT0059P EQU BVT+232 02072000 BVT0057P EQU BVT+224 02073000 BVT0056P EQU BVT+220 02074000 BVTSTBLP EQU BVT+200 02075000 BVT0045P EQU BVT+176 02076000 BVT0044P EQU BVT+172 02077000 BVT0033P EQU BVT+128 02078000 BVT0032P EQU BVT+124 02079000 BVT0031P EQU BVT+120 02080000 BVT0030P EQU BVT+116 02081000 BVT0029P EQU BVT+112 02082000 BVT0026P EQU BVT+100 02083000 BVT0025P EQU BVT+96 02084000 BVT0024P EQU BVT+92 02085000 BVT0023P EQU BVT+88 02086000 BVT0016P EQU BVT+60 02087000 BVT0015P EQU BVT+56 02088000 BVT0014P EQU BVT+52 02089000 BVT0003P EQU BVT+8 02090000 BVT0001P EQU BVT 02091000 SA99 EQU SA+72 02092000 SARC EQU SAR+56 02093000 SARB EQU SAR+52 02094000 SARA EQU SAR+48 02095000 SAR9 EQU SAR+44 02096000 SAR8 EQU SAR+40 02097000 SAR7 EQU SAR+36 02098000 SAR6 EQU SAR+32 02099000 SAR5 EQU SAR+28 02100000 SAR4 EQU SAR+24 02101000 SAR3 EQU SAR+20 02102000 SAR2 EQU SAR+16 02103000 SAR1 EQU SAR+12 02104000 SAR0 EQU SAR+8 02105000 SARF EQU SAR+4 02106000 SARE EQU SAR 02107000 SAFWD EQU SA+8 02108000 SABAK EQU SA+4 02109000 SA1L EQU SA1+1 02110000 SA1P EQU SA1 02111000 UPTPREFL EQU UPT+23 02112000 UPTPREFX EQU UPT+16 02113000 @NM00068 EQU UPT+15 02114000 UPTLDEL EQU UPT+14 02115000 UPTCDEL EQU UPT+13 02116000 UPTWTP EQU UPTSWS 02117000 UPTMODE EQU UPTSWS 02118000 UPTALD EQU UPTSWS 02119000 UPTPAUS EQU UPTSWS 02120000 UPTNCOM EQU UPTSWS 02121000 UPTMID EQU UPTSWS 02122000 UPTNPRM EQU UPTSWS 02123000 UPTRCVR EQU UPTSWS 02124000 UPTUSER EQU UPT+2 02125000 @NM00067 EQU UPT 02126000 @NM00066 EQU ECT+52 02127000 @NM00065 EQU ECT+48 02128000 @NM00064 EQU ECT+44 02129000 @NM00063 EQU ECTSWS2+1 02130000 @NM00062 EQU ECTSWS21 02131000 ECTTABND EQU ECTSWS21 02132000 ECTDEFCS EQU ECTSWS21 02133000 ECTBKPB EQU ECT+36 02134000 ECTUSER EQU ECT+32 02135000 ECTDDNUM EQU ECT+29 02136000 ECTATTN EQU ECTSWS 02137000 ECTBKGRD EQU ECTSWS 02138000 ECTNNOT EQU ECTSWS 02139000 ECTNMAL EQU ECTSWS 02140000 ECTLOGF EQU ECTSWS 02141000 ECTATRM EQU ECTSWS 02142000 @NM00061 EQU ECTSWS 02143000 ECTNOPD EQU ECTSWS 02144000 ECTSCMD EQU ECT+20 02145000 ECTPCMD EQU ECT+12 02146000 ECTSMSG EQU ECT+9 02147000 ECTMSGF EQU ECT+8 02148000 ECTIOWA EQU ECT+4 02149000 ECTRTCD EQU ECT+1 02150000 ECTRCDF EQU ECT 02151000 PSCBU EQU PSCB+64 02152000 PSCBRSZ EQU PSCB+60 02153000 PSCBLINE EQU PSCB+59 02154000 PSCBCHAR EQU PSCB+58 02155000 PSCBUPTL EQU PSCB+56 02156000 PSCBUPT EQU PSCB+52 02157000 PSCBRLGB EQU PSCB+48 02158000 PSCBDEST EQU PSCB+40 02159000 @NM00060 EQU PSCB+36 02160000 @NM00059 EQU PSCB+32 02161000 @NM00058 EQU PSCB+28 02162000 PSCBLTI2 EQU PSCB+24 02163000 PSCBLTIM EQU PSCB+20 02164000 PSCBATR2 EQU PSCB+18 02165000 @NM00057 EQU PSCBATR1 02166000 @NM00056 EQU PSCBATR1 02167000 @NM00055 EQU PSCBATR1 02168000 PSCBATTN EQU PSCBATR1 02169000 PSCBVMNT EQU PSCBATR1 02170000 PSCBJCL EQU PSCBATR1 02171000 PSCBACCT EQU PSCBATR1 02172000 PSCBCTRL EQU PSCBATR1 02173000 PSCBGPNM EQU PSCB+8 02174000 PSCBUSRL EQU PSCB+7 02175000 PSCBUSER EQU PSCB 02176000 CMDT1 EQU CMDT 02177000 CMDO EQU CMD+2 02178000 CMDL EQU CMD 02179000 ZZ199999 EQU ZZ1+3072 02180000 @NM00012 EQU ZZ1+2160 02181000 ZZ1TRTAS EQU ZZ1+1904 02182000 ZZ1TRUPC EQU ZZ1+1648 02183000 ZZ1TRCTX EQU ZZ1+1392 02184000 ZZ1NASID EQU ZZ1N+274 02185000 ZZ1NSTRL EQU ZZ1N+272 02186000 ZZ1NOFF EQU ZZ1N+268 02187000 ZZ1NBDY EQU ZZ1N+264 02188000 ZZ1NADE EQU ZZ1N+260 02189000 ZZ1NADB EQU ZZ1N+256 02190000 ZZ1NSTR EQU ZZ1N 02191000 @NM00011 EQU ZZ1+1080 02192000 ZZ1TREBC EQU ZZ1+824 02193000 ZZ1TRHEX EQU ZZ1+568 02194000 @NM00010 EQU ZZ1+377 02195000 ZZ1USTAE EQU ZZ1+376 02196000 @NM00009 EQU ZZ1F+1 02197000 @NM00008 EQU ZZ1F 02198000 ZZ1FM EQU ZZ1F 02199000 ZZ1FX EQU ZZ1F 02200000 ZZ1FU EQU ZZ1F 02201000 ZZ1EVEC EQU ZZ1EVE+1 02202000 @NM00007 EQU ZZ1EVE 02203000 ZZ1EVEP EQU ZZ1EVE 02204000 ZZ1EVEW EQU ZZ1EVE 02205000 ZZ1ACMP EQU ZZ1ATTN 02206000 @NM00006 EQU ZZ1+144 02207000 ZZ1ZZ6P EQU ZZ1+136 02208000 @NM00005 EQU ZZ1+84 02209000 ZZ1PLINE EQU ZZ1+80 02210000 ZZ1PGSZ EQU ZZ1+76 02211000 ZZ1PCNT EQU ZZ1+72 02212000 @NM00004 EQU ZZ1+68 02213000 ZZ1TPAGE EQU ZZ1+64 02214000 ZZ1TLINE EQU ZZ1+60 02215000 @NM00003 EQU ZZ1+52 02216000 ZZ1DMCBP EQU ZZ1+48 02217000 ZZ1DSDP EQU ZZ1+44 02218000 ZZ1ZZ2P EQU ZZ1+36 02219000 ZZ1327WP EQU ZZ1+32 02220000 ZZ1ACBP EQU ZZ1+28 02221000 @NM00002 EQU ZZ1+24 02222000 ZZ1PDCBP EQU ZZ1+20 02223000 ZZ1BLRBL EQU ZZ1+16 02224000 @NM00001 EQU ZZ1+12 02225000 ZZ1PNULL EQU ZZ1+8 02226000 ZZ1NULL EQU ZZ1+4 02227000 ZZ1IDE EQU ZZ1 02228000 * END UNREFERENCED COMPONENTS 02229000 @RC00359 EQU @RC00347 02230000 @RC00388 EQU @EL00004 02231000 @RC00391 EQU @RC00388 02232000 @ENDDATA EQU * 02233000 END BLSEADP1,(C'PLS2132',0701,78062) 02234000