TITLE 'IEDQWIE , CONFIGURATION EXHIBIT MODULE *00001000 ' 00002000 IEDQWIE CSECT , 0001 00003000 @PROLOG STM @14,@12,12(@13) 0001 00004000 BALR @12,0 0001 00005000 @PSTART DS 0H 0001 00006000 USING @PSTART,@12 0001 00007000 ST @13,@SA00001+4 0001 00008000 LA @14,@SA00001 0001 00009000 ST @14,8(,@13) 0001 00010000 LR @13,@14 0001 00011000 CDS40DCB EQU 7 /* OPEN OFFSET S99528*/ 00012000 CDS42DCB EQU 7 /* OPEN OFFSET S99528*/ 00013000 BASREG EQU 8 /* BASE REGISTER S99528*/ 00014000 R1 EQU 1 /* PARAMETER REG S99528*/ 00015000 R2 EQU 2 /* OLTCB POINTER S99528*/ 00016000 R3 EQU 3 /* CDS WORK AREA REG @YA12402*/ 00017000 RETURN EQU 9 /* RETURN REG S99528*/ 00018000 R14 EQU 14 /* REGISTER 14 S99528*/ 00019000 R15 EQU 15 /* REGISTER 15 S99528*/ 00020000 NAMELEN EQU 8 /* SYMBOLIC NAME LENGTH S99528*/ 00021000 YES EQU X'E8' /* YES COMPARE CONSTANT S99528*/ 00022000 NO EQU X'D5' /* NO COMPARE CONSTANT S99528*/ 00023000 ZERO EQU X'00' /* ZERO COMPARE CONST S99528*/ 00024000 CHAR4 EQU 4 /* FOUR CHARS S99528*/ 00025000 OPENFLAG EQU 48 /* OPEN FLAG OFFSET S99528*/ 00026000 GOODOPEN EQU X'10' /* GOOD OPEN TEST FLAG S99528*/ 00027000 SPECIAL EQU X'F0' SPECIAL CONFIG REQUEST S22024 00028000 * FOR CDS EXTENTION S22024 00029000 BADNAME EQU X'04' NAME NOT IN TCAM TABLE SA64785 00030000 D1 EQU 1 CONSTANT 1 @YA12402 00031000 D3 EQU 3 CONSTANT 3 @YA12402 00032000 D4 EQU 4 CONSTANT 4 @YA12402 00033000 BLANK EQU X'40' BLANK CHARACTER @YA12402 00034000 UAPTR EQU 5 UNIT ADDR PTR @YA12402 00035000 IEDQWIE IEDHJN IEDQWIEE,HJN /*S22024*/ 00036000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00037000 NEXTITEM IEDQMSG MSGID=103,FUNCT=REP,INBUF=CEMSG,INCNT=8,LINK=YES 00038000 TM TOTINBUF,X'F0' /* IS ENTRY NUMERIC S99528*/ 00039000 BO EXHBLINE /* YES EXHBT LINE S99528*/ 00040000 EXHBTERM EQU * /* NO EXHBT TERMINAL S99528*/ 00041000 DROP R2 /* DROP OLTCB BASE S22024*/ 00042000 * CDSAREA=ADDR(CDSWORK); /* GET ADDRESS OF CDS S22024 00043000 * WORK AREA IN OLTCB S22024*/ 00044000 LA @07,CDSWORK(,OLTCBPTR) 0036 00045000 ST @07,CDSAREA 0036 00046000 * INPSYMBL=TOTINBUF; /* MOVE NAME TO WORKAR S22024*/ 00047000 MVC INPSYMBL(8,@07),TOTINBUF(OLTCBPTR) 0037 00048000 * GEN REFS(2) SEQFLOW EXIT; 0038 00049000 USING TOTOLTCB,R2 SET UP BASE FOR OLTCB S22024 00050000 LOAD EP=IEDQWI8 LOAD VERIFICATION MODULE S22024 00051000 LR ENTRYPT,PARMREG0 GET ENTRY POINT ADDRESS S22024 00052000 BALR RETURN,ENTRYPT GO VALIDATE NAME S22024 00053000 DELETE EP=IEDQWI8 DELETE VALIDATE MODULE S22024 00054000 CLI CDSRETFL,SPECIAL IS THIS A SPECIAL SYMBOLICS22024 00055000 * TO LOCAL CDS S22024 00056000 BE GOODNAM1 YES, BRANCH TO LOCAL CDS S22024 00057000 CLI CDSRETFL,BADNAME IS NAME IN TCAM TABLE SA64785 00058000 BNE OKNAME YES, CONTINUE SA64785 00059000 MVI CDSRETFL,ZERO CLEAR RESPONSE FLAG @OY16441 00060000 IEDQMSG MSGID=132,FUNCT=CEC,RET=EXHMORE NAME NOT FOUND SA64785 00061000 OKNAME EQU * SA64785 00062000 DROP R2 DROP OLTCB BASE S22024 00063000 * GOTO GOODNAME; /* GO OPEN REMOTE CDS S22024*/ 00064000 B GOODNAME 0039 00065000 * GENERATE REFS(2,EXHMORE) SEQFLOW NOEXIT; 0040 00066000 USING TOTOLTCB,R2 /* SET UP BASE FOR OLTCBS22024*/ 00067000 EXHMORE IEDQMSG MSGID=123,FUNCT=REP /* PRINT EXHB MORE MSG S99528*/ 00068000 DROP R2 /* DROP OLTCB BASE S22024*/ 00069000 * IF TOTINBUF(1)='E8'X THEN /* IF REPLY IS YES THEN S22024*/ 00070000 CLI TOTINBUF(OLTCBPTR),X'E8' 0041 00071000 BE @RT00041 0041 00072000 * GOTO NEXTITEM; 0042 00073000 * ELSE /* GO GET NEXT ITEM S99528*/ 00074000 * IF TOTINBUF(1)='D5'X THEN /* IS REPLY NO S22024*/ 00075000 CLI TOTINBUF(OLTCBPTR),X'D5' 0043 00076000 BE @RT00043 0043 00077000 * GOTO EXIT1; /* GO TO EXIT OTHERWISE S99528*/ 00078000 * ELSE 0045 00079000 * GOTO BADRESP; /* GO TO BAD RESPONSE S99528*/ 00080000 B BADRESP 0045 00081000 * GEN REFS(2,BADRESP,GOODNAM1,GOODNAME) SEQFLOW EXIT; 0046 00082000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00083000 BADRESP IEDQMSG MSGID=079,FUNCT=CEC,RET=EXHMORE /*S22024*/ 00084000 GOODNAM1 EQU * /*S22024*/ 00085000 XC CDSRETFL(1),CDSRETFL /* CLEAR SPECIAL FLAG Y06330*/ 00086000 OPEN (CDS40,(INPUT)) /* OPEN LOCAL CDS S22024*/ 00087000 LA CDS40DCB,CDS40 /* PICK UP DCB ADDRESS S22024*/ 00088000 TM OPENFLAG(CDS40DCB),GOODOPEN /* WAS OPEN GOOD S22024*/ 00089000 BZ OPENERR /* NO GO HANDLE OPEN ERRS22024*/ 00090000 MVC MODNAME(NAMELEN),CDSSYMBL /* MOVE NAME TO LIST S22024*/ 00091000 DROP R2 @YM07380*/ 00092000 BLDL CDS40,BLDLLIST /* FIND ENTRY S22024*/ 00093000 USING TOTOLTCB,R2 /* RESET OLTCB ADDRES @YM07380*/ 00094000 B EXHBLIN1 /* GO GET LOCAL CDS INFOS22024*/ 00095000 GOODNAME OPEN (CDS42,(INPUT)) /* OPEN REMOTE DATA SET S99528*/ 00096000 LA CDS42DCB,CDS42 /* PICK UP DCB ADDR S99528*/ 00097000 TM OPENFLAG(CDS42DCB),GOODOPEN /* WAS OPEN SUCCSSS S99528*/ 00098000 BZ OPENERR /* NO GO HANDLE OPEN ER S99528*/ 00099000 MVC MODNAME(NAMELEN),CDSSYMBL /* MOVE NAME TO LIST S99528*/ 00100000 DROP R2 @YM07380*/ 00101000 BLDL CDS42,BLDLLIST /* FIND ENTRY S99528*/ 00102000 * RFY 0047 00103000 * RETCODE RSTD; 0047 00104000 * IF RETCODE^='00'X THEN /* WAS ENTRY FOUND S99528*/ 00105000 LTR RETCODE,RETCODE 0048 00106000 BNZ @RT00048 0048 00107000 * GOTO FINDERR; /* IF NOT GO FIND ERROR S99528*/ 00108000 * RFY 0050 00109000 * RETCODE UNRSTD; 0050 00110000 * GENERATE REFS(2) SEQFLOW NOEXIT; 0051 00111000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00112000 MVC CDSINPUT(CHAR4),USERTTR /* GET DATA TTR-C S99528*/ 00113000 POINT CDS42,CDSINPUT /* POINT TO TEXT DATA S99528*/ 00114000 READ CDSDECB,SF,CDS42,CDSREC,256,MF=E /*S99528*/ 00115000 CHECK CDSDECB /* WAIT IO COMPLETION S99528*/ 00116000 CLOSE CDS42 00117000 DROP R2 /* DROP OLTCB BASE S22024*/ 00118000 * IF INPCLASS^='42'X&INPCLASS^='44'X THEN/* IS CLASS S22024 00119000 * EQUAL 42 S22024 00120000 * OR 44 S22024*/ 00121000 L @07,CDSAREA 0052 00122000 CLI INPCLASS(@07),X'42' 0052 00123000 BE @RF00052 0052 00124000 CLI INPCLASS(@07),X'44' 0052 00125000 BNE @RT00052 0052 00126000 * GOTO CANTEXH; 0053 00127000 * ELSE /* IF NOT GOTO CANT EXH S99528*/ 00128000 * PRNTBUF1=CDSTITLE(3); /* GET TERMINAL TITLE S22024*/ 00129000 @RF00052 MVC PRNTBUF1(30),CDSTITLE+60 0054 00130000 * PRNTBUF2=CDSTITLE(23,1:16); /* PAD WITH BLANKS S22024*/ 00131000 MVI PRNTBUF2+16,C' ' 0055 00132000 MVI PRNTBUF2+17,C' ' 0055 00133000 MVC PRNTBUF2(16),CDSTITLE+660 0055 00134000 * CALL PRINTFIX; /* PRINT FIRST 12 BYTES S99528*/ 00135000 BAL @14,PRINTFIX 0056 00136000 * PRNTBUF1=CDSTITLE(16); /* GET NAME HEADER S22024*/ 00137000 MVC PRNTBUF1(30),CDSTITLE+450 0057 00138000 * PRNTBUF2=INPNAME(1:8); /* GET SYMBL NAME S99528*/ 00139000 MVI PRNTBUF2+8,C' ' 0058 00140000 MVC PRNTBUF2+9(9),PRNTBUF2+8 0058 00141000 L @07,CDSAREA 0058 00142000 MVC PRNTBUF2(8),INPNAME(@07) 0058 00143000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00144000 BAL @14,PRINTCDS 0059 00145000 * PRNTBUF1=CDSTITLE(17); /* GET FIX LEN TITLE S22024*/ 00146000 MVC PRNTBUF1(30),CDSTITLE+480 0060 00147000 * GENERATE; 0061 00148000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00149000 TCONV FROM=CDSFXLEN,TO=PRNTBUF2,COUNT=1,TYPE=HE /*S99528*/ 00150000 DROP R2 /* DROP OLTCB BASE S22024*/ 00151000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00152000 BAL @14,PRINTCDS 0062 00153000 * PRNTBUF1=CDSTITLE(18); /* GET FLAG BYTE HEADER S22024*/ 00154000 MVC PRNTBUF1(30),CDSTITLE+510 0063 00155000 * GENERATE; 0064 00156000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00157000 TCONV FROM=CDSFXFLG,TO=PRNTBUF2,COUNT=2,TYPE=HE /*S99528*/ 00158000 DROP R2 /* DROP OLTCB BASE S22024*/ 00159000 * CALL PRINTCDS; /* PRINT CDS S99528*/ 00160000 BAL @14,PRINTCDS 0065 00161000 * PRNTBUF1=CDSTITLE(19); /* GET LINE CONN TITLE S22024*/ 00162000 MVC PRNTBUF1(30),CDSTITLE+540 0066 00163000 * GENERATE; 0067 00164000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00165000 TCONV FROM=CDSLNCON,TO=PRNTBUF2,COUNT=1,TYPE=HE /*S99528*/ 00166000 DROP R2 /* DROP OLTCB BASE S22024*/ 00167000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00168000 BAL @14,PRINTCDS 0068 00169000 * PRNTBUF1=CDSTITLE(20); /* GET REMAIN TITLE S22024*/ 00170000 MVC PRNTBUF1(30),CDSTITLE+570 0069 00171000 * CALL PRNTRMNG; /* PRINT REMAING DATA S99528*/ 00172000 BAL @14,PRNTRMNG 0070 00173000 * GOTO EXHMORE; /* ARE THERE MORE EXHBT S99528*/ 00174000 B EXHMORE 0071 00175000 *EXHBLINE: 0072 00176000 * ; /* S22024*/ 00177000 EXHBLINE DS 0H 0073 00178000 * CDSAREA=ADDR(CDSWORK); /* GET ADDR OF CDSWORK S22024*/ 00179000 LA @07,CDSWORK(,OLTCBPTR) 0073 00180000 ST @07,CDSAREA 0073 00181000 * INPCESNM='G0000000'; /* MOVE PREFIX TO TABLE S22024*/ 00182000 MVC INPCESNM(8,@07),@CC00704 0074 00183000 * GENERATE; 0075 00184000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00185000 L R3,CDSAREA SET UP BASE @YA12402 00186000 CLI TOTINBUF+D3,BLANK IS 4TH CHAR BLANK @YA12402 00187000 BE DIGIT3 YES @YA12402 00188000 CLI TOTINBUF+D4,BLANK MORE THAN 4 CHAR ENTER @YA12402 00189000 BNE INVALN YES INVALID LINE ADDR @YA12402 00190000 MVC INPCESNM+UAPTR(D3,R3),TOTINBUF+D1 ADJUST FOR ZE@YA12402 00191000 B MOVEDON FINISHED MOVE @YA12402 00192000 DIGIT3 EQU * @YA12402 00193000 MVC INPCESNM+UAPTR(D3,R3),TOTINBUF MOVE UNIT ADDR @YA12402 00194000 MOVEDON EQU * @YA12402 00195000 OPEN (CDS40,(INPUT)) /* OPEN LOCAL DATA SET S99528*/ 00196000 LA CDS40DCB,CDS40 00197000 TM OPENFLAG(CDS40DCB),GOODOPEN /* OPEN SUCCESSFUL S99528*/ 00198000 BZ OPENERR /* NO, OPEN ERROR S99528*/ 00199000 MVC MODNAME(NAMELEN),CDSCESNM /* MOVE TO BLDL LIST S99528*/ 00200000 DROP R2 @YM07380*/ 00201000 BLDL CDS40,BLDLLIST /* GET USER TTR S99528*/ 00202000 *EXHBLIN1: 0076 00203000 * ; /* S22024*/ 00204000 EXHBLIN1 DS 0H 0077 00205000 * RFY 0077 00206000 * RETCODE RSTD; 0077 00207000 * IF RETCODE^='00'X THEN /* WAS CDS ENTRY FOUND S99528*/ 00208000 LTR RETCODE,RETCODE 0078 00209000 BNZ @RT00078 0078 00210000 * GOTO FINDERR; /* IF NOT GOTO FINDERR S99528*/ 00211000 * RFY 0080 00212000 * RETCODE UNRSTD; 0080 00213000 * GENERATE; 0081 00214000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00215000 MVC CDSINPUT(CHAR4),USERTTR /* GET DATA TTR-C S99528*/ 00216000 GETCDS40 POINT CDS40,CDSINPUT /* LOCATE CDS INFORMATN S99528*/ 00217000 READ CDSDECB,SF,CDS40,CDSREC,256,MF=E /*S99528*/ 00218000 CHECK CDSDECB /* WAIT IO COMPLETION S99528*/ 00219000 CLOSE CDS40 /* CLOSE DATA SET S99528*/ 00220000 DROP R2 /* DROP OLTCB BASE S22024*/ 00221000 *GRPHTEST: 0082 00222000 * IF INPCLASS^='10'X THEN /* GRAPHIC S99528*/ 00223000 GRPHTEST L @07,CDSAREA 0082 00224000 CLI INPCLASS(@07),X'10' 0082 00225000 BNE @RT00082 0082 00226000 * GOTO LINETEST; /* NO GO SEE IF LINE S99528*/ 00227000 * PRNTBUF1=CDSTITLE(1); /* GET GRAPHIC TITLE S22024*/ 00228000 MVC PRNTBUF1(30),CDSTITLE 0084 00229000 * GOTO PADTITLE; /* GO EXHBT DATA S99528*/ 00230000 B PADTITLE 0085 00231000 *LINETEST: 0086 00232000 * IF INPCLASS^='40'X THEN /* LINE S99528*/ 00233000 LINETEST L @07,CDSAREA 0086 00234000 CLI INPCLASS(@07),X'40' 0086 00235000 BNE @RT00086 0086 00236000 * GOTO NCPTEST; /* NO GO NOW SEE IF NCPCDS S05331*/ 00237000 * PRNTBUF1=CDSTITLE(2); /* YES, GET LINE TITLE S22024*/ 00238000 MVC PRNTBUF1(30),CDSTITLE+30 0088 00239000 * GO TO PADTITLE; /* GO EXHIBIT DATA S05331*/ 00240000 B PADTITLE 0089 00241000 *NCPTEST: 0090 00242000 * IF INPCFLGS^='F0'X THEN /* IF NOT NCP, NO S05331*/ 00243000 NCPTEST L @07,CDSAREA 0090 00244000 CLI INPCFLGS(@07),X'F0' 0090 00245000 BNE @RT00090 0090 00246000 * GOTO CANTEXH; /* EXHIBIT ALLOWED S05331*/ 00247000 * PRNTBUF1=CDSTITLE(24); /* PUT IN TITLE S05331*/ 00248000 MVC PRNTBUF1(30),CDSTITLE+690 0092 00249000 *PADTITLE: 0093 00250000 * ; /* S22024*/ 00251000 PADTITLE DS 0H 0094 00252000 * PRNTBUF2=CDSTITLE(23,1:16); /* PAD WITH BLANKS S22024*/ 00253000 MVI PRNTBUF2+16,C' ' 0094 00254000 MVI PRNTBUF2+17,C' ' 0094 00255000 MVC PRNTBUF2(16),CDSTITLE+660 0094 00256000 * CALL PRINTFIX; /* PRINT FIXED FLDS S99528*/ 00257000 BAL @14,PRINTFIX 0095 00258000 * IF INPCLASS='40'X THEN /* TCU TEST S22024*/ 00259000 L @07,CDSAREA 0096 00260000 CLI INPCLASS(@07),X'40' 0096 00261000 BE @RT00096 0096 00262000 * GOTO EXHBTCU; /* YES, GO EXHIBIT TCU S22024*/ 00263000 * PRNTBUF1=CDSTITLE(20); /* GET TITLE S22024*/ 00264000 MVC PRNTBUF1(30),CDSTITLE+570 0098 00265000 * GENERATE; 0099 00266000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00267000 TCONV FROM=CDSNAME,TO=PRNTBUF2,COUNT=4,TYPE=HE /*S99528*/ 00268000 DROP R2 /* DROP OLTCB BASE S22024*/ 00269000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00270000 BAL @14,PRINTCDS 0100 00271000 * GENERATE; 0101 00272000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00273000 TCONV FROM=CDSNAME+4,TO=PRNTBUF2,COUNT=8,TYPE=HE /*S99528*/ 00274000 DROP R2 /* DROP OLTCB BASE S22024*/ 00275000 * PRNTBUF1=CDSTITLE(21); /* GET BLANK BUFFER S22024*/ 00276000 MVC PRNTBUF1(30),CDSTITLE+600 0102 00277000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00278000 BAL @14,PRINTCDS 0103 00279000 * PRNTBUF1=CDSTITLE(21); /* GET BLANK LINE S22024*/ 00280000 MVC PRNTBUF1(30),CDSTITLE+600 0104 00281000 * GOTO EXHBCNFG; /* GO TO EXHB CNFG S99528*/ 00282000 B EXHBCNFG 0105 00283000 *EXHBTCU: 0106 00284000 * ; /* S22024*/ 00285000 EXHBTCU DS 0H 0107 00286000 * PRNTBUF1=CDSTITLE(13); /* GET TCU TITLE S22024*/ 00287000 MVC PRNTBUF1(30),CDSTITLE+360 0107 00288000 * GENERATE; 0108 00289000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00290000 TCONV FROM=CDSTCU,TO=PRNTBUF2,COUNT=2,TYPE=HE /*S99528*/ 00291000 DROP R2 /* DROP OLTCB BASE S22024*/ 00292000 * CALL PRINTCDS; /* PRINT CDS S99528*/ 00293000 BAL @14,PRINTCDS 0109 00294000 * PRNTBUF1=CDSTITLE(14); /* GET MISC TITLE S22024*/ 00295000 MVC PRNTBUF1(30),CDSTITLE+390 0110 00296000 * GENERATE; 0111 00297000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00298000 TCONV FROM=CDSMISC,TO=PRNTBUF2,COUNT=3,TYPE=HE /*S99528*/ 00299000 DROP R2 /* DROP OLTCB BASE S22024*/ 00300000 * CALL PRINTCDS; /* PRINT CDSDATA S99528*/ 00301000 BAL @14,PRINTCDS 0112 00302000 * PRNTBUF1=CDSTITLE(15); /* GET SEC.RUN MSK TITLES22024 */ 00303000 MVC PRNTBUF1(30),CDSTITLE+420 0113 00304000 * GENERATE; 0114 00305000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00306000 TCONV FROM=CDSRMASK,TO=PRNTBUF2,COUNT=3,TYPE=HE /*S99528*/ 00307000 DROP R2 /* DROP OLTCB BASE S22024*/ 00308000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00309000 BAL @14,PRINTCDS 0115 00310000 * PRNTBUF1=CDSTITLE(17); /* GET FIX AREA TITLE S22024*/ 00311000 MVC PRNTBUF1(30),CDSTITLE+480 0116 00312000 * GENERATE; 0117 00313000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00314000 TCONV FROM=CDSFXARA,TO=PRNTBUF2,COUNT=4,TYPE=HE /*S99528*/ 00315000 DROP R2 /* DROP OLTCB BASE S22024*/ 00316000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00317000 BAL @14,PRINTCDS 0118 00318000 * PRNTBUF1=CDSTITLE(20); /* GET REMAINING TITLE S22024*/ 00319000 MVC PRNTBUF1(30),CDSTITLE+570 0119 00320000 *EXHBCNFG: 0120 00321000 * CALL PRNTRMNG; /* PRINT RMNG BYTES S99528*/ 00322000 EXHBCNFG BAL @14,PRNTRMNG 0120 00323000 * GOTO EXHMORE; /* OTHER EXHIBITS S99528*/ 00324000 B EXHMORE 0121 00325000 * GEN REFS(OPNERRR,2,13,15) SETS(0,1,2,3,4,5,6,7,8,9,10,11,12,14,15); 00326000 ************************************************************** S99528*/ 00327000 * * S99528*/ 00328000 * I / O E R R O R A N A L Y S I S L O G I C * S99528*/ 00329000 * * S99528*/ 00330000 ************************************************************** S99528*/ 00331000 SPACE 00332000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00333000 OPENERR EQU * /* OPEN ERROR PROCEDURE S99528*/ 00334000 IEDQMSG MSGID=129,FUNCT=CEC,RET=CONTPROC /*S99528*/ 00335000 CONTPROC EQU * /* CONTINUE QUESTION S99528*/ 00336000 IEDQMSG MSGID=125,FUNCT=REP /* WISH TO CONTINUE S99528*/ 00337000 CLI TOTINBUF,YES /* WAS RESPONSE YES S99528*/ 00338000 BE NEXTITEM /* YES GOTO NEXT EXHB S99528*/ 00339000 CLI TOTINBUF,NO /* WAS RESPONSE NO S99528*/ 00340000 BE EXIT1 /* YES EXIT S99528*/ 00341000 DROP R2 /* DROP OLTCB BASE S22024*/ 00342000 IEDQMSG MSGID=079,FUNCT=CEC,RET=CONTPROC /* INVALID S22024*/ 00343000 USING *,R15 /* SYNDAD PROCEDURE S99528*/ 00344000 BADCDS EQU * S99528*/ 00345000 L BASREG,BASEADDR /* RE-ESTABLISH BASE RG S99528*/ 00346000 DROP R15 S99528*/ 00347000 IEDQMSG MSGID=128,FUNCT=CEC /* I O ERROR S99528*/ 00348000 IEDQMSG MSGID=101,FUNCT=CEC /* CONFIG COMPLETE S99528*/ 00349000 CLOSE CDS40 /* CLOSE LOCAL DATA SET S99528*/ 00350000 CLOSE CDS42 /* CLOSE REMOT DATA SET S99528*/ 00351000 L 13,4(13) /* RESTORE REGISTERS S99528*/ 00352000 LM 14,2,12(13) /* S99528*/ 00353000 XCTL (2,12),EP=IEDQWE /* RETURN TO TOTE S99528*/ 00354000 FINDERR EQU * /* DEVICE NOT CONFIG S99528*/ 00355000 IEDQMSG MSGID=144,FUNCT=CEC,RET=EXHMORE /*S99528*/ 00356000 EXIT1 EQU * /* S99528*/ 00357000 CLOSE CDS40 /* CLOSE LOCAL DATA SET S99528*/ 00358000 CLOSE CDS42 /* CLOSE REMOT DATA SET S99528*/ 00359000 L 13,4(13) /* RESTORE REGS S99528*/ 00360000 LM 14,2,12(13) /* RESTORE REGS S99528*/ 00361000 XCTL (2,12),EP=IEDQWI1 /* RETURN TO SCHEDULER S99528*/ 00362000 CANTEXH EQU * /* NOT PERMITTED EXHB S99528*/ 00363000 IEDQMSG MSGID=145,FUNCT=CEC,RET=EXHMORE /*S99528*/ 00364000 #EXIT EQU * S22024 00365000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00366000 L R15,TOT#TBLE /* GET BRANCH TBL ADR@Y17XAUU*/ 00367000 DROP R2 /* DROP OLTCB BASE S22024*/ 00368000 L R15,28(R15) /* GET CONVERT RTN ADDR S99528*/ 00369000 BR R15 /* BRANCH TO RTN S99528*/ 00370000 SPACE 00371000 INVALN EQU * /*INVALID LINE ADDR*/ @YA12402 00372000 IEDQMSG MSGID=141,FUNCT=CEC,RET=EXHMORE /*SEND ERR*/ @YA12402 00373000 EJECT 00374000 ************************************************************** S99528*/ 00375000 * * S99528*/ 00376000 * D C B ' S , A D C O N ' S * S99528*/ 00377000 * * S99528*/ 00378000 ************************************************************** S99528*/ 00379000 SPACE 00380000 READ CDSDECB,SF,MF=L S99528*/ 00381000 CDS40 DCB DDNAME=OLTLIB,DSORG=PO,RECFM=U,MACRF=(R,W), S99528*/X00382000 LRECL=256,BLKSIZE=256,SYNAD=BADCDS S99528*/ 00383000 CDS42 DCB DDNAME=CDSLIB,DSORG=PO,RECFM=U,MACRF=(R,W), S99528*/X00384000 LRECL=256,BLKSIZE=256,SYNAD=BADCDS S99528*/ 00385000 BASEADDR DC AL4(IEDQWIE+30) S99528*/ 00386000 BLDLLIST DS 0F 00387000 DC XL2'0001' 00388000 DC XL2'003A' 00389000 MODNAME DC XL8'0' S99528 00390000 DC XL6'0' TTR-C S99528 00391000 USERTTR DC XL4'0' USER TTR-C S99528 00392000 DC XL8'0' ADDITIONAL DIRECTORY INFO S99528 00393000 DC XL40'0' ADDITIONAL DIRECTORY INFO S99528 00394000 PATCH DC XL256'0' /* MAINTENANCE AREA S99528*/ 00395000 IEDQWIE CSECT S99528*/ 00396000 *PRINTCDS: 0123 00397000 * PROCEDURE; /* PRINT CDS DATA S99528*/ 00398000 @EL00001 L @13,4(,@13) 0123 00399000 @EF00001 DS 0H 0123 00400000 @ER00001 LM @14,@12,12(@13) 0123 00401000 BR @14 0123 00402000 PRINTCDS STM @14,@12,@SA00002 0123 00403000 * GENERATE; 0124 00404000 IEDQMSG OTBUF=PRNTBUF,OTCNT=52,FUNCT=CEC /* PRINT S22024*/ 00405000 * PRNTBUF1=CDSTITLE(23); /* BLANK OUT PRT BUFFER S22024*/ 00406000 MVC PRNTBUF1(30),CDSTITLE+660 0125 00407000 * PRNTBUF2=CDSTITLE(23,1:18); /* BLANK OUT PRT BUFFER S22024*/ 00408000 MVC PRNTBUF2(18),CDSTITLE+660 0126 00409000 * RETURN; /* RETURN FROM PRINTING S99528*/ 00410000 @EL00002 DS 0H 0127 00411000 @EF00002 DS 0H 0127 00412000 @ER00002 LM @14,@12,@SA00002 0127 00413000 BR @14 0127 00414000 * END PRINTCDS; /* S99528*/ 00415000 *PRINTFIX: 0129 00416000 * PROCEDURE; /* PRINT FIXED FIELDS S99528*/ 00417000 PRINTFIX STM @14,@12,@SA00003 0129 00418000 * CALL PRINTCDS; /* PRINT TITLE S99528*/ 00419000 BAL @14,PRINTCDS 0130 00420000 * PRNTBUF1=CDSTITLE(4); /* GET NEXT TITLE S22024*/ 00421000 MVC PRNTBUF1(30),CDSTITLE+90 0131 00422000 * PRNTBUF2=CDSTITLE(22,1:16); /* GET NEXT TITLE S99528*/ 00423000 MVI PRNTBUF2+16,C' ' 0132 00424000 MVI PRNTBUF2+17,C' ' 0132 00425000 MVC PRNTBUF2(16),CDSTITLE+630 0132 00426000 * CALL PRINTCDS; /* PRINT NEXT TITLE S99528*/ 00427000 BAL @14,PRINTCDS 0133 00428000 * PRNTBUF1=CDSTITLE(5); /* GET UNIT ADDR TITLE S22024*/ 00429000 MVC PRNTBUF1(30),CDSTITLE+120 0134 00430000 * GENERATE; 0135 00431000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00432000 TCONV FROM=CDSUNIT,TO=PRNTBUF2,COUNT=4,TYPE=HE S99528*/ 00433000 DROP R2 /* DROP OLTCB BASE S22024*/ 00434000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00435000 BAL @14,PRINTCDS 0136 00436000 * PRNTBUF1=CDSTITLE(6); /* GET MODEL TITLE S22024*/ 00437000 MVC PRNTBUF1(30),CDSTITLE+150 0137 00438000 * GENERATE; 0138 00439000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00440000 TCONV FROM=CDSMODEL,TO=PRNTBUF2,COUNT=1,TYPE=HE S99528*/ 00441000 DROP R2 /* DROP OLTCB BASE S22024*/ 00442000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00443000 BAL @14,PRINTCDS 0139 00444000 * PRNTBUF1=CDSTITLE(7); /* GET FEATURE TITLE S22024*/ 00445000 MVC PRNTBUF1(30),CDSTITLE+180 0140 00446000 * GENERATE; 0141 00447000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00448000 TCONV FROM=CDSFEAT,TO=PRNTBUF2,COUNT=1,TYPE=HE S99528*/ 00449000 DROP R2 /* DROP OLTCB BASE S22024*/ 00450000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00451000 BAL @14,PRINTCDS 0142 00452000 * PRNTBUF1=CDSTITLE(8); /* GET CLASS TITLE S22024*/ 00453000 MVC PRNTBUF1(30),CDSTITLE+210 0143 00454000 * GENERATE; 0144 00455000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00456000 TCONV FROM=CDSCLASS,TO=PRNTBUF2,COUNT=1,TYPE=HE S99528*/ 00457000 DROP R2 /* DROP OLTCB BASE S22024*/ 00458000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00459000 BAL @14,PRINTCDS 0145 00460000 * PRNTBUF1=CDSTITLE(9); /* GET TYPE TITLE S22024*/ 00461000 MVC PRNTBUF1(30),CDSTITLE+240 0146 00462000 * GENERATE; 0147 00463000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00464000 TCONV FROM=CDSTYPE,TO=PRNTBUF2,COUNT=1,TYPE=HE S99528*/ 00465000 DROP R2 /* DROP OLTCB BASE S22024*/ 00466000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00467000 BAL @14,PRINTCDS 0148 00468000 * PRNTBUF1=CDSTITLE(10); /* GET BYTE CNT TITLE S2202J*/ 00469000 MVC PRNTBUF1(30),CDSTITLE+270 0149 00470000 * GENERATE; 0150 00471000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00472000 TCONV FROM=CDSBYTES,TO=PRNTBUF2,COUNT=1,TYPE=HE S99528*/ 00473000 DROP R2 /* DROP OLTCB BASE S22024*/ 00474000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00475000 BAL @14,PRINTCDS 0151 00476000 * PRNTBUF1=CDSTITLE(11); /* GET FLAGS TITLE S22024*/ 00477000 MVC PRNTBUF1(30),CDSTITLE+300 0152 00478000 * GENERATE; 0153 00479000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00480000 TCONV FROM=CDSFLAGS,TO=PRNTBUF2,COUNT=1,TYPE=HE S99528*/ 00481000 DROP R2 /* DROP OLTCB BASE S22024*/ 00482000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00483000 BAL @14,PRINTCDS 0154 00484000 * PRNTBUF1=CDSTITLE(12); /* GET SIGNAL TITLE S22024*/ 00485000 MVC PRNTBUF1(30),CDSTITLE+330 0155 00486000 * GENERATE; 0156 00487000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00488000 TCONV FROM=CDSSIGNL,TO=PRNTBUF2,COUNT=2,TYPE=HE S99528*/ 00489000 DROP R2 /* DROP OLTCB BASE S22024*/ 00490000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00491000 BAL @14,PRINTCDS 0157 00492000 * RETURN; /* RETURN S99528*/ 00493000 @EL00003 DS 0H 0158 00494000 @EF00003 DS 0H 0158 00495000 @ER00003 LM @14,@12,@SA00003 0158 00496000 BR @14 0158 00497000 * END PRINTFIX; 0159 00498000 *PRNTRMNG: 0160 00499000 * PROCEDURE; /* PRINT REMAINING DATA S99528*/ 00500000 PRNTRMNG STM @14,@12,@SA00004 0160 00501000 * GENERATE; 0161 00502000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00503000 MVC CMPRFLD+1(1),CDSBYTES /* MOVE BYTE COUNT S99528*/ 00504000 DROP R2 /* DROP OLTCB BASE S22024*/ 00505000 * DCL 0162 00506000 * I REG(6) PTR(31) RESTRICTED; /* S99528*/ 00507000 * DO I=24 TO 256 BY 8; /* LOOP THRU CDS DATA S99528*/ 00508000 LA I,24 0163 00509000 @DL00163 DS 0H 0164 00510000 * GENERATE; 0164 00511000 CH 6,CMPRFLD /* ALL DATA EXHIBITED S99528*/ 00512000 BNL RMNGEXIT /* YES GET NEXT ITEM S99528*/ 00513000 * GENERATE; 0165 00514000 USING TOTOLTCB,R2 /* SET UP OLTCB BASE S22024*/ 00515000 TCONV FROM=(CDSREC,6),TO=PRNTBUF2,COUNT=8,TYPE=HE /*S99528*/ 00516000 DROP R2 /* DROP OLTCB BASE S22024*/ 00517000 *PRNTLINE: 0166 00518000 * CALL PRINTCDS; /* PRINT CDS DATA S99528*/ 00519000 PRNTLINE BAL @14,PRINTCDS 0166 00520000 * PRNTBUF1=CDSTITLE(21); /* BLANK BUFFER S22024*/ 00521000 MVC PRNTBUF1(30),CDSTITLE+600 0167 00522000 * END; /* END OF PROCEDURE S22024*/ 00523000 AL I,@CF00196 0168 00524000 C I,@CF00397 0168 00525000 BNH @DL00163 0168 00526000 *RMNGEXIT: 0169 00527000 * RETURN; /* RETURN S99528*/ 00528000 @EL00004 DS 0H 0169 00529000 @EF00004 DS 0H 0169 00530000 @ER00004 LM @14,@12,@SA00004 0169 00531000 BR @14 0169 00532000 * GENERATE; 0170 00533000 DS 0H 00534000 CMPRFLD DC XL2'0000' /* COMPARE FIELD S99528*/ 00535000 * END PRNTRMNG; 0171 00536000 B @EL00004 0171 00537000 * END IEDQWIE 0172 00538000 * 0172 00539000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00540000 */*%INCLUDE SYSLIB (OLTCB ) */ 00541000 * 0172 00542000 * ; 0172 00543000 @DATA DS 0H 00544000 DS 0F 00545000 @SA00001 DS 18F 00546000 @SAV001 EQU @SA00001 00547000 @SA00002 DS 15F 00548000 @SA00003 DS 15F 00549000 @SA00004 DS 15F 00550000 DS 0F 00551000 @CF00196 DC F'8' 00552000 @CF00397 DC F'256' 00553000 DS 0D 00554000 CDSAREA DS A 00555000 OPNERRR DS F 00556000 @CC00704 DC C'G0000000' 00557000 PRNTBUF DS CL52 00558000 ORG PRNTBUF 00559000 PRNTBUF1 DC XL30'0' 00560000 FILLER DC XL4'0' 00561000 PRNTBUF2 DC XL18'0' 00562000 ORG PRNTBUF+52 00563000 BLNKLIN DC XL4'0' 00564000 CDSTITLE DC CL30'IED302I GRAPHIC CONFIGURATION ' 00565000 DC CL30'IED302I TCU CONFIGURATION ' 00566000 DC CL30'IED302I TERMINAL CONFIGURATION' 00567000 DC CL30'IED302I FIELD BYTES' 00568000 DC CL30'IED302I UNIT ADDRESS 00-03' 00569000 DC CL30'IED302I MODEL 04' 00570000 DC CL30'IED302I FEATURE 05' 00571000 DC CL30'IED302I CLASS 06' 00572000 DC CL30'IED302I TYPE 07' 00573000 DC CL30'IED302I BYTE COUNT 08' 00574000 DC CL30'IED302I FLAGS 09' 00575000 DC CL30'IED302I EXT.SGNL MASK 10-11' 00576000 DC CL30'IED302I TCU FEATURES 12-13' 00577000 DC CL30'IED302I MISCELLENOUS 14-16' 00578000 DC CL30'IED302I SEC. RUN MSG 17-19' 00579000 DC CL30'IED302I SYMBOLIC NAME 12-19' 00580000 DC CL30'IED302I FIX AREA LEN 20' 00581000 DC CL30'IED302I FLAG BYTES 21-22' 00582000 DC CL30'IED302I LINE CONN COMM 23' 00583000 DC CL30'IED302I REMAINING ' 00584000 DC CL30'IED302I ' 00585000 DC CL30'CONTENTS ' 00586000 DC CL30' ' 00587000 DC CL30'IED302I NCP CONFIGURATION ' 00588000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00589000 @01 EQU 01 00590000 @02 EQU 02 00591000 @03 EQU 03 00592000 @04 EQU 04 00593000 @05 EQU 05 00594000 @06 EQU 06 00595000 @07 EQU 07 00596000 @08 EQU 08 00597000 @09 EQU 09 00598000 @10 EQU 10 00599000 @11 EQU 11 00600000 @12 EQU 12 00601000 @13 EQU 13 00602000 @14 EQU 14 00603000 @15 EQU 15 00604000 @0 EQU 00 00605000 @1 EQU 01 00606000 @2 EQU 02 00607000 @3 EQU 03 00608000 @4 EQU 04 00609000 @5 EQU 05 00610000 @6 EQU 06 00611000 @7 EQU 07 00612000 @8 EQU 08 00613000 @9 EQU 09 00614000 @A EQU 10 00615000 @B EQU 11 00616000 @C EQU 12 00617000 @D EQU 13 00618000 @E EQU 14 00619000 @F EQU 15 00620000 OLTCBPTR EQU @02 00621000 PARMREG1 EQU @01 00622000 UCBREG EQU @05 00623000 WORKREG6 EQU @06 00624000 RETCODE EQU @15 00625000 I EQU @06 00626000 ENTRYPT EQU @15 00627000 PARMREG0 EQU @00 00628000 RETADREG EQU @09 00629000 TOTOLTCB EQU 0 00630000 $SCTTBLE EQU TOTOLTCB 00631000 $TESTOPT EQU $SCTTBLE+2 00632000 $ERROPT EQU $SCTTBLE+3 00633000 $PDEVFLG EQU $SCTTBLE+10 00634000 $CDSFLGS EQU $SCTTBLE+11 00635000 $EXECFLG EQU $SCTTBLE+33 00636000 $OLTFLGS EQU $SCTTBLE+36 00637000 $TOTFLG1 EQU $SCTTBLE+38 00638000 TOTSAVE5 EQU TOTOLTCB+408 00639000 TOTSRENT EQU TOTOLTCB+576 00640000 TOTCTENT EQU TOTOLTCB+584 00641000 TOTCTFLG EQU TOTCTENT+22 00642000 TOTCTDFL EQU TOTOLTCB+624 00643000 TOTCUTST EQU TOTOLTCB+628 00644000 TOTCUFLG EQU TOTCUTST 00645000 TOTPLIST EQU TOTOLTCB+664 00646000 TOTOECBA EQU TOTPLIST+12 00647000 TOTOFLG EQU TOTOECBA 00648000 TOTAPENT EQU TOTOLTCB+736 00649000 TOTAPFLG EQU TOTAPENT+22 00650000 TOTAPDFL EQU TOTOLTCB+767 00651000 TOTOLTPL EQU TOTOLTCB+820 00652000 TOTWTORP EQU TOTOLTCB+832 00653000 TOTWTOPL EQU TOTOLTCB+840 00654000 TOTINBUF EQU TOTWTOPL+88 00655000 TOTPLNKQ EQU TOTOLTCB+1012 00656000 TOTFLG01 EQU TOTOLTCB+1184 00657000 TOTFLG02 EQU TOTOLTCB+1185 00658000 TOTFLG03 EQU TOTOLTCB+1186 00659000 TOTFLG04 EQU TOTOLTCB+1187 00660000 TOTFLG05 EQU TOTOLTCB+1188 00661000 TOTFLG06 EQU TOTOLTCB+1189 00662000 TOTFLG07 EQU TOTOLTCB+1190 00663000 TOTFLG08 EQU TOTOLTCB+1191 00664000 TOTFLG09 EQU TOTOLTCB+1192 00665000 TOTFLG10 EQU TOTOLTCB+1193 00666000 CDSREC EQU TOTOLTCB+1200 00667000 CDSUNIT EQU CDSREC 00668000 CDSWORK EQU CDSUNIT 00669000 CDSFLAGS EQU CDSREC+9 00670000 CDSNAME EQU CDSREC+12 00671000 CDSFXARA EQU CDSREC+20 00672000 CDSFXFLG EQU CDSFXARA+1 00673000 CDSINPUT EQU TOTOLTCB+1456 00674000 CDSTCUTY EQU CDSINPUT 00675000 CDSADAP EQU CDSINPUT+16 00676000 CDSLINE EQU CDSINPUT+17 00677000 CDSCONN EQU CDSINPUT+18 00678000 CDSFNFLG EQU CDSINPUT+78 00679000 CDSRETFL EQU CDSINPUT+79 00680000 CDSBLDL EQU TOTOLTCB+1536 00681000 CDSCESD EQU TOTOLTCB+1576 00682000 CDSCNTL EQU TOTOLTCB+1632 00683000 OLTCBLK EQU 0 00684000 INPREC EQU OLTCBLK 00685000 INPCLASS EQU INPREC+6 00686000 INPNAME EQU INPREC+12 00687000 INPFXARA EQU INPREC+20 00688000 INPINPUT EQU OLTCBLK+256 00689000 INPSYMBL EQU INPINPUT+4 00690000 INPCFLGS EQU INPINPUT+77 00691000 INPCESD EQU OLTCBLK+376 00692000 INPCESNM EQU INPCESD+8 00693000 * START UNREFERENCED COMPONENTS 00694000 INPCNTL EQU OLTCBLK+432 00695000 @NM00054 EQU INPCESD 00696000 INPBLDL EQU OLTCBLK+336 00697000 INPRETFL EQU INPINPUT+79 00698000 INPFNFLG EQU INPINPUT+78 00699000 @NM00053 EQU INPINPUT+12 00700000 @NM00052 EQU INPINPUT 00701000 INPREMNG EQU INPREC+24 00702000 INPLNCON EQU INPFXARA+3 00703000 INPFXFLG EQU INPFXARA+1 00704000 INPFXLEN EQU INPFXARA 00705000 INPRMASK EQU INPNAME+5 00706000 INPMISC EQU INPNAME+2 00707000 INPTCU EQU INPNAME 00708000 INPSIGNL EQU INPREC+10 00709000 INPFLAGS EQU INPREC+9 00710000 INPBYTES EQU INPREC+8 00711000 INPTYPE EQU INPREC+7 00712000 INPFEAT EQU INPREC+5 00713000 INPMODEL EQU INPREC+4 00714000 INPUNIT EQU INPREC 00715000 TOTOBEND EQU TOTOLTCB+2100 00716000 TOTSERV EQU TOTOLTCB+2096 00717000 @NM00051 EQU TOTOLTCB+2044 00718000 TOTWOWRK EQU TOTOLTCB+1904 00719000 TOTWAWRK EQU TOTOLTCB+1824 00720000 TOTOLTEN EQU TOTOLTCB+1820 00721000 TOTAPNAM EQU TOTOLTCB+1812 00722000 TOTGRABP EQU TOTOLTCB+1808 00723000 TOTWAITI EQU TOTOLTCB+1800 00724000 @NM00050 EQU TOTOLTCB+1658 00725000 CDSTINDX EQU TOTOLTCB+1656 00726000 CDSTTBLE EQU TOTOLTCB+1652 00727000 CDSRECLN EQU CDSCNTL+18 00728000 CDSCESDI EQU CDSCNTL+16 00729000 CDSCCW EQU CDSCNTL+8 00730000 CDSCNT02 EQU CDSCNTL+6 00731000 CDSCNT01 EQU CDSCNTL+4 00732000 CDSCTLSP EQU CDSCNTL+1 00733000 CDSCTLID EQU CDSCNTL 00734000 CDSESD03 EQU CDSCESD+40 00735000 CDSESD02 EQU CDSCESD+24 00736000 CDSCESLN EQU CDSCESD+21 00737000 CDSCESGM EQU CDSCESD+20 00738000 CDSCESAD EQU CDSCESD+17 00739000 CDSCESTY EQU CDSCESD+16 00740000 CDSCESNM EQU CDSCESD+8 00741000 CDSCESCT EQU CDSCESD+6 00742000 CDSESD01 EQU CDSCESD+4 00743000 CDSCESPR EQU CDSCESD+1 00744000 CDSCESID EQU CDSCESD 00745000 CDSSSI EQU CDSBLDL+33 00746000 CDSTXBLK EQU CDSBLDL+30 00747000 CDSEPADR EQU CDSBLDL+27 00748000 CDSBLK1 EQU CDSBLDL+25 00749000 CDSMAIN EQU CDSBLDL+22 00750000 CDSATTRB EQU CDSBLDL+20 00751000 CDSTTRNS EQU CDSBLDL+16 00752000 CDSTTRD4 EQU CDSBLDL+15 00753000 CDSTTRD EQU CDSBLDL+12 00754000 CDSTTRC4 EQU CDSBLDL+11 00755000 CDSTTRC EQU CDSBLDL+8 00756000 CDSMEMBR EQU CDSBLDL 00757000 CDSINVLD EQU CDSRETFL 00758000 @NM00049 EQU CDSRETFL 00759000 @NM00048 EQU CDSFNFLG 00760000 CDSADD EQU CDSFNFLG 00761000 CDSDEL EQU CDSFNFLG 00762000 CDSEXIBT EQU CDSFNFLG 00763000 @NM00047 EQU CDSFNFLG 00764000 CDSCFLGS EQU CDSINPUT+77 00765000 CDSCODE EQU CDSINPUT+76 00766000 CDSCPUID EQU CDSINPUT+61 00767000 CDSNID EQU CDSINPUT+60 00768000 CDSDIAL EQU CDSINPUT+40 00769000 CDSNDIAL EQU CDSINPUT+39 00770000 @NM00046 EQU CDSINPUT+38 00771000 CDSADDR EQU CDSINPUT+28 00772000 CDSNADDR EQU CDSINPUT+27 00773000 CDSPOLL EQU CDSINPUT+20 00774000 CDSNPOLL EQU CDSINPUT+19 00775000 CDSDISEN EQU CDSCONN 00776000 CDSDSMI EQU CDSCONN 00777000 CDSDSAD0 EQU CDSCONN 00778000 @NM00045 EQU CDSCONN 00779000 CDSPTP EQU CDSLINE 00780000 CDSMP EQU CDSLINE 00781000 CDSSWAUT EQU CDSLINE 00782000 @NM00044 EQU CDSLINE 00783000 @NM00043 EQU CDSADAP 00784000 CDSIBM1 EQU CDSADAP 00785000 CDSIBM2 EQU CDSADAP 00786000 CDSTTY1 EQU CDSADAP 00787000 CDSIBM3 EQU CDSADAP 00788000 CDSTERM EQU CDSINPUT+12 00789000 CDSSYMBL EQU CDSINPUT+4 00790000 CDSVAR EQU CDSTCUTY 00791000 CDSLNCON EQU CDSFXARA+3 00792000 @NM00042 EQU CDSFXFLG 00793000 CDSWTBSC EQU CDSFXFLG 00794000 CDSMDROP EQU CDSFXFLG 00795000 CDSMPNT EQU CDSFXFLG 00796000 CDSAUTCL EQU CDSFXFLG 00797000 CDSSETMD EQU CDSFXFLG 00798000 CDSFXLEN EQU CDSFXARA 00799000 CDSRMASK EQU CDSNAME+5 00800000 CDSMISC EQU CDSNAME+2 00801000 CDSTCU EQU CDSNAME 00802000 CDSSIGNL EQU CDSREC+10 00803000 CDSLCNCT EQU CDSFLAGS 00804000 CDSCUSYM EQU CDSFLAGS 00805000 CDSTWOCH EQU CDSFLAGS 00806000 CDSSYMNM EQU CDSFLAGS 00807000 CDSEXINT EQU CDSFLAGS 00808000 CDSFEVOL EQU CDSFLAGS 00809000 CDSDVSHR EQU CDSFLAGS 00810000 CDSFPMOD EQU CDSFLAGS 00811000 CDSBYTES EQU CDSREC+8 00812000 CDSTYPE EQU CDSREC+7 00813000 CDSCLASS EQU CDSREC+6 00814000 CDSFEAT EQU CDSREC+5 00815000 CDSMODEL EQU CDSREC+4 00816000 @NM00041 EQU TOTOLTCB+1196 00817000 @NM00040 EQU TOTOLTCB+1195 00818000 TOTTTBEL EQU TOTOLTCB+1194 00819000 TOTOLTRS EQU TOTFLG10 00820000 TOTOLTWT EQU TOTFLG10 00821000 TOTOLTED EQU TOTFLG10 00822000 TOTTNTRQ EQU TOTFLG10 00823000 @NM00039 EQU TOTFLG10 00824000 @NM00038 EQU TOTFLG10 00825000 @NM00037 EQU TOTFLG10 00826000 TOTTERMS EQU TOTFLG10 00827000 TOTMACFT EQU TOTFLG09 00828000 TOTPRECT EQU TOTFLG09 00829000 TOTLNCON EQU TOTFLG09 00830000 TOTNOBRK EQU TOTFLG09 00831000 TOTAPTRM EQU TOTFLG09 00832000 TOTCTCON EQU TOTFLG09 00833000 TOTAPOUT EQU TOTFLG09 00834000 TOTAPCON EQU TOTFLG09 00835000 @NM00036 EQU TOTFLG08 00836000 TOTFMCTL EQU TOTFLG08 00837000 TOTMSSRC EQU TOTFLG07 00838000 TOTMSPRT EQU TOTFLG07 00839000 TOTMSREP EQU TOTFLG07 00840000 TOTMSCEC EQU TOTFLG07 00841000 @NM00035 EQU TOTFLG07 00842000 @NM00034 EQU TOTFLG07 00843000 TOTSECEX EQU TOTFLG07 00844000 TOTPRIEX EQU TOTFLG07 00845000 TOTNPERR EQU TOTFLG06 00846000 TOTOTACT EQU TOTFLG06 00847000 TOTCANCL EQU TOTFLG06 00848000 TOTABEND EQU TOTFLG06 00849000 TOTNCMFG EQU TOTFLG06 00850000 TOTWACAN EQU TOTFLG06 00851000 TOTCBOPN EQU TOTFLG06 00852000 TOTOTERM EQU TOTFLG06 00853000 TOTNDMSG EQU TOTFLG05 00854000 TOTEXIOF EQU TOTFLG05 00855000 TOTTMOUT EQU TOTFLG05 00856000 TOTSRCON EQU TOTFLG05 00857000 TOTSRCE EQU TOTFLG05 00858000 TOTREPLY EQU TOTFLG05 00859000 TOTCECOM EQU TOTFLG05 00860000 TOTPRINT EQU TOTFLG05 00861000 TOTTTSWT EQU TOTFLG04 00862000 @NM00033 EQU TOTFLG04 00863000 @NM00032 EQU TOTFLG04 00864000 TOTSCCTF EQU TOTFLG04 00865000 TOTPRCTF EQU TOTFLG04 00866000 TOTCLOSE EQU TOTFLG04 00867000 TOTDTCHD EQU TOTFLG04 00868000 TOTNUMDV EQU TOTFLG04 00869000 @NM00031 EQU TOTFLG03 00870000 TOTREPEX EQU TOTFLG03 00871000 TOTTSINC EQU TOTFLG03 00872000 TOTIMNCP EQU TOTFLG03 00873000 TOTOPTER EQU TOTFLG03 00874000 TOTTSTER EQU TOTFLG03 00875000 TOTTDFER EQU TOTFLG03 00876000 TOTAPOER EQU TOTFLG03 00877000 TOTDEVRN EQU TOTFLG02 00878000 TOTCONCU EQU TOTFLG02 00879000 TOTCONMD EQU TOTFLG02 00880000 TOTCHKSZ EQU TOTFLG02 00881000 TOTOLTRQ EQU TOTFLG02 00882000 TOTDEV0X EQU TOTFLG02 00883000 TOTTSST EQU TOTFLG02 00884000 TOTTTSPE EQU TOTFLG02 00885000 TOTCLNED EQU TOTFLG01 00886000 TOTCLNST EQU TOTFLG01 00887000 TOTPRMPT EQU TOTFLG01 00888000 TOTAPTST EQU TOTFLG01 00889000 TOTEXIT EQU TOTFLG01 00890000 TOTIPLCU EQU TOTFLG01 00891000 TOTCONFG EQU TOTFLG01 00892000 TOTFINAL EQU TOTFLG01 00893000 TOTRESPL EQU TOTOLTCB+1180 00894000 TOTSTAE EQU TOTOLTCB+1176 00895000 TOTAVTPT EQU TOTOLTCB+1172 00896000 @NM00030 EQU TOTOLTCB+1152 00897000 TOTWKEND EQU TOTOLTCB+1152 00898000 TOTWKSPC EQU TOTOLTCB+1024 00899000 @NM00029 EQU TOTOLTCB+1020 00900000 TOTPLBKW EQU TOTPLNKQ+4 00901000 TOTPLFWD EQU TOTPLNKQ 00902000 @NM00028 EQU TOTOLTCB+1011 00903000 TOTRTCOD EQU TOTOLTCB+1010 00904000 TOTOLTID EQU TOTOLTCB+1008 00905000 TOTOTBUF EQU TOTWTOPL+4 00906000 @NM00027 EQU TOTWTOPL+2 00907000 TOTOTCNT EQU TOTWTOPL+1 00908000 @NM00026 EQU TOTWTOPL 00909000 TOTINECB EQU TOTWTORP+4 00910000 TOTINADR EQU TOTWTORP+1 00911000 TOTINCNT EQU TOTWTORP 00912000 TOT#TBLE EQU TOTOLTPL+8 00913000 @NM00025 EQU TOTOLTPL 00914000 TOTCMPCD EQU TOTOLTCB+816 00915000 TOTTCBAD EQU TOTOLTCB+812 00916000 TOTRESSV EQU TOTOLTCB+808 00917000 TOTOTECB EQU TOTOLTCB+804 00918000 TOTOLTMQ EQU TOTOLTCB+800 00919000 TOTPARML EQU TOTOLTCB+796 00920000 TOTPDECB EQU TOTOLTCB+776 00921000 TOTAPDCB EQU TOTOLTCB+772 00922000 @NM00024 EQU TOTOLTCB+768 00923000 @NM00023 EQU TOTAPDFL 00924000 TOTAPIAC EQU TOTAPDFL 00925000 TOTAPHD EQU TOTAPDFL 00926000 TOTAPLST EQU TOTAPDFL 00927000 TOTAPGP EQU TOTAPDFL 00928000 @NM00022 EQU TOTAPDFL 00929000 TOTAPLIN EQU TOTAPDFL 00930000 TOTAPTER EQU TOTAPDFL 00931000 TOTAPRNL EQU TOTAPENT+23 00932000 TOTAPEND EQU TOTAPENT+23 00933000 TOTAPSWD EQU TOTAPFLG 00934000 @NM00021 EQU TOTAPFLG 00935000 TOTAPORN EQU TOTAPFLG 00936000 TOTAPASN EQU TOTAPFLG 00937000 TOTAPTLN EQU TOTAPENT+20 00938000 TOTARTNT EQU TOTAPENT+16 00939000 TOTAPTNT EQU TOTAPENT+12 00940000 TOTAPLCB EQU TOTAPENT+9 00941000 TOTAPRLN EQU TOTAPENT+8 00942000 TOTARSID EQU TOTAPENT+6 00943000 TOTAROFF EQU TOTAPENT+4 00944000 TOTAPOFF EQU TOTAPENT+2 00945000 TOTAPUCB EQU TOTAPENT 00946000 TOTUSCOR EQU TOTOLTCB+732 00947000 TOTOPCLN EQU TOTOLTCB+728 00948000 @NM00020 EQU TOTOLTCB+690 00949000 TOTOALTT EQU TOTOLTCB+688 00950000 TOTOLADR EQU TOTPLIST+16 00951000 @NM00019 EQU TOTOECBA+1 00952000 @NM00018 EQU TOTOFLG 00953000 TOTOATTC EQU TOTOFLG 00954000 TOTORTCD EQU TOTPLIST+11 00955000 TOTORLN EQU TOTPLIST+10 00956000 TOTOELNG EQU TOTPLIST+9 00957000 TOTOVBCD EQU TOTPLIST+8 00958000 TOTOLINK EQU TOTPLIST+5 00959000 TOTOPRI EQU TOTPLIST+4 00960000 TOTOQCBA EQU TOTPLIST+1 00961000 TOTOKEY EQU TOTPLIST 00962000 TOTWOOPC EQU TOTOLTCB+640 00963000 TOTCURS4 EQU TOTCUTST+11 00964000 TOTCURS3 EQU TOTCUTST+10 00965000 TOTCURS2 EQU TOTCUTST+9 00966000 TOTCURS1 EQU TOTCUTST+8 00967000 TOTCUSAV EQU TOTCUTST+4 00968000 TOTCUCUU EQU TOTCUTST+2 00969000 TOTCU#AD EQU TOTCUTST+1 00970000 @NM00017 EQU TOTCUFLG 00971000 TOTCUCUP EQU TOTCUFLG 00972000 TOTCUDON EQU TOTCUFLG 00973000 @NM00016 EQU TOTOLTCB+625 00974000 @NM00015 EQU TOTCTDFL 00975000 TOTCTIAC EQU TOTCTDFL 00976000 TOTCTHD EQU TOTCTDFL 00977000 TOTCTLST EQU TOTCTDFL 00978000 TOTCTGP EQU TOTCTDFL 00979000 @NM00014 EQU TOTCTDFL 00980000 TOTCTLIN EQU TOTCTDFL 00981000 TOTCTTRM EQU TOTCTDFL 00982000 TOTCTNAM EQU TOTCTENT+31 00983000 TOTCTRNL EQU TOTCTENT+23 00984000 TOTCTEND EQU TOTCTENT+23 00985000 TOTCTSWD EQU TOTCTFLG 00986000 @NM00013 EQU TOTCTFLG 00987000 TOTCTORN EQU TOTCTFLG 00988000 TOTCTASN EQU TOTCTFLG 00989000 TOTCTTLN EQU TOTCTENT+20 00990000 TOTCRTNT EQU TOTCTENT+16 00991000 TOTCTTNT EQU TOTCTENT+12 00992000 TOTCTLCB EQU TOTCTENT+9 00993000 TOTCTRLN EQU TOTCTENT+8 00994000 TOTCRSID EQU TOTCTENT+6 00995000 TOTCROFF EQU TOTCTENT+4 00996000 TOTCTOFF EQU TOTCTENT+2 00997000 TOTCTUCB EQU TOTCTENT 00998000 TOTSRLCB EQU TOTSRENT+4 00999000 @NM00012 EQU TOTSRENT+2 01000000 TOTSROFF EQU TOTSRENT 01001000 TOTMMSPC EQU TOTOLTCB+572 01002000 TOTBKRQD EQU TOTOLTCB+570 01003000 TOTBKASN EQU TOTOLTCB+568 01004000 TOTSVEND EQU TOTOLTCB+568 01005000 TOTWOSV4 EQU TOTOLTCB+564 01006000 TOTWOSV3 EQU TOTOLTCB+560 01007000 TOTWOSV2 EQU TOTOLTCB+556 01008000 TOTWOSV1 EQU TOTOLTCB+552 01009000 TOTSAVE6 EQU TOTOLTCB+480 01010000 @NM00011 EQU TOTSAVE5+68 01011000 TOTOLTEP EQU TOTSAVE5+64 01012000 @NM00010 EQU TOTSAVE5+48 01013000 TOTOLTPT EQU TOTSAVE5+44 01014000 @NM00009 EQU TOTSAVE5 01015000 TOTSAVE4 EQU TOTOLTCB+336 01016000 TOTSAVE3 EQU TOTOLTCB+264 01017000 TOTSAVE2 EQU TOTOLTCB+192 01018000 TOTSAVE1 EQU TOTOLTCB+120 01019000 TOTSMGRT EQU TOTOLTCB+116 01020000 @NM00008 EQU $SCTTBLE+92 01021000 $EXT EQU $SCTTBLE+88 01022000 $PASS EQU $SCTTBLE+84 01023000 $TABLE EQU $SCTTBLE+80 01024000 $MSGIDAC EQU $SCTTBLE+78 01025000 @NM00007 EQU $SCTTBLE+72 01026000 @NM00006 EQU $SCTTBLE+71 01027000 $RETMASK EQU $SCTTBLE+70 01028000 $R249255 EQU $SCTTBLE+69 01029000 $R241248 EQU $SCTTBLE+68 01030000 $R233240 EQU $SCTTBLE+67 01031000 $R225232 EQU $SCTTBLE+66 01032000 $R217224 EQU $SCTTBLE+65 01033000 $R209216 EQU $SCTTBLE+64 01034000 $R201208 EQU $SCTTBLE+63 01035000 $R193200 EQU $SCTTBLE+62 01036000 $R185192 EQU $SCTTBLE+61 01037000 $R177184 EQU $SCTTBLE+60 01038000 $R169176 EQU $SCTTBLE+59 01039000 $R161168 EQU $SCTTBLE+58 01040000 $R153160 EQU $SCTTBLE+57 01041000 $R145152 EQU $SCTTBLE+56 01042000 $R137144 EQU $SCTTBLE+55 01043000 $R129136 EQU $SCTTBLE+54 01044000 $R121128 EQU $SCTTBLE+53 01045000 $R113120 EQU $SCTTBLE+52 01046000 $R105112 EQU $SCTTBLE+51 01047000 $R097104 EQU $SCTTBLE+50 01048000 $R089096 EQU $SCTTBLE+49 01049000 $R081088 EQU $SCTTBLE+48 01050000 $R073080 EQU $SCTTBLE+47 01051000 $R065072 EQU $SCTTBLE+46 01052000 $R057064 EQU $SCTTBLE+45 01053000 $R049056 EQU $SCTTBLE+44 01054000 $R041048 EQU $SCTTBLE+43 01055000 $R033040 EQU $SCTTBLE+42 01056000 $R025032 EQU $SCTTBLE+41 01057000 $R017024 EQU $SCTTBLE+40 01058000 $TOTFLG2 EQU $SCTTBLE+39 01059000 @NM00005 EQU $TOTFLG1 01060000 $CTEQTT EQU $TOTFLG1 01061000 $TERMSEC EQU $TOTFLG1 01062000 $TDATBLK EQU $TOTFLG1 01063000 $LINESHR EQU $TOTFLG1 01064000 @NM00004 EQU $SCTTBLE+37 01065000 @NM00003 EQU $OLTFLGS 01066000 $LASTSEC EQU $OLTFLGS 01067000 $TRACE EQU $OLTFLGS 01068000 $RETCODE EQU $OLTFLGS 01069000 $CONTCB EQU $OLTFLGS 01070000 $RETAIN EQU $OLTFLGS 01071000 $CLEANRT EQU $OLTFLGS 01072000 $MANINTV EQU $OLTFLGS 01073000 $OLTSIZE EQU $SCTTBLE+34 01074000 $QSCTMOD EQU $EXECFLG 01075000 $CTRLMOD EQU $EXECFLG 01076000 $CLEANUP EQU $EXECFLG 01077000 $LSTPDEV EQU $EXECFLG 01078000 $ERRCNT EQU $EXECFLG 01079000 $RTNSLCT EQU $EXECFLG 01080000 $MULTDEV EQU $EXECFLG 01081000 $CECCMIN EQU $EXECFLG 01082000 $RMSKCNT EQU $SCTTBLE+32 01083000 $CDS8T19 EQU $SCTTBLE+20 01084000 $PDEVDSC EQU $SCTTBLE+16 01085000 $PDEVADR EQU $SCTTBLE+12 01086000 $COMMCN EQU $CDSFLGS 01087000 $CUSTSYM EQU $CDSFLGS 01088000 $TWOCHSW EQU $CDSFLGS 01089000 $SYMNAME EQU $CDSFLGS 01090000 $EXTINTC EQU $CDSFLGS 01091000 $CEVOL EQU $CDSFLGS 01092000 $SHARED EQU $CDSFLGS 01093000 $FPM EQU $CDSFLGS 01094000 $LASTSUB EQU $PDEVFLG 01095000 $PATHDEF EQU $PDEVFLG 01096000 $TERMNDX EQU $PDEVFLG 01097000 @NM00002 EQU $PDEVFLG 01098000 $LASTDEV EQU $PDEVFLG 01099000 $TSSSYS1 EQU $PDEVFLG 01100000 $EXFILPT EQU $PDEVFLG 01101000 $FPMOLD EQU $PDEVFLG 01102000 $TSSSYM EQU $SCTTBLE+8 01103000 $SPARE1 EQU $SCTTBLE+7 01104000 $DRIVER EQU $SCTTBLE+6 01105000 $RT0916 EQU $SCTTBLE+5 01106000 $RT0108 EQU $SCTTBLE+4 01107000 $LOOPTST EQU $ERROPT 01108000 $LOOPERR EQU $ERROPT 01109000 $NERRPRT EQU $ERROPT 01110000 $NOCNTRL EQU $ERROPT 01111000 $ALTPRNT EQU $ERROPT 01112000 $CATERR EQU $ERROPT 01113000 $ASTERIK EQU $ERROPT 01114000 $TESTERR EQU $ERROPT 01115000 $FSTCOMM EQU $TESTOPT 01116000 $INDEFLP EQU $TESTOPT 01117000 $NOPRT EQU $TESTOPT 01118000 @NM00001 EQU $TESTOPT 01119000 $ERRLPCT EQU $SCTTBLE 01120000 * END UNREFERENCED COMPONENTS 01121000 @RT00041 EQU NEXTITEM 01122000 @RT00043 EQU EXIT1 01123000 @RF00043 EQU BADRESP 01124000 @RT00048 EQU FINDERR 01125000 @RT00052 EQU CANTEXH 01126000 @RT00078 EQU FINDERR 01127000 @RT00082 EQU LINETEST 01128000 @RT00086 EQU NCPTEST 01129000 @RT00090 EQU CANTEXH 01130000 @RT00096 EQU EXHBTCU 01131000 RMNGEXIT EQU @EL00004 01132000 @PB00004 EQU @EL00001 01133000 @PB00003 EQU @PB00004 01134000 @PB00002 EQU @PB00003 01135000 @EL01 EQU @EL00001 01136000 @ENDDATA EQU * 01137000 @DATEND EQU * 01138000 END IEDQWIE,(C'PLS0949',0701,77200) 01139000