TITLE 'ICGDSB05 MSC TABLE CREATE, EXCP READ TO DASD *00001000 ' 00002000 ICGDSB05 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ICGDSB05 76.337' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@12,12(@13) 0001 00010000 BALR @12,0 0001 00011000 @PSTART DS 0H 0001 00012000 USING @PSTART,@12 0001 00013000 L @00,@SIZDATD 0001 00014000 GETMAIN R,LV=(0) 00015000 LR @11,@01 0001 00016000 USING @DATD,@11 0001 00017000 ST @13,@SA00001+4 0001 00018000 LM @00,@01,20(@13) 0001 00019000 ST @11,8(,@13) 0001 00020000 LR @13,@11 0001 00021000 XC @ZTEMPS(@ZLEN),@ZTEMPS 00022000 * 0061 00023000 * /*****************************************************************/ 00024000 * /* */ 00025000 * /* *********************************************** @YD00113*/ 00026000 * /* GET ADDRESS OF SYSUT1 IOB AND DCB. IF THE @YD00113*/ 00027000 * /* DCB IS NOT OPEN, RETURN TO THE CALLER. @YD00113*/ 00028000 * /* ZERO ERROR FLAG 'UT1VWERR'. @YD00113*/ 00029000 * /* *********************************************** @YD00113*/ 00030000 * /* */ 00031000 * /*****************************************************************/ 00032000 * 0061 00033000 * DCBPTSAV=DCBPTR; /* @Y30LB10*/ 00034000 L DCBPTSAV,DCBPTR(,R4) 0061 00035000 * DCBPTR=ADDR(UT1DCB); /* @Y30LB10*/ 00036000 L @10,BUILDPTR(,R4) 0062 00037000 LA @07,UT1DCB(,@10) 0062 00038000 ST @07,DCBPTR(,R4) 0062 00039000 * IOBSTPTR=ADDR(UT1IOB); /* @Y30LB10*/ 00040000 LA IOBSTPTR,UT1IOB(,@10) 0063 00041000 * UT1VWERR=OFF; /* @Y30LB10*/ 00042000 NI UT1VWERR(@10),B'11011111' 0064 00043000 * IF DCBOFOPN=OFF /* @Y30LB10*/ 00044000 * THEN /* @Y30LB10*/ 00045000 TM DCBOFOPN+40(@07),B'00010000' 0065 00046000 BZ @RT00065 0065 00047000 * GOTO EXIT; /* @Y30LB10*/ 00048000 * ELSE 0067 00049000 * ; /* @Y30LB10*/ 00050000 * 0068 00051000 * /*****************************************************************/ 00052000 * /* */ 00053000 * /* *********************************************** @YD00113*/ 00054000 * /* GET ADDRESS OF READ BUFFER. @YD00113*/ 00055000 * /* @YD00113*/ 00056000 * /* BUILD A READ-DATA CCW WITH THE SKIP FLAG ON @YD00113*/ 00057000 * /* AND A COUNT OF 8 (USED FOR SEARCH-ID-EQUAL TO @YD00113*/ 00058000 * /* RECORD ZERO. @YD00113*/ 00059000 * /* @YD00113*/ 00060000 * /* BUILD 32 READ-DATA CCWS FOR SYSUT1. @YD00113*/ 00061000 * /* SET IN DATA ADDRESS OF READ BUFFER, OP CODE, @YD00113*/ 00062000 * /* COMMAND CHAIN FLAG AND A COUNT OF 264. @YD00113*/ 00063000 * /* @YD00113*/ 00064000 * /* SET COMMAND CHAIN OFF IN LAST CCW. @YD00113*/ 00065000 * /* *********************************************** @YD00113*/ 00066000 * /* */ 00067000 * /*****************************************************************/ 00068000 * 0068 00069000 * R6=B05BUFPT; /* @Y30LB10*/ 00070000 L R6,B05BUFPT(,@10) 0068 00071000 * SKIPDA=R6; /* @Y30LB10*/ 00072000 AH @10,@CH00953 0069 00073000 ST R6,@TF00001 0069 00074000 MVC SKIPDA(3,@10),@TF00001+1 0069 00075000 * SKIPOP=READOP; /* @Y30LB10*/ 00076000 MVC SKIPOP(1,@10),READOP 0070 00077000 * SKIPFLG=SKIP; /* @Y30LB10*/ 00078000 MVC SKIPFLG(2,@10),SKIP 0071 00079000 * SKIPLEN=LEN8; /* @Y30LB10*/ 00080000 MVC SKIPLEN(2,@10),LEN8 0072 00081000 * DO I=1 TO 32; /* @Y30LB10*/ 00082000 LA I,1 0073 00083000 @DL00073 DS 0H 0074 00084000 * READDA1(I)=R6; /* @Y30LB10*/ 00085000 LR @10,I 0074 00086000 SLA @10,3 0074 00087000 LA @07,360 0074 00088000 AL @07,BUILDPTR(,R4) 0074 00089000 ST R6,@TF00001 0074 00090000 ST @10,@TF00002 0074 00091000 ALR @10,@07 0074 00092000 MVC READDA1-8(3,@10),@TF00001+1 0074 00093000 * READOP1(I)=READOP; /* @Y30LB10*/ 00094000 LR @10,@07 0075 00095000 AL @10,@TF00002 0075 00096000 MVC READOP1-8(1,@10),READOP 0075 00097000 * READFLG1(I)=CMDCHN; /* @Y30LB10*/ 00098000 LR @10,@07 0076 00099000 AL @10,@TF00002 0076 00100000 MVC READFLG1-8(2,@10),CMDCHN 0076 00101000 * READLEN1(I)=LEN264; /* @Y30LB10*/ 00102000 AL @07,@TF00002 0077 00103000 MVC READLEN1-8(2,@07),LEN264 0077 00104000 * R6=R6+LEN264; /* @Y30LB10*/ 00105000 MVC @ZT00002+2(2),LEN264 0078 00106000 AL R6,@ZT00002 0078 00107000 * END; /* @Y30LB10*/ 00108000 AH I,@CH00035 0079 00109000 CH I,@CH00249 0079 00110000 BNH @DL00073 0079 00111000 * READFLG1(32)=NOCHN; /* @Y30LB10*/ 00112000 L @10,BUILDPTR(,R4) 0080 00113000 LA @07,360 0080 00114000 ALR @07,@10 0080 00115000 MVC READFLG1+248(2,@07),NOCHN 0080 00116000 * 0081 00117000 * /*****************************************************************/ 00118000 * /* */ 00119000 * /* *********************************************** @YD00113*/ 00120000 * /* GET REAL CYLINDER ADDRESS FROM THE TRANSLATION @YD00113*/ 00121000 * /* TABLE AND PUT IN THE IOB. SET IN HEAD ADDRESS @YD00113*/ 00122000 * /* AND A RECORD ADDRESS OF ZERO. @YD00113*/ 00123000 * /* SET START ADDRESS IN THE IOB. @YD00113*/ 00124000 * /* IF REAL CYLINDER ADDRESS IS ZERO (VERIFICATION @YD00113*/ 00125000 * /* DATA), SET IOB TO READ EXTENT 1. IF NOT ZERO @YD00113*/ 00126000 * /* (READ RECORD DATA), SET TO READ EXTENT 0. @YD00113*/ 00127000 * /* *********************************************** @YD00113*/ 00128000 * /* */ 00129000 * /*****************************************************************/ 00130000 * 0081 00131000 * IOBCC2=LTRTRANI(B05CYL); /* @Y30LB10*/ 00132000 SLR @02,@02 0081 00133000 IC @02,B05CYL(,@10) 0081 00134000 ALR @02,@02 0081 00135000 AL @02,@CF00957 0081 00136000 LH @02,LTRTRANI-22316(@02,@10) 0081 00137000 STC @02,IOBCC2(,IOBSTPTR) 0081 00138000 * IOBHH2=B05HEAD; /* @Y30LB10*/ 00139000 MVC IOBHH2(1,IOBSTPTR),B05HEAD(@10) 0082 00140000 * IOBR=CHARZERO; /* @Y30LB10*/ 00141000 MVC IOBR(1,IOBSTPTR),CHARZERO 0083 00142000 * IOBSTART=ADDR(SIDEQ1); /* @Y30LB10*/ 00143000 ST @07,IOBSTART(,IOBSTPTR) 0084 00144000 * IF IOBCC2=CHARZERO /* @Y30LB10*/ 00145000 * THEN /* @Y30LB10*/ 00146000 CLC IOBCC2(1,IOBSTPTR),CHARZERO 0085 00147000 BNE @RF00085 0085 00148000 * IOBM=CHARONE; /* @Y30LB10*/ 00149000 MVC IOBM(1,IOBSTPTR),CHARONE 0086 00150000 * ELSE /* @Y30LB10*/ 00151000 * IOBM=CHARZERO; /* @Y30LB10*/ 00152000 B @RC00085 0087 00153000 @RF00085 MVC IOBM(1,IOBSTPTR),CHARZERO 0087 00154000 * 0088 00155000 * /*****************************************************************/ 00156000 * /* */ 00157000 * /* *********************************************** @YD00113*/ 00158000 * /* BUILD CCWS FOR SEARCH ID EQUAL AND TIC. @YD00113*/ 00159000 * /* *********************************************** @YD00113*/ 00160000 * /* */ 00161000 * /*****************************************************************/ 00162000 * 0088 00163000 * SIDOP1=SIDOP; /* @Y30LB10*/ 00164000 @RC00085 LA @10,360 0088 00165000 AL @10,BUILDPTR(,R4) 0088 00166000 MVC SIDOP1(1,@10),SIDOP 0088 00167000 * SIDADR1=ADDR(IOBCC); /* @Y30LB10*/ 00168000 LA @07,IOBCC(,IOBSTPTR) 0089 00169000 ST @07,@TF00001 0089 00170000 MVC SIDADR1(3,@10),@TF00001+1 0089 00171000 * SIDFLCT1=SIDFLCT; /* @Y30LB10*/ 00172000 MVC SIDFLCT1(4,@10),SIDFLCT 0090 00173000 * TICOP1=TICOP; /* @Y30LB10*/ 00174000 MVC TICOP1(1,@10),TICOP 0091 00175000 * TICADR1=ADDR(SIDEQ1); /* @Y30LB10*/ 00176000 ST @10,@TF00001 0092 00177000 MVC TICADR1(3,@10),@TF00001+1 0092 00178000 * TICFLCT1=TICFLCT; /* @Y30LB10*/ 00179000 MVC TICFLCT1(4,@10),TICFLCT 0093 00180000 * 0094 00181000 * /*****************************************************************/ 00182000 * /* */ 00183000 * /* *********************************************** @YD00113*/ 00184000 * /* SET THE ERROR COUNTER TO ZERO. @YD00113*/ 00185000 * /* SET ECB TO ZERO. @YD00113*/ 00186000 * /* @YD00113*/ 00187000 * /* ISSUE A EXCP AND A WAIT TO SYSUT1. @YD00113*/ 00188000 * /* @YD00113*/ 00189000 * /* STEP THE ERROR COUNTER BY ONE. @YD00113*/ 00190000 * /* @YD00113*/ 00191000 * /* IF THE COMPLETION CODE IS '7F'X,RETURN TO @YD00113*/ 00192000 * /* THE CALLER. @YD00113*/ 00193000 * /* @YD00113*/ 00194000 * /* IF THE COMPLETION CODE IS NOT '7F'X, AND THE @YD00113*/ 00195000 * /* ERROR COUNTER IS NOT FIVE, THEN REISSUE THE @YD00113*/ 00196000 * /* CCW STRING. @YD00113*/ 00197000 * /* @YD00113*/ 00198000 * /* IF THE ERROR COUNTER IS FIVE, THEN PRINT A @YD00113*/ 00199000 * /* MESSAGE (ICG408I I/O ERROR ON SYSUT1) AND @YD00113*/ 00200000 * /* RETURN TO THE CALLER WITH 'RETCODE' = 16 AND @YD00113*/ 00201000 * /* 'UT1VWERR' FLAG SET ON. @YD00113*/ 00202000 * /* *********************************************** @YD00113*/ 00203000 * /* */ 00204000 * /*****************************************************************/ 00205000 * 0094 00206000 * R6=WORDZERO; /* @Y30LB10*/ 00207000 SLR R6,R6 0094 00208000 *EXCPUT1: 0095 00209000 * UT1ECB=WORDZERO; /* @Y30LB10*/ 00210000 EXCPUT1 L @10,BUILDPTR(,R4) 0095 00211000 SLR @07,@07 0095 00212000 ST @07,UT1ECB(,@10) 0095 00213000 * DCBIFEC=OFFTWO; /* @Y30LB10*/ 00214000 L @07,DCBPTR(,R4) 0096 00215000 NI DCBIFEC+40(@07),B'00111111' 0096 00216000 * R1=ADDR(UT1IOB); /* @Y30LB10*/ 00217000 LA R1,UT1IOB(,@10) 0097 00218000 * GEN(EXCP (1)); /* @Y30LB10*/ 00219000 EXCP (1) 00220000 * R1=ADDR(UT1ECB); /* @Y30LB10*/ 00221000 L R1,BUILDPTR(,R4) 0099 00222000 LA R1,UT1ECB(,R1) 0099 00223000 * GEN(WAIT 1,ECB=(1)); /* @Y30LB10*/ 00224000 WAIT 1,ECB=(1) 00225000 * R6=R6+CHARONE; /* @Y30LB10*/ 00226000 MVC @ZT00003+3(1),CHARONE 0101 00227000 AL R6,@ZT00003 0101 00228000 * IF UT1ECB(1)^=CODE7F /* @Y30LB10*/ 00229000 * THEN /* @Y30LB10*/ 00230000 L @10,BUILDPTR(,R4) 0102 00231000 CLC UT1ECB(1,@10),CODE7F 0102 00232000 BE @RF00102 0102 00233000 * IF R6^=WORDFIVE /* @Y30LB10*/ 00234000 * THEN /* @Y30LB10*/ 00235000 CH R6,@CH00145 0103 00236000 BNE @RT00103 0103 00237000 * GOTO EXCPUT1; /* @Y30LB10*/ 00238000 * ELSE /* @Y30LB10*/ 00239000 * DO; /* @Y30LB10*/ 00240000 * LIVEIO=IOMSG; /* @Y30LB10*/ 00241000 LA @07,689 0106 00242000 ALR @07,R4 0106 00243000 MVC LIVEIO(30,@07),IOMSG 0106 00244000 * IMSGNAM=UT1DDN; /* @Y30LB10*/ 00245000 MVC IMSGNAM(8,@07),UT1DDN(@10) 0107 00246000 * R1=ADDR(UT1IOB); /* @YM34316*/ 00247000 LA R1,UT1IOB(,@10) 0108 00248000 * GEN(SYNADAF ACSMETH=EXCP);/* @Y30LB10*/ 00249000 SYNADAF ACSMETH=EXCP 00250000 * GEN(MVC OUTBUF2+30(79,R4),49(1));/* @Y30LB10*/ 00251000 MVC OUTBUF2+30(79,R4),49(1) 00252000 * CALL PUTIT1; /* @Y30LB10*/ 00253000 BAL @14,PUTIT1 0111 00254000 * GEN(SYNADRLS); /* @Y30LB10*/ 00255000 SYNADRLS 00256000 * RETCODE=ERRCODE; /* @Y30LB10*/ 00257000 MVC RETCODE(2,R4),@CH00148 0113 00258000 * UT1VWERR=ON; /* @Y30LB10*/ 00259000 L @10,BUILDPTR(,R4) 0114 00260000 OI UT1VWERR(@10),B'00100000' 0114 00261000 * END; /* @Y30LB10*/ 00262000 *EXIT: 0116 00263000 * DCBPTR=DCBPTSAV; /* @Y30LB10*/ 00264000 @RF00102 DS 0H 0116 00265000 EXIT ST DCBPTSAV,DCBPTR(,R4) 0116 00266000 * RETURN; /* @Y30LB10*/ 00267000 @EL00001 L @13,4(,@13) 0117 00268000 @EF00001 L @00,@SIZDATD 0117 00269000 LR @01,@11 0117 00270000 FREEMAIN R,LV=(0),A=(1) 00271000 @ER00001 LM @14,@12,12(@13) 0117 00272000 BR @14 0117 00273000 * 0118 00274000 */***********************************************************@Y30LB12*/ 00275000 */* @Y30LB12*/ 00276000 */* PROCEDURE NAME - PUTIT1 @Y30LB12*/ 00277000 */* @Y30LB12*/ 00278000 */* FUNCTION - CALL ICGDSMSG, MESSAGE PRINT SUBROUTINE, TO @Y30LB12*/ 00279000 */* PUT TERMINATING MESSAGE FOR WHICH TEXT IS NOT @Y30LB12*/ 00280000 */* IN ICGDSMSG BUT ALREADY BUILT IN 'OUTBUF2' @Y30LB12*/ 00281000 */* @Y30LB12*/ 00282000 */***********************************************************@Y30LB12*/ 00283000 * 0118 00284000 *PUTIT1: 0118 00285000 * PROCEDURE; /* @Y30LB12*/ 00286000 PUTIT1 STM @14,@12,@SA00002 0118 00287000 * STOPSCAN='1'B; /* @Y30LB12*/ 00288000 OI STOPSCAN,B'10000000' 0119 00289000 * PRNTBUF2='1'B; /* @Y30LB12*/ 00290000 OI PRNTBUF2(R4),B'00000001' 0120 00291000 * TERMINAT=TERMINAT+1; /* @Y30LB12*/ 00292000 LA @10,1 0121 00293000 AH @10,TERMINAT(,R4) 0121 00294000 STH @10,TERMINAT(,R4) 0121 00295000 * GEN(LINK EP=ICGDSMSG); /* @Y30LB12*/ 00296000 LINK EP=ICGDSMSG 00297000 * PRNTBUF2='0'B; /* @Y30LB12*/ 00298000 NI PRNTBUF2(R4),B'11111110' 0123 00299000 * END PUTIT1; /* @Y30LB12*/ 00300000 @EL00002 DS 0H 0124 00301000 @EF00002 DS 0H 0124 00302000 @ER00002 LM @14,@12,@SA00002 0124 00303000 BR @14 0124 00304000 * 0125 00305000 */********************************************************** @YD00113*/ 00306000 */* @YD00113*/ 00307000 */* P A T C H A R E A @YD00113*/ 00308000 */* @YD00113*/ 00309000 */********************************************************** @YD00113*/ 00310000 * 0125 00311000 * GENERATE; 0125 00312000 * 0125 00313000 * /*@YD00113*/ 00314000 PATCHB05 DC 32C'PATCHB05' /*@YD00113*/ 00315000 */********************************************************** @YD00113*/ 00316000 */* END OF MODULE ICGDSB05 @YD00113*/ 00317000 */********************************************************** @YD00113*/ 00318000 * 0126 00319000 * DCL 0126 00320000 * PGMEND CHAR(1) STATIC LOCAL; /* @Y30LB10*/ 00321000 * END ICGDSB05 /* @Y30LB10*/ 00322000 * 0127 00323000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00324000 */*%INCLUDE SYSLIB (IEZIOB ) */ 00325000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00326000 */*%INCLUDE SYSLIB (IHADCB ) */ 00327000 */*%INCLUDE SYSLIB (ICGDSMAC) */ 00328000 */*%INCLUDE SYSLIB (ICGDSMA5) */ 00329000 */*%INCLUDE SYSLIB (ICGDSMA2) */ 00330000 * 0127 00331000 * ; 0127 00332000 B @EL00001 0127 00333000 @DATA DS 0H 00334000 @CH00035 DC H'1' 00335000 @CH00145 DC H'5' 00336000 @CH00148 DC H'16' 00337000 @CH00249 DC H'32' 00338000 @CH00953 DC H'360' 00339000 @DATD DSECT 00340000 DS 0F 00341000 @SA00001 DS 18F 00342000 @SA00002 DS 15F 00343000 @TF00001 DS F 00344000 @TF00002 DS F 00345000 @ZTEMPS DS 0F 00346000 @ZT00002 DC F'0' 00347000 @ZT00003 DC F'0' 00348000 @ZTEMPND EQU * 00349000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00350000 ICGDSB05 CSECT 00351000 DS 0F 00352000 @CF00957 DC F'22314' 00353000 @DATD DSECT 00354000 DS 0D 00355000 IOBPRPTR DS A 00356000 STOPSCAN DS BL1 00357000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00358000 @ENDDATD EQU * 00359000 ICGDSB05 CSECT 00360000 DS 0F 00361000 @SIZDATD DC AL1(0) 00362000 DC AL3(@ENDDATD-@DATD) 00363000 DS 0D 00364000 IOMSG DS CL30 00365000 ORG IOMSG 00366000 @NM00037 DC CL22' ICG406I I/O ERROR ON ' 00367000 @NM00038 DC CL8' ' 00368000 ORG IOMSG+30 00369000 SIDFLCT DC X'40000005' 00370000 TICFLCT DC X'40000001' 00371000 SKIP DC X'7000' 00372000 LEN8 DC X'0008' 00373000 CMDCHN DC X'6000' 00374000 LEN264 DC X'0108' 00375000 NOCHN DC X'2000' 00376000 LEN272 DC X'0110' 00377000 READOP DC X'06' 00378000 CHARZERO DC X'00' 00379000 CHARONE DC X'01' 00380000 SIDOP DC X'31' 00381000 TICOP DC X'08' 00382000 CODE7F DC X'7F' 00383000 PGMEND DS CL1 00384000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00385000 @01 EQU 01 00386000 @02 EQU 02 00387000 @03 EQU 03 00388000 @04 EQU 04 00389000 @05 EQU 05 00390000 @06 EQU 06 00391000 @07 EQU 07 00392000 @08 EQU 08 00393000 @09 EQU 09 00394000 @10 EQU 10 00395000 @11 EQU 11 00396000 @12 EQU 12 00397000 @13 EQU 13 00398000 @14 EQU 14 00399000 @15 EQU 15 00400000 I EQU @02 00401000 DCBPTSAV EQU @03 00402000 IOBSTPTR EQU @05 00403000 R4 EQU @04 00404000 R1 EQU @01 00405000 R6 EQU @06 00406000 IOBPREFX EQU 0 00407000 IOBCFLG1 EQU IOBPREFX 00408000 IOBSTDRD EQU 0 00409000 IOBFLAG1 EQU IOBSTDRD 00410000 IOBCYCCK EQU IOBFLAG1 00411000 IOBRSTRT EQU IOBFLAG1 00412000 IOBFLAG2 EQU IOBSTDRD+1 00413000 IOBPURGE EQU IOBFLAG2 00414000 IOBRDHA0 EQU IOBFLAG2 00415000 IOBSENS0 EQU IOBSTDRD+2 00416000 IOBS0B7 EQU IOBSENS0 00417000 IOBSENS1 EQU IOBSTDRD+3 00418000 IOBECBPT EQU IOBSTDRD+4 00419000 IOBFLAG3 EQU IOBSTDRD+8 00420000 IOBFL3 EQU IOBFLAG3 00421000 IOBCNC EQU IOBFL3 00422000 IOBICL EQU IOBFL3 00423000 IOBCSW EQU IOBSTDRD+9 00424000 IOBIOCSW EQU IOBCSW 00425000 IOBSTBYT EQU IOBIOCSW+3 00426000 IOBUSTAT EQU IOBSTBYT 00427000 IOBCSTAT EQU IOBSTBYT+1 00428000 IOBSTART EQU IOBSTDRD+16 00429000 IOBDCBPT EQU IOBSTDRD+20 00430000 IOBFLAG4 EQU IOBDCBPT 00431000 IOBRESTR EQU IOBSTDRD+24 00432000 IOBINCAM EQU IOBSTDRD+28 00433000 IOBBTAMF EQU IOBINCAM 00434000 IHADCB EQU 0 00435000 IHADCS00 EQU 0 00436000 DCBFDAD EQU IHADCS00+5 00437000 IHADCS01 EQU 0 00438000 DCBDVTBL EQU IHADCS01 00439000 IHADCS11 EQU 0 00440000 DCBRELB EQU IHADCS11 00441000 DCBREL EQU DCBRELB+1 00442000 DCBBUFCB EQU IHADCS11+4 00443000 DCBDSORG EQU IHADCS11+10 00444000 DCBDSRG1 EQU DCBDSORG 00445000 DCBDSRG2 EQU DCBDSORG+1 00446000 DCBIOBAD EQU IHADCS11+12 00447000 DCBODEB EQU DCBIOBAD 00448000 DCBLNP EQU DCBODEB 00449000 DCBQSLM EQU DCBLNP 00450000 DCBIOBAA EQU DCBODEB+1 00451000 IHADCS50 EQU 0 00452000 DCBSVCXL EQU IHADCS50 00453000 DCBEODAD EQU IHADCS50+4 00454000 DCBBFALN EQU DCBEODAD 00455000 DCBHIARC EQU DCBBFALN 00456000 DCBBFTEK EQU DCBHIARC 00457000 DCBBFT EQU DCBBFTEK 00458000 DCBEXLST EQU IHADCS50+8 00459000 DCBRECFM EQU DCBEXLST 00460000 DCBRECLA EQU DCBRECFM 00461000 IHADCS24 EQU 0 00462000 DCBOFLGS EQU IHADCS24+8 00463000 DCBOFLWR EQU DCBOFLGS 00464000 DCBOFOPN EQU DCBOFLGS 00465000 DCBIFLG EQU IHADCS24+9 00466000 DCBMACR EQU IHADCS24+10 00467000 DCBMACR1 EQU DCBMACR 00468000 DCBMRFE EQU DCBMACR1 00469000 DCBMRGET EQU DCBMRFE 00470000 DCBMRAPG EQU DCBMACR1 00471000 DCBMRRD EQU DCBMRAPG 00472000 DCBMRCI EQU DCBMACR1 00473000 DCBMRMVG EQU DCBMRCI 00474000 DCBMRLCG EQU DCBMACR1 00475000 DCBMRABC EQU DCBMACR1 00476000 DCBMRPT1 EQU DCBMRABC 00477000 DCBMRSBG EQU DCBMRPT1 00478000 DCBMRCRL EQU DCBMACR1 00479000 DCBMRCHK EQU DCBMRCRL 00480000 DCBMRRDX EQU DCBMRCHK 00481000 DCBMRDMG EQU DCBMACR1 00482000 DCBMACR2 EQU DCBMACR+1 00483000 DCBMRPUT EQU DCBMACR2 00484000 DCBMRWRT EQU DCBMACR2 00485000 DCBMRMVP EQU DCBMACR2 00486000 DCBMR5WD EQU DCBMACR2 00487000 DCBMRLDM EQU DCBMR5WD 00488000 DCBMRLCP EQU DCBMRLDM 00489000 DCBMR4WD EQU DCBMACR2 00490000 DCBMRPT2 EQU DCBMR4WD 00491000 DCBMRTMD EQU DCBMRPT2 00492000 DCBMR3WD EQU DCBMACR2 00493000 DCBMRCTL EQU DCBMR3WD 00494000 DCBMRSTK EQU DCBMRCTL 00495000 DCBMR1WD EQU DCBMACR2 00496000 DCBMRSWA EQU DCBMR1WD 00497000 DCBMRDMD EQU DCBMRSWA 00498000 IHADCS25 EQU 0 00499000 DCBMACRF EQU IHADCS25+2 00500000 DCBMACF1 EQU DCBMACRF 00501000 DCBMFFE EQU DCBMACF1 00502000 DCBMFGET EQU DCBMFFE 00503000 DCBMFAPG EQU DCBMACF1 00504000 DCBMFRD EQU DCBMFAPG 00505000 DCBMFCI EQU DCBMACF1 00506000 DCBMFMVG EQU DCBMFCI 00507000 DCBMFLCG EQU DCBMACF1 00508000 DCBMFABC EQU DCBMACF1 00509000 DCBMFPT1 EQU DCBMFABC 00510000 DCBMFSBG EQU DCBMFPT1 00511000 DCBMFCRL EQU DCBMACF1 00512000 DCBMFCHK EQU DCBMFCRL 00513000 DCBMFDMG EQU DCBMACF1 00514000 DCBMACF2 EQU DCBMACRF+1 00515000 DCBMFPUT EQU DCBMACF2 00516000 DCBMFWRT EQU DCBMACF2 00517000 DCBMFMVP EQU DCBMACF2 00518000 DCBMF5WD EQU DCBMACF2 00519000 DCBMFLDM EQU DCBMF5WD 00520000 DCBMFLCP EQU DCBMFLDM 00521000 DCBMF4WD EQU DCBMACF2 00522000 DCBMFPT2 EQU DCBMF4WD 00523000 DCBMFTMD EQU DCBMFPT2 00524000 DCBMF3WD EQU DCBMACF2 00525000 DCBMFCTL EQU DCBMF3WD 00526000 DCBMFSTK EQU DCBMFCTL 00527000 DCBMF1WD EQU DCBMACF2 00528000 DCBMFSWA EQU DCBMF1WD 00529000 DCBMFDMD EQU DCBMFSWA 00530000 DCBDEBAD EQU IHADCS25+4 00531000 DCBIFLGS EQU DCBDEBAD 00532000 DCBIFEC EQU DCBIFLGS 00533000 IHADCS28 EQU 0 00534000 DCBOPTCD EQU IHADCS28 00535000 DCBOPTZ EQU DCBOPTCD 00536000 COMTAB EQU 0 00537000 READER EQU COMTAB+256 00538000 READFLAG EQU READER+96 00539000 PCHBF EQU READER+99 00540000 STARTCOL EQU READER+180 00541000 NEXTCOL EQU READER+184 00542000 PRINTER EQU COMTAB+464 00543000 OUTBUF2 EQU PRINTER+225 00544000 MESSAGES EQU COMTAB+810 00545000 RETCODE EQU MESSAGES 00546000 TERMINAT EQU MESSAGES+6 00547000 SPECLMSG EQU MESSAGES+18 00548000 PRNTBUF2 EQU SPECLMSG 00549000 GENIO EQU COMTAB+832 00550000 DCBPTR EQU GENIO+4 00551000 COMPTR2 EQU GENIO+16 00552000 BUILDPTR EQU GENIO+20 00553000 INVOKED EQU COMTAB+856 00554000 SAVEDDS EQU INVOKED+4 00555000 BUILDRSG EQU COMTAB+900 00556000 RSGS EQU BUILDRSG 00557000 RSG EQU RSGS 00558000 RSGABOX EQU RSG 00559000 RSGTODS EQU RSG+7 00560000 LIBRARY EQU COMTAB+1170 00561000 LIBS EQU LIBRARY 00562000 LIB EQU LIBS 00563000 LIBBITS EQU LIB 00564000 PABTABLE EQU COMTAB+1218 00565000 PABDEV EQU PABTABLE 00566000 PABFLAGS EQU PABDEV 00567000 PABREAL EQU PABDEV+1 00568000 PABAADDD EQU PABDEV+2 00569000 DSPAIRS EQU COMTAB+1938 00570000 PHYSTYPE EQU COMTAB+2002 00571000 PHYSFLGS EQU PHYSTYPE 00572000 MERLICEB EQU PHYSFLGS 00573000 CPUASSOC EQU COMTAB+3026 00574000 CPUS EQU CPUASSOC+2 00575000 CPU EQU CPUS 00576000 CPUFLAG1 EQU CPU+6 00577000 OPSYSTYP EQU CPUFLAG1 00578000 CPUFLAG2 EQU CPU+7 00579000 LOWERCON EQU COMTAB+3156 00580000 LOWDSS EQU LOWERCON 00581000 LOWFLGS EQU LOWDSS 00582000 LIBCTL EQU COMTAB+3284 00583000 LIBCTLS EQU LIBCTL 00584000 CREATE EQU COMTAB+3288 00585000 @NM00030 EQU CREATE 00586000 COMTAB2 EQU 0 00587000 DSTORSG EQU COMTAB2 00588000 DSENTRY EQU DSTORSG 00589000 CONFGCON EQU COMTAB2+32 00590000 RSGUCB EQU CONFGCON 00591000 RSGFLAGS EQU RSGUCB 00592000 CONFGUCB EQU COMTAB2+464 00593000 CONFGDEV EQU CONFGUCB 00594000 USEFLAGS EQU CONFGDEV 00595000 ALTPATH1 EQU CONFGDEV+2 00596000 ALTPATH2 EQU CONFGDEV+5 00597000 ALTPATH3 EQU CONFGDEV+8 00598000 BUILDTAB EQU 0 00599000 COMB06 EQU BUILDTAB 00600000 B06ADDR EQU COMB06+9 00601000 COMB05 EQU BUILDTAB+12 00602000 B05BUFPT EQU COMB05+4 00603000 B05ADDR EQU COMB05+9 00604000 B05CYL EQU B05ADDR 00605000 B05HEAD EQU B05ADDR+1 00606000 BUILDGEN EQU BUILDTAB+24 00607000 UT2VCHR EQU BUILDGEN+8 00608000 OUTADDR EQU UT2VCHR+1 00609000 UT1VCHR EQU BUILDGEN+12 00610000 INADDR EQU UT1VCHR+1 00611000 UT1STUFF EQU BUILDTAB+40 00612000 UT1DCB EQU UT1STUFF 00613000 UT1FLAG EQU UT1STUFF+96 00614000 UT1VWERR EQU UT1FLAG 00615000 UT1ECB EQU UT1STUFF+276 00616000 UT1IOB EQU UT1STUFF+280 00617000 UT1CCWS EQU UT1STUFF+320 00618000 UT1DDN EQU UT1STUFF+616 00619000 UT2STUFF EQU BUILDTAB+664 00620000 UT2FLAG EQU UT2STUFF+96 00621000 UT3STUFF EQU BUILDTAB+1288 00622000 UT3FLAG EQU UT3STUFF+96 00623000 LTRTRANI EQU BUILDTAB+22316 00624000 CCWS1 EQU 0 00625000 SIDEQ1 EQU CCWS1 00626000 SIDOP1 EQU SIDEQ1 00627000 SIDADR1 EQU SIDEQ1+1 00628000 SIDFLCT1 EQU SIDEQ1+4 00629000 TICBACK1 EQU CCWS1+8 00630000 TICOP1 EQU TICBACK1 00631000 TICADR1 EQU TICBACK1+1 00632000 TICFLCT1 EQU TICBACK1+4 00633000 SKIPREAD EQU CCWS1+16 00634000 SKIPOP EQU SKIPREAD 00635000 SKIPDA EQU SKIPREAD+1 00636000 SKIPFLG EQU SKIPREAD+4 00637000 SKIPLEN EQU SKIPREAD+6 00638000 READS1 EQU CCWS1+24 00639000 READOP1 EQU READS1 00640000 READDA1 EQU READS1+1 00641000 READFLG1 EQU READS1+4 00642000 READLEN1 EQU READS1+6 00643000 LIVEIO EQU 0 00644000 IMSGNAM EQU LIVEIO+22 00645000 SCANBUF EQU 0 00646000 SCANDATA EQU 0 00647000 IOBORG01 EQU IOBPREFX+8 00648000 IOBNIOBA EQU IOBORG01 00649000 IOBNFLG1 EQU IOBNIOBA 00650000 IOBPRTOV EQU IOBNFLG1 00651000 IOBORG02 EQU IOBPREFX+8 00652000 IOBDQADA EQU IOBORG02 00653000 IOBDEQIN EQU IOBDQADA 00654000 IOBORG03 EQU IOBPREFX+12 00655000 IOBORG04 EQU IOBINCAM 00656000 IOBORG12 EQU IOBINCAM 00657000 IOBFL4 EQU IOBORG12 00658000 IOBEXTEN EQU IOBSTDRD+32 00659000 IOBSEEK EQU IOBEXTEN 00660000 IOBM EQU IOBSEEK 00661000 IOBBB EQU IOBSEEK+1 00662000 IOBCC EQU IOBSEEK+3 00663000 IOBCC2 EQU IOBCC+1 00664000 IOBHH EQU IOBSEEK+5 00665000 IOBHH2 EQU IOBHH+1 00666000 IOBR EQU IOBSEEK+7 00667000 IOBORG05 EQU IOBEXTEN 00668000 IOBORG06 EQU IOBEXTEN 00669000 IOBNXTPT EQU IOBORG06+4 00670000 IOBSTATA EQU IOBNXTPT 00671000 IOBORG07 EQU IOBEXTEN+8 00672000 W1IEXTEN EQU IOBORG07 00673000 IOBORG08 EQU IOBEXTEN+8 00674000 IOBINDCT EQU IOBORG08+4 00675000 IOBUNSQR EQU IOBORG08+5 00676000 IOBFCHAD EQU IOBORG08+8 00677000 IOBORG09 EQU IOBEXTEN+8 00678000 IOBDPLAD EQU IOBORG09+4 00679000 IOBDTYPE EQU IOBORG09+8 00680000 IOBDTYP2 EQU IOBORG09+9 00681000 IOBDSTAT EQU IOBORG09+10 00682000 IOBSTAT1 EQU IOBDSTAT 00683000 IOBORG10 EQU IOBEXTEN+8 00684000 IOBSEEK2 EQU IOBORG10 00685000 IOBORG11 EQU IOBEXTEN 00686000 IOBERCT EQU IOBORG11 00687000 IOBUCBXV EQU IOBERCT 00688000 IOBNAME EQU IOBORG11+4 00689000 IOBORG13 EQU IOBEXTEN 00690000 IOBSKADR EQU IOBORG13 00691000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00692000 IOBSKSS EQU IOBSKADR+3 00693000 IOBSK0 EQU IOBSKADR+2 00694000 IOBSKTT EQU IOBSKADR+1 00695000 IOBSKRV EQU IOBSKADR 00696000 IOBCSWSV EQU IOBORG11+17 00697000 IOBSENSV EQU IOBORG11+16 00698000 IOBRCD EQU IOBORG11+12 00699000 IOBMDREC EQU IOBORG11+8 00700000 IOBNAMEA EQU IOBNAME+1 00701000 IOBNAMSZ EQU IOBNAME 00702000 IOBERCTA EQU IOBERCT+1 00703000 IOBRTYPE EQU IOBUCBXV 00704000 IOBRDCHP EQU IOBORG10+20 00705000 IOBNEXTA EQU IOBORG10+16 00706000 IOBREADA EQU IOBORG10+12 00707000 IOBBUFC EQU IOBORG10+8 00708000 IOBSK2R EQU IOBSEEK2+7 00709000 IOBSK2HH EQU IOBSEEK2+5 00710000 IOBSK2CC EQU IOBSEEK2+3 00711000 IOBSK2BB EQU IOBSEEK2+1 00712000 IOBSK2M EQU IOBSEEK2 00713000 IOBCHNPR EQU IOBORG09+40 00714000 IOBDNCRF EQU IOBORG09+32 00715000 IOBRSV35 EQU IOBORG09+24 00716000 IOBDQPTR EQU IOBORG09+20 00717000 IOBRSV34 EQU IOBORG09+18 00718000 IOBDBYTN EQU IOBORG09+16 00719000 IOBDCPND EQU IOBORG09+12 00720000 IOBSTAT2 EQU IOBDSTAT+1 00721000 IOBSIORT EQU IOBSTAT1 00722000 IOBADDVU EQU IOBSTAT1 00723000 IOBBUFF EQU IOBSTAT1 00724000 IOBENQUE EQU IOBSTAT1 00725000 IOBPASS2 EQU IOBSTAT1 00726000 IOBSYNCH EQU IOBSTAT1 00727000 IOBNEWVL EQU IOBSTAT1 00728000 IOBABNRM EQU IOBSTAT1 00729000 IOBRELEX EQU IOBDTYP2 00730000 IOBADDTY EQU IOBDTYP2 00731000 IOBTYPE EQU IOBDTYP2 00732000 IOBRQUST EQU IOBDTYP2 00733000 IOBSUFFX EQU IOBDTYP2 00734000 IOBSBLKL EQU IOBDTYP2 00735000 IOBSKEY EQU IOBDTYP2 00736000 IOBRELBL EQU IOBDTYPE 00737000 IOBRDEXC EQU IOBDTYPE 00738000 IOBDYNBF EQU IOBDTYPE 00739000 IOBACTAD EQU IOBDTYPE 00740000 IOBFDBCK EQU IOBDTYPE 00741000 IOBEXTSC EQU IOBDTYPE 00742000 IOBOVFLO EQU IOBDTYPE 00743000 IOBVERFY EQU IOBDTYPE 00744000 IOBDPLB EQU IOBDPLAD+1 00745000 IOBDAYLI EQU IOBDPLAD 00746000 IOBDIOBS EQU IOBORG09+2 00747000 IOBDBYTR EQU IOBORG09 00748000 IOBBCHAD EQU IOBORG08+12 00749000 IOBFCHNB EQU IOBFCHAD+1 00750000 IOBCOUNT EQU IOBFCHAD 00751000 IOBASYN EQU IOBORG08+7 00752000 IOBAPP EQU IOBORG08+6 00753000 IOBRSV32 EQU IOBUNSQR 00754000 IOBRSV31 EQU IOBUNSQR 00755000 IOBRSV30 EQU IOBUNSQR 00756000 IOBKNRWR EQU IOBUNSQR 00757000 IOBKNWR EQU IOBUNSQR 00758000 IOBNTAV2 EQU IOBUNSQR 00759000 IOBNTAV1 EQU IOBUNSQR 00760000 IOBCPBSY EQU IOBUNSQR 00761000 IOBCHNNL EQU IOBINDCT 00762000 IOBRSV29 EQU IOBINDCT 00763000 IOBRSV28 EQU IOBINDCT 00764000 IOBRSV27 EQU IOBINDCT 00765000 IOBKEYAD EQU IOBINDCT 00766000 IOBOVPTR EQU IOBINDCT 00767000 IOBUNSCH EQU IOBINDCT 00768000 IOBDEQCP EQU IOBINDCT 00769000 IOBCCWAD EQU IOBORG08 00770000 W1OEXTEN EQU W1IEXTEN 00771000 IOBCCW EQU IOBORG06+8 00772000 IOBNXTPB EQU IOBNXTPT+1 00773000 IOBRSV26 EQU IOBSTATA 00774000 IOBRSV25 EQU IOBSTATA 00775000 IOBRSV24 EQU IOBSTATA 00776000 IOBRSV23 EQU IOBSTATA 00777000 IOBRSV22 EQU IOBSTATA 00778000 IOBRSV21 EQU IOBSTATA 00779000 IOBRSV20 EQU IOBSTATA 00780000 IOBAVLFL EQU IOBSTATA 00781000 IOBRSV37 EQU IOBORG06+1 00782000 IOBUCBXG EQU IOBORG06 00783000 IOBCPA EQU IOBORG05+32 00784000 IOBERINF EQU IOBORG05+16 00785000 IOBERCCW EQU IOBORG05+8 00786000 IOBSNDPT EQU IOBORG05+7 00787000 IOBRCVPT EQU IOBORG05+6 00788000 IOBWORK EQU IOBORG05+1 00789000 IOBUCBX EQU IOBORG05 00790000 IOBHH1 EQU IOBHH 00791000 IOBCC1 EQU IOBCC 00792000 IOBBB2 EQU IOBBB+1 00793000 IOBBB1 EQU IOBBB 00794000 IOBRSV46 EQU IOBFL4 00795000 IOBRSV47 EQU IOBFL4 00796000 IOBENT EQU IOBFL4 00797000 IOBEQP EQU IOBFL4 00798000 IOBBUS EQU IOBFL4 00799000 IOBDCK EQU IOBFL4 00800000 IOBREJ EQU IOBFL4 00801000 IOBOVR EQU IOBFL4 00802000 IOBCRILC EQU IOBORG04+1 00803000 IOBCRDCC EQU IOBORG04 00804000 IOBGQECB EQU IOBORG03 00805000 IOBSWAP EQU IOBORG02+4 00806000 IOBDQADB EQU IOBDQADA+1 00807000 IOBRSV13 EQU IOBDEQIN 00808000 IOBRSV12 EQU IOBDEQIN 00809000 IOBRSV11 EQU IOBDEQIN 00810000 IOBRSV10 EQU IOBDEQIN 00811000 IOBRSV09 EQU IOBDEQIN 00812000 IOBRSV08 EQU IOBDEQIN 00813000 IOBRSV07 EQU IOBDEQIN 00814000 IOBDEQ EQU IOBDEQIN 00815000 IOBNECB EQU IOBORG01+4 00816000 IOBNIOBB EQU IOBNIOBA+1 00817000 IOBFIRST EQU IOBNFLG1 00818000 IOBUPERR EQU IOBNFLG1 00819000 IOBSPAN EQU IOBNFLG1 00820000 IOBBKSPC EQU IOBNFLG1 00821000 IOBUPDAT EQU IOBNFLG1 00822000 IOBREAD EQU IOBNFLG1 00823000 IOBWRITE EQU IOBNFLG1 00824000 IOBSEGMT EQU IOBPRTOV 00825000 @NM00039 EQU LIVEIO 00826000 TEMPEND EQU BUILDTAB+22396 00827000 LTRTRANO EQU BUILDTAB+22236 00828000 UT2BUFER EQU BUILDTAB+13532 00829000 UT1BUFER EQU BUILDTAB+5084 00830000 NVERIFY EQU BUILDTAB+3500 00831000 CVERIFY EQU BUILDTAB+1916 00832000 @NM00036 EQU UT3STUFF+624 00833000 UT3DDN EQU UT3STUFF+616 00834000 UT3CCWS EQU UT3STUFF+320 00835000 UT3IOB EQU UT3STUFF+280 00836000 UT3ECB EQU UT3STUFF+276 00837000 UT3JFCB EQU UT3STUFF+100 00838000 @NM00035 EQU UT3FLAG 00839000 UT3VWERR EQU UT3FLAG 00840000 UT3VOERR EQU UT3FLAG 00841000 UT3VUPDT EQU UT3FLAG 00842000 UT3DCB EQU UT3STUFF 00843000 UT2DDN EQU UT2STUFF+616 00844000 UT2CCWS EQU UT2STUFF+320 00845000 UT2IOB EQU UT2STUFF+280 00846000 UT2ECB EQU UT2STUFF+276 00847000 UT2JFCB EQU UT2STUFF+100 00848000 @NM00034 EQU UT2FLAG 00849000 UT2VCERR EQU UT2FLAG 00850000 UT2VWERR EQU UT2FLAG 00851000 UT2VOERR EQU UT2FLAG 00852000 UT2VUPDT EQU UT2FLAG 00853000 UT2DCB EQU UT2STUFF 00854000 UT1JFCB EQU UT1STUFF+100 00855000 @NM00033 EQU UT1FLAG 00856000 UT1VOERR EQU UT1FLAG 00857000 UT1VUPDT EQU UT1FLAG 00858000 UT1VREC EQU INADDR+2 00859000 UT1VHEAD EQU INADDR+1 00860000 UT1VCYL EQU INADDR 00861000 UT1TABID EQU UT1VCHR 00862000 UT2VREC EQU OUTADDR+2 00863000 UT2VHEAD EQU OUTADDR+1 00864000 UT2VCYL EQU OUTADDR 00865000 UT2TABID EQU UT2VCHR 00866000 ADDRBUF2 EQU BUILDGEN+4 00867000 ADDRBUF1 EQU BUILDGEN 00868000 B05REC EQU B05ADDR+2 00869000 B05TBLID EQU COMB05+8 00870000 B05DCBPT EQU COMB05 00871000 B06REC EQU B06ADDR+2 00872000 B06HEAD EQU B06ADDR+1 00873000 B06CYL EQU B06ADDR 00874000 B06TBLID EQU COMB06+8 00875000 B06BUFPT EQU COMB06+4 00876000 B06DCBPT EQU COMB06 00877000 ALTCH3 EQU ALTPATH3+2 00878000 ALTCI3 EQU ALTPATH3+1 00879000 ALTDS3 EQU ALTPATH3 00880000 ALTCH2 EQU ALTPATH2+2 00881000 ALTCI2 EQU ALTPATH2+1 00882000 ALTDS2 EQU ALTPATH2 00883000 ALTCH1 EQU ALTPATH1+2 00884000 ALTCI1 EQU ALTPATH1+1 00885000 ALTDS1 EQU ALTPATH1 00886000 INDEXRSG EQU CONFGDEV+1 00887000 ICEBERG EQU USEFLAGS 00888000 ITISALTP EQU USEFLAGS 00889000 USECONVR EQU USEFLAGS 00890000 SUPPUNCH EQU USEFLAGS 00891000 USEREAL EQU USEFLAGS 00892000 USEVS EQU USEFLAGS 00893000 USEV EQU USEFLAGS 00894000 USESPEC EQU USEFLAGS 00895000 RSGCUA EQU RSGUCB+8 00896000 RSGCHAN EQU RSGUCB+7 00897000 CPUREFNO EQU RSGUCB+6 00898000 RSGCPUID EQU RSGUCB+1 00899000 @NM00032 EQU RSGFLAGS 00900000 CISPEC EQU RSGFLAGS 00901000 TORSG2 EQU DSENTRY+1 00902000 TORSG1 EQU DSENTRY 00903000 COM2BASE EQU COMTAB+3304 00904000 LRUCLOCK EQU CREATE+11 00905000 VOLSER EQU CREATE+5 00906000 VPAGES EQU CREATE+1 00907000 @NM00031 EQU @NM00030 00908000 PRNTONLY EQU @NM00030 00909000 UPDCREAT EQU @NM00030 00910000 NEWCREAT EQU @NM00030 00911000 CMDCREAT EQU @NM00030 00912000 RW67RGHT EQU LIBCTLS 00913000 RW67LEFT EQU LIBCTLS 00914000 RW45RGHT EQU LIBCTLS 00915000 RW45LEFT EQU LIBCTLS 00916000 RW23RGHT EQU LIBCTLS 00917000 RW23LEFT EQU LIBCTLS 00918000 RW01RGHT EQU LIBCTLS 00919000 RW01LEFT EQU LIBCTLS 00920000 LOWLIB EQU LOWDSS+1 00921000 @NM00029 EQU LOWFLGS 00922000 LOWRGHT EQU LOWFLGS 00923000 LOWLEFT EQU LOWFLGS 00924000 LOWRW67 EQU LOWFLGS 00925000 LOWRW45 EQU LOWFLGS 00926000 LOWRW23 EQU LOWFLGS 00927000 LOWRW01 EQU LOWFLGS 00928000 LOWSPEC EQU LOWFLGS 00929000 ALTMSCIN EQU CPUFLAG2 00930000 @NM00028 EQU CPUFLAG2 00931000 ALTMSGBF EQU CPUFLAG2 00932000 @NM00027 EQU CPUFLAG2 00933000 CPUSPEC EQU CPUFLAG2 00934000 CPUMSCIN EQU CPUFLAG1 00935000 OPJES3 EQU OPSYSTYP 00936000 OPVS2 EQU OPSYSTYP 00937000 OPVS1 EQU OPSYSTYP 00938000 CPUALTFL EQU CPUFLAG1 00939000 CPUTIGHT EQU CPUFLAG1 00940000 @NM00026 EQU CPUFLAG1 00941000 TOMPCPU EQU CPU+5 00942000 CPUID EQU CPU 00943000 CPUNUM EQU CPUASSOC 00944000 SPNRSGNO EQU PHYSTYPE+1 00945000 LGDEVICE EQU PHYSFLGS 00946000 LOGABOX1 EQU PHYSFLGS 00947000 PHYSSSID EQU PHYSFLGS 00948000 PHYSREAL EQU PHYSFLGS 00949000 PHYSICEB EQU MERLICEB 00950000 PHYSMERL EQU MERLICEB 00951000 PHYSDS2 EQU DSPAIRS 00952000 PABDDD EQU PABAADDD 00953000 PABAA EQU PABAADDD 00954000 PABZEROS EQU PABAADDD 00955000 PAB2D EQU PABREAL 00956000 PAB2C EQU PABREAL 00957000 PAB2B EQU PABREAL 00958000 @NM00025 EQU PABREAL 00959000 PAB1D EQU PABREAL 00960000 PAB1C EQU PABREAL 00961000 PAB1B EQU PABREAL 00962000 PABIMPLR EQU PABREAL 00963000 PABBERG2 EQU PABFLAGS 00964000 @NM00024 EQU PABFLAGS 00965000 PABDSMTL EQU PABFLAGS 00966000 PABIBERG EQU PABFLAGS 00967000 @NM00023 EQU PABFLAGS 00968000 PABVOVIR EQU PABFLAGS 00969000 PABEXIST EQU PABFLAGS 00970000 MAPEXIT EQU LIB+4 00971000 LIBMAP EQU LIB+3 00972000 LIBDSMID EQU LIB+2 00973000 LIBSIZE EQU LIB+1 00974000 @NM00022 EQU LIBBITS 00975000 LIBSPEC EQU LIBBITS 00976000 TODS2 EQU RSGTODS+1 00977000 TODS1 EQU RSGTODS 00978000 RSGSLICE EQU RSG+3 00979000 RSGUDEL EQU RSG+2 00980000 RSGLDEL EQU RSG+1 00981000 @NM00021 EQU RSG 00982000 RSGABOX1 EQU RSGABOX 00983000 RSGABOX0 EQU RSGABOX 00984000 RSGSPEC EQU RSG 00985000 SVSYSUT3 EQU SAVEDDS+32 00986000 SVSYSUT2 EQU SAVEDDS+24 00987000 SVSYSUT1 EQU SAVEDDS+16 00988000 SVSYSPCH EQU SAVEDDS+8 00989000 SVSYSIN EQU SAVEDDS 00990000 PARMPTR EQU INVOKED 00991000 SAVE14 EQU GENIO+12 00992000 EXLST EQU GENIO+8 00993000 @NM00020 EQU DCBPTR+1 00994000 DCBFLAG EQU DCBPTR 00995000 OPENLIST EQU GENIO 00996000 @NM00019 EQU MESSAGES+19 00997000 NEEDEOJ EQU SPECLMSG 00998000 ENDPHASE EQU SPECLMSG 00999000 @NM00018 EQU SPECLMSG 01000000 PRNTCARD EQU SPECLMSG 01001000 @NM00017 EQU SPECLMSG 01002000 NEED102 EQU SPECLMSG 01003000 NEED101 EQU SPECLMSG 01004000 PRINTRC EQU MESSAGES+16 01005000 TERM EQU MESSAGES+12 01006000 WARN EQU MESSAGES+8 01007000 WARNING EQU MESSAGES+4 01008000 MSGNO EQU MESSAGES+2 01009000 OUTBUF EQU PRINTER+104 01010000 LINECT EQU PRINTER+102 01011000 LINECTR EQU PRINTER+100 01012000 PAGENO EQU PRINTER+96 01013000 DCBPRINT EQU PRINTER 01014000 @NM00016 EQU READER+206 01015000 SCANLEN EQU READER+204 01016000 SVEODAD EQU READER+200 01017000 SVSYNAD2 EQU READER+196 01018000 SAVENCOL EQU READER+192 01019000 SAVESCOL EQU READER+188 01020000 INBUF EQU READER+100 01021000 SSELECT EQU PCHBF 01022000 @NM00015 EQU READER+97 01023000 @NM00014 EQU READFLAG 01024000 LASTPARM EQU READFLAG 01025000 ENDSCAN EQU READFLAG 01026000 PARMBIT EQU READFLAG 01027000 KEYBIT EQU READFLAG 01028000 READTERM EQU READFLAG 01029000 READDCB EQU READER 01030000 PATCH EQU COMTAB 01031000 @NM00013 EQU IHADCS28+1 01032000 @NM00012 EQU DCBOPTCD 01033000 DCBSRCHD EQU DCBOPTZ 01034000 @NM00011 EQU DCBOPTCD 01035000 DCBDEBA EQU DCBDEBAD+1 01036000 @NM00010 EQU DCBIFLGS 01037000 DCBIFIOE EQU DCBIFLGS 01038000 DCBIFPCT EQU DCBIFLGS 01039000 DCBMFSTI EQU DCBMFDMD 01040000 DCBMFAWR EQU DCBMFSTK 01041000 DCBMFUIP EQU DCBMFTMD 01042000 DCBMFIDW EQU DCBMFLCP 01043000 DCBMFWRK EQU DCBMFMVP 01044000 DCBMFRDQ EQU DCBMFWRT 01045000 DCBMFGTQ EQU DCBMFPUT 01046000 DCBMFSTL EQU DCBMACF2 01047000 DCBMFCK EQU DCBMFDMG 01048000 DCBMFRDX EQU DCBMFCHK 01049000 DCBMFDBF EQU DCBMFSBG 01050000 DCBMFRDI EQU DCBMFLCG 01051000 DCBMFRDK EQU DCBMFMVG 01052000 DCBMFWRQ EQU DCBMFRD 01053000 DCBMFPTQ EQU DCBMFGET 01054000 DCBMFECP EQU DCBMACF1 01055000 DCBTIOT EQU IHADCS25 01056000 DCBMRSTI EQU DCBMRDMD 01057000 DCBMRAWR EQU DCBMRSTK 01058000 DCBMRUIP EQU DCBMRTMD 01059000 DCBMRIDW EQU DCBMRLCP 01060000 DCBMRWRK EQU DCBMRMVP 01061000 DCBMRRDQ EQU DCBMRWRT 01062000 DCBMRGTQ EQU DCBMRPUT 01063000 DCBMRSTL EQU DCBMACR2 01064000 DCBMRCK EQU DCBMRDMG 01065000 DCBPGFXA EQU DCBMRRDX 01066000 DCBMRDBF EQU DCBMRSBG 01067000 DCBMRRDI EQU DCBMRLCG 01068000 DCBMRRDK EQU DCBMRMVG 01069000 DCBMRWRQ EQU DCBMRRD 01070000 DCBMRPTQ EQU DCBMRGET 01071000 DCBMRECP EQU DCBMACR1 01072000 @NM00009 EQU DCBIFLG 01073000 DCBIBIOE EQU DCBIFLG 01074000 DCBIBPCT EQU DCBIFLG 01075000 DCBIBEC EQU DCBIFLG 01076000 DCBOFIOF EQU DCBOFLGS 01077000 DCBOFUEX EQU DCBOFLGS 01078000 DCBOFTM EQU DCBOFLGS 01079000 DCBOFPPC EQU DCBOFLGS 01080000 DCBOFEOV EQU DCBOFLGS 01081000 DCBOFLRB EQU DCBOFLGS 01082000 DCBOFIOD EQU DCBOFLWR 01083000 DCBDDNAM EQU IHADCS24 01084000 DCBEXLSA EQU DCBEXLST+1 01085000 DCBRECKL EQU DCBRECFM 01086000 DCBRECCC EQU DCBRECFM 01087000 DCBRECSB EQU DCBRECFM 01088000 DCBRECBR EQU DCBRECFM 01089000 DCBRECTO EQU DCBRECLA 01090000 DCBRECL EQU DCBRECLA 01091000 DCBEODA EQU DCBEODAD+1 01092000 DCBBFA EQU DCBBFTEK 01093000 DCBH0 EQU DCBBFTEK 01094000 DCBBFTKD EQU DCBBFTEK 01095000 DCBBFTE EQU DCBBFT 01096000 DCBBFTKR EQU DCBBFT 01097000 DCBBFTS EQU DCBBFT 01098000 DCBH1 EQU DCBBFTEK 01099000 DCBSVCXA EQU DCBSVCXL+1 01100000 @NM00008 EQU DCBSVCXL 01101000 DCBODEBA EQU DCBIOBAA 01102000 @NM00007 EQU DCBQSLM 01103000 DCBUPDBT EQU DCBQSLM 01104000 DCBUPDCM EQU DCBQSLM 01105000 DCB1DVDS EQU DCBQSLM 01106000 @NM00006 EQU DCBDSRG2 01107000 DCBDSGTR EQU DCBDSRG2 01108000 DCBACBM EQU DCBDSRG2 01109000 @NM00005 EQU DCBDSRG2 01110000 DCBDSGTQ EQU DCBDSRG2 01111000 DCBDSGTX EQU DCBDSRG2 01112000 DCBDSGGS EQU DCBDSRG2 01113000 DCBDSGU EQU DCBDSRG1 01114000 DCBDSGPO EQU DCBDSRG1 01115000 DCBDSGMQ EQU DCBDSRG1 01116000 DCBDSGCQ EQU DCBDSRG1 01117000 DCBDSGCX EQU DCBDSRG1 01118000 DCBDSGDA EQU DCBDSRG1 01119000 DCBDSGPS EQU DCBDSRG1 01120000 DCBDSGIS EQU DCBDSRG1 01121000 DCBBUFL EQU IHADCS11+8 01122000 DCBBUFCA EQU DCBBUFCB+1 01123000 DCBBUFNO EQU DCBBUFCB 01124000 DCBDEVT EQU DCBREL 01125000 DCBKEYLE EQU DCBRELB 01126000 DCBTRBAL EQU IHADCS01+6 01127000 @NM00004 EQU IHADCS01+5 01128000 @NM00003 EQU IHADCS01+4 01129000 DCBDVTBA EQU DCBDVTBL+1 01130000 @NM00002 EQU DCBDVTBL 01131000 DCBKEYCN EQU IHADCS00+4 01132000 DCBRELAD EQU IHADCS00 01133000 @NM00001 EQU IHADCB 01134000 IOBERRCT EQU IOBSTDRD+30 01135000 IOBRSV19 EQU IOBINCAM+1 01136000 IOBOLTST EQU IOBBTAMF 01137000 IOBRFTMG EQU IOBBTAMF 01138000 IOBRSV17 EQU IOBBTAMF 01139000 IOBRSV16 EQU IOBBTAMF 01140000 IOBRSV15 EQU IOBBTAMF 01141000 IOBRSV14 EQU IOBBTAMF 01142000 IOBINUSE EQU IOBBTAMF 01143000 IOBPRMER EQU IOBBTAMF 01144000 IOBRSTRB EQU IOBRESTR+1 01145000 IOBREPOS EQU IOBRESTR 01146000 IOBDCBPB EQU IOBDCBPT+1 01147000 IOBRSV44 EQU IOBFLAG4 01148000 IOBJES3I EQU IOBFLAG4 01149000 IOBRSV42 EQU IOBFLAG4 01150000 IOBRSV41 EQU IOBFLAG4 01151000 IOBRSV40 EQU IOBFLAG4 01152000 IOBPMERR EQU IOBFLAG4 01153000 IOBCC3WE EQU IOBFLAG4 01154000 IOBGDPOL EQU IOBFLAG4 01155000 IOBSTRTB EQU IOBSTART+1 01156000 IOBSIOCC EQU IOBSTART 01157000 IOBCSB7 EQU IOBCSTAT 01158000 IOBCSB6 EQU IOBCSTAT 01159000 IOBCSB5 EQU IOBCSTAT 01160000 IOBCSB4 EQU IOBCSTAT 01161000 IOBCSB3 EQU IOBCSTAT 01162000 IOBCSB2 EQU IOBCSTAT 01163000 IOBCSB1 EQU IOBCSTAT 01164000 IOBCSB0 EQU IOBCSTAT 01165000 IOBUSB7 EQU IOBUSTAT 01166000 IOBUSB6 EQU IOBUSTAT 01167000 IOBUSB5 EQU IOBUSTAT 01168000 IOBUSB4 EQU IOBUSTAT 01169000 IOBUSB3 EQU IOBUSTAT 01170000 IOBUSB2 EQU IOBUSTAT 01171000 IOBUSB1 EQU IOBUSTAT 01172000 IOBUSB0 EQU IOBUSTAT 01173000 IOBCMDA EQU IOBIOCSW 01174000 IOBLOG EQU IOBFL3 01175000 IOBJAM EQU IOBICL 01176000 IOBMSG EQU IOBFL3 01177000 IOBSDR EQU IOBCNC 01178000 IOBACU EQU IOBFL3 01179000 IOBCDC EQU IOBFL3 01180000 IOBICC EQU IOBFL3 01181000 IOBCCC EQU IOBFL3 01182000 IOBECBPB EQU IOBECBPT+1 01183000 IOBECBCC EQU IOBECBPT 01184000 IOBS1B7 EQU IOBSENS1 01185000 IOBS1B6 EQU IOBSENS1 01186000 IOBS1B5 EQU IOBSENS1 01187000 IOBS1B4 EQU IOBSENS1 01188000 IOBS1B3 EQU IOBSENS1 01189000 IOBS1B2 EQU IOBSENS1 01190000 IOBS1B1 EQU IOBSENS1 01191000 IOBS1B0 EQU IOBSENS1 01192000 IOBSNSC9 EQU IOBS0B7 01193000 IOBS0B6 EQU IOBSENS0 01194000 IOBS0B5 EQU IOBSENS0 01195000 IOBS0B4 EQU IOBSENS0 01196000 IOBS0B3 EQU IOBSENS0 01197000 IOBS0B2 EQU IOBSENS0 01198000 IOBS0B1 EQU IOBSENS0 01199000 IOBS0B0 EQU IOBSENS0 01200000 IOBPNCH EQU IOBFLAG2 01201000 IOBSTATO EQU IOBFLAG2 01202000 IOBSKUPD EQU IOBFLAG2 01203000 IOBALTTR EQU IOBFLAG2 01204000 IOBRRT2 EQU IOBRDHA0 01205000 IOBRRT3 EQU IOBPURGE 01206000 IOBSENSE EQU IOBFLAG2 01207000 IOBHALT EQU IOBFLAG2 01208000 IOBSPSVC EQU IOBRSTRT 01209000 IOBUNREL EQU IOBFLAG1 01210000 IOBIOERR EQU IOBFLAG1 01211000 IOBFCREX EQU IOBCYCCK 01212000 IOBRPSTN EQU IOBFLAG1 01213000 IOBERRTN EQU IOBFLAG1 01214000 IOBCMDCH EQU IOBFLAG1 01215000 IOBDATCH EQU IOBFLAG1 01216000 IOBCNOPA EQU IOBPREFX+12 01217000 IOBCICB EQU IOBPREFX+8 01218000 IOBCECB EQU IOBPREFX+4 01219000 IOBCONOP EQU IOBPREFX+3 01220000 IOBCINOP EQU IOBPREFX+2 01221000 IOBRSV05 EQU IOBPREFX+1 01222000 IOBPCI EQU IOBCFLG1 01223000 IOBRSTCH EQU IOBCFLG1 01224000 IOBABAPP EQU IOBCFLG1 01225000 IOBPTST EQU IOBCFLG1 01226000 IOBRSV04 EQU IOBCFLG1 01227000 IOBRSV03 EQU IOBCFLG1 01228000 IOBRSV02 EQU IOBCFLG1 01229000 IOBRSV01 EQU IOBCFLG1 01230000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01231000 @RT00065 EQU EXIT 01232000 @RT00103 EQU EXCPUT1 01233000 @ENDDATA EQU * 01234000 END ICGDSB05,(C'PLS1156',0603,76337) 01235000