TITLE 'EP=BLSCANLI -- IPCS DAS TSO MESSAGE WRITER INTERCEPT *00001000 ' 00002000 * /* CHANGE ACTIVITY 00003000 * THIS MODULE IS WRITTEN FOR @G57LPSR 00004000 BLSCANLI CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSCANLI 78.062' 0002 00010000 DROP @15 00011000 @PROLOG STM @14,@12,12(@13) 0002 00012000 BALR @12,0 0002 00013000 @PSTART DS 0H 0002 00014000 USING @PSTART,@12 0002 00015000 L @00,@SIZDATD 0002 00016000 GETMAIN R,LV=(0) 00017000 LR @11,@01 0002 00018000 USING @DATD,@11 0002 00019000 ST @13,@SA00001+4 0002 00020000 LM @00,@01,20(@13) 0002 00021000 ST @11,8(,@13) 0002 00022000 LR @13,@11 0002 00023000 * MSGTABLE=MSGLIST; /* COPY THE MESSAGE WRITER PLIST */ 00024000 MVC MSGTABLE(80),MSGLIST(GPR01P) 0027 00025000 * RFY 0028 00026000 * GPR01P UNRSTD; 0028 00027000 * DMCBPTR=MTCPPL; /* BASE THE DMCB AND DMAL */ 00028000 L DMCBPTR,MTCPPL 0029 00029000 * MODNAME=LMODNMC; 0030 00030000 MVC MODNAME(8),@CC00961 0030 00031000 * RETCODE=F0C; 0031 00032000 SLR @10,@10 0031 00033000 ST @10,RETCODE 0031 00034000 * SUBCODE=F0C; 0032 00035000 * 0032 00036000 ST @10,SUBCODE 0032 00037000 * /*****************************************************************/ 00038000 * /* */ 00039000 * /* INITIALIZE THE MSGTABLE */ 00040000 * /* */ 00041000 * /*****************************************************************/ 00042000 * 0033 00043000 * LISTPTR=ADDR(MSGCSECT); /* POINT TO MESSAGE DESCRIPTION 00044000 * SECTION OF PARMLIST */ 00045000 LA @04,MSGCSECT 0033 00046000 ST @04,LISTPTR 0033 00047000 * MTEXTRLN=LENGTH(MTBUF1); /* LENGTH OF MESSAGE BUFFER 1 */ 00048000 MVI MTEXTRLN,X'FF' 0034 00049000 * MTEXTRBF=ADDR(MTBUF1); /* ADDRESS OF MESSAGE BUFFER 1 */ 00050000 LA @04,MTBUF1 0035 00051000 STCM @04,7,MTEXTRBF 0035 00052000 * MTEXTRL2=LENGTH(MTBUF2); /* LENGTH OF MESSAGE BUFFER 2 */ 00053000 MVI MTEXTRL2,X'FF' 0036 00054000 * MTEXTRB2=ADDR(MTBUF2); /* ADDRESS OF MESSAGE BUFFER 2 */ 00055000 LA @04,MTBUF2 0037 00056000 STCM @04,7,MTEXTRB2 0037 00057000 * MTCPPL=F0C; /* NO CPPL IS AVAILABLE */ 00058000 ST @10,MTCPPL 0038 00059000 * ECBPTR=F0C; /* NO ECBPTR IS AVAILABLE */ 00060000 ST @10,ECBPTR 0039 00061000 * MTPUTLSW=OFF; /* DO NOT ISSUE PUTLINE */ 00062000 * MTWTOSW=OFF; /* DO NOT ISSUE WTO */ 00063000 * MTWTPSW=ON; /* INDICATE A WTP TO IKJEFF02 */ 00064000 * MTHEXSW=ON; /* PRINT RETURN CODES IN HEX */ 00065000 OI MTWTPSW,B'00010010' 0043 00066000 NI MTPUTLSW,B'10011111' 0043 00067000 * MTDOMSW=OFF; /* DO NOT DELETE MESSAGES */ 00068000 * MTNPLMSW=OFF; /* RESTORE PUTLINE ERROR DEFAULT */ 00069000 * MTEXTRCN=OFF; /* DO NOT PERMIT WTP TO TERMINAL */ 00070000 * 0046 00071000 NI MTDOMSW,B'10101011' 0046 00072000 * /*****************************************************************/ 00073000 * /* */ 00074000 * /* INITIALIZE THE MESSAGE EXTRACT BUFFERS */ 00075000 * /* */ 00076000 * /*****************************************************************/ 00077000 * 0047 00078000 * MTBUF1=MTBUF1&&MTBUF1; /* CLEAR THE BUFFER */ 00079000 XC MTBUF1(255),MTBUF1 0047 00080000 * MTBUF2=MTBUF2&&MTBUF2; /* CLEAR THE BUFFER */ 00081000 * 0048 00082000 XC MTBUF2(255),MTBUF2 0048 00083000 * /*****************************************************************/ 00084000 * /* */ 00085000 * /* INVOKE IKJEFF02 USING THE MODIFIED TSO MESSAGE PLIST */ 00086000 * /* */ 00087000 * /*****************************************************************/ 00088000 * 0049 00089000 * CALL INVEFF02; /* INVOKE IKJEFF02 MESSAGE BUILD */ 00090000 BAL @14,INVEFF02 0049 00091000 * IF RETCODE=F0C| /* IF IKJEFF02 OK OR */ 00092000 * RETCODE=F76C THEN /* IF IKJEFF02 ISSUED MESSAGE */ 00093000 L @10,RETCODE 0050 00094000 LTR @10,@10 0050 00095000 BZ @RT00050 0050 00096000 C @10,@CF00168 0050 00097000 BNE @RF00050 0050 00098000 @RT00050 DS 0H 0051 00099000 * DO; /* REFORMAT IKJEFF02 MESSAGES 0051 00100000 * INTO IPCS PM/DM MESSAGE FORMAT*/ 00101000 * 0051 00102000 * /*************************************************************/ 00103000 * /* */ 00104000 * /* REFORMAT IKJEFF02 MESSAGES INTO IPCS PM/DM MESSAGE FORMAT */ 00105000 * /* */ 00106000 * /*************************************************************/ 00107000 * 0052 00108000 * CALL BLSCRFM(DMCB,DMCBMSG,ADDR(MTBUF1));/* REFORMAT FIRST 0052 00109000 * LEVEL MESSAGE */ 00110000 ST DMCBPTR,@AL00001 0052 00111000 LA @10,DMCBMSG(,DMCBPTR) 0052 00112000 ST @10,@AL00001+4 0052 00113000 LA @10,MTBUF1 0052 00114000 ST @10,@TF00001 0052 00115000 LA @10,@TF00001 0052 00116000 ST @10,@AL00001+8 0052 00117000 L @15,@CV00901 0052 00118000 LA @01,@AL00001 0052 00119000 BALR @14,@15 0052 00120000 * CALL BLSCRFM(DMCB,DMCBMSG,ADDR(MTBUF2));/* REFORMAT SECOND 0053 00121000 * LEVEL MESSAGE */ 00122000 ST DMCBPTR,@AL00001 0053 00123000 LA @10,DMCBMSG(,DMCBPTR) 0053 00124000 ST @10,@AL00001+4 0053 00125000 LA @10,MTBUF2 0053 00126000 ST @10,@TF00001 0053 00127000 LA @10,@TF00001 0053 00128000 ST @10,@AL00001+8 0053 00129000 L @15,@CV00901 0053 00130000 LA @01,@AL00001 0053 00131000 BALR @14,@15 0053 00132000 * END; /* REFORMAT IKJEFF02 MESSAGES 0054 00133000 * INTO IPCS PM/DM MESSAGE FORMAT*/ 00134000 * 0054 00135000 * /*****************************************************************/ 00136000 * /* */ 00137000 * /* TSO MESSAGE WRITER PLIST INTERCEPT COMPLETE, RETURN TO CALLER */ 00138000 * /* */ 00139000 * /*****************************************************************/ 00140000 * 0055 00141000 * RETURN CODE(RETCODE); 0055 00142000 @RF00050 L @10,RETCODE 0055 00143000 L @13,4(,@13) 0055 00144000 L @00,@SIZDATD 0055 00145000 LR @01,@11 0055 00146000 FREEMAIN R,LV=(0),A=(1) 00147000 LR @15,@10 0055 00148000 L @14,12(,@13) 0055 00149000 LM @00,@12,20(@13) 0055 00150000 BR @14 0055 00151000 EJECT 00152000 * 0056 00153000 * /*****************************************************************/ 00154000 * /* */ 00155000 * /* PROCEDURE TO INVOKE IKJEFF02 TO BUILD REQUESTOR'S MESSAGE */ 00156000 * /* */ 00157000 * /*****************************************************************/ 00158000 * 0056 00159000 *INVEFF02: 0056 00160000 * PROC; /* INVOKE IKJEFF02 TO BUILD 0056 00161000 * REQUESTOR'S MESSAGE */ 00162000 INVEFF02 STM @14,@12,@SA00002 0056 00163000 * RFY 0057 00164000 * GPR01P RSTD; 0057 00165000 * GPR01P=ADDR(MSGTABLE); /* GIVE USER PARMS TO IKJEFF02 */ 00166000 LA GPR01P,MSGTABLE 0058 00167000 * IF CVTEFF02=0 THEN /* TEST IKJEFF02 NOT IN LPALIB */ 00168000 L @10,CVTPTR 0059 00169000 L @10,CVTEFF02(,@10) 0059 00170000 LTR @10,@10 0059 00171000 BNZ @RF00059 0059 00172000 * DO; /* IKJEFF02 NOT IN LPALIB */ 00173000 * GEN FLOWS(LINKERR); 0061 00174000 * /* TELL COMPILER ABOUT 00175000 * ERRET(LINKERR) IN LINK MACRO 00176000 * DO; /* LINK EP(LINKNAME) 0062 00177000 * ERRET(LINKERR) */ 00178000 * I00601='00'X; /* EP/DE FLAG */ 00179000 MVI I00601,X'00' 0063 00180000 * I00602=ADDR(LINKNAME); /* ADDR OF EP/DE */ 00181000 LA @10,@CC00963 0064 00182000 STCM @10,7,I00602 0064 00183000 * I00604=0; /* DCB PTR */ 00184000 SLR @10,@10 0065 00185000 STCM @10,7,I00604 0065 00186000 * I00603='80'X; /* ERRET FLAG */ 00187000 MVI I00603,X'80' 0066 00188000 * I00605=ADDR(LINKERR); /* ERRET PTR */ 00189000 LA @10,LINKERR 0067 00190000 ST @10,I00605 0067 00191000 * RESPECIFY 0068 00192000 * (GPR15P) RESTRICTED; 0068 00193000 * GPR15P=ADDR(I006); /* ADDR OF LINK LIST */ 00194000 LA GPR15P,I006 0069 00195000 * SVC(6); /* ISSUE LINK SVC */ 00196000 SVC 6 0070 00197000 * RESPECIFY 0071 00198000 * (GPR15P) UNRESTRICTED; 0071 00199000 * END; /* LINK EP(LINKNAME) 0072 00200000 * ERRET(LINKERR) BUILD 0072 00201000 * REQUESTOR'S MESSAGE */ 00202000 * END; /* IKJEFF02 NOT IN LPALIB */ 00203000 * ELSE 0074 00204000 * CALL IKJEFF02; /* IKJEFF02 IS PRELOADED FROM 0074 00205000 * LPALIB */ 00206000 B @RC00059 0074 00207000 @RF00059 L @10,CVTPTR 0074 00208000 L @15,CVTEFF02(,@10) 0074 00209000 BALR @14,@15 0074 00210000 * RFY 0075 00211000 * GPR01P UNRSTD; 0075 00212000 @RC00059 DS 0H 0076 00213000 * RFY 0076 00214000 * GPR15F RSTD; 0076 00215000 * SUBCODE=GPR15F; /* SAVE THE RETURN CODE */ 00216000 ST GPR15F,SUBCODE 0077 00217000 * RFY 0078 00218000 * GPR15F UNRSTD; 0078 00219000 * IF SUBCODE^=0 THEN /* TEST FOR IKJEFF02 ERROR */ 00220000 L @10,SUBCODE 0079 00221000 LTR @10,@10 0079 00222000 BZ @RF00079 0079 00223000 * DO; /* IKJEFF02 ERROR */ 00224000 * RETCODE=SUBCODE; /* FORCE ERROR TO CALLER */ 00225000 ST @10,RETCODE 0081 00226000 * END; /* IKJEFF02 ERROR */ 00227000 * RETURN; 0083 00228000 @EL00002 DS 0H 0083 00229000 @EF00002 DS 0H 0083 00230000 @ER00002 LM @14,@12,@SA00002 0083 00231000 BR @14 0083 00232000 EJECT 00233000 * 0084 00234000 */* START OF SPECIFICATIONS*******************************************/ 00235000 */* */ 00236000 */* MODULE NAME: LINKERR (BLSCLKR) */ 00237000 */* */ 00238000 */* DESCRIPTIVE NAME: IPCS DAS LINK SVC ERROR RETURN ROUTINE */ 00239000 */* */ 00240000 */* COPYRIGHT: NONE */ 00241000 */* */ 00242000 */* STATUS: SU57 RELEASE 1, LEVEL 0 */ 00243000 */* */ 00244000 */* FUNCTION: */ 00245000 */* PROVIDE INCLUDED CODE FOR A LINK SVC ERROR RETURN THAT */ 00246000 */* PRODUCES MESSAGE BLS03110 AND HOOKS IT TO THE DMCBMSG */ 00247000 */* MESSAGE CHAIN ANCHOR. */ 00248000 */* */ 00249000 */* NOTES: */ 00250000 */* */ 00251000 */* DEPENDENCIES: */ 00252000 */* THE FOLLOWING SYMBOLS MUST BE DEFINED IN THE ENCLOSING */ 00253000 */* PROCEDURE: */ 00254000 */* RETCODE */ 00255000 */* SUBCODE */ 00256000 */* ERROR */ 00257000 */* GPR01F */ 00258000 */* GPR15F */ 00259000 */* ABENDC */ 00260000 */* REASON */ 00261000 */* RESULT */ 00262000 */* MODNAME */ 00263000 */* LINKNAME */ 00264000 */* CHSTR88 */ 00265000 */* CHSTR847 */ 00266000 */* CTEMP */ 00267000 */* CTEMP18 */ 00268000 */* HEXTBL */ 00269000 */* HEX0FC */ 00270000 */* F3110C */ 00271000 */* */ 00272000 */* RESTRICTIONS: NONE */ 00273000 */* */ 00274000 */* REGISTER CONVENTIONS: */ 00275000 */* GPR01F - (1) */ 00276000 */* GPR15F - (15) */ 00277000 */* */ 00278000 */* PATCH LABEL: N/A */ 00279000 */* */ 00280000 */* SERIALIZATION REQUIREMENTS: NONE */ 00281000 */* */ 00282000 */* MODULE TYPE: INCLUDED EXECUTABLE CODE */ 00283000 */* */ 00284000 */* PROCESSOR: PLS/2 */ 00285000 */* */ 00286000 */* MODULE SIZE: N/A */ 00287000 */* */ 00288000 */* ATTRIBUTES: */ 00289000 */* EXECUTABLE PROBLEM STATE REENTRANT */ 00290000 */* */ 00291000 */* ENTRY POINT: LINKERR */ 00292000 */* */ 00293000 */* PURPOSE: SEE FUNCTION */ 00294000 */* */ 00295000 */* LINKAGE: */ 00296000 */* R01 LOADED WITH ABEND CODE */ 00297000 */* R15 LOADED WITH ABEND REASON CODE */ 00298000 */* */ 00299000 */* METHOD OF ACCESS: SYSTEM LINK SVC ERRET */ 00300000 */* */ 00301000 */* INPUT: SEE LINKAGE */ 00302000 */* */ 00303000 */* OUTPUT: */ 00304000 */* MESSAGE BLS03110 CHAINED FROM DMCBMSG IN IPCS DM/PM FORMAT. */ 00305000 */* THE OUTPUT MESSAGE LIST FORMAT IS DESCRIBED IN THE BLSDMSG0 */ 00306000 */* MODULE DESCRIPTION. */ 00307000 */* */ 00308000 */* EXIT-NORMAL: RETURN TO LINK SVC */ 00309000 */* RETCODE = 8 MESSAGE BLS03110 IS ISSUED. */ 00310000 */* */ 00311000 */* EXIT-ERROR: NONE */ 00312000 */* */ 00313000 */* EXTERNAL REFERENCES: */ 00314000 */* */ 00315000 */* ROUTINES: */ 00316000 */* BLSDMSG0 IPCS DM/PM MESSAGE TEXT BUILD FUNCTION */ 00317000 */* */ 00318000 */* DATA AREAS: SEE SYMBOLS DEFINED UNDER DEPENDENCIES */ 00319000 */* */ 00320000 */* CONTROL BLOCKS: DMCB R,W */ 00321000 */* BLSDMSGS R */ 00322000 */* ZZ2 R */ 00323000 */* */ 00324000 */* TABLES/WORKAREAS: NONE */ 00325000 */* */ 00326000 */* MACROS: BLSDMSG */ 00327000 */* */ 00328000 */* CHANGE ACTIVITY: */ 00329000 */* THIS MODULE IS WRITTEN FOR @G57LPSR. */ 00330000 */* */ 00331000 */* MESSAGES ISSUED: */ 00332000 */* BLS03110I LINK SVC TO LINKNAME FROM MODNAME FAILED. */ 00333000 */* ABEND CODE=XXXXXXXX, REASON CODE=YYYYYYYY */ 00334000 */* */ 00335000 */* ABEND CODES: NONE */ 00336000 */* */ 00337000 */* DATA SETS ACCESSED: NONE */ 00338000 */* */ 00339000 */*** END OF SPECIFICATIONS*******************************************/ 00340000 * 0084 00341000 *LINKERR: 0084 00342000 * RFY 0084 00343000 * (GPR01F, 0084 00344000 * GPR15F) RSTD; 0084 00345000 LINKERR DS 0H 0085 00346000 * ABENDC=GPR01F; /* SAVE THE ABEND CODE */ 00347000 LR ABENDC,GPR01F 0085 00348000 * REASON=GPR15F; /* SAVE THE ABEND REASON CODE */ 00349000 LR REASON,GPR15F 0086 00350000 * RFY 0087 00351000 * (GPR01F, 0087 00352000 * GPR15F) UNRSTD; 0087 00353000 * CHSTR847=ABENDC; /* GET ABEND CODE FIELD */ 00354000 STCM ABENDC,15,CHSTR847 0088 00355000 * CHSTR88=LHEX0FC; /* TRANSLATE IT TO PRINTABLE HEX */ 00356000 MVI CHSTR88,X'0F' 0089 00357000 * UNPK(CTEMP,CHSTR8); 0090 00358000 UNPK CTEMP(9),CHSTR8(8) 0090 00359000 * TR(CTEMP,HEXTBL); 0091 00360000 TR CTEMP(9),HEXTBL 0091 00361000 * RESULT=CTEMP18; /* STORE THE RESULT */ 00362000 MVC RESULT(8),CTEMP18 0092 00363000 * CHSTR847=REASON; /* GET REASON CODE FIELD */ 00364000 STCM REASON,15,CHSTR847 0093 00365000 * CHSTR88=LHEX0FC; /* TRANSLATE IT TO PRINTABLE HEX */ 00366000 MVI CHSTR88,X'0F' 0094 00367000 * UNPK(CTEMP,CHSTR8); 0095 00368000 UNPK CTEMP(9),CHSTR8(8) 0095 00369000 * TR(CTEMP,HEXTBL); 0096 00370000 TR CTEMP(9),HEXTBL 0096 00371000 * DO; /* BLSDMSG 0097 00372000 * (ZZ2,F3110C,DMCBMSG,BLSDMSGS) 00373000 * INSERT(LINKNAME,MODNAME,RESULT 00374000 * ,CTEMP18) */ 00375000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT INSERT */ 00376000 LA @10,IOPTLIST+12 0098 00377000 ST @10,IOPTLIST 0098 00378000 * IOPTLIST(2)=ADDR(LINKNAME); /* INSERT NAME POINTER */ 00379000 LA @10,@CC00963 0099 00380000 ST @10,IOPTLIST+4 0099 00381000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00382000 SLR @10,@10 0100 00383000 ST @10,IOPTLIST+8 0100 00384000 * RFY 0101 00385000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00386000 * I015F=LENGTH(LINKNAME); /* INSERT LENGTH */ 00387000 LA @04,8 0102 00388000 LA @15,IOPTLIST+8 0102 00389000 STH @04,I015F(,@15) 0102 00390000 * IOPTLIST(4)=ADDR(IOPTLIST(7));/* CHAIN TO NEXT INSERT */ 00391000 LA @15,IOPTLIST+24 0103 00392000 ST @15,IOPTLIST+12 0103 00393000 * IOPTLIST(5)=ADDR(MODNAME); /* INSERT NAME POINTER */ 00394000 LA @15,MODNAME 0104 00395000 ST @15,IOPTLIST+16 0104 00396000 * IOPTLIST(6)=0; /* ZERO RESERVED FIELD */ 00397000 ST @10,IOPTLIST+20 0105 00398000 * RFY 0106 00399000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS BYTES 1-2 */ 00400000 * I015F=LENGTH(MODNAME); /* INSERT LENGTH */ 00401000 LA @15,IOPTLIST+20 0107 00402000 STH @04,I015F(,@15) 0107 00403000 * IOPTLIST(7)=ADDR(IOPTLIST(10));/* CHAIN TO NEXT INSERT */ 00404000 LA @15,IOPTLIST+36 0108 00405000 ST @15,IOPTLIST+24 0108 00406000 * IOPTLIST(8)=ADDR(RESULT); /* INSERT NAME POINTER */ 00407000 LA @15,RESULT 0109 00408000 ST @15,IOPTLIST+28 0109 00409000 * IOPTLIST(9)=0; /* ZERO RESERVED FIELD */ 00410000 ST @10,IOPTLIST+32 0110 00411000 * RFY 0111 00412000 * I015F BASED(ADDR(IOPTLIST(9)));/* ACCESS BYTES 1-2 */ 00413000 * I015F=LENGTH(RESULT); /* INSERT LENGTH */ 00414000 LA @15,IOPTLIST+32 0112 00415000 STH @04,I015F(,@15) 0112 00416000 * IOPTLIST(10)=0; /* LAST INSERT */ 00417000 ST @10,IOPTLIST+36 0113 00418000 * IOPTLIST(11)=ADDR(CTEMP18); /* INSERT NAME POINTER */ 00419000 LA @15,CTEMP18 0114 00420000 ST @15,IOPTLIST+40 0114 00421000 * IOPTLIST(12)=0; /* ZERO RESERVED FIELD */ 00422000 ST @10,IOPTLIST+44 0115 00423000 * RFY 0116 00424000 * I015F BASED(ADDR(IOPTLIST(12)));/* ACCESS BYTES 1-2 */ 00425000 * I015F=LENGTH(CTEMP18); /* INSERT LENGTH */ 00426000 LA @10,IOPTLIST+44 0117 00427000 STH @04,I015F(,@10) 0117 00428000 * CALL BLSDMSG0(ZZ2,F3110C,DMCBMSG,BLSDMSGS,'00000000'B,ADDR( 0118 00429000 * IOPTLIST)); /* BUILD MESSAGE */ 00430000 L @10,DMCBTVP(,DMCBPTR) 0118 00431000 ST @10,@AL00001 0118 00432000 LA @10,@CF00948 0118 00433000 ST @10,@AL00001+4 0118 00434000 LA @10,DMCBMSG(,DMCBPTR) 0118 00435000 ST @10,@AL00001+8 0118 00436000 L @10,DMCBMSGS(,DMCBPTR) 0118 00437000 ST @10,@AL00001+12 0118 00438000 LA @10,@CB00996 0118 00439000 ST @10,@AL00001+16 0118 00440000 LA @10,IOPTLIST 0118 00441000 ST @10,@AFTEMPS 0118 00442000 LA @10,@AFTEMPS 0118 00443000 ST @10,@AL00001+20 0118 00444000 L @15,DMCBMSG0(,DMCBPTR) 0118 00445000 LA @01,@AL00001 0118 00446000 BALR @14,@15 0118 00447000 * END; /* BLSDMSG 0119 00448000 * (ZZ2,F3110C,DMCBMSG,BLSDMSGS) 00449000 * INSERT(LINKNAME,MODNAME,RESULT 00450000 * ,CTEMP18) BUILD LINK SVC ERROR 00451000 * MESSAGE */ 00452000 * RETCODE=ERROR; /* MARK ERROR TO CALLER */ 00453000 MVC RETCODE(4),@CF00042 0120 00454000 * END INVEFF02; /* INVOKE IKJEFF02 TO BUILD 0121 00455000 * REQUESTOR'S MESSAGE */ 00456000 B @EL00002 0121 00457000 EJECT 00458000 * 0122 00459000 * /*****************************************************************/ 00460000 * /* */ 00461000 * /* END OF EXECUTABLE PROCEDURE STATEMENTS */ 00462000 * /* */ 00463000 * /*****************************************************************/ 00464000 * 0122 00465000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00466000 * GPR01F FIXED(31) REG(1), 0122 00467000 * GPR15F FIXED(31) REG(15), 0122 00468000 * GPR01P PTR(31) REG(1), 0122 00469000 * GPR15P PTR(31) REG(15); 0122 00470000 * DCL 0123 00471000 * 1 I006 DEF(ILIST), /* DEFINE LIST */ 00472000 * 2 I00601 CHAR(1), /* EP/DE FLAG */ 00473000 * 2 I00602 PTR(24), /* EP/DE PTR */ 00474000 * 2 I00603 CHAR(1), /* ERRET FLAG */ 00475000 * 2 I00604 PTR(24), /* DCB PTR */ 00476000 * 2 I00605 PTR(31); /* ERRET PTR */ 00477000 * DECLARE 0124 00478000 * ILIST CHAR(12) BDY(DWORD); /* STANDARD LIST */ 00479000 * DECLARE /* COMMON VARIABLES */ 00480000 * I256C CHAR(256) BASED, 0125 00481000 * I031F FIXED(31) BASED, 0125 00482000 * I031P PTR(31) BASED, 0125 00483000 * I015F FIXED(15) BASED, 0125 00484000 * I015P PTR(15) BASED, 0125 00485000 * I008P PTR(8) BASED, 0125 00486000 * I001C CHAR(1) BASED; 0125 00487000 * DECLARE 0126 00488000 * IOPTLIST(12) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 00489000 * DCL 0127 00490000 * 1 DASPATCH LOCAL BDY(DWORD), /* PATCH AREA */ 00491000 * 2 DASPATA(DASPATLN) PTR INIT((DASPATLN)0); 0127 00492000 * GEN DATA DEFS(HEXTBL); 0128 00493000 * END BLSCANLI 0129 00494000 * 0129 00495000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00496000 */*%INCLUDE SYSLIB (IKJEFFMT) */ 00497000 */*%INCLUDE SYSLIB (CVT ) */ 00498000 */*%INCLUDE SYSLIB (BLSCLKR ) */ 00499000 * 0129 00500000 * ; 0129 00501000 @EL00001 L @13,4(,@13) 0129 00502000 @EF00001 L @00,@SIZDATD 0129 00503000 LR @01,@11 0129 00504000 FREEMAIN R,LV=(0),A=(1) 00505000 @ER00001 LM @14,@12,12(@13) 0129 00506000 BR @14 0129 00507000 @DATA DS 0H 00508000 @DATD DSECT 00509000 DS 0F 00510000 @SA00001 DS 18F 00511000 @SA00002 DS 15F 00512000 @AL00001 DS 6A 00513000 @TF00001 DS F 00514000 @AFTEMPS DS 1F 00515000 BLSCANLI CSECT 00516000 DS 0F 00517000 @CF00042 DC F'8' 00518000 @CF00168 DC F'76' 00519000 @CF00948 DC F'3110' 00520000 @DATD DSECT 00521000 DS 0D 00522000 MSGTABLE DS CL80 00523000 ORG MSGTABLE 00524000 LISTPTR DS AL4 00525000 TMCTPTR DS AL4 00526000 ORG TMCTPTR 00527000 MTCPPL DS AL4 00528000 ORG MSGTABLE+8 00529000 ECBPTR DS AL4 00530000 @NM00001 DS AL4 00531000 ORG @NM00001 00532000 MTHIGH DS BL1 00533000 ORG MSGTABLE+16 00534000 MSGCSECT DS AL4 00535000 SW DS AL1 00536000 ORG SW 00537000 MTNOIDSW DS BL1 00538000 MTPUTLSW EQU SW+0 00539000 MTWTOSW EQU SW+0 00540000 MTHEXSW EQU SW+0 00541000 MTKEY1SW EQU SW+0 00542000 MTJOBISW EQU SW+0 00543000 MTWTPSW EQU SW+0 00544000 MTNHEXSW EQU SW+0 00545000 ORG MSGTABLE+21 00546000 RETMSG DS AL3 00547000 SW2 DS AL1 00548000 ORG SW2 00549000 MT2OLDSW DS BL1 00550000 MTDOMSW EQU SW2+0 00551000 MTNOXQSW EQU SW2+0 00552000 MTNPLMSW EQU SW2+0 00553000 MTPGMSW EQU SW2+0 00554000 MTEXTRCN EQU SW2+0 00555000 @NM00002 EQU SW2+0 00556000 ORG MSGTABLE+25 00557000 @NM00003 DS AL3 00558000 MTOLDPTR DS AL4 00559000 MTEXTRCT DS AL4 00560000 ORG MTEXTRCT 00561000 MTEXTRLN DS AL1 00562000 MTEXTRBF DS AL3 00563000 ORG MSGTABLE+36 00564000 MTEXTRC2 DS AL4 00565000 ORG MTEXTRC2 00566000 MTEXTRL2 DS AL1 00567000 MTEXTRB2 DS AL3 00568000 ORG MSGTABLE+40 00569000 MSGID DS CL4 00570000 MTINSRTS DS CL36 00571000 ORG MTINSRTS 00572000 MTINSRT DS CL4 00573000 ORG MTINSRT+0 00574000 MTLEN DS AL1 00575000 ORG MTLEN+0 00576000 MTHIGHL DS BL1 00577000 ORG MTINSRT+1 00578000 MTADDR DS AL3 00579000 ORG MSGTABLE+80 00580000 MODSTAT DS CL16 00581000 ORG MODSTAT 00582000 MODNAME DS CL8 00583000 RETCODE DS FL4 00584000 SUBCODE DS FL4 00585000 ORG MODSTAT+16 00586000 RESULT DS CL8 00587000 CHSTR8 DS CL8 00588000 ORG CHSTR8 00589000 @NM00006 DS CL3 00590000 CHSTR847 DS CL4 00591000 ORG CHSTR847 00592000 CHSTR846 DS CL3 00593000 CHSTR87 DS CL1 00594000 ORG CHSTR8+7 00595000 CHSTR88 DS CL1 00596000 ORG CHSTR8+8 00597000 CTEMP DS CL9 00598000 ORG CTEMP 00599000 CTEMP18 DS CL8 00600000 ORG CTEMP18 00601000 CTEMP14 DS CL4 00602000 CTEMP58 DS CL4 00603000 ORG CTEMP58 00604000 CTEMP56 DS CL2 00605000 CTEMP78 DS CL2 00606000 ORG CTEMP+9 00607000 DS CL3 00608000 MTBUFS DS CL511 00609000 ORG MTBUFS 00610000 MTBUF1 DS CL255 00611000 ORG MTBUF1 00612000 MTBUFL1 DS FL2 00613000 MTBUFO1 DS FL2 00614000 MTBUFT1 DS CL251 00615000 ORG MTBUFS+255 00616000 @NM00007 DS CL1 00617000 MTBUF2 DS CL255 00618000 ORG MTBUF2 00619000 MTBUFL2 DS FL2 00620000 MTBUFO2 DS FL2 00621000 MTBUFT2 DS CL251 00622000 ORG MTBUFS+511 00623000 DS CL5 00624000 ILIST DS CL12 00625000 IOPTLIST DS 12A 00626000 BLSCANLI CSECT 00627000 DS 0F 00628000 @SIZDATD DC AL1(0) 00629000 DC AL3(@ENDDATD-@DATD) 00630000 @CV00901 DC V(BLSCRFM) 00631000 DS 0D 00632000 @CC00961 DC C'BLSCANLI' 00633000 @CC00963 DC C'IKJEFF02' 00634000 @CB00996 DC B'00000000' 00635000 DS CL7 00636000 DASPATCH DS CL80 00637000 ORG DASPATCH 00638000 DASPATA DC 20A(0) 00639000 ORG DASPATCH+80 00640000 BLSCANLI CSECT 00641000 * /* 00642000 HEXTBL EQU *-240 00643000 DC CL16'0123456789ABCDEF' 00644000 @DATD DSECT 00645000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00646000 @ENDDATD EQU * 00647000 BLSCANLI CSECT 00648000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00649000 @01 EQU 01 00650000 @02 EQU 02 00651000 @03 EQU 03 00652000 @04 EQU 04 00653000 @05 EQU 05 00654000 @06 EQU 06 00655000 @07 EQU 07 00656000 @08 EQU 08 00657000 @09 EQU 09 00658000 @10 EQU 10 00659000 @11 EQU 11 00660000 @12 EQU 12 00661000 @13 EQU 13 00662000 @14 EQU 14 00663000 @15 EQU 15 00664000 REASON EQU @06 00665000 ABENDC EQU @04 00666000 DMCBPTR EQU @05 00667000 GPR01P EQU @01 00668000 GPR15P EQU @15 00669000 GPR15F EQU @15 00670000 GPR01F EQU @01 00671000 CVTPTR EQU 16 00672000 DMCB EQU 0 00673000 DMCBTVP EQU DMCB+8 00674000 DMCBFTY EQU DMCB+20 00675000 DMCBOPN EQU DMCB+21 00676000 DMCBRMOD EQU DMCB+23 00677000 DMCBOUT EQU DMCBRMOD 00678000 DMCBOPTS EQU DMCB+24 00679000 DMCBGKY EQU DMCBOPTS 00680000 DMCBMFLG EQU DMCB+28 00681000 DMCBBUFP EQU DMCB+32 00682000 DMCBKEYP EQU DMCB+44 00683000 DMCBMSG EQU DMCB+52 00684000 DMCBRI EQU DMCB+64 00685000 DMCBMSG0 EQU DMCB+68 00686000 DMCBMSGS EQU DMCB+72 00687000 DMCBFRE EQU DMCB+88 00688000 DMCBEOB EQU DMCB+92 00689000 DMCBACBE EQU DMCB+124 00690000 DMCBSPEC EQU DMCB+380 00691000 DMCBAMS EQU DMCB+416 00692000 DMCBAUDT EQU DMCB+568 00693000 DMCBLSCP EQU DMCBAUDT+16 00694000 RET EQU 0 00695000 CVTMAP EQU 0 00696000 CVTDAR EQU CVTMAP+72 00697000 CVTFLGS1 EQU CVTDAR 00698000 CVTDCB EQU CVTMAP+116 00699000 CVTIOQET EQU CVTMAP+120 00700000 CVTIERLC EQU CVTMAP+144 00701000 CVTHEAD EQU CVTMAP+160 00702000 CVTSV76C EQU CVTHEAD 00703000 CVTOPTA EQU CVTMAP+182 00704000 CVTOPTB EQU CVTMAP+183 00705000 CVTGTF EQU CVTMAP+236 00706000 CVTGTFST EQU CVTGTF 00707000 CVTGTFS EQU CVTGTFST 00708000 CVTSTATE EQU CVTGTFST 00709000 CVTTMODE EQU CVTGTFST 00710000 CVTFORM EQU CVTGTFST 00711000 CVTAQAVT EQU CVTMAP+240 00712000 CVTTCMFG EQU CVTAQAVT 00713000 CVTVOLM2 EQU CVTMAP+244 00714000 CVTTATA EQU CVTVOLM2 00715000 CVTTSKS EQU CVTTATA 00716000 CVTVOLF2 EQU CVTTSKS 00717000 CVTTAT EQU CVTTATA+1 00718000 CVTATER EQU CVTMAP+248 00719000 CVTEXT1 EQU CVTMAP+252 00720000 CVTPURG EQU CVTMAP+260 00721000 CVTQMSG EQU CVTMAP+268 00722000 CVTDMSR EQU CVTMAP+272 00723000 CVTRSV37 EQU CVTDMSR 00724000 CVTDMSRF EQU CVTRSV37 00725000 CVTERPV EQU CVTMAP+316 00726000 CVTINTLA EQU CVTMAP+320 00727000 CVTAPF EQU CVTMAP+324 00728000 CVTEXT2 EQU CVTMAP+328 00729000 CVTHJES EQU CVTMAP+332 00730000 CVTPGSIA EQU CVTMAP+348 00731000 CVTA1F1 EQU CVTMAP+356 00732000 CVTSYSK EQU CVTMAP+357 00733000 CVTVOLM1 EQU CVTMAP+380 00734000 CVTVOLF1 EQU CVTVOLM1 00735000 CVTATMCT EQU CVTMAP+388 00736000 CVTXTNT1 EQU 0 00737000 CVTXTNT2 EQU 0 00738000 CVTDSSV EQU CVTXTNT2 00739000 CVTFLGBT EQU CVTXTNT2+5 00740000 CVTQID EQU CVTXTNT2+24 00741000 CVTRV400 EQU CVTXTNT2+52 00742000 CVTRV409 EQU CVTXTNT2+53 00743000 CVTATCVT EQU CVTXTNT2+64 00744000 CVTRV429 EQU CVTXTNT2+84 00745000 CVTRV438 EQU CVTXTNT2+85 00746000 CVTRV457 EQU CVTXTNT2+112 00747000 CVTRV466 EQU CVTXTNT2+113 00748000 CVTFIX EQU 0 00749000 CVTRELNO EQU CVTFIX+252 00750000 MSGLIST EQU 0 00751000 BLSDMSGS EQU 0 00752000 BLSDMSG0 EQU 0 00753000 ZZ2 EQU 0 00754000 IKJEFF02 EQU 0 00755000 I015F EQU 0 00756000 DMCBDMGR EQU 0 00757000 DMCBRQC EQU 0 00758000 I001C EQU 0 00759000 I008P EQU 0 00760000 I015P EQU 0 00761000 I031F EQU 0 00762000 I031P EQU 0 00763000 I256C EQU 0 00764000 MSGECB EQU 0 00765000 MSGTMCT EQU 0 00766000 DMCBVSM EQU DMCBAMS 00767000 DMCBQSM EQU DMCBAMS 00768000 CVTS01 EQU CVTPGSIA 00769000 CVTLPDIA EQU CVTS01+12 00770000 CVTDIRST EQU CVTLPDIA 00771000 CVTSLIDA EQU CVTS01+24 00772000 CVTCTLFG EQU CVTS01+50 00773000 CVTRV210 EQU CVTS01+424 00774000 CVTRV219 EQU CVTS01+425 00775000 CVTRV228 EQU CVTS01+426 00776000 CVTRV237 EQU CVTS01+427 00777000 CVTMFRTR EQU CVTS01+452 00778000 CVTRV262 EQU CVTS01+468 00779000 CVTRV271 EQU CVTS01+469 00780000 CVTRV280 EQU CVTS01+470 00781000 CVTRV289 EQU CVTS01+471 00782000 CVTGSDA EQU CVTS01+600 00783000 CVTEFF02 EQU CVTS01+628 00784000 I006 EQU ILIST 00785000 I00601 EQU I006 00786000 I00602 EQU I006+1 00787000 I00603 EQU I006+4 00788000 I00604 EQU I006+5 00789000 I00605 EQU I006+8 00790000 CHSTR878 EQU CHSTR8+6 00791000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00792000 CVTRV628 EQU CVTS01+728 00793000 CVTRV627 EQU CVTS01+724 00794000 CVTRV626 EQU CVTS01+720 00795000 CVTRV625 EQU CVTS01+716 00796000 CVTRV624 EQU CVTS01+712 00797000 CVTRV623 EQU CVTS01+708 00798000 CVTRV622 EQU CVTS01+704 00799000 CVTRV621 EQU CVTS01+700 00800000 CVTIHASU EQU CVTS01+696 00801000 CVTSUSP EQU CVTS01+692 00802000 CVTT6SVC EQU CVTS01+688 00803000 CVTCDAL EQU CVTS01+684 00804000 CVTTCTL EQU CVTS01+680 00805000 CVTRSUME EQU CVTS01+676 00806000 CVTJTERM EQU CVTS01+672 00807000 CVTASMRM EQU CVTS01+668 00808000 CVTTCASP EQU CVTS01+664 00809000 CVT0PT03 EQU CVTS01+660 00810000 CVT0PT0E EQU CVTS01+656 00811000 CVTRV609 EQU CVTS01+652 00812000 CVTCGK EQU CVTS01+648 00813000 CVTRAC EQU CVTS01+644 00814000 CVTRV606 EQU CVTS01+640 00815000 CVTRV605 EQU CVTS01+636 00816000 CVTRV604 EQU CVTS01+632 00817000 CVTCBBR EQU CVTS01+624 00818000 CVTSSCR EQU CVTS01+620 00819000 CVTEVENT EQU CVTS01+616 00820000 CVTCRCA EQU CVTS01+612 00821000 CVTTPIO EQU CVTS01+608 00822000 CVTADV EQU CVTS01+604 00823000 CVTGSDAB EQU CVTGSDA 00824000 CVTQV3 EQU CVTS01+596 00825000 CVTQV2 EQU CVTS01+592 00826000 CVTQV1 EQU CVTS01+588 00827000 CVTRPT EQU CVTS01+584 00828000 CVTSSRB EQU CVTS01+580 00829000 CVTCSDRL EQU CVTS01+576 00830000 CVTEXP1 EQU CVTS01+572 00831000 CVTRMPMT EQU CVTS01+568 00832000 CVTRMPTT EQU CVTS01+564 00833000 CVTVPSA EQU CVTS01+560 00834000 CVTVSTOP EQU CVTS01+556 00835000 CVTGTFR8 EQU CVTS01+552 00836000 CVTQUIT EQU CVTS01+548 00837000 CVTVACR EQU CVTS01+544 00838000 CVTWTCB EQU CVTS01+540 00839000 CVTSTPRS EQU CVTS01+536 00840000 CVT0PT02 EQU CVTS01+532 00841000 CVTDARCM EQU CVTS01+528 00842000 CVTIRECM EQU CVTS01+524 00843000 CVTJRECM EQU CVTS01+520 00844000 CVTVEMS0 EQU CVTS01+516 00845000 CVTSPFRR EQU CVTS01+512 00846000 CVTRLSTG EQU CVTS01+508 00847000 CVT0TC0A EQU CVTS01+504 00848000 CVTGMBR EQU CVTS01+500 00849000 CVTLFRM EQU CVTS01+496 00850000 CVTRMBR EQU CVTS01+492 00851000 CVTVIOP EQU CVTS01+488 00852000 CVTRV307 EQU CVTS01+486 00853000 CVTRV306 EQU CVTS01+484 00854000 CVTRV305 EQU CVTS01+482 00855000 CVTRV304 EQU CVTS01+480 00856000 CVTRV303 EQU CVTS01+478 00857000 CVTRV302 EQU CVTS01+476 00858000 CVTTRCA EQU CVTS01+472 00859000 CVTRV297 EQU CVTRV289 00860000 CVTRV296 EQU CVTRV289 00861000 CVTRV295 EQU CVTRV289 00862000 CVTRV294 EQU CVTRV289 00863000 CVTRV293 EQU CVTRV289 00864000 CVTRV292 EQU CVTRV289 00865000 CVTRV291 EQU CVTRV289 00866000 CVTRV290 EQU CVTRV289 00867000 CVTRV288 EQU CVTRV280 00868000 CVTRV287 EQU CVTRV280 00869000 CVTRV286 EQU CVTRV280 00870000 CVTRV285 EQU CVTRV280 00871000 CVTRV284 EQU CVTRV280 00872000 CVTRV283 EQU CVTRV280 00873000 CVTRV282 EQU CVTRV280 00874000 CVTRV281 EQU CVTRV280 00875000 CVTRV279 EQU CVTRV271 00876000 CVTRV278 EQU CVTRV271 00877000 CVTRV277 EQU CVTRV271 00878000 CVTRV276 EQU CVTRV271 00879000 CVTRV275 EQU CVTRV271 00880000 CVTRV274 EQU CVTRV271 00881000 CVTRV273 EQU CVTRV271 00882000 CVTRV272 EQU CVTRV271 00883000 CVTRV270 EQU CVTRV262 00884000 CVTRV269 EQU CVTRV262 00885000 CVTRV268 EQU CVTRV262 00886000 CVTRV267 EQU CVTRV262 00887000 CVTRV266 EQU CVTRV262 00888000 CVTRV265 EQU CVTRV262 00889000 CVTRV264 EQU CVTRV262 00890000 CVTRV263 EQU CVTRV262 00891000 CVTVFP EQU CVTS01+464 00892000 CVTVSI EQU CVTS01+460 00893000 CVTVPSIB EQU CVTS01+456 00894000 CVTMFACT EQU CVTMFRTR 00895000 CVTMFCTL EQU CVTS01+448 00896000 CVTPVBP EQU CVTS01+444 00897000 CVTPWI EQU CVTS01+440 00898000 CVTRV254 EQU CVTS01+438 00899000 CVTRV253 EQU CVTS01+436 00900000 CVTRV252 EQU CVTS01+434 00901000 CVTRV251 EQU CVTS01+433 00902000 CVTRV250 EQU CVTS01+432 00903000 CVTRV249 EQU CVTS01+431 00904000 CVTRV248 EQU CVTS01+430 00905000 CVTRV247 EQU CVTS01+429 00906000 CVTRV246 EQU CVTS01+428 00907000 CVTRV245 EQU CVTRV237 00908000 CVTRV244 EQU CVTRV237 00909000 CVTRV243 EQU CVTRV237 00910000 CVTRV242 EQU CVTRV237 00911000 CVTRV241 EQU CVTRV237 00912000 CVTRV240 EQU CVTRV237 00913000 CVTRV239 EQU CVTRV237 00914000 CVTRV238 EQU CVTRV237 00915000 CVTRV236 EQU CVTRV228 00916000 CVTRV235 EQU CVTRV228 00917000 CVTRV234 EQU CVTRV228 00918000 CVTRV233 EQU CVTRV228 00919000 CVTRV232 EQU CVTRV228 00920000 CVTRV231 EQU CVTRV228 00921000 CVTRV230 EQU CVTRV228 00922000 CVTRV229 EQU CVTRV228 00923000 CVTRV227 EQU CVTRV219 00924000 CVTRV226 EQU CVTRV219 00925000 CVTRV225 EQU CVTRV219 00926000 CVTRV224 EQU CVTRV219 00927000 CVTRV223 EQU CVTRV219 00928000 CVTRV222 EQU CVTRV219 00929000 CVTRV221 EQU CVTRV219 00930000 CVTRV220 EQU CVTRV219 00931000 CVTRV218 EQU CVTRV210 00932000 CVTRV217 EQU CVTRV210 00933000 CVTRV216 EQU CVTRV210 00934000 CVTRV215 EQU CVTRV210 00935000 CVTRV214 EQU CVTRV210 00936000 CVTRV213 EQU CVTRV210 00937000 CVTRV212 EQU CVTRV210 00938000 CVTRV211 EQU CVTRV210 00939000 CVTLCCAT EQU CVTS01+420 00940000 CVTPCCAT EQU CVTS01+416 00941000 CVTIPCRP EQU CVTS01+412 00942000 CVTIPCRI EQU CVTS01+408 00943000 CVTIPCDS EQU CVTS01+404 00944000 CVTAIDVT EQU CVTS01+400 00945000 CVTSSAP EQU CVTS01+396 00946000 CVTEHCIR EQU CVTS01+392 00947000 CVTEHDEF EQU CVTS01+388 00948000 CVTDAIR EQU CVTS01+384 00949000 CVTPERFM EQU CVTS01+380 00950000 CVT044R2 EQU CVTS01+376 00951000 CVTFETCH EQU CVTS01+372 00952000 CVTRSTWD EQU CVTS01+368 00953000 CVTSPOST EQU CVTS01+364 00954000 CVTIOBP EQU CVTS01+360 00955000 CVTASMVT EQU CVTS01+356 00956000 CVTRECRQ EQU CVTS01+352 00957000 CVTWSAC EQU CVTS01+348 00958000 CVTRV149 EQU CVTS01+344 00959000 CVTWSAL EQU CVTS01+340 00960000 CVTSPSA EQU CVTS01+336 00961000 CVTGLMN EQU CVTS01+332 00962000 CVTVEAC0 EQU CVTS01+328 00963000 CVT062R1 EQU CVTS01+324 00964000 CVTRPOST EQU CVTS01+320 00965000 CVTDQIQE EQU CVTS01+316 00966000 CVTCSD EQU CVTS01+312 00967000 CVTLKRMA EQU CVTS01+308 00968000 CVTRSPIE EQU CVTS01+304 00969000 CVTRENQ EQU CVTS01+300 00970000 CVTLQCB EQU CVTS01+296 00971000 CVTFQCB EQU CVTS01+292 00972000 CVTQCS01 EQU CVTS01+288 00973000 CVTAPFT EQU CVTS01+284 00974000 CVTPARRL EQU CVTS01+280 00975000 CVTVWAIT EQU CVTS01+276 00976000 CVTGSPL EQU CVTS01+272 00977000 CVTLSMQ EQU CVTS01+268 00978000 CVTGSMQ EQU CVTS01+264 00979000 CVTEXPRO EQU CVTS01+260 00980000 CVTOPCTP EQU CVTS01+256 00981000 CVTSIC EQU CVTS01+252 00982000 CVTTPIOS EQU CVTS01+248 00983000 CVTRTMS EQU CVTS01+244 00984000 CVTSDBF EQU CVTS01+240 00985000 CVTSCBP EQU CVTS01+236 00986000 CVTSDMP EQU CVTS01+232 00987000 CVTSV60 EQU CVTS01+228 00988000 CVTRTMCT EQU CVTS01+224 00989000 CVTASCBL EQU CVTS01+220 00990000 CVTASCBH EQU CVTS01+216 00991000 CVTGDA EQU CVTS01+212 00992000 CVTASVT EQU CVTS01+208 00993000 CVTVVMDI EQU CVTS01+204 00994000 CVTAQTOP EQU CVTS01+200 00995000 CVTIOSCS EQU CVTS01+196 00996000 CVTSDRM EQU CVTS01+192 00997000 CVTOPTE EQU CVTS01+188 00998000 CVTSTXU EQU CVTS01+184 00999000 CVTQUIS EQU CVTS01+180 01000000 CVTPARS EQU CVTS01+176 01001000 CVTS1EE EQU CVTS01+172 01002000 CVTFRAS EQU CVTS01+168 01003000 CVTQSAS EQU CVTS01+164 01004000 CVTCRAS EQU CVTS01+160 01005000 CVTCRMN EQU CVTS01+156 01006000 CVTDELCP EQU CVTS01+152 01007000 CVTFRECL EQU CVTS01+148 01008000 CVTGETCL EQU CVTS01+144 01009000 CVTBLDCP EQU CVTS01+140 01010000 CVTAUTHL EQU CVTS01+136 01011000 CVTSCAN EQU CVTS01+132 01012000 CVTRV144 EQU CVTS01+130 01013000 CVTMAXMP EQU CVTS01+128 01014000 CVTSTCK EQU CVTS01+124 01015000 CVTRV139 EQU CVTS01+123 01016000 CVTDSSAC EQU CVTS01+122 01017000 CVTRV513 EQU CVTS01+121 01018000 CVTIOSPL EQU CVTS01+120 01019000 CVTPTGT EQU CVTS01+116 01020000 CVTCSPIE EQU CVTS01+112 01021000 CVTSMFEX EQU CVTS01+108 01022000 CVTOLT0A EQU CVTS01+104 01023000 CVTSRBRT EQU CVTS01+100 01024000 CVTPUTL EQU CVTS01+96 01025000 CVTASCRL EQU CVTS01+92 01026000 CVTASCRF EQU CVTS01+88 01027000 CVTRV326 EQU CVTS01+84 01028000 CVTRV325 EQU CVTS01+80 01029000 CVTRV324 EQU CVTS01+76 01030000 CVT0VL01 EQU CVTS01+72 01031000 CVTSHRVM EQU CVTS01+68 01032000 CVTRV332 EQU CVTS01+64 01033000 CVTTAS EQU CVTS01+60 01034000 CVTRSCN EQU CVTS01+56 01035000 CVTTRAC2 EQU CVTS01+54 01036000 CVTTRACE EQU CVTS01+52 01037000 CVTAPG EQU CVTS01+51 01038000 CVTSDTRC EQU CVTCTLFG 01039000 CVTGTRCE EQU CVTCTLFG 01040000 CVTNOMP EQU CVTCTLFG 01041000 CVTRSV79 EQU CVTCTLFG 01042000 CVTDSTAT EQU CVTCTLFG 01043000 CVTRSV78 EQU CVTCTLFG 01044000 CVTRV333 EQU CVTCTLFG 01045000 CVTRV323 EQU CVTCTLFG 01046000 CVTSPVLK EQU CVTS01+49 01047000 CVTRSV77 EQU CVTS01+48 01048000 CVTRV331 EQU CVTS01+44 01049000 CVTRV330 EQU CVTS01+40 01050000 CVTRV329 EQU CVTS01+36 01051000 CVTRV328 EQU CVTS01+32 01052000 CVTRV322 EQU CVTS01+28 01053000 CVTSLID EQU CVTSLIDA+1 01054000 CVTSYLK EQU CVTSLIDA 01055000 CVTRV321 EQU CVTS01+20 01056000 CVTRV320 EQU CVTS01+16 01057000 CVTLPDIR EQU CVTLPDIA+1 01058000 CVTRSV69 EQU CVTDIRST 01059000 CVTRSV68 EQU CVTDIRST 01060000 CVTRSV67 EQU CVTDIRST 01061000 CVTRSV66 EQU CVTDIRST 01062000 CVTRSV65 EQU CVTDIRST 01063000 CVTRSV64 EQU CVTDIRST 01064000 CVTRSV63 EQU CVTDIRST 01065000 CVTDICOM EQU CVTDIRST 01066000 CVTPVTP EQU CVTS01+8 01067000 CVTLPDSR EQU CVTS01+4 01068000 CVTGETL EQU CVTS01 01069000 DMCBRES7 EQU DMCBQSM+96 01070000 DMCBDCB EQU DMCBQSM 01071000 DMCBACB EQU DMCBVSM+76 01072000 DMCBRPL EQU DMCBVSM 01073000 CVTLEVL EQU CVTRELNO+2 01074000 CVTNUMB EQU CVTRELNO 01075000 CVTMDL EQU CVTFIX+250 01076000 @NM00005 EQU CVTFIX+248 01077000 @NM00004 EQU CVTFIX 01078000 CVTRV482 EQU CVTXTNT2+128 01079000 CVTRV481 EQU CVTXTNT2+124 01080000 CVTRV480 EQU CVTXTNT2+120 01081000 CVTRV479 EQU CVTXTNT2+118 01082000 CVTRV478 EQU CVTXTNT2+117 01083000 CVTRV477 EQU CVTXTNT2+116 01084000 CVTRV476 EQU CVTXTNT2+115 01085000 CVTRV475 EQU CVTXTNT2+114 01086000 CVTRV474 EQU CVTRV466 01087000 CVTRV473 EQU CVTRV466 01088000 CVTRV472 EQU CVTRV466 01089000 CVTRV471 EQU CVTRV466 01090000 CVTRV470 EQU CVTRV466 01091000 CVTRV469 EQU CVTRV466 01092000 CVTRV468 EQU CVTRV466 01093000 CVTRV467 EQU CVTRV466 01094000 CVTRV465 EQU CVTRV457 01095000 CVTRV464 EQU CVTRV457 01096000 CVTRV463 EQU CVTRV457 01097000 CVTRV462 EQU CVTRV457 01098000 CVTRV461 EQU CVTRV457 01099000 CVTRV460 EQU CVTRV457 01100000 CVTRV459 EQU CVTRV457 01101000 CVTRV458 EQU CVTRV457 01102000 CVTRV456 EQU CVTXTNT2+108 01103000 CVTRV455 EQU CVTXTNT2+104 01104000 CVTRV454 EQU CVTXTNT2+100 01105000 CVTRV453 EQU CVTXTNT2+96 01106000 CVTRV452 EQU CVTXTNT2+94 01107000 CVTRV451 EQU CVTXTNT2+92 01108000 CVTRV450 EQU CVTXTNT2+90 01109000 CVTRV449 EQU CVTXTNT2+88 01110000 CVTRV448 EQU CVTXTNT2+87 01111000 CVTRV447 EQU CVTXTNT2+86 01112000 CVTRV446 EQU CVTRV438 01113000 CVTRV445 EQU CVTRV438 01114000 CVTRV444 EQU CVTRV438 01115000 CVTRV443 EQU CVTRV438 01116000 CVTRV442 EQU CVTRV438 01117000 CVTRV441 EQU CVTRV438 01118000 CVTRV440 EQU CVTRV438 01119000 CVTRV439 EQU CVTRV438 01120000 CVTRV437 EQU CVTRV429 01121000 CVTRV436 EQU CVTRV429 01122000 CVTRV435 EQU CVTRV429 01123000 CVTRV434 EQU CVTRV429 01124000 CVTRV433 EQU CVTRV429 01125000 CVTRV432 EQU CVTRV429 01126000 CVTRV431 EQU CVTRV429 01127000 CVTRV430 EQU CVTRV429 01128000 CVTRV428 EQU CVTXTNT2+80 01129000 CVTRV427 EQU CVTXTNT2+76 01130000 CVTRV426 EQU CVTXTNT2+72 01131000 CVTRV425 EQU CVTXTNT2+68 01132000 CVTATACT EQU CVTATCVT 01133000 CVTRV423 EQU CVTXTNT2+62 01134000 CVTRV422 EQU CVTXTNT2+60 01135000 CVTRV421 EQU CVTXTNT2+58 01136000 CVTRV420 EQU CVTXTNT2+56 01137000 CVTRV419 EQU CVTXTNT2+55 01138000 CVTRV418 EQU CVTXTNT2+54 01139000 CVTRV417 EQU CVTRV409 01140000 CVTRV416 EQU CVTRV409 01141000 CVTRV415 EQU CVTRV409 01142000 CVTRV414 EQU CVTRV409 01143000 CVTRV413 EQU CVTRV409 01144000 CVTRV412 EQU CVTRV409 01145000 CVTRV411 EQU CVTRV409 01146000 CVTRV410 EQU CVTRV409 01147000 CVTRV408 EQU CVTRV400 01148000 CVTRV407 EQU CVTRV400 01149000 CVTRV406 EQU CVTRV400 01150000 CVTRV405 EQU CVTRV400 01151000 CVTRV404 EQU CVTRV400 01152000 CVTRV403 EQU CVTRV400 01153000 CVTRV402 EQU CVTRV400 01154000 CVTRV401 EQU CVTRV400 01155000 CVTICB EQU CVTXTNT2+48 01156000 CVTSKTA EQU CVTXTNT2+44 01157000 CVTRSV99 EQU CVTXTNT2+40 01158000 CVTRSV98 EQU CVTXTNT2+36 01159000 CVTRSV97 EQU CVTXTNT2+34 01160000 CVTRSV96 EQU CVTXTNT2+32 01161000 CVTOLTEP EQU CVTXTNT2+28 01162000 CVTQIDA EQU CVTQID+1 01163000 CVTRSV95 EQU CVTQID 01164000 CVTRSV94 EQU CVTXTNT2+20 01165000 CVTRSV93 EQU CVTXTNT2+16 01166000 CVTRSV92 EQU CVTXTNT2+12 01167000 CVTDEBVR EQU CVTXTNT2+8 01168000 CVTRSV91 EQU CVTXTNT2+6 01169000 CVTRSV9H EQU CVTFLGBT 01170000 CVTRSV9G EQU CVTFLGBT 01171000 CVTRSV9F EQU CVTFLGBT 01172000 CVTRSV9E EQU CVTFLGBT 01173000 CVTRSV9D EQU CVTFLGBT 01174000 CVTRSV9C EQU CVTFLGBT 01175000 CVTVME EQU CVTFLGBT 01176000 CVTNPE EQU CVTFLGBT 01177000 CVTNUCLS EQU CVTXTNT2+4 01178000 CVTDSSVA EQU CVTDSSV+1 01179000 CVTRSV89 EQU CVTDSSV 01180000 CVTRSV88 EQU CVTXTNT1+8 01181000 CVTRSV87 EQU CVTXTNT1+4 01182000 CVTFACHN EQU CVTXTNT1 01183000 CVTRV488 EQU CVTMAP+412 01184000 CVTRV487 EQU CVTMAP+408 01185000 CVTRV486 EQU CVTMAP+404 01186000 CVTRV485 EQU CVTMAP+400 01187000 CVTACTAP EQU CVTMAP+396 01188000 CVTAUTH EQU CVTMAP+392 01189000 CVTATMCA EQU CVTATMCT+1 01190000 CVTATMST EQU CVTATMCT 01191000 CVTRSV61 EQU CVTMAP+384 01192000 CVTVOLT1 EQU CVTVOLM1+1 01193000 CVTVOLI1 EQU CVTVOLF1 01194000 CVTSTOA EQU CVTMAP+376 01195000 CVTRSV58 EQU CVTMAP+374 01196000 CVTRSV57 EQU CVTMAP+372 01197000 CVTDDCE EQU CVTMAP+368 01198000 CVTPNWFR EQU CVTMAP+364 01199000 CVTSMF EQU CVTMAP+360 01200000 CVTSULK EQU CVTMAP+358 01201000 CVTSLKO EQU CVTSYSK 01202000 CVTSLKP EQU CVTSYSK 01203000 CVTSLKQ EQU CVTSYSK 01204000 CVTSLKR EQU CVTSYSK 01205000 CVTRSV56 EQU CVTSYSK 01206000 CVTRSV55 EQU CVTSYSK 01207000 CVTRSV54 EQU CVTSYSK 01208000 CVTRSV53 EQU CVTSYSK 01209000 CVTRSV52 EQU CVTA1F1 01210000 CVTRSV51 EQU CVTA1F1 01211000 CVTRSV50 EQU CVTA1F1 01212000 CVTRSV49 EQU CVTA1F1 01213000 CVTRSV48 EQU CVTA1F1 01214000 CVTRSV47 EQU CVTA1F1 01215000 CVTSRSW EQU CVTA1F1 01216000 CVTPFSW EQU CVTA1F1 01217000 CVTPCVT EQU CVTMAP+352 01218000 CVTRSV46 EQU CVTMAP+344 01219000 CVTRSV45 EQU CVTMAP+340 01220000 CVTRSV44 EQU CVTMAP+338 01221000 CVTRSV43 EQU CVTMAP+336 01222000 CVTHJESA EQU CVTHJES+1 01223000 CVTRSV42 EQU CVTHJES 01224000 CVTEXT2A EQU CVTEXT2+1 01225000 CVTRSV41 EQU CVTEXT2 01226000 CVTAPFA EQU CVTAPF+1 01227000 CVTRSV40 EQU CVTAPF 01228000 CVTRV518 EQU CVTINTLA 01229000 CVTRV517 EQU CVTERPV 01230000 CVTEORM EQU CVTMAP+312 01231000 CVTMCHPR EQU CVTMAP+308 01232000 CVTTZ EQU CVTMAP+304 01233000 CVTJEPS EQU CVTMAP+300 01234000 CVTJESCT EQU CVTMAP+296 01235000 CVTMODE EQU CVTMAP+292 01236000 CVTPTRV EQU CVTMAP+288 01237000 CVTREAL EQU CVTMAP+284 01238000 CVTRSV39 EQU CVTMAP+280 01239000 CVTRSV38 EQU CVTMAP+276 01240000 CVTDMSRA EQU CVTDMSR+1 01241000 CVTRV634 EQU CVTDMSRF 01242000 CVTRV633 EQU CVTDMSRF 01243000 CVTRV632 EQU CVTDMSRF 01244000 CVTRV631 EQU CVTDMSRF 01245000 CVTRV630 EQU CVTDMSRF 01246000 CVTRV629 EQU CVTDMSRF 01247000 CVTUDUMP EQU CVTDMSRF 01248000 CVTSDUMP EQU CVTDMSRF 01249000 CVTQMSGA EQU CVTQMSG+1 01250000 CVTRSV36 EQU CVTQMSG 01251000 CVTAMFF EQU CVTMAP+264 01252000 CVTPURGA EQU CVTPURG+1 01253000 CVTRSV35 EQU CVTPURG 01254000 CVTCBSP EQU CVTMAP+256 01255000 CVTATERA EQU CVTATER+1 01256000 CVTSYST EQU CVTATER 01257000 CVTVOLT2 EQU CVTTAT 01258000 CVTVOLI2 EQU CVTVOLF2 01259000 CVTAQAVB EQU CVTAQAVT+1 01260000 CVTRSV34 EQU CVTTCMFG 01261000 CVTRSV33 EQU CVTTCMFG 01262000 CVTRSV32 EQU CVTTCMFG 01263000 CVTRSV31 EQU CVTTCMFG 01264000 CVTRSV30 EQU CVTTCMFG 01265000 CVTRSV29 EQU CVTTCMFG 01266000 CVTLDEV EQU CVTTCMFG 01267000 CVTTCRDY EQU CVTTCMFG 01268000 CVTGTFA EQU CVTGTF+1 01269000 CVTRSV27 EQU CVTGTFST 01270000 CVTRNIO EQU CVTGTFST 01271000 CVTUSR EQU CVTGTFST 01272000 CVTRV318 EQU CVTFORM 01273000 CVTRV317 EQU CVTTMODE 01274000 CVTRV316 EQU CVTSTATE 01275000 CVTRV315 EQU CVTGTFS 01276000 CVTGTFAV EQU CVTGTFS 01277000 CVT0SCR1 EQU CVTMAP+232 01278000 CVTRV515 EQU CVTMAP+228 01279000 CVTRMS EQU CVTMAP+224 01280000 CVTPATCH EQU CVTMAP+220 01281000 CVTTSCE EQU CVTMAP+216 01282000 CVTLNKSC EQU CVTMAP+214 01283000 CVTQABST EQU CVTMAP+212 01284000 CVTMDLDS EQU CVTMAP+208 01285000 CVTUSER EQU CVTMAP+204 01286000 CVTABEND EQU CVTMAP+200 01287000 CVTSMCA EQU CVTMAP+196 01288000 CVTRSV18 EQU CVTMAP+192 01289000 CVTQLPAQ EQU CVTMAP+188 01290000 CVTQCDSR EQU CVTMAP+184 01291000 CVTRSV17 EQU CVTOPTB 01292000 CVTRSV16 EQU CVTOPTB 01293000 CVTFP EQU CVTOPTB 01294000 CVTAPTHR EQU CVTOPTB 01295000 CVTNLOG EQU CVTOPTB 01296000 CVTTOD EQU CVTOPTB 01297000 CVTCTIMS EQU CVTOPTB 01298000 CVTPROT EQU CVTOPTB 01299000 CVTXPFP EQU CVTOPTA 01300000 CVTASCII EQU CVTOPTA 01301000 CVTRSV13 EQU CVTOPTA 01302000 CVTRSV12 EQU CVTOPTA 01303000 CVTNIP EQU CVTOPTA 01304000 CVTDDR EQU CVTOPTA 01305000 CVTAPR EQU CVTOPTA 01306000 CVTCCH EQU CVTOPTA 01307000 CVTSNCTR EQU CVTMAP+180 01308000 CVTQMWR EQU CVTMAP+176 01309000 CVTQOCR EQU CVTMAP+172 01310000 CVT1EF00 EQU CVTMAP+168 01311000 CVTMZ00 EQU CVTMAP+164 01312000 CVTSV76Q EQU CVTSV76C 01313000 CVTRSV11 EQU CVTMAP+156 01314000 CVT0PT01 EQU CVTMAP+152 01315000 CVTMSER EQU CVTMAP+148 01316000 CVTRV516 EQU CVTIERLC 01317000 CVTILCH EQU CVTMAP+140 01318000 CVT0DS EQU CVTMAP+136 01319000 CVTFBOSV EQU CVTMAP+132 01320000 CVTNUCB EQU CVTMAP+128 01321000 CVTIXAVL EQU CVTMAP+124 01322000 CVTSV76M EQU CVTIOQET 01323000 CVTDCBA EQU CVTMAP+117 01324000 CVTMVS2 EQU CVTDCB 01325000 CVT6DAT EQU CVTDCB 01326000 CVT4MPS EQU CVTDCB 01327000 CVTRSV09 EQU CVTDCB 01328000 CVT4MS1 EQU CVTDCB 01329000 CVT2SPS EQU CVTDCB 01330000 CVT1SSS EQU CVTDCB 01331000 CVTRSV08 EQU CVTDCB 01332000 CVTSTB EQU CVTMAP+112 01333000 CVTQTD00 EQU CVTMAP+108 01334000 CVTQTE00 EQU CVTMAP+104 01335000 CVTCUCB EQU CVTMAP+100 01336000 CVTSJQ EQU CVTMAP+96 01337000 CVTPBLDL EQU CVTMAP+92 01338000 CVTTPC EQU CVTMAP+88 01339000 CVTSVDCB EQU CVTMAP+84 01340000 CVTBRET EQU CVTMAP+82 01341000 CVTEXIT EQU CVTMAP+80 01342000 CVT0FN00 EQU CVTMAP+76 01343000 CVTDARA EQU CVTDAR+1 01344000 CVTRSV07 EQU CVTFLGS1 01345000 CVTRSV06 EQU CVTFLGS1 01346000 CVTRSV05 EQU CVTFLGS1 01347000 CVTRSV04 EQU CVTFLGS1 01348000 CVTRSV03 EQU CVTFLGS1 01349000 CVTRSV02 EQU CVTFLGS1 01350000 CVTRSV01 EQU CVTFLGS1 01351000 CVTDMPLK EQU CVTFLGS1 01352000 CVTXITP EQU CVTMAP+68 01353000 CVTZDTAB EQU CVTMAP+64 01354000 CVTMSLT EQU CVTMAP+60 01355000 CVTDATE EQU CVTMAP+56 01356000 CVTBTERM EQU CVTMAP+52 01357000 CVTSYSAD EQU CVTMAP+48 01358000 CVTXTLER EQU CVTMAP+44 01359000 CVTILK2 EQU CVTMAP+40 01360000 CVTILK1 EQU CVTMAP+36 01361000 CVTPRLTV EQU CVTMAP+32 01362000 CVTPCNVT EQU CVTMAP+28 01363000 CVT0VL00 EQU CVTMAP+24 01364000 CVTXAPG EQU CVTMAP+20 01365000 CVTBUF EQU CVTMAP+16 01366000 CVTJOB EQU CVTMAP+12 01367000 CVTLINK EQU CVTMAP+8 01368000 CVT0EF00 EQU CVTMAP+4 01369000 CVTTCBP EQU CVTMAP 01370000 CVT EQU CVTMAP 01371000 RETCHAR EQU RET+2 01372000 RETSIZE EQU RET 01373000 DMCBWRK EQU DMCB+648 01374000 DMCBRES8 EQU DMCB+640 01375000 DMCBMODN EQU DMCB+632 01376000 DMCBCARY EQU DMCBAUDT+20 01377000 DMCBCLC EQU DMCBAUDT+12 01378000 DMCBOPC EQU DMCBAUDT+8 01379000 DMCBFRC EQU DMCBAUDT+4 01380000 DMCBALC EQU DMCBAUDT 01381000 DMCBFR EQU DMCB+412 01382000 DMCBRES6 EQU DMCB+410 01383000 DMCBIRSC EQU DMCB+408 01384000 DMCBSUBC EQU DMCB+404 01385000 DMCBDRBP EQU DMCB+400 01386000 DMCBRSZM EQU DMCB+398 01387000 DMCBRSZA EQU DMCB+396 01388000 DMCBCISZ EQU DMCB+394 01389000 DMCBDCBL EQU DMCB+392 01390000 DMCBDCLR EQU DMCB+390 01391000 DMCBDCFM EQU DMCB+389 01392000 DMCBRES5 EQU DMCB+388 01393000 DMCBLBRT EQU DMCB+386 01394000 DMCBLBSQ EQU DMCB+384 01395000 DMCBLBPS EQU DMCB+383 01396000 DMCBLBTY EQU DMCB+382 01397000 DMCBRES4 EQU DMCB+381 01398000 DMCBSPRS EQU DMCBSPEC 01399000 DMCBSPRN EQU DMCBSPEC 01400000 DMCBSPCT EQU DMCBSPEC 01401000 DMCBSPRL EQU DMCBSPEC 01402000 DMCBSPSE EQU DMCB+376 01403000 DMCBSPPR EQU DMCB+372 01404000 DMCBSPTY EQU DMCB+369 01405000 DMCBODIS EQU DMCB+368 01406000 DMCBDISP EQU DMCB+367 01407000 DMCBSTAT EQU DMCB+366 01408000 DMCBRES3 EQU DMCB+364 01409000 DMCBMEMB EQU DMCB+356 01410000 DMCBMODL EQU DMCB+348 01411000 DMCBRES9 EQU DMCB+340 01412000 DMCBPID EQU DMCB+332 01413000 DMCBTYPE EQU DMCB+328 01414000 DMCBDSN EQU DMCB+284 01415000 DMCBUNIT EQU DMCB+276 01416000 DMCBDSOR EQU DMCB+274 01417000 DMCBVOL EQU DMCB+268 01418000 DMCBDDNM EQU DMCB+260 01419000 DMCBSYNM EQU DMCB+132 01420000 DMCBRPLF EQU DMCB+128 01421000 DMCBDCBE EQU DMCBACBE 01422000 DMCBARC EQU DMCB+120 01423000 DMCBCPC EQU DMCB+116 01424000 DMCBRET EQU DMCB+112 01425000 DMCBSTL EQU DMCB+96 01426000 DMCBRES2 EQU DMCB+85 01427000 DMCBSPID EQU DMCB+84 01428000 DMCBRESC EQU DMCB+80 01429000 DMCBZZ1P EQU DMCB+76 01430000 DMCBRRL EQU DMCB+60 01431000 DMCBRBA EQU DMCB+56 01432000 DMCBKEYL EQU DMCB+48 01433000 DMCBKPC EQU DMCBKEYP 01434000 DMCBORL EQU DMCB+40 01435000 DMCBBLEN EQU DMCB+36 01436000 DMCBBFPC EQU DMCBBUFP 01437000 DMCBRES1 EQU DMCB+31 01438000 DMCBACCM EQU DMCB+30 01439000 DMCBREJ EQU DMCB+29 01440000 DMCBRESB EQU DMCBMFLG 01441000 DMCBFMOD EQU DMCBMFLG 01442000 DMCBLOPT EQU DMCB+27 01443000 DMCBLRM EQU DMCB+26 01444000 DMCBLRQ EQU DMCB+25 01445000 DMCBOPRS EQU DMCBOPTS 01446000 DMCBLRD EQU DMCBOPTS 01447000 DMCBBWD EQU DMCBOPTS 01448000 DMCBUPD EQU DMCBOPTS 01449000 DMCBAPX EQU DMCBOPTS 01450000 DMCBRNO EQU DMCBGKY 01451000 DMCBKYD EQU DMCBOPTS 01452000 DMCBRMRS EQU DMCBRMOD 01453000 DMCBRM5 EQU DMCBRMOD 01454000 DMCBRM6 EQU DMCBRMOD 01455000 DMCBTMP EQU DMCBOUT 01456000 DMCBRQST EQU DMCB+22 01457000 DMCBRESA EQU DMCBOPN 01458000 DMCBSOUT EQU DMCBOPN 01459000 DMCBSIN EQU DMCBOPN 01460000 DMCBVSF EQU DMCBFTY 01461000 DMCBKSF EQU DMCBFTY 01462000 DMCBFTRS EQU DMCBFTY 01463000 DMCBSHF EQU DMCBFTY 01464000 DMCBIRL EQU DMCB+16 01465000 DMCBRTC EQU DMCB+12 01466000 DMCBNEXT EQU DMCB+4 01467000 DMCBID EQU DMCB 01468000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01469000 @RF00079 EQU @EL00002 01470000 @ENDDATA EQU * 01471000 END BLSCANLI,(C'PLS1855',0701,78062) 01472000