TITLE 'IOEDKPUT - 3540 PUT MODULE *00001000 ' 00002000 IOEDKPUT CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IOEDKPUT 78.107' 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 * WORKAREA @Y30OE95*/ 00014000 * DCBPTR=REG1; /* SET POINTER TO DCB @Y30OE95*/ 00015000 LR DCBPTR,REG1 0080 00016000 * AMWKAPTR=DCBAMWKA; /* GET PTR TO A.M. WKA @Y30OE95*/ 00017000 L AMWKAPTR,DCBAMWKA+15(,DCBPTR) 0081 00018000 LA AMWKAPTR,0(,AMWKAPTR) 0081 00019000 * RFY 0082 00020000 * DEBPTR RSTD; /* RESTRICT DEB PTR @Y30OE95*/ 00021000 * DEBPTR=DCBDEBAD; /* SET POINTER TO DEB @Y30OE95*/ 00022000 L DEBPTR,DCBDEBAD+40(,DCBPTR) 0083 00023000 * UCBPTR=DEBSUCBA; /* SET POINTER TO UCB @Y30OEAC*/ 00024000 L UCBPTR,DEBSUCBA(,DEBPTR) 0084 00025000 * RFY /* @Y30OE95*/ 00026000 * (DEBPTR, /* @Y30OE95*/ 00027000 * REG1) UNRSTD; /* RELEASE REGISTERS @Y30OE95*/ 00028000 * RPLRTN=ZERO; /* CLEAR ERROR FLAGS @X04AAAC*/ 00029000 * 0086 00030000 SLR @09,@09 0086 00031000 STCM @09,7,RPLRTN(AMWKAPTR) 0086 00032000 * /*****************************************************************/ 00033000 * /* */ 00034000 * /* PROCESS USER DATA @Y30OEAC*/ 00035000 * /* */ 00036000 * /*****************************************************************/ 00037000 * 0087 00038000 * IF AMWDSOPN=OFF /* FIRST PUT ? @Y30OE95*/ 00039000 * THEN /* @Y30OEAC*/ 00040000 TM AMWDSOPN(AMWKAPTR),B'01000000' 0087 00041000 BNZ @RF00087 0087 00042000 * DO; /* @Y30OEAC*/ 00043000 * SETDOPCD=OPEN; /* SET OP CODE FOR OPEN @Y30OE95*/ 00044000 MVI SETDOPCD(AMWKAPTR),X'01' 0089 00045000 * CALL CALLOUT; /* PREPARE FOR OPEN @Y30OEAC*/ 00046000 BAL @14,CALLOUT 0090 00047000 * END; /* OUTPUT PROCESSING @Y30OEAC*/ 00048000 * IF RTNCD^=SYNADCCD /* ERROR FREE OPEN ? @Y30OEAC*/ 00049000 * THEN /* @Y30OEAC*/ 00050000 @RF00087 CLI RTNCD(AMWKAPTR),X'0C' 0092 00051000 BE @RF00092 0092 00052000 * IF RPLEODS=ON /* END-OF-DATA SET ? @Y30OEAC*/ 00053000 * THEN /* @Y30OEAC*/ 00054000 TM RPLEODS(AMWKAPTR),B'10000000' 0093 00055000 BNO @RF00093 0093 00056000 * DO; /* @Y30OEAC*/ 00057000 * 0094 00058000 * /***********************************************************/ 00059000 * /* */ 00060000 * /* START SEGMENT...END-OF-DATA PROCESSING @Y30OEAC*/ 00061000 * /* */ 00062000 * /***********************************************************/ 00063000 * 0095 00064000 * PARM=QUIESCE; /* QUIESCE MODE @Y30OEAC*/ 00065000 NI PARM(AMWKAPTR),B'01111111' 0095 00066000 * CALL PUTIO; /* CALL PUTIO SUBROUTINE @Y30OEAC*/ 00067000 BAL @14,PUTIO 0096 00068000 * IF RTNCD^=SYNADCCD /* ERROR FREE PUTIO ? @Y30OEAC*/ 00069000 * THEN /* @Y30OEAC*/ 00070000 CLI RTNCD(AMWKAPTR),X'0C' 0097 00071000 BE @RF00097 0097 00072000 * DO; /* @Y30OEAC*/ 00073000 * ACBVSSER=UCBVLSER; /* SAVE VOL-SER IN ACB @Y30OEAC*/ 00074000 L @09,UCBXTADR(,UCBPTR) 0099 00075000 MVC ACBVSSER(6,AMWKAPTR),UCBVLSER(@09) 0099 00076000 * SETDOPCD=CLOSE; /* SET OP CODE FOR CLOSE @Y30OE95*/ 00077000 MVI SETDOPCD(AMWKAPTR),X'03' 0100 00078000 * CALL CALLOUT; /* PREPARE FOR CLOSE @Y30OEAC*/ 00079000 BAL @14,CALLOUT 0101 00080000 * END; /* OUTPUT PROCESSING @Y30OEAC*/ 00081000 * 0102 00082000 * /***********************************************************/ 00083000 * /* */ 00084000 * /* END SEGMENT...END-OF-DATA PROCESSING @Y30OEAC*/ 00085000 * /* */ 00086000 * /***********************************************************/ 00087000 * 0103 00088000 * END; /* @Y30OEAC*/ 00089000 * ELSE /* NOT END-OF-DATA SET @Y30OEAC*/ 00090000 * DO; /* @Y30OEAC*/ 00091000 B @RC00093 0104 00092000 @RF00093 DS 0H 0105 00093000 * IF CCWPTR=IOBSTRTB+CHPGMLN/* BUFFER FULL ? @Y30OEAC*/ 00094000 * THEN /* @Y30OEAC*/ 00095000 L @09,IOBPTR-1(,AMWKAPTR) 0105 00096000 LA @09,0(,@09) 0105 00097000 LA @07,224 0105 00098000 L @02,IOBSTRTB-1(,@09) 0105 00099000 LA @02,0(,@02) 0105 00100000 ALR @07,@02 0105 00101000 L @02,CCWPTR-1(,AMWKAPTR) 0105 00102000 LA @02,0(,@02) 0105 00103000 CR @07,@02 0105 00104000 BNE @RF00105 0105 00105000 * DO; /* @Y30OEAC*/ 00106000 * 0106 00107000 * /*******************************************************/ 00108000 * /* */ 00109000 * /* START SEGMENT...END-OF-BLOCK PROCESSING @Y30OEAC*/ 00110000 * /* */ 00111000 * /*******************************************************/ 00112000 * 0107 00113000 * IF IOBSKTT=LASTTRK /* END-OF-VOLUME ? @Y30OEAC*/ 00114000 * THEN /* @Y30OEAC*/ 00115000 CLI IOBSKTT(@09),73 0107 00116000 BNE @RF00107 0107 00117000 * DO; /* @Y30OEAC*/ 00118000 * PARM=QUIESCE; /* QUIESCE MODE @Y30OEAC*/ 00119000 NI PARM(AMWKAPTR),B'01111111' 0109 00120000 * CALL PUTIO; /* CALL PUTIO SUBROUTINE @Y30OEAC*/ 00121000 BAL @14,PUTIO 0110 00122000 * IF RTNCD^=SYNADCCD/* ERROR FREE PUTIO ? @Y30OEAC*/ 00123000 * THEN /* @Y30OEAC*/ 00124000 CLI RTNCD(AMWKAPTR),X'0C' 0111 00125000 BE @RF00111 0111 00126000 * DO; /* @Y30OEAC*/ 00127000 * ACBVSSER=UCBVLSER;/* SAVE VOL-SER IN ACB 0113 00128000 * @Y30OEAC*/ 00129000 L @09,UCBXTADR(,UCBPTR) 0113 00130000 MVC ACBVSSER(6,AMWKAPTR),UCBVLSER(@09) 0113 00131000 * SETDOPCD=EOV; /* SET OP CODE FOR EOV @Y30OE95*/ 00132000 MVI SETDOPCD(AMWKAPTR),X'02' 0114 00133000 * CALL CALLOUT; /* PREPARE FOR EOV @Y30OEAC*/ 00134000 BAL @14,CALLOUT 0115 00135000 * IF SETDRTNC=EOVIOERR/* I/O ERR ON NEXT VOL ? 0116 00136000 * @Y30OEAC*/ 00137000 * THEN /* @Y30OEAC*/ 00138000 CLC SETDRTNC(2,AMWKAPTR),@CH01453 0116 00139000 BNE @RF00116 0116 00140000 * CNDCD2=IOERRQL;/* SET CONDITION CODE 2 0117 00141000 * @Y30OEAC*/ 00142000 MVI CNDCD2(AMWKAPTR),X'04' 0117 00143000 * END; /* OUTPUT PROCESSING @Y30OEAC*/ 00144000 * END; /* @Y30OEAC*/ 00145000 * ELSE /* NOT END-OF-VOLUME @Y30OEAC*/ 00146000 * DO; /* @Y30OEAC*/ 00147000 B @RC00107 0120 00148000 @RF00107 DS 0H 0121 00149000 * PARM=SWITCH; /* SWITCH MODE @Y30OEAC*/ 00150000 OI PARM(AMWKAPTR),B'10000000' 0121 00151000 * CALL PUTIO; /* CALL PUTIO SUBROUTINE @Y30OEAC*/ 00152000 BAL @14,PUTIO 0122 00153000 * END; /* @Y30OEAC*/ 00154000 * 0123 00155000 * /*******************************************************/ 00156000 * /* */ 00157000 * /* END SEGMENT...END-OF-BLOCK PROCESSING @Y30OEAC*/ 00158000 * /* */ 00159000 * /*******************************************************/ 00160000 * 0124 00161000 * END; /* @Y30OEAC*/ 00162000 @RC00107 DS 0H 0125 00163000 * IF RTNCD^=SYNADCCD /* ERROR FREE EOB ? @Y30OEAC*/ 00164000 * THEN /* @Y30OEAC*/ 00165000 * 0125 00166000 @RF00105 CLI RTNCD(AMWKAPTR),X'0C' 0125 00167000 BE @RF00125 0125 00168000 * /*********************************************************/ 00169000 * /* */ 00170000 * /* PASS DATA @Y30OEAC*/ 00171000 * /* */ 00172000 * /*********************************************************/ 00173000 * 0126 00174000 * DO; /* @Y30OEAC*/ 00175000 * IF RPLRLEN>=ACBLRECL /* USERAREA >= BUFFER @Y30OEAC*/ 00176000 * THEN /* AREA ? @Y30OEAC*/ 00177000 LH @09,ACBLRECL(,AMWKAPTR) 0127 00178000 C @09,RPLRLEN(,AMWKAPTR) 0127 00179000 BH @RF00127 0127 00180000 * BUFRAREA(1:ACBLRECL)=/* @Y30OEAC*/ 00181000 * USERAREA(1:ACBLRECL);/* MOVE DATA @Y30OEAC*/ 00182000 L @07,CCWPTR-1(,AMWKAPTR) 0128 00183000 L @07,CCWDATAD-1(,@07) 0128 00184000 BCTR @09,0 0128 00185000 L @02,RPLAREA(,AMWKAPTR) 0128 00186000 EX @09,@SM01478 0128 00187000 * ELSE /* USERAREA < BUFFER @Y30OEAC 00188000 * AREA @Y30OEAC*/ 00189000 * BUFRAREA= /* MOVE DATA AND PAD @Y30OEAC*/ 00190000 * USERAREA(1:RPLRLEN);/* WITH BLANKS @Y30OEAC*/ 00191000 B @RC00127 0129 00192000 @RF00127 L @09,CCWPTR-1(,AMWKAPTR) 0129 00193000 L @09,CCWDATAD-1(,@09) 0129 00194000 MVI BUFRAREA+1(@09),C' ' 0129 00195000 MVC BUFRAREA+2(126,@09),BUFRAREA+1(@09) 0129 00196000 L @07,RPLRLEN(,AMWKAPTR) 0129 00197000 BCTR @07,0 0129 00198000 L @02,RPLAREA(,AMWKAPTR) 0129 00199000 EX @07,@SM01480 0129 00200000 * CCWPTR=CCWPTR+ /* BUMP CCW POINTER @Y30OEAC*/ 00201000 * LENGTH(JAMCCW); /* @Y30OEAC*/ 00202000 @RC00127 LA @09,8 0130 00203000 L @07,CCWPTR-1(,AMWKAPTR) 0130 00204000 LA @07,0(,@07) 0130 00205000 ALR @09,@07 0130 00206000 STCM @09,7,CCWPTR(AMWKAPTR) 0130 00207000 * END; /* @Y30OEAC*/ 00208000 * END; /* @Y30OEAC*/ 00209000 * 0132 00210000 @RF00125 DS 0H 0133 00211000 * /*****************************************************************/ 00212000 * /* */ 00213000 * /* NORMAL AND ERROR EXITS @Y30OEAC*/ 00214000 * /* */ 00215000 * /*****************************************************************/ 00216000 * 0133 00217000 * RPLFDBK=RPLRTN; /* SET ERROR CODE IN RPL @Y30OEAC*/ 00218000 @RC00093 DS 0H 0133 00219000 @RF00092 MVC RPLFDBK(3,AMWKAPTR),RPLRTN(AMWKAPTR) 0133 00220000 * RFY 0134 00221000 * REXADDR RSTD; /* RESTRICT REXADDR @Y30OEAC*/ 00222000 * IF RTNCD^=GOODRTN /* RETURN CODE NOT ZERO? @Y30OEAC*/ 00223000 * THEN /* @Y30OEAC*/ 00224000 CLI RTNCD(AMWKAPTR),X'00' 0135 00225000 BE @RF00135 0135 00226000 * DO; /* @Y30OEAC*/ 00227000 * IF RTNCD=SYNADCCD /* I/O OR SETDISKT @Y30OEAC*/ 00228000 * THEN /* ERRORS ? @Y30OEAC*/ 00229000 CLI RTNCD(AMWKAPTR),X'0C' 0137 00230000 BNE @RF00137 0137 00231000 * DO; /* @Y30OEAC*/ 00232000 * IF ERTNCDE=ENDDSKT /* END OF DISKETTE? @Y30OE95*/ 00233000 * THEN /* @Y30OE95*/ 00234000 CLI ERTNCDE(AMWKAPTR),20 0139 00235000 BNE @RF00139 0139 00236000 * RPLFDB2=SYNADEDK; /* SET CODE IN RPL @Y30OE95*/ 00237000 MVI RPLFDB2(AMWKAPTR),X'04' 0140 00238000 * ELSE /* NOT END OF DISKETTE @Y30OE95*/ 00239000 * RPLFDB2=SYNADCCD; /* SET CONDITION CODE @Y30OEAC 00240000 * IN RPL @Y30OEAC*/ 00241000 B @RC00139 0141 00242000 @RF00139 MVI RPLFDB2(AMWKAPTR),X'0C' 0141 00243000 * REXADDR=EXLSYNP; /* LOAD REG 15 WITH @Y30OEAC 00244000 * SYNAD ROUTINE ADDRESS @Y30OEAC*/ 00245000 @RC00139 L REXADDR,EXLSYNP(,AMWKAPTR) 0142 00246000 * END; /* @Y30OEAC*/ 00247000 * ELSE /* SUCCESSFUL PUT WITH @Y30OEAC 00248000 * VOL-SER PASSBACK @Y30OEAC*/ 00249000 * REXADDR=EXLEODP; /* LOAD REG 15 WITH @Y30OEAC 00250000 * EODAD ROUTINE ADDR @Y30OEAC*/ 00251000 B @RC00137 0144 00252000 @RF00137 L REXADDR,EXLEODP(,AMWKAPTR) 0144 00253000 * RFY 0145 00254000 * SAVREG RSTD; /* RESTRICT SAVREG @Y30OE95*/ 00255000 @RC00137 DS 0H 0146 00256000 * SAVREG=ADDR(REGSAVE); /* GET PTR TO MY SAVAREA @Y30OE95*/ 00257000 LA SAVREG,REGSAVE(,AMWKAPTR) 0146 00258000 * GEN; 0147 00259000 * /*@Y30OEAC*/ 00260000 ST SAVREG,0(,@13) SAVE PTR TO MY REGS @Y30OE95 00261000 STM @14,@12,0(SAVREG) SAVE MY REGISTERS @Y30OE95 00262000 REG2DISP EQU 28 DISPLACEMENT TO REG 2 @Y30OEAC 00263000 * IN SAVE AREA @Y30OEAC 00264000 LM @02,@12,REG2DISP(@13) RESTORE CALLER'S REGS @Y30OEAC 00265000 BALR @14,REXADDR BRANCH TO EXIT ROUTINE @Y30OEAC 00266000 ************************************************************* @Y30OEAC 00267000 * @Y30OEAC 00268000 * CALLER'S ERROR ROUTINE TO OPTIONALLY RETURN HERE. @Y30OEAC 00269000 * REGISTER 13 MUST STILL POINT TO CALLER'S SAVE AREA. @Y30OEAC 00270000 * @Y30OEAC 00271000 ************************************************************* @Y30OEAC 00272000 STM @02,@12,REG2DISP(@13) SAVE CALLER'S REGS @Y30OEAC 00273000 L SAVREG,0(,@13) RESTORE POINTER TO MY @Y30OE95 00274000 * REGISTERS @Y30OE95 00275000 LM @14,@12,0(SAVREG) RESTORE MY REGISTERS @Y30OE95 00276000 * END; /* @Y30OEAC*/ 00277000 * RFY 0149 00278000 * (SAVREG, 0149 00279000 * REXADDR) UNRSTD; /* RELEASE REGISTERS @Y30OEAC*/ 00280000 */********************************************************** @Y30OE95*/ 00281000 */* @Y30OEAC*/ 00282000 */* IF PUT IS SUCCESSFUL AND THERE IS NO VOL-SER PASSBACK, @Y30OEAC*/ 00283000 */* RETURN TO CALLER'S NEXT SEQUENTIAL INSTRUCTION @Y30OEAC*/ 00284000 */* @Y30OEAC*/ 00285000 */********************************************************** @Y30OEAC*/ 00286000 * 0150 00287000 * 0150 00288000 * /*****************************************************************/ 00289000 * /* */ 00290000 * /* PUTIO SUBROUTINE @Y30OEAC*/ 00291000 * /* */ 00292000 * /*****************************************************************/ 00293000 * 0150 00294000 *PUTIO: /* @Y30OEAC*/ 00295000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y30OEAC*/ 00296000 @EL00001 DS 0H 0150 00297000 @EF00001 DS 0H 0150 00298000 @ER00001 LM @14,@12,12(@13) 0150 00299000 BR @14 0150 00300000 PUTIO DS 0H 0151 00301000 * RFY /* @Y30OEAC*/ 00302000 * REG14 RSTD; /* RESTRICT REGISTER @Y30OEAC*/ 00303000 * ECB=ZERO; /* CLEAR THE ECB @Y30OEAC*/ 00304000 SLR @15,@15 0152 00305000 L @09,IOBPTR-1(,AMWKAPTR) 0152 00306000 LA @09,0(,@09) 0152 00307000 L @07,IOBECBPB-1(,@09) 0152 00308000 ST @15,ECB(,@07) 0152 00309000 * IF CCWPTR^=IOBSTRTB+CHPGMLN /* BUFFER NOT FULL ? @Y30OEAC*/ 00310000 * THEN /* @Y30OEAC*/ 00311000 L @07,CCWPTR-1(,AMWKAPTR) 0153 00312000 LA @07,0(,@07) 0153 00313000 LA @02,224 0153 00314000 L @11,IOBSTRTB-1(,@09) 0153 00315000 LA @11,0(,@11) 0153 00316000 LR @10,@11 0153 00317000 ALR @10,@02 0153 00318000 CR @07,@10 0153 00319000 BE @RF00153 0153 00320000 * DO; /* @Y30OEAC*/ 00321000 * 0154 00322000 * /*************************************************************/ 00323000 * /* */ 00324000 * /* PREPARE THE CCW CHAIN @Y30OEAC*/ 00325000 * /* */ 00326000 * /*************************************************************/ 00327000 * 0155 00328000 * JAMCCW=JAMCCW&&NOOPCCW; /* PLACE LAST NOOP AT @Y30OEAC*/ 00329000 L @09,IOBSTART(,@09) 0155 00330000 ALR @02,@09 0155 00331000 XC JAMCCW(8,@07),NOOPCCW(@02) 0155 00332000 * NOOPCCW=NOOPCCW&&JAMCCW; /* CURRENT END OF @Y30OEAC*/ 00333000 XC NOOPCCW(8,@02),JAMCCW(@07) 0156 00334000 * JAMCCW=JAMCCW&&NOOPCCW; /* CHAIN @Y30OEAC*/ 00335000 * 0157 00336000 XC JAMCCW(8,@07),NOOPCCW(@02) 0157 00337000 * /*************************************************************/ 00338000 * /* */ 00339000 * /* BUILD DEFINE OPS CCW AT BEGINNING OF CHAIN @Y30OEAC*/ 00340000 * /* */ 00341000 * /*************************************************************/ 00342000 * 0158 00343000 * CCWCNT=(CCWPTR-IOBSTRTB)/LENGTH(JAMCCW)-/* POINT TO @Y30OEAC*/ 00344000 * OFFSET2; /* FIRST CCW @Y30OEAC*/ 00345000 LR @00,@07 0158 00346000 SLR @00,@11 0158 00347000 SRDA @00,32 0158 00348000 D @00,@CF00054 0158 00349000 BCTR @01,0 0158 00350000 BCTR @01,0 0158 00351000 STC @01,CCWCNT(,AMWKAPTR) 0158 00352000 * ALLOWOPS=WRTCMD; /* SET WRITE OPERATION @Y30OEAC*/ 00353000 MVI ALLOWOPS(AMWKAPTR),X'40' 0159 00354000 * RLENGTH=ZERO; /* CLEAR RECORD LENGTH @Y30OEAC*/ 00355000 STH @15,RLENGTH(,AMWKAPTR) 0160 00356000 * RFY /* @Y30OEAC*/ 00357000 * JAMCCW BASED(IOBSTART); /* SET CCW POINTER @Y30OEAC*/ 00358000 * CCWCMDCD=DFNCMDCD; /* DEFINE OPS COMMAND @Y30OEAC 00359000 * CODE @Y30OEAC*/ 00360000 MVI CCWCMDCD(@09),X'2F' 0162 00361000 * CCWDATAD=ADDR(DFNOPS); /* SET CCW DATA ADDR @Y30OEAC*/ 00362000 LA @15,DFNOPS(,AMWKAPTR) 0163 00363000 STCM @15,7,CCWDATAD(@09) 0163 00364000 * CCWCOUNT=WRITECNT; /* SET CCW COUNT @Y30OEAC*/ 00365000 MVC CCWCOUNT(2,@09),@CH00052 0164 00366000 * RFY /* @Y30OEAC*/ 00367000 * JAMCCW BASED(CCWPTR); /* RESTORE CCW PTR @Y30OEAC*/ 00368000 * END; /* @Y30OEAC*/ 00369000 * 0166 00370000 * /*****************************************************************/ 00371000 * /* */ 00372000 * /* EXCP CURRENT BUFFER @Y30OEAC*/ 00373000 * /* */ 00374000 * /*****************************************************************/ 00375000 * 0167 00376000 * RFY /* @Y30OEAC*/ 00377000 * (RWRK1, /* @Y30OEAC*/ 00378000 * RWRK2) RSTD; /* RESTRICT REGISTERS @Y30OEAC*/ 00379000 @RF00153 DS 0H 0168 00380000 * RWRK1=IOBPTR; /* POINTER TO CURRENT @Y30OEAC 00381000 * IOB @Y30OEAC*/ 00382000 L RWRK1,IOBPTR-1(,AMWKAPTR) 0168 00383000 LA RWRK1,0(,RWRK1) 0168 00384000 * GEN(EXCP (RWRK1)); /* ISSUE EXCP @Y30OEAC*/ 00385000 EXCP (RWRK1) 00386000 * IF PARM=SWITCH /* SWITCH MODE ? @Y30OEAC*/ 00387000 * THEN /* @Y30OEAC*/ 00388000 TM PARM(AMWKAPTR),B'10000000' 0170 00389000 BNO @RF00170 0170 00390000 * DO; /* @Y30OEAC*/ 00391000 * 0171 00392000 * /*************************************************************/ 00393000 * /* */ 00394000 * /* SWITCH TO NEXT BUFFER/IOB @Y30OEAC*/ 00395000 * /* */ 00396000 * /*************************************************************/ 00397000 * 0172 00398000 * IOBPTR=IOBNIOBB+LENGTH(IOBORG01);/* POINT TO NEXT @Y30OEAC 00399000 * IOB @Y30OEAC*/ 00400000 LA @15,16 0172 00401000 L @09,IOBPTR-1(,AMWKAPTR) 0172 00402000 LA @09,0(,@09) 0172 00403000 SLR @09,@15 0172 00404000 LA @07,8 0172 00405000 L @09,IOBNIOBB-1(,@09) 0172 00406000 LA @09,0(,@09) 0172 00407000 ALR @07,@09 0172 00408000 STCM @07,7,IOBPTR(AMWKAPTR) 0172 00409000 * CCWPTR=IOBSTRTB+ /* GET ADDRESS OF FIRST @Y30OEAC*/ 00410000 * OFFSET2*LENGTH(JAMCCW); /* CCW @Y30OEAC*/ 00411000 L @09,IOBSTRTB-1(,@07) 0173 00412000 LA @09,0(,@09) 0173 00413000 ALR @15,@09 0173 00414000 STCM @15,7,CCWPTR(AMWKAPTR) 0173 00415000 * END; /* @Y30OEAC*/ 00416000 * IF ECBCOMP^=ON /* ECB NOT POSTED ? @Y30OEAC*/ 00417000 * THEN /* @Y30OEAC*/ 00418000 @RF00170 L @15,IOBPTR-1(,AMWKAPTR) 0175 00419000 L @15,IOBECBPB-1(,@15) 0175 00420000 LA @15,0(,@15) 0175 00421000 TM ECBCOMP(@15),B'01000000' 0175 00422000 BO @RF00175 0175 00423000 * DO; /* @Y30OEAC*/ 00424000 * RWRK2=IOBECBPB; /* GET ADDRESS OF ECB @Y30OEAC*/ 00425000 LR RWRK2,@15 0177 00426000 * GEN(WAIT ECB=(RWRK2)); /* ISSUE WAIT @Y30OEAC*/ 00427000 WAIT ECB=(RWRK2) 00428000 * END; /* @Y30OEAC*/ 00429000 * IF PARM=SWITCH /* SWITCH MODE @ZA31583*/ 00430000 * THEN /* @ZA31583*/ 00431000 @RF00175 TM PARM(AMWKAPTR),B'10000000' 0180 00432000 BNO @RF00180 0180 00433000 * IOBSKTT=IOBSKTT+IOBNO; /* UPDATE TRACK NUMBER @ZA31583*/ 00434000 L @15,IOBPTR-1(,AMWKAPTR) 0181 00435000 LA @15,0(,@15) 0181 00436000 SLR @09,@09 0181 00437000 IC @09,IOBSKTT(,@15) 0181 00438000 SLR @07,@07 0181 00439000 IC @07,IOBNO(,AMWKAPTR) 0181 00440000 ALR @09,@07 0181 00441000 STC @09,IOBSKTT(,@15) 0181 00442000 * IF ECBCMPL1^=ECBSCCD /* ERROR COMPLETION @Y30OEAC*/ 00443000 * THEN /* CODE ? @Y30OEAC*/ 00444000 @RF00180 L @15,IOBPTR-1(,AMWKAPTR) 0182 00445000 L @15,IOBECBPB-1(,@15) 0182 00446000 CLI ECBCMPL1(@15),127 0182 00447000 BE @RF00182 0182 00448000 * RTNCD=SYNADCCD; /* SET ERROR CODE @Y30OEAC*/ 00449000 MVI RTNCD(AMWKAPTR),X'0C' 0183 00450000 * RFY /* @Y30OEAC*/ 00451000 * (RWRK1, /* @Y30OEAC*/ 00452000 * RWRK2, /* @Y30OEAC*/ 00453000 * REG14) UNRSTD; /* RELEASE REGISTERS @Y30OEAC*/ 00454000 * END PUTIO; /* @Y30OEAC*/ 00455000 @EL00002 DS 0H 0185 00456000 @EF00002 DS 0H 0185 00457000 @ER00002 BR @14 0185 00458000 * 0186 00459000 * /*****************************************************************/ 00460000 * /* */ 00461000 * /* SUBROUTINE USED TO CALL SETDISKT OUTPUT SERVICES @Y30OE95*/ 00462000 * /* */ 00463000 * /*****************************************************************/ 00464000 * 0186 00465000 *CALLOUT: /* @Y30OE95*/ 00466000 * PROC OPTIONS(NOSAVE,NOSAVEAREA);/* @Y30OEAC*/ 00467000 CALLOUT DS 0H 0187 00468000 * RFY /* @Y30OE95*/ 00469000 * (REG13, /* @Y30OEAC*/ 00470000 * REG14, /* @Y30OEAC*/ 00471000 * RSETD) RSTD; /* RESTRICT REGISTERS @Y30OEAC*/ 00472000 * SETDDCB=DCBPTR; /* SET PTR TO DCB IN LST @Y30OE95*/ 00473000 ST DCBPTR,SETDDCB(,AMWKAPTR) 0188 00474000 * SETDDSID=ACBDSID; /* GET THE DSID @Y30OE95*/ 00475000 MVC SETDDSID(8,AMWKAPTR),ACBDSID(AMWKAPTR) 0189 00476000 * RSETD=ADDR(SETDLIST); /* GET ADDRESS OF @Y30OE95 00477000 * SETDISKT PARM LIST @Y30OE95*/ 00478000 LA RSETD,SETDLIST(,AMWKAPTR) 0190 00479000 * STM(REG13,REG14,SAVEREGS); /* SAVE REGS 13 AND 14 @Y30OEAC*/ 00480000 STM REG13,REG14,SAVEREGS(AMWKAPTR) 0191 00481000 * REG13=ADDR(REGSAVE); /* PTR TO REG SAVE AREA @Y30OEAC*/ 00482000 LA REG13,REGSAVE(,AMWKAPTR) 0192 00483000 * CALL IOESDKTO; /* CALL OUTPUT SERVICES @Y30OE95*/ 00484000 L @15,@CV01420 0193 00485000 BALR @14,@15 0193 00486000 * IF ERTNCDE^=GOODRTN /* ERRORS FROM OUTPUT @Y30OEAC*/ 00487000 * THEN /* SERVICES ? @Y30OEAC*/ 00488000 CLI ERTNCDE(AMWKAPTR),0 0194 00489000 BE @RF00194 0194 00490000 * RTNCD=SYNADCCD; /* SET ERROR CODE @Y30OEAC*/ 00491000 MVI RTNCD(AMWKAPTR),X'0C' 0195 00492000 * ELSE /* ERROR FREE RETURN @Y30OEAC*/ 00493000 * IF SETDOPCD^=OPEN /* OP = EOV OR CLOSE ? @Y30OEAC*/ 00494000 * THEN /* @Y30OEAC*/ 00495000 B @RC00194 0196 00496000 @RF00194 CLI SETDOPCD(AMWKAPTR),1 0196 00497000 BE @RF00196 0196 00498000 * RTNCD=EODADCCD; /* SET EODAD CODE @Y30OEAC*/ 00499000 MVI RTNCD(AMWKAPTR),X'08' 0197 00500000 * LM(REG13,REG14,SAVEREGS); /* RESTORE REG 13 AND 14 @Y30OEAC*/ 00501000 @RF00196 DS 0H 0198 00502000 @RC00194 LM REG13,REG14,SAVEREGS(AMWKAPTR) 0198 00503000 * RFY /* @Y30OEAC*/ 00504000 * (REG13, /* @Y30OEAC*/ 00505000 * REG14, /* @Y30OEAC*/ 00506000 * RSETD) UNRSTD; /* RELEASE REGISTERS @Y30OEAC*/ 00507000 * END CALLOUT; /* @Y30OE95*/ 00508000 @EL00003 DS 0H 0200 00509000 @EF00003 DS 0H 0200 00510000 @ER00003 BR @14 0200 00511000 * END IOEDKPUT /* @Y30OE95*/ 00512000 * 0201 00513000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00514000 */*%INCLUDE SYSUT5 (MAINPGM ) */ 00515000 */*%INCLUDE SYSUT5 (PROLOGUE) */ 00516000 */*%INCLUDE SYSUT5 (DECLARES) */ 00517000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00518000 */*%INCLUDE SYSLIB (IHADCB ) */ 00519000 */*%INCLUDE SYSLIB (IEZIOB ) */ 00520000 */*%INCLUDE SYSLIB (IEZDEB ) */ 00521000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00522000 */*%INCLUDE SYSUT5 (PUTEOD ) */ 00523000 */*%INCLUDE SYSUT5 (PUTEOB ) */ 00524000 */*%INCLUDE SYSUT5 (PUTIO ) */ 00525000 */*%INCLUDE SYSUT5 (CALLOUT ) */ 00526000 * 0201 00527000 * ; 0201 00528000 @DATA DS 0H 00529000 @CH00052 DC H'4' 00530000 @CH01453 DC XL2'1004' 00531000 @SM01478 MVC BUFRAREA(0,@07),USERAREA(@02) 00532000 @SM01480 MVC BUFRAREA(0,@09),USERAREA(@02) 00533000 @DATD DSECT 00534000 DS 0F 00535000 IOEDKPUT CSECT 00536000 DS 0F 00537000 @CF00054 DC F'8' 00538000 @DATD DSECT 00539000 DS 0D 00540000 IOBPRPTR DS A 00541000 IOBSTPTR DS A 00542000 DEBDAPTR DS A 00543000 DEBEXPTR DS A 00544000 DEBSBPTR DS A 00545000 UCBDCPTR DS A 00546000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00547000 @ENDDATD EQU * 00548000 IOEDKPUT CSECT 00549000 DS 0F 00550000 @SIZDATD DC AL1(0) 00551000 DC AL3(@ENDDATD-@DATD) 00552000 @CV01420 DC V(IOESDKTO) 00553000 DS 0D 00554000 MT3540AR DC CL72' ' 00555000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00556000 @01 EQU 01 00557000 @02 EQU 02 00558000 @03 EQU 03 00559000 @04 EQU 04 00560000 @05 EQU 05 00561000 @06 EQU 06 00562000 @07 EQU 07 00563000 @08 EQU 08 00564000 @09 EQU 09 00565000 @10 EQU 10 00566000 @11 EQU 11 00567000 @12 EQU 12 00568000 @13 EQU 13 00569000 @14 EQU 14 00570000 @15 EQU 15 00571000 RSETD EQU @01 00572000 REG1 EQU @01 00573000 DCBPTR EQU @03 00574000 RWRK1 EQU @04 00575000 RWRK2 EQU @05 00576000 AMWKAPTR EQU @06 00577000 DEBPTR EQU @07 00578000 UCBPTR EQU @08 00579000 SAVREG EQU @09 00580000 REG13 EQU @13 00581000 REG14 EQU @14 00582000 REXADDR EQU @15 00583000 IHADCB EQU 0 00584000 IHADCS00 EQU 0 00585000 DCBFDAD EQU IHADCS00+5 00586000 IHADCS01 EQU 0 00587000 DCBDVTBL EQU IHADCS01 00588000 IHADCS11 EQU 0 00589000 DCBRELB EQU IHADCS11 00590000 DCBREL EQU DCBRELB+1 00591000 DCBBUFCB EQU IHADCS11+4 00592000 DCBDSORG EQU IHADCS11+10 00593000 DCBDSRG1 EQU DCBDSORG 00594000 DCBDSRG2 EQU DCBDSORG+1 00595000 DCBIOBAD EQU IHADCS11+12 00596000 DCBODEB EQU DCBIOBAD 00597000 DCBLNP EQU DCBODEB 00598000 DCBQSLM EQU DCBLNP 00599000 DCBIOBAA EQU DCBODEB+1 00600000 IHADCS50 EQU 0 00601000 DCBSVCXL EQU IHADCS50 00602000 DCBEODAD EQU IHADCS50+4 00603000 DCBBFALN EQU DCBEODAD 00604000 DCBHIARC EQU DCBBFALN 00605000 DCBBFTEK EQU DCBHIARC 00606000 DCBBFT EQU DCBBFTEK 00607000 DCBEXLST EQU IHADCS50+8 00608000 DCBRECFM EQU DCBEXLST 00609000 DCBRECLA EQU DCBRECFM 00610000 IHADCS24 EQU 0 00611000 DCBOFLGS EQU IHADCS24+8 00612000 DCBOFLWR EQU DCBOFLGS 00613000 DCBIFLG EQU IHADCS24+9 00614000 DCBMACR EQU IHADCS24+10 00615000 DCBMACR1 EQU DCBMACR 00616000 DCBMRFE EQU DCBMACR1 00617000 DCBMRGET EQU DCBMRFE 00618000 DCBMRAPG EQU DCBMACR1 00619000 DCBMRRD EQU DCBMRAPG 00620000 DCBMRCI EQU DCBMACR1 00621000 DCBMRMVG EQU DCBMRCI 00622000 DCBMRLCG EQU DCBMACR1 00623000 DCBMRABC EQU DCBMACR1 00624000 DCBMRPT1 EQU DCBMRABC 00625000 DCBMRSBG EQU DCBMRPT1 00626000 DCBMRCRL EQU DCBMACR1 00627000 DCBMRCHK EQU DCBMRCRL 00628000 DCBMRRDX EQU DCBMRCHK 00629000 DCBMRDMG EQU DCBMACR1 00630000 DCBMACR2 EQU DCBMACR+1 00631000 DCBMRPUT EQU DCBMACR2 00632000 DCBMRWRT EQU DCBMACR2 00633000 DCBMRMVP EQU DCBMACR2 00634000 DCBMR5WD EQU DCBMACR2 00635000 DCBMRLDM EQU DCBMR5WD 00636000 DCBMRLCP EQU DCBMRLDM 00637000 DCBMR4WD EQU DCBMACR2 00638000 DCBMRPT2 EQU DCBMR4WD 00639000 DCBMRTMD EQU DCBMRPT2 00640000 DCBMR3WD EQU DCBMACR2 00641000 DCBMRCTL EQU DCBMR3WD 00642000 DCBMRSTK EQU DCBMRCTL 00643000 DCBMR1WD EQU DCBMACR2 00644000 DCBMRSWA EQU DCBMR1WD 00645000 DCBMRDMD EQU DCBMRSWA 00646000 IHADCS25 EQU 0 00647000 DCBMACRF EQU IHADCS25+2 00648000 DCBMACF1 EQU DCBMACRF 00649000 DCBMFFE EQU DCBMACF1 00650000 DCBMFGET EQU DCBMFFE 00651000 DCBMFAPG EQU DCBMACF1 00652000 DCBMFRD EQU DCBMFAPG 00653000 DCBMFCI EQU DCBMACF1 00654000 DCBMFMVG EQU DCBMFCI 00655000 DCBMFLCG EQU DCBMACF1 00656000 DCBMFABC EQU DCBMACF1 00657000 DCBMFPT1 EQU DCBMFABC 00658000 DCBMFSBG EQU DCBMFPT1 00659000 DCBMFCRL EQU DCBMACF1 00660000 DCBMFCHK EQU DCBMFCRL 00661000 DCBMFDMG EQU DCBMACF1 00662000 DCBMACF2 EQU DCBMACRF+1 00663000 DCBMFPUT EQU DCBMACF2 00664000 DCBMFWRT EQU DCBMACF2 00665000 DCBMFMVP EQU DCBMACF2 00666000 DCBMF5WD EQU DCBMACF2 00667000 DCBMFLDM EQU DCBMF5WD 00668000 DCBMFLCP EQU DCBMFLDM 00669000 DCBMF4WD EQU DCBMACF2 00670000 DCBMFPT2 EQU DCBMF4WD 00671000 DCBMFTMD EQU DCBMFPT2 00672000 DCBMF3WD EQU DCBMACF2 00673000 DCBMFCTL EQU DCBMF3WD 00674000 DCBMFSTK EQU DCBMFCTL 00675000 DCBMF1WD EQU DCBMACF2 00676000 DCBMFSWA EQU DCBMF1WD 00677000 DCBMFDMD EQU DCBMFSWA 00678000 DCBDEBAD EQU IHADCS25+4 00679000 DCBIFLGS EQU DCBDEBAD 00680000 IHADCS26 EQU 0 00681000 DCBWRITE EQU IHADCS26 00682000 DCBREAD EQU DCBWRITE 00683000 DCBWRITA EQU DCBREAD+1 00684000 IHADCS27 EQU 0 00685000 DCBGET EQU IHADCS27 00686000 DCBPUT EQU DCBGET 00687000 DCBGETA EQU DCBPUT+1 00688000 IHADCS36 EQU 0 00689000 DCBGERR EQU IHADCS36 00690000 DCBPERR EQU DCBGERR 00691000 DCBCHECK EQU DCBPERR 00692000 DCBOPTCD EQU DCBCHECK 00693000 DCBOPTH EQU DCBOPTCD 00694000 DCBOPTO EQU DCBOPTH 00695000 DCBOPTZ EQU DCBOPTCD 00696000 DCBGERRA EQU DCBCHECK+1 00697000 DCBPERRA EQU DCBGERRA 00698000 DCBSYNAD EQU IHADCS36+4 00699000 DCBCIND1 EQU IHADCS36+8 00700000 DCBCIND2 EQU IHADCS36+9 00701000 DCBIOBA EQU IHADCS36+16 00702000 DCBCICB EQU DCBIOBA 00703000 IHADCS52 EQU 0 00704000 DCBDIRCT EQU IHADCS52 00705000 DCBQSWS EQU DCBDIRCT 00706000 DCBUSASI EQU DCBQSWS 00707000 DCBQADFS EQU DCBUSASI 00708000 DCBBUFOF EQU DCBDIRCT+1 00709000 IHADCS37 EQU 0 00710000 DCBFLAG1 EQU IHADCS37 00711000 IHADCS38 EQU 0 00712000 DCBEOBR EQU IHADCS38 00713000 DCBPOINT EQU IHADCS38+12 00714000 DCBCNTRL EQU DCBPOINT 00715000 IHADCS40 EQU 0 00716000 DCBEOBAD EQU IHADCS40 00717000 DCBCCCW EQU IHADCS40+4 00718000 DCBRECAD EQU DCBCCCW 00719000 DCBRECBT EQU DCBRECAD 00720000 DCBRCREL EQU DCBRECBT 00721000 @NM00025 EQU IHADCS40+12 00722000 DCBEROPT EQU @NM00025 00723000 IOBPREFX EQU 0 00724000 IOBCFLG1 EQU IOBPREFX 00725000 IOBSTDRD EQU 0 00726000 IOBFLAG1 EQU IOBSTDRD 00727000 IOBCYCCK EQU IOBFLAG1 00728000 IOBRSTRT EQU IOBFLAG1 00729000 IOBFLAG2 EQU IOBSTDRD+1 00730000 IOBPURGE EQU IOBFLAG2 00731000 IOBRDHA0 EQU IOBFLAG2 00732000 IOBSENS0 EQU IOBSTDRD+2 00733000 IOBS0B7 EQU IOBSENS0 00734000 IOBSENS1 EQU IOBSTDRD+3 00735000 IOBECBPT EQU IOBSTDRD+4 00736000 IOBECBPB EQU IOBECBPT+1 00737000 IOBFLAG3 EQU IOBSTDRD+8 00738000 IOBFL3 EQU IOBFLAG3 00739000 IOBCSW EQU IOBSTDRD+9 00740000 IOBIOCSW EQU IOBCSW 00741000 IOBSTART EQU IOBSTDRD+16 00742000 IOBSTRTB EQU IOBSTART+1 00743000 IOBDCBPT EQU IOBSTDRD+20 00744000 IOBFLAG4 EQU IOBDCBPT 00745000 IOBRESTR EQU IOBSTDRD+24 00746000 IOBINCAM EQU IOBSTDRD+28 00747000 IOBBTAMF EQU IOBINCAM 00748000 DEBBASIC EQU 0 00749000 DEBTCBAD EQU DEBBASIC 00750000 DEBDEBAD EQU DEBBASIC+4 00751000 DEBIRBAD EQU DEBBASIC+8 00752000 DEBOFLGS EQU DEBIRBAD 00753000 DEBOPATB EQU DEBBASIC+12 00754000 DEBFLGS1 EQU DEBBASIC+14 00755000 DEBUSRPG EQU DEBBASIC+16 00756000 DEBRRQ EQU DEBBASIC+20 00757000 DEBECBAD EQU DEBRRQ 00758000 DEBDCBAD EQU DEBBASIC+24 00759000 DEBPROTG EQU DEBDCBAD 00760000 DEBAPPAD EQU DEBBASIC+28 00761000 DEBBASND EQU DEBBASIC+32 00762000 DEBDASD EQU 0 00763000 DEBUCBAD EQU DEBDASD 00764000 DEBACSMD EQU 0 00765000 DEBVOLSQ EQU DEBACSMD 00766000 DEBVOLBT EQU DEBVOLSQ 00767000 DEBDSNM EQU DEBACSMD+4 00768000 DEBUTSAA EQU DEBDSNM 00769000 DEBACS01 EQU 0 00770000 DEBDSNAM EQU DEBACS01 00771000 DEBACS02 EQU 0 00772000 DEBDBLK EQU DEBACS02 00773000 DEBACS03 EQU 0 00774000 DEBACS04 EQU 0 00775000 DEBTBFRA EQU DEBACS04 00776000 DEBTCCWA EQU DEBACS04+4 00777000 DEBACS05 EQU 0 00778000 DEBFUCBA EQU DEBACS05 00779000 DEBLUCBA EQU DEBACS05+4 00780000 DEBACS06 EQU 0 00781000 DEBACS07 EQU 0 00782000 DEBACS08 EQU 0 00783000 DEBSUBNM EQU 0 00784000 DEB EQU 0 00785000 DEBAVT EQU DEB 00786000 DEBEOEA EQU DEBAVT 00787000 DEBEOEAB EQU DEBEOEA 00788000 DEBSIOA EQU DEBAVT+4 00789000 DEBSIOAB EQU DEBSIOA 00790000 DEBPCIA EQU DEBAVT+8 00791000 DEBPCIAB EQU DEBPCIA 00792000 DEBCEA EQU DEBAVT+12 00793000 DEBCEAB EQU DEBCEA 00794000 DEBXCEA EQU DEBAVT+16 00795000 DEBXCEAB EQU DEBXCEA 00796000 DEBPREFX EQU DEB+20 00797000 DEBXTNP EQU DEBPREFX+8 00798000 DEBXTN EQU 0 00799000 DEBXFLG1 EQU DEBXTN+2 00800000 UCB EQU 0 00801000 UCBOB EQU 0 00802000 UCBJBNR EQU UCBOB 00803000 UCBFL5 EQU UCBOB+1 00804000 UCBAF EQU UCBFL5 00805000 UCBSTAT EQU UCBOB+3 00806000 UCBCHAN EQU UCBOB+4 00807000 UCBSFLS EQU UCBOB+6 00808000 UCBFLA EQU UCBSFLS 00809000 UCBFL1 EQU UCBFLA 00810000 UCBBSY EQU UCBFL1 00811000 UCBNRY EQU UCBFL1 00812000 UCBPST EQU UCBFL1 00813000 UCBCUB EQU UCBFL1 00814000 UCBFLB EQU UCBSFLS+1 00815000 UCBCHM EQU UCBOB+8 00816000 UCBCHM1 EQU UCBCHM 00817000 UCBPTH0 EQU UCBCHM1 00818000 UCBPTH1 EQU UCBCHM1 00819000 UCBWGT EQU UCBOB+12 00820000 UCBTYP EQU UCBOB+16 00821000 UCBTBYT1 EQU UCBTYP 00822000 UCB1FEA5 EQU UCBTBYT1 00823000 UCB1FEA6 EQU UCBTBYT1 00824000 UCBTBYT2 EQU UCBTYP+1 00825000 UCB2OPT2 EQU UCBTBYT2 00826000 UCBDUDN1 EQU UCB2OPT2 00827000 UCB2OPT3 EQU UCBTBYT2 00828000 UCBDUDN2 EQU UCB2OPT3 00829000 UCB2OPT4 EQU UCBTBYT2 00830000 UCBRWTAU EQU UCB2OPT4 00831000 UCB2OPT6 EQU UCBTBYT2 00832000 UCB2OPT7 EQU UCBTBYT2 00833000 UCBTBYT3 EQU UCBTYP+2 00834000 UCBDVCLS EQU UCBTBYT3 00835000 UCBTBYT4 EQU UCBTYP+3 00836000 UCBEXTPT EQU UCBOB+20 00837000 UCBFLC EQU UCBEXTPT 00838000 UCBDEV EQU UCBOB+24 00839000 UCBCMEXT EQU 0 00840000 UCBATI EQU UCBCMEXT+3 00841000 @NM00036 EQU UCBATI 00842000 UCBFLP1 EQU UCBCMEXT+5 00843000 UCBMT EQU 0 00844000 UCBOCR EQU 0 00845000 UCB3540X EQU 0 00846000 UCBVLSER EQU UCB3540X 00847000 UCBDKBYT EQU UCB3540X+6 00848000 UCBUCS EQU 0 00849000 UCBUCSOP EQU UCBUCS+4 00850000 UCBFCBOP EQU UCBUCS+5 00851000 AMWORKAR EQU 0 00852000 JAMWKAR EQU AMWORKAR+4 00853000 IOBNO EQU JAMWKAR 00854000 IOBPTR EQU JAMWKAR+1 00855000 CCWPTR EQU JAMWKAR+5 00856000 WORKAREA EQU JAMWKAR+16 00857000 REGSAVE EQU WORKAREA+28 00858000 AMW3540E EQU AMWORKAR+120 00859000 AMWEAMFG EQU AMW3540E+3 00860000 AMWDSOPN EQU AMWEAMFG 00861000 AMWEOD EQU AMW3540E+12 00862000 AMWBOE EQU AMWEOD 00863000 AMWEODRV EQU AMWBOE 00864000 AMWEODTT EQU AMWBOE+1 00865000 AMWEOD0 EQU AMWBOE+2 00866000 AMWEODSS EQU AMWBOE+3 00867000 ACB35EXT EQU AMWORKAR+136 00868000 ACBDSID EQU ACB35EXT 00869000 ACBVSSER EQU ACB35EXT+16 00870000 ACB35IND EQU ACB35EXT+22 00871000 ACBLRECL EQU AMWORKAR+162 00872000 EXLIST EQU AMWORKAR+164 00873000 EXLSYNP EQU EXLIST 00874000 EXLEODP EQU EXLIST+4 00875000 RPLFIELD EQU AMWORKAR+172 00876000 RPLRLEN EQU RPLFIELD 00877000 RPLAREA EQU RPLFIELD+4 00878000 PRLOPTBT EQU RPLFIELD+8 00879000 RPLEODS EQU PRLOPTBT 00880000 RPLFDBK EQU RPLFIELD+9 00881000 RPLFDB2 EQU RPLFDBK+1 00882000 SETDLIST EQU AMWORKAR+184 00883000 SETDOPCD EQU SETDLIST 00884000 SETDRTNC EQU SETDLIST+2 00885000 ERTNCDE EQU SETDRTNC 00886000 SETDDCB EQU SETDLIST+4 00887000 SETDDSID EQU SETDLIST+8 00888000 SETDWORK EQU AMWORKAR+200 00889000 SAVEREGS EQU SETDWORK+392 00890000 JAMCCW EQU 0 00891000 CCWCMDCD EQU JAMCCW 00892000 CCWDATAD EQU JAMCCW+1 00893000 CCWFLAGS EQU JAMCCW+4 00894000 CCWCOUNT EQU JAMCCW+6 00895000 USERAREA EQU 0 00896000 BUFRAREA EQU 0 00897000 NOOPCCW EQU 0 00898000 ECB EQU 0 00899000 ECBCMPL1 EQU ECB 00900000 ECBCOMP EQU ECBCMPL1 00901000 UCBBGN EQU 0 00902000 IOBORG01 EQU IOBPREFX+8 00903000 IOBNIOBA EQU IOBORG01 00904000 IOBNFLG1 EQU IOBNIOBA 00905000 IOBNIOBB EQU IOBNIOBA+1 00906000 IOBORG02 EQU IOBPREFX+8 00907000 IOBDQADA EQU IOBORG02 00908000 IOBDEQIN EQU IOBDQADA 00909000 IOBORG03 EQU IOBPREFX+12 00910000 IOBORG04 EQU IOBINCAM 00911000 IOBORG12 EQU IOBINCAM 00912000 IOBFL4 EQU IOBORG12 00913000 IOBEXTEN EQU IOBSTDRD+32 00914000 IOBSEEK EQU IOBEXTEN 00915000 IOBBB EQU IOBSEEK+1 00916000 IOBCC EQU IOBSEEK+3 00917000 IOBHH EQU IOBSEEK+5 00918000 IOBORG05 EQU IOBEXTEN 00919000 IOBORG06 EQU IOBEXTEN 00920000 IOBNXTPT EQU IOBORG06+4 00921000 IOBSTATA EQU IOBNXTPT 00922000 IOBORG07 EQU IOBEXTEN+8 00923000 W1IEXTEN EQU IOBORG07 00924000 IOBORG08 EQU IOBEXTEN+8 00925000 IOBINDCT EQU IOBORG08+4 00926000 IOBUNSQR EQU IOBORG08+5 00927000 IOBFCHAD EQU IOBORG08+8 00928000 IOBORG09 EQU IOBEXTEN+8 00929000 IOBDPLAD EQU IOBORG09+4 00930000 IOBDTYPE EQU IOBORG09+8 00931000 IOBDTYP2 EQU IOBORG09+9 00932000 IOBDSTAT EQU IOBORG09+10 00933000 IOBSTAT1 EQU IOBDSTAT 00934000 IOBORG10 EQU IOBEXTEN+8 00935000 IOBSEEK2 EQU IOBORG10 00936000 IOBORG11 EQU IOBEXTEN 00937000 IOBERCT EQU IOBORG11 00938000 IOBUCBXV EQU IOBERCT 00939000 IOBNAME EQU IOBORG11+4 00940000 IOBORG13 EQU IOBEXTEN 00941000 IOBSKADR EQU IOBORG13 00942000 IOBSKTT EQU IOBSKADR+1 00943000 DEBBAS02 EQU DEBBASND 00944000 DEBDDS1 EQU DEBBAS02 00945000 DEBSUCBA EQU DEBDDS1 00946000 DEBDEVED EQU DEBDDS1+4 00947000 DEBRDCB EQU DEBDDS1+4 00948000 DEBPDCB EQU DEBDDS1+8 00949000 DEBWDCB EQU DEBDDS1+12 00950000 DEBACS09 EQU DEBDEVED 00951000 DEBASC09 EQU DEBACS09 00952000 DEBEAMFG EQU DEBASC09+3 00953000 DEBDSID EQU DEBASC09+4 00954000 DEBEOD EQU DEBASC09+12 00955000 DEBBOE EQU DEBEOD 00956000 DEBEODRV EQU DEBBOE 00957000 DEBEODTT EQU DEBBOE+1 00958000 DEBEOD0 EQU DEBBOE+2 00959000 DEBEODSS EQU DEBBOE+3 00960000 DEBBAS01 EQU DEBBASND 00961000 DEBISAM EQU DEBBAS01 00962000 DEBFIEAD EQU DEBISAM 00963000 DEBFPEAD EQU DEBISAM+4 00964000 DEBFOEAD EQU DEBISAM+8 00965000 DEBEXPT EQU DEBISAM+12 00966000 DEBRPSID EQU DEBEXPT 00967000 UCBOBS01 EQU UCBDEV 00968000 UCBSTAB EQU UCBOBS01+10 00969000 UCBBSVL EQU UCBSTAB 00970000 UCBPRSRS EQU UCBSTAB 00971000 UCBDMCT EQU UCBOBS01+11 00972000 UCBFL4 EQU UCBOBS01+13 00973000 UCBOBS02 EQU UCBDEV 00974000 UCBTFL1 EQU UCBOBS02+19 00975000 UCBXTN EQU UCBOBS02+20 00976000 UCBVOPT EQU UCBXTN 00977000 UCBOBS03 EQU UCBDEV 00978000 UCBXTADR EQU UCBOBS03 00979000 UCBOBS04 EQU UCBDEV 00980000 UCBBTA EQU UCBOBS04+12 00981000 UCBOBS06 EQU UCBDEV 00982000 UCBAOF EQU UCBOBS06 00983000 UCBAOF1 EQU UCBAOF 00984000 UCBAOF2 EQU UCBAOF+1 00985000 @NM00035 EQU UCBOBS06+3 00986000 UCBIRB EQU UCBOBS06+4 00987000 UCBGRAF EQU UCBIRB 00988000 UCBLDNCA EQU UCBOBS06+8 00989000 UCBRDYQ EQU UCBLDNCA 00990000 UCBIRLN EQU UCBRDYQ 00991000 UCBLDNCB EQU UCBRDYQ+1 00992000 UCBCTLNK EQU UCBOBS06+12 00993000 UCBOBS07 EQU UCBDEV 00994000 UCBOBS08 EQU UCBDEV 00995000 UCBOBS09 EQU UCBDEV 00996000 DCBAMWRK EQU DCBIOBAD 00997000 @NM00049 EQU DCBAMWRK 00998000 DCBAMWKA EQU DCBAMWRK+1 00999000 GETPUTWK EQU WORKAREA 01000000 PARM EQU GETPUTWK 01001000 RPLRTN EQU GETPUTWK+1 01002000 RTNCD EQU RPLRTN 01003000 CNDCD2 EQU RPLRTN+2 01004000 DFNOPS EQU GETPUTWK+8 01005000 CCWCNT EQU DFNOPS 01006000 ALLOWOPS EQU DFNOPS+1 01007000 RLENGTH EQU DFNOPS+2 01008000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01009000 @NM00052 EQU GETPUTWK+4 01010000 CNDCD1 EQU RPLRTN+1 01011000 @NM00051 EQU GETPUTWK 01012000 DCBAMOUT EQU @NM00049 01013000 DCBAMIN EQU @NM00049 01014000 DCB3540A EQU @NM00049 01015000 @NM00050 EQU @NM00049 01016000 UCBRV066 EQU UCBOBS09+4 01017000 UCBIOSBA EQU UCBOBS09 01018000 UCBRV042 EQU UCBOBS08+5 01019000 UCBCTCF1 EQU UCBOBS08+4 01020000 UCBCTCAD EQU UCBOBS08 01021000 UCBICNCB EQU UCBOBS07+4 01022000 UCBRV040 EQU UCBOBS07 01023000 UCBCTLNA EQU UCBCTLNK+1 01024000 UCBRLN EQU UCBCTLNK 01025000 UCBRDYQA EQU UCBLDNCB 01026000 UCBINRLN EQU UCBIRLN 01027000 UCBIRBA EQU UCBIRB+1 01028000 UCBRV039 EQU UCBGRAF 01029000 UCBDWNR EQU UCBGRAF 01030000 UCBRPND EQU UCBGRAF 01031000 UCBUPM EQU UCBGRAF 01032000 UCBBTAM EQU UCBGRAF 01033000 UCBDRNO EQU UCBGRAF 01034000 UCBDRO EQU UCBGRAF 01035000 UCBOIP EQU UCBGRAF 01036000 UCBATRCD EQU @NM00035 01037000 UCBSKPFG EQU @NM00035 01038000 UCBRIPND EQU @NM00035 01039000 UCBRTIAC EQU @NM00035 01040000 UCBRSV79 EQU @NM00035 01041000 UCBRSV78 EQU @NM00035 01042000 UCBRSV77 EQU @NM00035 01043000 UCBOLTEP EQU @NM00035 01044000 UCBATNCT EQU UCBOBS06+2 01045000 UCBRSV76 EQU UCBAOF2 01046000 UCBRSV75 EQU UCBAOF2 01047000 UCBRSV74 EQU UCBAOF2 01048000 UCBRSV73 EQU UCBAOF2 01049000 UCBRSV72 EQU UCBAOF2 01050000 UCBRSV71 EQU UCBAOF2 01051000 UCBRSV70 EQU UCBAOF2 01052000 UCBRSV69 EQU UCBAOF2 01053000 UCBRSV68 EQU UCBAOF1 01054000 UCBRSV67 EQU UCBAOF1 01055000 UCBRSV66 EQU UCBAOF1 01056000 UCBRSV65 EQU UCBAOF1 01057000 UCBRSV64 EQU UCBAOF1 01058000 UCBOFNL EQU UCBAOF1 01059000 UCBOFSP EQU UCBAOF1 01060000 UCBOFMCR EQU UCBAOF1 01061000 UCBBTB EQU UCBBTA+1 01062000 UCBDI EQU UCBBTA 01063000 UCBSNS EQU UCBOBS04+8 01064000 UCBTEB EQU UCBOBS04+4 01065000 UCBGCB EQU UCBOBS04+3 01066000 UCBOPEN EQU UCBOBS04+2 01067000 UCBSTART EQU UCBOBS04 01068000 UCBXTNB EQU UCBXTN+1 01069000 UCBRSV22 EQU UCBVOPT 01070000 UCBRSV21 EQU UCBVOPT 01071000 UCBRSV20 EQU UCBVOPT 01072000 UCBESVE EQU UCBVOPT 01073000 UCBERPC EQU UCBVOPT 01074000 UCBESVC EQU UCBVOPT 01075000 UCBEVA EQU UCBVOPT 01076000 UCBESV EQU UCBVOPT 01077000 UCBRV009 EQU UCBTFL1 01078000 UCBRV008 EQU UCBTFL1 01079000 UCBRV007 EQU UCBTFL1 01080000 UCBRV006 EQU UCBTFL1 01081000 UCBRV005 EQU UCBTFL1 01082000 UCBRV038 EQU UCBTFL1 01083000 UCBNSLTP EQU UCBTFL1 01084000 UCBNLTP EQU UCBTFL1 01085000 UCBRES1B EQU UCBOBS02+18 01086000 UCBFSER EQU UCBOBS02+12 01087000 @NM00034 EQU UCBOBS02+4 01088000 UCBFSEQ EQU UCBOBS02+2 01089000 UCBFSCT EQU UCBOBS02 01090000 UCBNEXP EQU UCBOBS01+20 01091000 UCBBASE EQU UCBOBS01+16 01092000 UCBRES1A EQU UCBOBS01+15 01093000 UCBUSER EQU UCBOBS01+14 01094000 UCBFL47 EQU UCBFL4 01095000 UCBFL46 EQU UCBFL4 01096000 UCBFL45 EQU UCBFL4 01097000 UCBRV065 EQU UCBFL4 01098000 UCBDSS EQU UCBFL4 01099000 UCBRV028 EQU UCBFL4 01100000 UCBWDAV EQU UCBFL4 01101000 UCBDAVV EQU UCBFL4 01102000 UCBSQC EQU UCBOBS01+12 01103000 UCBDATP EQU UCBOBS01+12 01104000 UCBDMC EQU UCBDMCT 01105000 UCBMOUNT EQU UCBDMCT 01106000 UCBBNUL EQU UCBSTAB 01107000 UCBSHAR EQU UCBSTAB 01108000 UCBBSTR EQU UCBSTAB 01109000 UCBBPUB EQU UCBSTAB 01110000 UCBBPRV EQU UCBSTAB 01111000 UCBBALB EQU UCBPRSRS 01112000 UCBPGFL EQU UCBSTAB 01113000 UCBDVSHR EQU UCBBSVL 01114000 UCBVOLI EQU UCBOBS01+4 01115000 UCBVTOC EQU UCBOBS01 01116000 DEBEXPTA EQU DEBEXPT+1 01117000 DEBRSV12 EQU DEBRPSID 01118000 DEBRSV11 EQU DEBRPSID 01119000 DEBRSV10 EQU DEBRPSID 01120000 DEBRSV09 EQU DEBRPSID 01121000 DEBRPSAP EQU DEBRPSID 01122000 DEBRPSO EQU DEBRPSID 01123000 DEBRPSI EQU DEBRPSID 01124000 DEBRPSP EQU DEBRPSID 01125000 DEBFOEB EQU DEBFOEAD+1 01126000 DEBNOEE EQU DEBFOEAD 01127000 DEBFPEB EQU DEBFPEAD+1 01128000 DEBNPEE EQU DEBFPEAD 01129000 DEBFIEB EQU DEBFIEAD+1 01130000 DEBNIEE EQU DEBFIEAD 01131000 DEBBOESS EQU DEBEODSS 01132000 DEBBOE0 EQU DEBEOD0 01133000 DEBBOETT EQU DEBEODTT 01134000 DEBBOERV EQU DEBEODRV 01135000 DEBRV008 EQU DEBDSID+7 01136000 DEBWTPTI EQU DEBDSID+6 01137000 DEBEXDTE EQU DEBDSID 01138000 DEBRV007 EQU DEBEAMFG 01139000 DEBRV006 EQU DEBEAMFG 01140000 DEBRV005 EQU DEBEAMFG 01141000 DEBRV004 EQU DEBEAMFG 01142000 DEBSECVL EQU DEBEAMFG 01143000 DEBVAMSG EQU DEBEAMFG 01144000 DEBDSOPN EQU DEBEAMFG 01145000 DEBMULTI EQU DEBEAMFG 01146000 DEBVSEQU EQU DEBASC09+2 01147000 DEBDSSQL EQU DEBASC09+1 01148000 DEBVOLAC EQU DEBASC09 01149000 DEBWDCBA EQU DEBWDCB+1 01150000 DEBRSV08 EQU DEBWDCB 01151000 DEBPDCBA EQU DEBPDCB+1 01152000 DEBRSV07 EQU DEBPDCB 01153000 DEBRDCBA EQU DEBRDCB+1 01154000 DEBRSV06 EQU DEBRDCB 01155000 DEBSUCBB EQU DEBSUCBA+1 01156000 DEBSDVM EQU DEBSUCBA 01157000 IOBSKSS EQU IOBSKADR+3 01158000 IOBSK0 EQU IOBSKADR+2 01159000 IOBSKRV EQU IOBSKADR 01160000 IOBCSWSV EQU IOBORG11+17 01161000 IOBSENSV EQU IOBORG11+16 01162000 IOBRCD EQU IOBORG11+12 01163000 IOBMDREC EQU IOBORG11+8 01164000 IOBNAMEA EQU IOBNAME+1 01165000 IOBNAMSZ EQU IOBNAME 01166000 IOBERCTA EQU IOBERCT+1 01167000 IOBRTYPE EQU IOBUCBXV 01168000 IOBRDCHP EQU IOBORG10+20 01169000 IOBNEXTA EQU IOBORG10+16 01170000 IOBREADA EQU IOBORG10+12 01171000 IOBBUFC EQU IOBORG10+8 01172000 IOBSK2R EQU IOBSEEK2+7 01173000 IOBSK2HH EQU IOBSEEK2+5 01174000 IOBSK2CC EQU IOBSEEK2+3 01175000 IOBSK2BB EQU IOBSEEK2+1 01176000 IOBSK2M EQU IOBSEEK2 01177000 IOBCHNPR EQU IOBORG09+40 01178000 IOBDNCRF EQU IOBORG09+32 01179000 IOBRSV35 EQU IOBORG09+24 01180000 IOBDQPTR EQU IOBORG09+20 01181000 IOBRSV34 EQU IOBORG09+18 01182000 IOBDBYTN EQU IOBORG09+16 01183000 IOBDCPND EQU IOBORG09+12 01184000 IOBSTAT2 EQU IOBDSTAT+1 01185000 IOBSIORT EQU IOBSTAT1 01186000 IOBADDVU EQU IOBSTAT1 01187000 IOBBUFF EQU IOBSTAT1 01188000 IOBENQUE EQU IOBSTAT1 01189000 IOBPASS2 EQU IOBSTAT1 01190000 IOBSYNCH EQU IOBSTAT1 01191000 IOBNEWVL EQU IOBSTAT1 01192000 IOBABNRM EQU IOBSTAT1 01193000 IOBRELEX EQU IOBDTYP2 01194000 IOBADDTY EQU IOBDTYP2 01195000 IOBTYPE EQU IOBDTYP2 01196000 IOBRQUST EQU IOBDTYP2 01197000 IOBSUFFX EQU IOBDTYP2 01198000 IOBSBLKL EQU IOBDTYP2 01199000 IOBSKEY EQU IOBDTYP2 01200000 IOBRELBL EQU IOBDTYPE 01201000 IOBRDEXC EQU IOBDTYPE 01202000 IOBDYNBF EQU IOBDTYPE 01203000 IOBACTAD EQU IOBDTYPE 01204000 IOBFDBCK EQU IOBDTYPE 01205000 IOBEXTSC EQU IOBDTYPE 01206000 IOBOVFLO EQU IOBDTYPE 01207000 IOBVERFY EQU IOBDTYPE 01208000 IOBDPLB EQU IOBDPLAD+1 01209000 IOBDAYLI EQU IOBDPLAD 01210000 IOBDIOBS EQU IOBORG09+2 01211000 IOBDBYTR EQU IOBORG09 01212000 IOBBCHAD EQU IOBORG08+12 01213000 IOBFCHNB EQU IOBFCHAD+1 01214000 IOBCOUNT EQU IOBFCHAD 01215000 IOBASYN EQU IOBORG08+7 01216000 IOBAPP EQU IOBORG08+6 01217000 IOBRSV32 EQU IOBUNSQR 01218000 IOBRSV31 EQU IOBUNSQR 01219000 IOBRSV30 EQU IOBUNSQR 01220000 IOBKNRWR EQU IOBUNSQR 01221000 IOBKNWR EQU IOBUNSQR 01222000 IOBNTAV2 EQU IOBUNSQR 01223000 IOBNTAV1 EQU IOBUNSQR 01224000 IOBCPBSY EQU IOBUNSQR 01225000 IOBCHNNL EQU IOBINDCT 01226000 IOBRSV29 EQU IOBINDCT 01227000 IOBRSV28 EQU IOBINDCT 01228000 IOBRSV27 EQU IOBINDCT 01229000 IOBKEYAD EQU IOBINDCT 01230000 IOBOVPTR EQU IOBINDCT 01231000 IOBUNSCH EQU IOBINDCT 01232000 IOBDEQCP EQU IOBINDCT 01233000 IOBCCWAD EQU IOBORG08 01234000 W1OEXTEN EQU W1IEXTEN 01235000 IOBCCW EQU IOBORG06+8 01236000 IOBNXTPB EQU IOBNXTPT+1 01237000 IOBRSV26 EQU IOBSTATA 01238000 IOBRSV25 EQU IOBSTATA 01239000 IOBRSV24 EQU IOBSTATA 01240000 IOBRSV23 EQU IOBSTATA 01241000 IOBRSV22 EQU IOBSTATA 01242000 IOBRSV21 EQU IOBSTATA 01243000 IOBRSV20 EQU IOBSTATA 01244000 IOBAVLFL EQU IOBSTATA 01245000 IOBRSV37 EQU IOBORG06+1 01246000 IOBUCBXG EQU IOBORG06 01247000 IOBCPA EQU IOBORG05+32 01248000 IOBERINF EQU IOBORG05+16 01249000 IOBERCCW EQU IOBORG05+8 01250000 IOBSNDPT EQU IOBORG05+7 01251000 IOBRCVPT EQU IOBORG05+6 01252000 IOBWORK EQU IOBORG05+1 01253000 IOBUCBX EQU IOBORG05 01254000 IOBR EQU IOBSEEK+7 01255000 IOBHH2 EQU IOBHH+1 01256000 IOBHH1 EQU IOBHH 01257000 IOBCC2 EQU IOBCC+1 01258000 IOBCC1 EQU IOBCC 01259000 IOBBB2 EQU IOBBB+1 01260000 IOBBB1 EQU IOBBB 01261000 IOBM EQU IOBSEEK 01262000 IOBRSV46 EQU IOBFL4 01263000 IOBRSV47 EQU IOBFL4 01264000 IOBENT EQU IOBFL4 01265000 IOBEQP EQU IOBFL4 01266000 IOBBUS EQU IOBFL4 01267000 IOBDCK EQU IOBFL4 01268000 IOBREJ EQU IOBFL4 01269000 IOBOVR EQU IOBFL4 01270000 IOBCRILC EQU IOBORG04+1 01271000 IOBCRDCC EQU IOBORG04 01272000 IOBGQECB EQU IOBORG03 01273000 IOBSWAP EQU IOBORG02+4 01274000 IOBDQADB EQU IOBDQADA+1 01275000 IOBRSV13 EQU IOBDEQIN 01276000 IOBRSV12 EQU IOBDEQIN 01277000 IOBRSV11 EQU IOBDEQIN 01278000 IOBRSV10 EQU IOBDEQIN 01279000 IOBRSV09 EQU IOBDEQIN 01280000 IOBRSV08 EQU IOBDEQIN 01281000 IOBRSV07 EQU IOBDEQIN 01282000 IOBDEQ EQU IOBDEQIN 01283000 IOBNECB EQU IOBORG01+4 01284000 IOBFIRST EQU IOBNFLG1 01285000 IOBUPERR EQU IOBNFLG1 01286000 IOBSPAN EQU IOBNFLG1 01287000 IOBBKSPC EQU IOBNFLG1 01288000 IOBUPDAT EQU IOBNFLG1 01289000 IOBREAD EQU IOBNFLG1 01290000 IOBWRITE EQU IOBNFLG1 01291000 IOBPRTOV EQU IOBNFLG1 01292000 ECBCMPL2 EQU ECB+1 01293000 ECBCMPCD EQU ECBCMPL1 01294000 ECBWAIT EQU ECBCMPL1 01295000 @NM00048 EQU JAMCCW+5 01296000 @NM00047 EQU CCWFLAGS 01297000 CCWPCI EQU CCWFLAGS 01298000 CCWSKIP EQU CCWFLAGS 01299000 CCWSLI EQU CCWFLAGS 01300000 CCWCC EQU CCWFLAGS 01301000 CCWCD EQU CCWFLAGS 01302000 BUFFER2 EQU AMWORKAR+4488 01303000 CCWS2 EQU AMWORKAR+4256 01304000 IOB2 EQU AMWORKAR+4208 01305000 BUFFER1 EQU AMWORKAR+880 01306000 CCWS1 EQU AMWORKAR+648 01307000 IOB1 EQU AMWORKAR+600 01308000 R14SAVE EQU SAVEREGS+4 01309000 R13SAVE EQU SAVEREGS 01310000 @NM00046 EQU SETDWORK 01311000 ERTNCDQL EQU SETDRTNC+1 01312000 SETDVERY EQU SETDLIST+1 01313000 @NM00045 EQU RPLFDBK+2 01314000 @NM00044 EQU RPLFDBK 01315000 @NM00043 EQU PRLOPTBT 01316000 @NM00042 EQU AMWORKAR+160 01317000 @NM00041 EQU ACB35IND 01318000 ACBSECUR EQU ACB35IND 01319000 ACBFEED EQU ACB35IND 01320000 ACBJOBID EQU ACB35EXT+8 01321000 AMWBOESS EQU AMWEODSS 01322000 AMWBOE0 EQU AMWEOD0 01323000 AMWBOETT EQU AMWEODTT 01324000 AMWBOERV EQU AMWEODRV 01325000 AMWDSID EQU AMW3540E+4 01326000 @NM00040 EQU AMWEAMFG 01327000 AMWVAMSG EQU AMWEAMFG 01328000 AMWMULTI EQU AMWEAMFG 01329000 AMWVSEQU EQU AMW3540E+2 01330000 AMWDSSQL EQU AMW3540E+1 01331000 AMWVOLAC EQU AMW3540E 01332000 WORKBSL EQU WORKAREA 01333000 IOBBFLN EQU JAMWKAR+13 01334000 @NM00039 EQU JAMWKAR+12 01335000 IOB1ADDR EQU JAMWKAR+9 01336000 @NM00038 EQU JAMWKAR+8 01337000 @NM00037 EQU JAMWKAR+4 01338000 AMWLEN EQU AMWORKAR 01339000 UCBERADR EQU UCBUCS+12 01340000 UCBFCBID EQU UCBUCS+8 01341000 UCBERCNT EQU UCBUCS+7 01342000 UCBRSV51 EQU UCBUCS+6 01343000 UCBRSV50 EQU UCBFCBOP 01344000 UCBRSV49 EQU UCBFCBOP 01345000 UCBRSV48 EQU UCBFCBOP 01346000 UCBRSV47 EQU UCBFCBOP 01347000 UCBRSV46 EQU UCBFCBOP 01348000 UCBRSV45 EQU UCBFCBOP 01349000 UCBRSV44 EQU UCBFCBOP 01350000 UCBFCBO1 EQU UCBFCBOP 01351000 UCBUCSPE EQU UCBUCSOP 01352000 UCBRSV43 EQU UCBUCSOP 01353000 UCBRSV42 EQU UCBUCSOP 01354000 UCBRSV41 EQU UCBUCSOP 01355000 UCBRSV40 EQU UCBUCSOP 01356000 UCBRSV39 EQU UCBUCSOP 01357000 UCBUCSO2 EQU UCBUCSOP 01358000 UCBUCSO1 EQU UCBUCSOP 01359000 UCBUCSID EQU UCBUCS 01360000 UCBRV073 EQU UCB3540X+7 01361000 UCBRV072 EQU UCBDKBYT 01362000 UCBRV071 EQU UCBDKBYT 01363000 UCBRV070 EQU UCBDKBYT 01364000 UCBRV069 EQU UCBDKBYT 01365000 UCBRV068 EQU UCBDKBYT 01366000 UCBRV067 EQU UCBDKBYT 01367000 UCBVLVER EQU UCBDKBYT 01368000 UCBDKAMX EQU UCBDKBYT 01369000 UCBRDATA EQU UCBOCR+4 01370000 UCBFRID EQU UCBOCR 01371000 UCBCLN EQU UCBMT+14 01372000 UCBERG EQU UCBMT+12 01373000 UCBMS EQU UCBMT+11 01374000 UCBNB EQU UCBMT+10 01375000 UCBPW EQU UCBMT+9 01376000 UCBPR EQU UCBMT+8 01377000 UCBSIO EQU UCBMT+6 01378000 UCBTW EQU UCBMT+5 01379000 UCBTR EQU UCBMT+4 01380000 UCBTWT EQU UCBMT+3 01381000 UCBTRT EQU UCBMT+2 01382000 UCBCTD EQU UCBMT 01383000 UCBWTOID EQU UCBCMEXT+17 01384000 UCBRV043 EQU UCBCMEXT+16 01385000 UCBASID EQU UCBCMEXT+14 01386000 UCBMFCNT EQU UCBCMEXT+12 01387000 UCBPMSK EQU UCBCMEXT+10 01388000 UCBCCWOF EQU UCBCMEXT+8 01389000 UCBRV041 EQU UCBCMEXT+6 01390000 UCBRV036 EQU UCBFLP1 01391000 UCBRV035 EQU UCBFLP1 01392000 UCBRV034 EQU UCBFLP1 01393000 UCBRV033 EQU UCBFLP1 01394000 UCBRV032 EQU UCBFLP1 01395000 UCBRV031 EQU UCBFLP1 01396000 UCBSHRUP EQU UCBFLP1 01397000 UCBNSRCH EQU UCBFLP1 01398000 UCBSNSCT EQU UCBCMEXT+4 01399000 UCBHPDV EQU @NM00036 01400000 UCBHALI EQU @NM00036 01401000 UCBRSV09 EQU @NM00036 01402000 UCBRSV08 EQU @NM00036 01403000 UCBRSV07 EQU @NM00036 01404000 UCBRSV06 EQU @NM00036 01405000 UCBRSV05 EQU @NM00036 01406000 UCBRSV04 EQU @NM00036 01407000 UCBDTI EQU UCBCMEXT+2 01408000 UCBSTI EQU UCBCMEXT+1 01409000 UCBETI EQU UCBCMEXT 01410000 UCBEXTP EQU UCBEXTPT+1 01411000 UCBDDRSW EQU UCBFLC 01412000 UCBTICBT EQU UCBFLC 01413000 UCBIVRR EQU UCBFLC 01414000 UCBIVRS EQU UCBFLC 01415000 UCBITF EQU UCBFLC 01416000 UCBUDE EQU UCBFLC 01417000 UCBWAA EQU UCBFLC 01418000 UCBATTP EQU UCBFLC 01419000 UCBUNTYP EQU UCBTBYT4 01420000 UCBRSV11 EQU UCBDVCLS 01421000 UCBRSV10 EQU UCBDVCLS 01422000 UCB3CHAR EQU UCBDVCLS 01423000 UCB3UREC EQU UCBDVCLS 01424000 UCB3DISP EQU UCBDVCLS 01425000 UCB3DACC EQU UCBDVCLS 01426000 UCB3COMM EQU UCBDVCLS 01427000 UCB3TAPE EQU UCBDVCLS 01428000 UCBDVPWR EQU UCB2OPT7 01429000 UCBVLPWR EQU UCB2OPT6 01430000 UCB2OPT5 EQU UCBTBYT2 01431000 UCBRVDEV EQU UCBRWTAU 01432000 UCBRPS EQU UCBDUDN2 01433000 UCBRR EQU UCBDUDN1 01434000 UCB2OPT1 EQU UCBTBYT2 01435000 UCB2OPT0 EQU UCBTBYT2 01436000 UCB1FEA7 EQU UCBTBYT1 01437000 UCBD6250 EQU UCB1FEA6 01438000 UCBD1600 EQU UCB1FEA5 01439000 UCB1FEA4 EQU UCBTBYT1 01440000 UCB1FEA3 EQU UCBTBYT1 01441000 UCB1FEA2 EQU UCBTBYT1 01442000 UCB1FEA1 EQU UCBTBYT1 01443000 UCB1FEA0 EQU UCBTBYT1 01444000 UCBNAME EQU UCBOB+13 01445000 UCBRV029 EQU UCBWGT 01446000 UCBVHRSN EQU UCBWGT 01447000 UCBVORSN EQU UCBWGT 01448000 UCBMTPXP EQU UCBWGT 01449000 UCBREW EQU UCBWGT 01450000 UCBPUB EQU UCBWGT 01451000 UCBOUT EQU UCBWGT 01452000 UCBIN EQU UCBWGT 01453000 UCBCPU EQU UCBOB+11 01454000 UCBLCI EQU UCBOB+10 01455000 UCBCNT EQU UCBOB+9 01456000 UCBRV017 EQU UCBCHM1 01457000 UCBRV016 EQU UCBCHM1 01458000 UCBRV015 EQU UCBCHM1 01459000 UCBRV014 EQU UCBCHM1 01460000 UCBSPB EQU UCBPTH1 01461000 UCBPPB EQU UCBPTH1 01462000 UCBSPA EQU UCBPTH0 01463000 UCBPPA EQU UCBPTH0 01464000 UCBFLB7 EQU UCBFLB 01465000 UCBVALPH EQU UCBFLB 01466000 UCBCRHSN EQU UCBFLB 01467000 UCBCRHRV EQU UCBFLB 01468000 UCBRESVH EQU UCBFLB 01469000 UCBSPST EQU UCBFLB 01470000 UCBASNS EQU UCBFLB 01471000 UCBIORST EQU UCBFLB 01472000 UCBQISCE EQU UCBFL1 01473000 UCBACTV EQU UCBFL1 01474000 UCBSAP EQU UCBFL1 01475000 UCBNOTRC EQU UCBCUB 01476000 UCBPSNS EQU UCBFL1 01477000 UCBUSING EQU UCBPST 01478000 UCBNOTRD EQU UCBNRY 01479000 UCBBUSYD EQU UCBBSY 01480000 UCBUA EQU UCBCHAN+1 01481000 UCBCHA EQU UCBCHAN 01482000 UCBDADI EQU UCBSTAT 01483000 UCBSYSR EQU UCBSTAT 01484000 UCBPRES EQU UCBSTAT 01485000 UCBALOC EQU UCBSTAT 01486000 UCBUNLD EQU UCBSTAT 01487000 UCBRESV EQU UCBSTAT 01488000 UCBCHGS EQU UCBSTAT 01489000 UCBONLI EQU UCBSTAT 01490000 UCBID EQU UCBOB+2 01491000 UCBALTPH EQU UCBFL5 01492000 UCBALTCU EQU UCBFL5 01493000 UCBNALOC EQU UCBFL5 01494000 UCBENVRD EQU UCBFL5 01495000 UCBVSDR EQU UCBFL5 01496000 UCBSASK EQU UCBFL5 01497000 UCBAMV EQU UCBAF 01498000 UCBDCC EQU UCBFL5 01499000 UCBMONT EQU UCBJBNR 01500000 UCBRV011 EQU UCBJBNR 01501000 UCBRSV02 EQU UCBJBNR 01502000 UCBOLDSM EQU UCBJBNR 01503000 UCBRV003 EQU UCBJBNR 01504000 UCBRV002 EQU UCBJBNR 01505000 UCBJES3 EQU UCBJBNR 01506000 UCBVRDEV EQU UCBJBNR 01507000 UCBCMSEG EQU UCBOB 01508000 UCBPFXND EQU UCB+512 01509000 UCBIOQ EQU UCB+508 01510000 UCBLOCK EQU UCB+504 01511000 UCBPXST EQU UCB+504 01512000 @NM00033 EQU UCB 01513000 DEBXRV40 EQU DEBXTN+28 01514000 DEBXRV39 EQU DEBXTN+24 01515000 DEBXXARG EQU DEBXTN+20 01516000 DEBXMCF2 EQU DEBXTN+19 01517000 DEBXMCF1 EQU DEBXTN+18 01518000 DEBXDSO2 EQU DEBXTN+17 01519000 DEBXDSO1 EQU DEBXTN+16 01520000 DEBXDBPR EQU DEBXTN+12 01521000 DEBXDCBM EQU DEBXTN+8 01522000 DEBXDSAB EQU DEBXTN+4 01523000 DEBXRV48 EQU DEBXTN+3 01524000 DEBXRV47 EQU DEBXFLG1 01525000 DEBXRV46 EQU DEBXFLG1 01526000 DEBXRV45 EQU DEBXFLG1 01527000 DEBXRV44 EQU DEBXFLG1 01528000 DEBXRV43 EQU DEBXFLG1 01529000 DEBXRV42 EQU DEBXFLG1 01530000 DEBXTSKC EQU DEBXFLG1 01531000 DEBXCDCB EQU DEBXFLG1 01532000 DEBXLNGH EQU DEBXTN 01533000 DEBTBLOF EQU DEBPREFX+14 01534000 DEBAMTYP EQU DEBPREFX+13 01535000 DEBLNGTH EQU DEBPREFX+12 01536000 DEBDCBMK EQU DEBXTNP 01537000 DEBDSCBA EQU DEBPREFX+1 01538000 DEBWKARA EQU DEBPREFX 01539000 DEBXCEAD EQU DEBXCEA+1 01540000 DEBXCENP EQU DEBXCEAB 01541000 DEBRSV35 EQU DEBXCEAB 01542000 DEBRSV34 EQU DEBXCEAB 01543000 DEBRSV33 EQU DEBXCEAB 01544000 DEBRSV32 EQU DEBXCEAB 01545000 DEBCEAD EQU DEBCEA+1 01546000 DEBCENP EQU DEBCEAB 01547000 DEBRSV31 EQU DEBCEAB 01548000 DEBRSV30 EQU DEBCEAB 01549000 DEBRSV29 EQU DEBCEAB 01550000 DEBRSV28 EQU DEBCEAB 01551000 DEBPCIAD EQU DEBPCIA+1 01552000 DEBPCINP EQU DEBPCIAB 01553000 DEBRSV27 EQU DEBPCIAB 01554000 DEBRSV26 EQU DEBPCIAB 01555000 DEBRSV25 EQU DEBPCIAB 01556000 DEBRSV24 EQU DEBPCIAB 01557000 DEBSIOAD EQU DEBSIOA+1 01558000 DEBSIONP EQU DEBSIOAB 01559000 DEBFIX EQU DEBSIOAB 01560000 DEBIOVR EQU DEBSIOAB 01561000 DEBSIOX EQU DEBSIOAB 01562000 DEBPGFX EQU DEBSIOAB 01563000 DEBEOEAD EQU DEBEOEA+1 01564000 DEBEOENP EQU DEBEOEAB 01565000 DEBRSV22 EQU DEBEOEAB 01566000 DEBRSV21 EQU DEBEOEAB 01567000 DEBRSV20 EQU DEBEOEAB 01568000 DEBRSV19 EQU DEBEOEAB 01569000 DEBSUBID EQU DEBSUBNM 01570000 DEBSIOA2 EQU DEBACS08+24 01571000 DEBRPSIO EQU DEBACS08+20 01572000 DEBFREED EQU DEBACS08+16 01573000 @NM00032 EQU DEBACS08+12 01574000 @NM00031 EQU DEBACS08+8 01575000 DEBDISAD EQU DEBACS08+4 01576000 @NM00030 EQU DEBACS08 01577000 DEBRPSST EQU DEBACS07+64 01578000 DEBARECK EQU DEBACS07+60 01579000 DEBAREWT EQU DEBACS07+56 01580000 DEBACHK EQU DEBACS07+52 01581000 DEBAWRIT EQU DEBACS07+48 01582000 DEBASETL EQU DEBACS07+44 01583000 DEBAREAD EQU DEBACS07+40 01584000 DEBCRECK EQU DEBACS07+36 01585000 DEBCREWT EQU DEBACS07+32 01586000 DEBCCHK EQU DEBACS07+28 01587000 DEBCWRIT EQU DEBACS07+24 01588000 DEBCSETL EQU DEBACS07+20 01589000 DEBCREAD EQU DEBACS07+16 01590000 DEBWKPT5 EQU DEBACS07+12 01591000 DEBWKPT4 EQU DEBACS07+8 01592000 DEBGET EQU DEBACS07+4 01593000 @NM00029 EQU DEBACS07 01594000 DEBPUT EQU DEBACS06+4 01595000 DEBDCBFA EQU DEBACS06 01596000 DEBLUCBB EQU DEBLUCBA+1 01597000 DEBRSV18 EQU DEBLUCBA 01598000 DEBFUCBB EQU DEBFUCBA+1 01599000 DEBRSV17 EQU DEBFUCBA 01600000 DEBTCCWB EQU DEBTCCWA+1 01601000 DEBRSV16 EQU DEBTCCWA 01602000 DEBTBFRB EQU DEBTBFRA+1 01603000 DEBRSV15 EQU DEBTBFRA 01604000 DEBDBPEF EQU DEBACS03+8 01605000 DEBDBPP EQU DEBACS03+4 01606000 DEBDTPP EQU DEBACS03 01607000 DEBDBPE EQU DEBDBLK+1 01608000 DEBDBPT EQU DEBDBLK 01609000 DEBEXTNM EQU DEBDSNAM 01610000 DEBRSV14 EQU DEBDSNM+4 01611000 DEBUTSAB EQU DEBUTSAA+1 01612000 DEBRSV13 EQU DEBUTSAA 01613000 DEBVOLNM EQU DEBACSMD+2 01614000 DEBVLSEQ EQU DEBVOLSQ+1 01615000 DEBRSV42 EQU DEBVOLBT 01616000 DEBRSV41 EQU DEBVOLBT 01617000 DEBRSV40 EQU DEBVOLBT 01618000 DEBRSV39 EQU DEBVOLBT 01619000 DEBRSV38 EQU DEBVOLBT 01620000 DEBRSV37 EQU DEBVOLBT 01621000 DEBRSV36 EQU DEBVOLBT 01622000 DEBEXFUL EQU DEBVOLBT 01623000 DEBNMTRK EQU DEBDASD+14 01624000 DEBENDHH EQU DEBDASD+12 01625000 DEBENDCC EQU DEBDASD+10 01626000 DEBSTRHH EQU DEBDASD+8 01627000 DEBSTRCC EQU DEBDASD+6 01628000 DEBBINUM EQU DEBDASD+4 01629000 DEBUCBA EQU DEBUCBAD+1 01630000 DEBDVMOD EQU DEBUCBAD 01631000 DEBAPPB EQU DEBAPPAD+1 01632000 DEBEXSCL EQU DEBAPPAD 01633000 DEBDCBB EQU DEBDCBAD+1 01634000 DEBDEBID EQU DEBPROTG 01635000 DEBECBB EQU DEBECBAD+1 01636000 DEBPRIOR EQU DEBECBAD 01637000 DEBUSRPB EQU DEBUSRPG+1 01638000 DEBNMEXT EQU DEBUSRPG 01639000 DEBRSV05 EQU DEBBASIC+15 01640000 DEBXTNIN EQU DEBFLGS1 01641000 DEBAPFIN EQU DEBFLGS1 01642000 DEBF1CEV EQU DEBFLGS1 01643000 DEBCINDI EQU DEBFLGS1 01644000 DEBRSV02 EQU DEBFLGS1 01645000 DEBRSIOA EQU DEBFLGS1 01646000 DEBEOFDF EQU DEBFLGS1 01647000 DEBPWCKD EQU DEBFLGS1 01648000 DEBQSCNT EQU DEBBASIC+13 01649000 DEBACCS EQU DEBOPATB 01650000 DEBPOSIT EQU DEBOPATB 01651000 DEBZERO EQU DEBOPATB 01652000 DEBABEND EQU DEBOPATB 01653000 DEBIRBB EQU DEBIRBAD+1 01654000 DEBRERR EQU DEBOFLGS 01655000 DEBLABEL EQU DEBOFLGS 01656000 DEBSPLIT EQU DEBOFLGS 01657000 DEBDCB EQU DEBOFLGS 01658000 DEBRLSE EQU DEBOFLGS 01659000 DEBEOF EQU DEBOFLGS 01660000 DEBDISP EQU DEBOFLGS 01661000 DEBDEBB EQU DEBDEBAD+1 01662000 DEBAMLNG EQU DEBDEBAD 01663000 DEBTCBB EQU DEBTCBAD+1 01664000 DEBNMSUB EQU DEBTCBAD 01665000 IOBERRCT EQU IOBSTDRD+30 01666000 IOBRSV19 EQU IOBINCAM+1 01667000 IOBOLTST EQU IOBBTAMF 01668000 IOBRFTMG EQU IOBBTAMF 01669000 IOBRSV17 EQU IOBBTAMF 01670000 IOBRSV16 EQU IOBBTAMF 01671000 IOBRSV15 EQU IOBBTAMF 01672000 IOBRSV14 EQU IOBBTAMF 01673000 IOBINUSE EQU IOBBTAMF 01674000 IOBPRMER EQU IOBBTAMF 01675000 IOBRSTRB EQU IOBRESTR+1 01676000 IOBREPOS EQU IOBRESTR 01677000 IOBDCBPB EQU IOBDCBPT+1 01678000 IOBRSV44 EQU IOBFLAG4 01679000 IOBJES3I EQU IOBFLAG4 01680000 IOBRSV42 EQU IOBFLAG4 01681000 IOBRSV41 EQU IOBFLAG4 01682000 IOBRSV40 EQU IOBFLAG4 01683000 IOBPMERR EQU IOBFLAG4 01684000 IOBCC3WE EQU IOBFLAG4 01685000 IOBGDPOL EQU IOBFLAG4 01686000 IOBSIOCC EQU IOBSTART 01687000 IOBSTBYT EQU IOBIOCSW+3 01688000 IOBCMDA EQU IOBIOCSW 01689000 IOBLOG EQU IOBFL3 01690000 IOBICL EQU IOBFL3 01691000 IOBMSG EQU IOBFL3 01692000 IOBCNC EQU IOBFL3 01693000 IOBACU EQU IOBFL3 01694000 IOBCDC EQU IOBFL3 01695000 IOBICC EQU IOBFL3 01696000 IOBCCC EQU IOBFL3 01697000 IOBECBCC EQU IOBECBPT 01698000 IOBS1B7 EQU IOBSENS1 01699000 IOBS1B6 EQU IOBSENS1 01700000 IOBS1B5 EQU IOBSENS1 01701000 IOBS1B4 EQU IOBSENS1 01702000 IOBS1B3 EQU IOBSENS1 01703000 IOBS1B2 EQU IOBSENS1 01704000 IOBS1B1 EQU IOBSENS1 01705000 IOBS1B0 EQU IOBSENS1 01706000 IOBSNSC9 EQU IOBS0B7 01707000 IOBS0B6 EQU IOBSENS0 01708000 IOBS0B5 EQU IOBSENS0 01709000 IOBS0B4 EQU IOBSENS0 01710000 IOBS0B3 EQU IOBSENS0 01711000 IOBS0B2 EQU IOBSENS0 01712000 IOBS0B1 EQU IOBSENS0 01713000 IOBS0B0 EQU IOBSENS0 01714000 IOBPNCH EQU IOBFLAG2 01715000 IOBSTATO EQU IOBFLAG2 01716000 IOBSKUPD EQU IOBFLAG2 01717000 IOBALTTR EQU IOBFLAG2 01718000 IOBRRT2 EQU IOBRDHA0 01719000 IOBRRT3 EQU IOBPURGE 01720000 IOBSENSE EQU IOBFLAG2 01721000 IOBHALT EQU IOBFLAG2 01722000 IOBSPSVC EQU IOBRSTRT 01723000 IOBUNREL EQU IOBFLAG1 01724000 IOBIOERR EQU IOBFLAG1 01725000 IOBFCREX EQU IOBCYCCK 01726000 IOBRPSTN EQU IOBFLAG1 01727000 IOBERRTN EQU IOBFLAG1 01728000 IOBCMDCH EQU IOBFLAG1 01729000 IOBDATCH EQU IOBFLAG1 01730000 IOBCNOPA EQU IOBPREFX+12 01731000 IOBCICB EQU IOBPREFX+8 01732000 IOBCECB EQU IOBPREFX+4 01733000 IOBCONOP EQU IOBPREFX+3 01734000 IOBCINOP EQU IOBPREFX+2 01735000 IOBRSV05 EQU IOBPREFX+1 01736000 IOBPCI EQU IOBCFLG1 01737000 IOBRSTCH EQU IOBCFLG1 01738000 IOBABAPP EQU IOBCFLG1 01739000 IOBPTST EQU IOBCFLG1 01740000 IOBRSV04 EQU IOBCFLG1 01741000 IOBRSV03 EQU IOBCFLG1 01742000 IOBRSV02 EQU IOBCFLG1 01743000 IOBRSV01 EQU IOBCFLG1 01744000 DCBEOB EQU IHADCS40+20 01745000 DCBPRECL EQU IHADCS40+18 01746000 @NM00028 EQU IHADCS40+16 01747000 @NM00027 EQU @NM00025+1 01748000 @NM00026 EQU DCBEROPT 01749000 DCBERABE EQU DCBEROPT 01750000 DCBERSKP EQU DCBEROPT 01751000 DCBERACC EQU DCBEROPT 01752000 @NM00024 EQU IHADCS40+10 01753000 @NM00023 EQU IHADCS40+9 01754000 @NM00022 EQU IHADCS40+8 01755000 DCBRECA EQU DCBRECAD+1 01756000 @NM00021 EQU DCBRECBT 01757000 DCBRCFGT EQU DCBRCREL 01758000 DCBRCTRU EQU DCBRCREL 01759000 DCBLCCW EQU DCBEOBAD 01760000 DCBNOTE EQU DCBCNTRL 01761000 DCBLRECL EQU IHADCS38+10 01762000 @NM00020 EQU IHADCS38+8 01763000 DCBEOBW EQU IHADCS38+4 01764000 DCBEOBRA EQU DCBEOBR+1 01765000 DCBNCP EQU DCBEOBR 01766000 @NM00019 EQU DCBFLAG1 01767000 DCBSTFLS EQU DCBFLAG1 01768000 DCBSTQCK EQU DCBFLAG1 01769000 DCBDIRCQ EQU DCBBUFOF 01770000 DCBQSTRU EQU DCBUSASI 01771000 @NM00018 EQU DCBUSASI 01772000 DCBQADF3 EQU DCBQADFS 01773000 DCBQADF2 EQU DCBQADFS 01774000 DCBQADF1 EQU DCBQADFS 01775000 DCBBLBP EQU DCBUSASI 01776000 @NM00017 EQU DCBUSASI 01777000 DCBCICBA EQU DCBCICB+1 01778000 @NM00016 EQU DCBCICB 01779000 DCBOFFSW EQU IHADCS36+15 01780000 DCBOFFSR EQU IHADCS36+14 01781000 DCBWCPL EQU IHADCS36+13 01782000 DCBWCPO EQU IHADCS36+12 01783000 DCBBLKSI EQU IHADCS36+10 01784000 DCBCNQSM EQU DCBCIND2 01785000 DCBCNFEO EQU DCBCIND2 01786000 DCBCNCHS EQU DCBCIND2 01787000 DCBCNBFP EQU DCBCIND2 01788000 DCBCNIOE EQU DCBCIND2 01789000 DCBCNCLO EQU DCBCIND2 01790000 DCBCNWRO EQU DCBCIND2 01791000 DCBCNSTO EQU DCBCIND2 01792000 DCBCNEXB EQU DCBCIND1 01793000 @NM00015 EQU DCBCIND1 01794000 DCBCNBRM EQU DCBCIND1 01795000 @NM00014 EQU DCBCIND1 01796000 DCBCNEVA EQU DCBCIND1 01797000 DCBCNEVB EQU DCBCIND1 01798000 DCBCNSRD EQU DCBCIND1 01799000 DCBCNTOV EQU DCBCIND1 01800000 DCBSYNA EQU DCBSYNAD+1 01801000 DCBIOBL EQU DCBSYNAD 01802000 DCBCHCKA EQU DCBPERRA 01803000 @NM00013 EQU DCBOPTCD 01804000 DCBOPTT EQU DCBOPTCD 01805000 DCBSRCHD EQU DCBOPTZ 01806000 DCBOPTQ EQU DCBOPTCD 01807000 DCBBCKPT EQU DCBOPTO 01808000 DCBOPTC EQU DCBOPTCD 01809000 DCBOPTU EQU DCBOPTCD 01810000 DCBOPTW EQU DCBOPTCD 01811000 DCBPUTA EQU DCBGETA 01812000 @NM00012 EQU DCBPUT 01813000 DCBREADA EQU DCBWRITA 01814000 @NM00011 EQU DCBREAD 01815000 DCBDEBA EQU DCBDEBAD+1 01816000 @NM00010 EQU DCBIFLGS 01817000 DCBIFIOE EQU DCBIFLGS 01818000 DCBIFPCT EQU DCBIFLGS 01819000 DCBIFEC EQU DCBIFLGS 01820000 DCBMFSTI EQU DCBMFDMD 01821000 DCBMFAWR EQU DCBMFSTK 01822000 DCBMFUIP EQU DCBMFTMD 01823000 DCBMFIDW EQU DCBMFLCP 01824000 DCBMFWRK EQU DCBMFMVP 01825000 DCBMFRDQ EQU DCBMFWRT 01826000 DCBMFGTQ EQU DCBMFPUT 01827000 DCBMFSTL EQU DCBMACF2 01828000 DCBMFCK EQU DCBMFDMG 01829000 DCBMFRDX EQU DCBMFCHK 01830000 DCBMFDBF EQU DCBMFSBG 01831000 DCBMFRDI EQU DCBMFLCG 01832000 DCBMFRDK EQU DCBMFMVG 01833000 DCBMFWRQ EQU DCBMFRD 01834000 DCBMFPTQ EQU DCBMFGET 01835000 DCBMFECP EQU DCBMACF1 01836000 DCBTIOT EQU IHADCS25 01837000 DCBMRSTI EQU DCBMRDMD 01838000 DCBMRAWR EQU DCBMRSTK 01839000 DCBMRUIP EQU DCBMRTMD 01840000 DCBMRIDW EQU DCBMRLCP 01841000 DCBMRWRK EQU DCBMRMVP 01842000 DCBMRRDQ EQU DCBMRWRT 01843000 DCBMRGTQ EQU DCBMRPUT 01844000 DCBMRSTL EQU DCBMACR2 01845000 DCBMRCK EQU DCBMRDMG 01846000 DCBPGFXA EQU DCBMRRDX 01847000 DCBMRDBF EQU DCBMRSBG 01848000 DCBMRRDI EQU DCBMRLCG 01849000 DCBMRRDK EQU DCBMRMVG 01850000 DCBMRWRQ EQU DCBMRRD 01851000 DCBMRPTQ EQU DCBMRGET 01852000 DCBMRECP EQU DCBMACR1 01853000 @NM00009 EQU DCBIFLG 01854000 DCBIBIOE EQU DCBIFLG 01855000 DCBIBPCT EQU DCBIFLG 01856000 DCBIBEC EQU DCBIFLG 01857000 DCBOFIOF EQU DCBOFLGS 01858000 DCBOFUEX EQU DCBOFLGS 01859000 DCBOFTM EQU DCBOFLGS 01860000 DCBOFPPC EQU DCBOFLGS 01861000 DCBOFOPN EQU DCBOFLGS 01862000 DCBOFEOV EQU DCBOFLGS 01863000 DCBOFLRB EQU DCBOFLGS 01864000 DCBOFIOD EQU DCBOFLWR 01865000 DCBDDNAM EQU IHADCS24 01866000 DCBEXLSA EQU DCBEXLST+1 01867000 DCBRECKL EQU DCBRECFM 01868000 DCBRECCC EQU DCBRECFM 01869000 DCBRECSB EQU DCBRECFM 01870000 DCBRECBR EQU DCBRECFM 01871000 DCBRECTO EQU DCBRECLA 01872000 DCBRECL EQU DCBRECLA 01873000 DCBEODA EQU DCBEODAD+1 01874000 DCBBFA EQU DCBBFTEK 01875000 DCBH0 EQU DCBBFTEK 01876000 DCBBFTKD EQU DCBBFTEK 01877000 DCBBFTE EQU DCBBFT 01878000 DCBBFTKR EQU DCBBFT 01879000 DCBBFTS EQU DCBBFT 01880000 DCBH1 EQU DCBBFTEK 01881000 DCBSVCXA EQU DCBSVCXL+1 01882000 @NM00008 EQU DCBSVCXL 01883000 DCBODEBA EQU DCBIOBAA 01884000 @NM00007 EQU DCBQSLM 01885000 DCBUPDBT EQU DCBQSLM 01886000 DCBUPDCM EQU DCBQSLM 01887000 DCB1DVDS EQU DCBQSLM 01888000 @NM00006 EQU DCBDSRG2 01889000 DCBDSGTR EQU DCBDSRG2 01890000 DCBACBM EQU DCBDSRG2 01891000 @NM00005 EQU DCBDSRG2 01892000 DCBDSGTQ EQU DCBDSRG2 01893000 DCBDSGTX EQU DCBDSRG2 01894000 DCBDSGGS EQU DCBDSRG2 01895000 DCBDSGU EQU DCBDSRG1 01896000 DCBDSGPO EQU DCBDSRG1 01897000 DCBDSGMQ EQU DCBDSRG1 01898000 DCBDSGCQ EQU DCBDSRG1 01899000 DCBDSGCX EQU DCBDSRG1 01900000 DCBDSGDA EQU DCBDSRG1 01901000 DCBDSGPS EQU DCBDSRG1 01902000 DCBDSGIS EQU DCBDSRG1 01903000 DCBBUFL EQU IHADCS11+8 01904000 DCBBUFCA EQU DCBBUFCB+1 01905000 DCBBUFNO EQU DCBBUFCB 01906000 DCBDEVT EQU DCBREL 01907000 DCBKEYLE EQU DCBRELB 01908000 DCBTRBAL EQU IHADCS01+6 01909000 @NM00004 EQU IHADCS01+5 01910000 @NM00003 EQU IHADCS01+4 01911000 DCBDVTBA EQU DCBDVTBL+1 01912000 @NM00002 EQU DCBDVTBL 01913000 DCBKEYCN EQU IHADCS00+4 01914000 DCBRELAD EQU IHADCS00 01915000 @NM00001 EQU IHADCB 01916000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01917000 @RF00097 EQU @RC00093 01918000 @RF00111 EQU @RC00107 01919000 @RF00116 EQU @RC00107 01920000 @RF00182 EQU @EL00002 01921000 @PB00003 EQU @EL00001 01922000 @PB00002 EQU @PB00003 01923000 @RF00135 EQU @PB00002 01924000 @ENDDATA EQU * 01925000 END IOEDKPUT,(C'PLS1443',0701,78107) 01926000