IOC TITLE 'DMKIOC (CP) VM/370 - RELEASE 6' 00001000 *************************************************************** 00002000 * 00003000 * MODULE NAME - 00004000 * 00005000 * DMKIOC 00006000 * 00007000 * CONTENTS - 00008000 * 00009000 * DMKIOCVT 00010000 * 00011000 * FUNTION - 00012000 * 00013000 * THIS PAGABLE MODULE IS AN EXTENTION OF MODULE DMKIOF. 00014000 * IT CONVERTS THE VM/370 DEVICE TYPE TO THE VS DEVICE TYPE 00015000 * 00016000 DMKIOC CSECT @VA03757 00017000 MODID DC CL8'DMKIOC' MODULE IDENTIFIER @VA03757 00018000 SPACE 00019000 USING PSA,R0 SETUP ADDRESSABILITY FOR LOW CORE@VA03757 00020000 USING RDEVBLOK,R8 SETUP ADDRESSABILITY FOR RDEVBLOK@VA03757 00021000 USING OBRRECN,R9 SETUP ADDRESSABILITY FOR OBR @VA03757 00022000 USING SAVEAREA,R13 SETUP ADDRESSABILITY FOR SAVEAREA@VA03757 00023000 USING *,R12 SETUP ADDRESSABILITY FOR MODULE @VA03757 00024000 SPACE 00025000 *************************************************************** 00026000 * 00027000 * SUBROUTINE NAME - 00028000 * 00029000 * DMKIOCVT 00030000 * 00031000 * FUNCTION - 00032000 * 00033000 * THIS SUBROUTINE IS CALLED BY DMKIOF TO CONVERT THE 00034000 * VM/370 DEVICE TYPE TO THE VS DEVICE TYPE... 00035000 * 00036000 * ATTRIBUTES - 00037000 * 00038000 * SERIALLY REUSEABLE, PAGABLE, ENTERED VIA SVC 00039000 * 00040000 * ENTRY CONDITIONS - 00041000 * 00042000 * 00043000 * 00044000 * 00045000 * EXIT CONDITIONS - 00046000 * 00047000 * NONE 00048000 * 00049000 * CALL TO OTHER ROUTINES - 00050000 * 00051000 * NONE 00052000 * 00053000 * EXTERNAL REFERENCES - 00054000 * 00055000 * NONE 00056000 * 00057000 * TABLES/WORK AREAS - 00058000 * 00059000 * DEVCODE - CONVERSION TABLE FOR DEVICES 00060000 * TERMCODE - CONVERSION TABLE FOR TERMINALS 00061000 * 00062000 * NOTES - 00063000 * 00064000 * 00065000 * 00066000 * 00067000 * 00068000 * REGISTER USAGE - 00069000 * 00070000 * GR 8 = RDEVBLOK ADDRESSABILITY 00071000 * GR 9 = OBR RECORD ADDRESS 00072000 * GR12 = MODULE BASE REGISTER 00073000 * GR14,15 LINKAGE REGISTERS 00074000 * 00075000 * OPERATION - 00076000 * 00077000 * 00078000 * 00079000 * 00080000 *************************************************************** 00081000 EJECT 00082000 DMKIOCVT RELOC @VA03757 00083000 SPACE 2 00084000 FINDTYPE EQU * CONVERT VM/370 TYPE TO VS TYPE @VA03757 00085000 USING OBRRECN,R9 SETUP ADDRESSABILITY FOR OBR @VA03757 00086000 LA R9,4(,R6) GET ADDRESS OF OBR RECORD @VA03757 00087000 CLI RDEVTYPC,CLASTERM IS THIS A TERMINAL CLASS @VA03757 00088000 BE TERMDEV YES, GO TO TERMINAL SECTION @VA03757 00089000 LA R4,DEVCODE GET ADDRESS OF VM/370 DEVICE TYPE@VA03757 00090000 LA R5,DEVICEND GET ENDING ADDR OF DEV TYPES @VA03757 00091000 DEVSCAN EQU * SCAN FOR THE CORRECT DEVICE TYPE @VA03757 00092000 CLC RDEVTYPC(2),0(R4) IS THIS THE SAME DEVICE TYPE @VA03757 00093000 BE DEVFOUND YES, CHECK FOR DASD CLASS @VA03757 00094000 LA R4,4(,R4) UPDATE THE DEVICE TYPE TABLE @VA03757 00095000 CR R4,R5 IS THIS END OF DEVICE TYPE TABLE @VA03757 00096000 BNE DEVSCAN NO, CHECK NEXT DEVICE TYPE @VA03757 00097000 BAL R5,DEVUNKWN SET UP UNKNOWN DEVICE TYPE @VA03757 00098000 SPACE 1 00099000 DEVFOUND EQU * MOVE VS DEVICE TYPE INTO RECORD @VA03757 00100000 CLI RDEVTYPC,CLASDASD IS THIS A DASD CLASS @VA03757 00101000 BNE DEVCONVT NO, MOVE VS DEV TYPE INTO RECORD @VA03757 00102000 CLI RDEVTYPE,TYP3330 IS THIS A 3330 DEVICE TYPE @VA03757 00103000 BNE DEV2305 NO, CHECK FOR 2305 DEVICE @VA03757 00104000 CLI RDEVMDL,X'0B' IS THIS A MODEL 3330-11 DEVICE @VA03757 00105000 BE DEVUPDAT YES, UPDATE DEV TYPE TABLE PTR @VA03757 00106000 BAL R5,DEVCONVT MOVE VS DEV TYPE INTO RECORD @VA03757 00107000 SPACE 1 00108000 DEV2305 EQU * HANDLE 2305 DEVICE @VA03757 00109000 CLI RDEVTYPE,TYP2305 IS THIS A 2305 DEVICE TYPE @VA03757 00110000 BNE DEV2311 NO, CHECK FOR 2311 TYPE DEVICE @VA03757 00111000 CLI RDEVMDL,X'01' IS THIS A MODEL 2305-1 DEVICE @VA03757 00112000 BNE DEVCONVT NO, MOVE DEVICE TYPE INTO RECORD @VA03757 00113000 DEVUPDAT EQU * UPDATE TO NEXT DEV TYPE IN TABLE @VA03757 00114000 LA R4,4(,R4) UPDATE TO NEXT DEVICE TYPE @VA03757 00115000 DEVCONVT EQU * MOVE VS DEVICE TYPE INTO RECORD @VA03757 00116000 TM OBRSWSN+1,OBRSHOBR IS THIS A SHORT OBR ?? @VA03757 00117000 BZ LNGOBR NO, GO HANDLE AS LONG OBR @VA03757 00118000 MVC OBRDEVSH+2(2),2(R4) GET VS DEV TYPE FROM TABLE @VA03757 00119000 B EXIT RETURN TO DMKIOF @VA03757 00120000 SPACE 00121000 LNGOBR EQU * @VA03757 00122000 MVC OBRDEVTN+2(2),2(R4) GET VS DEV TYPE FROM TABLE @VA03757 00123000 B EXIT RETURN TO DMKIOF @VA03757 00124000 SPACE 1 00125000 DEV2311 CLI RDEVTYPE,TYP2311 IS THIS A 2311 DEVICE TYPE @VA03757 00126000 BNE DEVCONVT NO, MOVE IN VS DEVICE TYPE @VA03757 00127000 CLI RDEVMDL,D2311 IS THIS A 2311 DEVICE @VA03757 00128000 BE DEVCONVT YES, MOVE DEVICE TYPE INTO RECORD@VA03757 00129000 LA R4,4(0,R4) UPDATE DEV TYPE TABLE PTR @VA03757 00130000 CLI RDEVMDL,D2303 IS THIS A 2303 DEVICE @VA03757 00131000 BE DEVCONVT YES, MOVE DEVICE TYPE INTO RECORD@VA03757 00132000 LA R4,4(0,R4) UPDATE DEV TYPE TABLE PTR @VA03757 00133000 CLI RDEVMDL,D2301 IS THIS A 2301 DEVICE @VA03757 00134000 BE DEVCONVT YES, MOVE DEVICE TYPE INTO RECORD@VA03757 00135000 LA R4,4(0,R4) UPDATE DEV TYPE TABLE PTR @VA03757 00136000 B DEVCONVT MOVE 2321 DEVICE TYPE INTO RECORD@VA03757 00137000 TERMDEV EQU * HANDLE TERMINAL DEVICE TYPES @VA03757 00138000 CLC RDEVTYPC(2),=X'8000' IS THIS A CONSOLE @VA07585 00138050 BE CONCLAS YES,BRANCH @VA07585 00138300 LA R5,4 SET UP COUNT REGISTER @VA03757 00139000 TERMSCAN EQU * SCAN FOR CORRECT DEVICE TYPE @VA03757 00140000 LA R4,TERMCODE-4(R5) GET PTR TO CURRENT DEV TYPE @VA03757 00141000 CLC RDEVTYPC(2),0(R4) IS THIS THE SAME DEVICE TYPE @VA03757 00142000 BE TRMFOUND YES, MOVE VS DEV TYPE INTO RECORD@VA03757 00143000 LA R5,4(,R5) UPDATE THE COUNT REGISTER BY 4 @VA03757 00144000 CH R5,MAXTERM IS THIS THE END OF TERMINAL TABLE@VA03757 00145000 BNH TERMSCAN NO, GET NEXT DEVICE TYPE @VA03757 00146000 DEVUNKWN EQU * SET UP UNKNOWN DEVICE TYPE @VA03757 00147000 LA R4,ZEROES GET POINTER TO ZERO VALUE @VA03757 00148000 BAL R5,DEVCONVT MOVE DEVICE TYPE INTO RECORD @VA03757 00149000 SPACE 1 00150000 TRMFOUND EQU * MOVE VS DEVICE TYPE INTO RECORD @VA03757 00151000 TM OBRSWSN+1,OBRSHOBR IS THIS A SHORT OBR ?? @VA03757 00152000 BZ LNGOBR01 NO, GO HANDLE AS LONG OBR @VA03757 00153000 MVC OBRDEVSH+2(2),2(R4) MOVE IN VS DEVICE TYPE @VA03757 00154000 MVC OBRDEVSH+1(1),RDEVSADN MOVE IN SAD ADDRESS @VA03757 00155000 B TERMCDE @VA03757 00156000 ************************************************************** 00156050 **** 00156100 **** THIS ROUTINE USES RDEVNAME TO DETERMINE THE REAL 00156150 **** DEVICE TYPE FOR THE CONSOLES 2150,1052,3210,3215 00156200 SPACE 00156250 CONCLAS DS 0H @VA07585 00156300 LA R4,CONSOLES GET BEGINNING OF TABLE @VA07585 00156350 LA R5,CONSEND GET END OF TABLE @VA07585 00156400 CONCLAS1 DS 0H @VA07585 00156450 CLC RDEVNAME(2),0(R4) IS IN THE TABLE @VA07585 00156500 BE DEVCONVT YES,BRANCH TO IN VS TYPE @VA07585 00156550 LA R4,4(,R4) NO,INCREMENT TO NEXT ENTRY @VA07585 00156600 CR R4,R5 ARE WE AT END OF TABLE @VA07585 00156650 BL CONCLAS1 NO,CHECK AGAIN @VA07585 00156700 B DEVUNKWN MUST BE UNKNOW DEVICE TYPE @VA07585 00156750 SPACE 1 00157000 LNGOBR01 EQU * @VA03757 00158000 MVC OBRDEVTN+2(2),2(R4) MOVE IN VS DEVICE TYPE @VA03757 00159000 MVC OBRDEVTN+1(1),RDEVSADN MOVE IN SAD ADDR. @VA03757 00160000 TERMCDE EQU * SET UP BRANCH TABLE FOR DEVICES @VA03757 00161000 B TERMCDE(R5) NO DEVICE TYPE SUPPORTED @VA03757 00162000 B TERM1050 HANDLE 1050 DEVICE @VA03757 00164000 B TERM2741 HANDLE 2741 DEVICE @VA03757 00165000 B CTL27XX HANDLE TTY DEVICE @VA03757 00166000 B CTL27XX HANDLE C. UNITS (2701/2702/2703) @VA03757 00167000 B RMT3270 HANDLE 3270 REMOTE STATION @VA03757 00168000 B CTL27XX HANDLES ICA-SDLC @V67CDF1 00168500 SPACE 1 00169000 TERM2741 EQU * HANDLE 2741 DEVICE @VA03757 00170000 TM OBRSWSN+1,OBRSHOBR IS THIS A SHORT OBR ?? @VA03757 00171000 BO SHRTOBR YES, GO HANDLE 2711 AS SHORT OBR @VA03757 00172000 MVI OBRDEVTN,X'05' SET MODEL CODE FOR CORRES. DEVICE@VA03757 00173000 TM RDEVTMCD,X'04' IS THIS A CORRESPONDING TERMINAL @VA03757 00174000 BO CTL2700 YES, GET CONTROL UNIT TYPE @VA03757 00175000 MVI OBRDEVTN,X'06' SET MODEL CODE FOR EBCDIC DEVICE @VA03757 00176000 B CTL2700 FIND TYPE OBR @VA10624 00177100 SHRTOBR EQU * HANDLE 2741 USING SHORT OBR @VA03757 00178000 MVI OBRDEVSH,X'05' MODEL CODE FOR CORRES. DEVICE @VA03757 00179000 TM RDEVTMCD,X'04' IS THIS A CORRESPONDING @VA03757 00180000 * TERMINAL?? 00181000 BO CTL2700S GO GET CONTROL UNIT TYPE @VA03757 00182000 MVI OBRDEVSH,X'06' SET MODEL CODE FOR EBCDIC DEVICE @VA03757 00183000 B CTL2700S GO SET TYPE OBR @VA10624 00184100 SPACE 1 00185000 RMT3270 EQU * HANDLE BISYNC LINE (3270 REMOTE) @VA03757 00186000 TM OBRSWSN+1,OBRSHOBR IS THIS A SHORT OBR ?? @VA03757 00187000 BZ LNGOBR02 NO @VA03757 00188000 MVI OBRDEVSH,X'07' SET NONSWITCHED MULTIPOINT FLAG @VA03757 00189000 B CTL27XXS SET C.U. USING SHORT OBR @VA10624 00190100 LNGOBR02 EQU * @VA03757 00191000 MVI OBRDEVTN,X'07' SET NONSWITCHED MULTIPOINT FLAG @VA03757 00192000 B CTL27XX GET C.U. TYPE @VA10624 00193100 SPACE 1 00194000 TERM1050 EQU * HANDLE 1050 DEVICE @VA03757 00195000 TM OBRSWSN+1,OBRSHOBR IS THIS A SHORT OBR ??? @VA03757 00196000 BZ LNGOBR03 NO @VA03757 00197000 MVI OBRDEVSH,X'01' SET MODEL CODE FOR 1050 @VA03757 00198000 B CTL2700S GET CONTROL UNIT TYPE @VA03757 00199000 LNGOBR03 EQU * @VA03757 00200000 MVI OBRDEVTN,X'01' SET MODEL CODE FOR 1050 @VA03757 00201000 CTL2700 EQU * SET UP THE UNIT TYPE @VA03757 00202000 TM OBRSWSN+1,OBRSHOBR IS THIS A SHORT OBR ?? @VA03757 00203000 BO CTL2700S YES @VA03757 00204000 OI OBRDEVTN+3,X'10' SET IBM TYPE 1 UNIT @VA03757 00205000 CTL27XX EQU * GET CONTROL UNIT TYPE @VA03757 00206000 TM OBRSWSN+1,OBRSHOBR IS THIS A SHORT OBR ?? @VA03757 00207000 BO CTL27XXS YES @VA03757 00208000 L R5,RDEVCUA GET ADDRESS OF CONTROL UNIT @VA03757 00209000 USING RCUBLOK,R5 ADDRESSABILITY FOR CONTROL UNIT @VA03757 00210000 TM RCUTYPE,RCU2703 ARE YOU A 2703? @VA10624 00210100 BO CTL2703 YES,PROCESS AS SUCH @VA10624 00210200 OI OBRDEVTN+3,X'02' SET 2701 TCU FLAG @VA03757 00211000 TM RCUTYPE,RCU2701 IS THIS A 2701 CONTROL UNIT @VA03757 00212000 BO EXIT YES, RETURN TO DMKIOF @VA03757 00213000 * VA03358 00214000 NI OBRDEVTN+3,X'F0' @VA10624 00214100 OI OBRDEVTN+3,X'01' SET 2702 TCU FLAG @VA03757 00215000 TM RCUTYPE,RCU2702 IS THIS A 2702 CONTROL UNIT @VA03757 00216000 BO EXIT YES, RETURN TO DMKIOF @VA03757 00217000 * VA03358 00218000 CTL2703 DS 0H HERE TO PROCESS 2703 OBR @VA10624 00218100 OI OBRDEVTN+3,X'03' SET 2703 TCU FLAG @VA03757 00219000 B EXIT RETURN TO DMKIOF @VA03757 00220000 * VA03358 00221000 DROP R5 @VA03757 00222000 CTL2700S EQU * @VA03757 00223000 OI OBRDEVSH+1,X'10' SET IBM TYPE 1 UNIT @VA03757 00224000 CTL27XXS EQU * @VA03757 00225000 L R5,RDEVCUA GET ADDRESS OF CONTROL UNIT @VA03757 00226000 USING RCUBLOK,R5 ADDRESSABILITY FOR CONTROL UNIT @VA03757 00227000 TM RCUTYPE,RCU2703 ARE YOU A 2703? @VA10624 00227100 BO CTL2703Y YUP @VA10624 00227200 OI OBRDEVSH+3,X'02' SET 2701 TCU FLAG @VA03757 00228000 TM RCUTYPE,RCU2701 IS THIS A 2701 CONTROL UNIT @VA03757 00229000 BO EXIT YES, RETURN TO DMKIOF @VA03757 00230000 NI OBRDEVSH+3,X'F0' @VA10624 00230100 OI OBRDEVSH+3,X'01' SET 2702 TCU FLAG @VA03757 00231000 TM RCUTYPE,RCU2702 IS THIS A 2702 CONTROL UNIT? @VA03757 00232000 BO EXIT YES, RETURN TO DMKIOF @VA03757 00233000 CTL2703Y DS 0H HERE TO PROCESS 2703 @VA10624 00233100 OI OBRDEVSH+3,X'03' SET 2703 TCU FLAG @VA03757 00234000 B EXIT RETURN TO DMKIOF @VA03757 00235000 DROP R9,R5 DROP BASE REGISTERS @VA03757 00236000 SPACE 3 00237000 EXIT EXIT RETURN TO MODULE DMKIOF @VA03757 00238000 EJECT 00239000 DEVCODE DS 0F CONVERSION TABLE FOR DEVICES @VA03757 00240000 SPACE 1 00241000 * VM/370 | VS1/VS2 CONVERT DEV TYPE FROM VM370 TO VS 00242000 SPACE 1 00243000 DC XL2'4004',XL2'1009' 3270 GRAPHIC DEVICE @VA03757 00244000 DC XL2'4002',XL2'1009' 3270 PRINTER FAMILY @VA03757 00245000 DC XL2'4001',XL2'1009' 3278 GRAPHIC FAMILY @V60A6B6 00245500 DC XL2'4008',XL2'1004' 1053 GRAPHIC DEVICE @VA03757 00246000 DC XL2'4010',XL2'1008' 3066 GRAPHIC DEVICE @VA03757 00247000 DC XL2'4020',XL2'1003' 2265 GRAPHIC DEVICE @VA03757 00248000 DC XL2'4040',XL2'1003' 2260 GRAPHIC DEVICE @VA03757 00249000 DC XL2'4080',XL2'1002' 2250 GRAPHIC DEVICE @VA03757 00250000 DC XL2'2021',XL2'0818' 2495 TAPE CARTRIDGE READER @VA03757 00251000 DC XL2'2022',XL2'0810' 2671 PAPER TAPE READER @VA03757 00252000 DC XL2'2024',XL2'0000' 1017 @VA03757 00253000 DC XL2'2040',XL2'0000' TIMER DEVICE @VA03757 00254000 DC XL2'2081',XL2'0804' 2501 CARD READER @VA03757 00255000 DC XL2'2082',XL2'0801' 2540 CARD READER @VA03757 00256000 DC XL2'2084',XL2'0806' 3505 CARD READER @VA03757 00257000 DC XL2'2088',XL2'0803' 1442 CARD READER @VA03757 00258000 DC XL2'2090',XL2'0805' 2520 CARD READER @VA03757 00259000 DC XL2'1024',XL2'0000' 1018 PAPER TAPE READER @VA03757 00260000 DC XL2'1041',XL2'0808' 1403 PRINTER @VA03757 00261000 DC XL2'1042',XL2'0809' 3211 PRINTER @VA03757 00262000 DC XL2'1043',XL2'080B' 3203 PRINTER @V386298 00262100 DC XL2'1045',XL2'080E' 3800 PRINTING SUBSYSTEM @V60B9BA 00262200 DC XL2'1082',XL2'0802' 2540 PUNCH @VA03757 00263000 DC XL2'1084',XL2'080C' 3525 PUNCH @VA03757 00264000 DC XL2'1088',XL2'0803' 1442 PUNCH @VA03757 00265000 DC XL2'1090',XL2'0805' 2520 PUNCH @VA03757 00266000 DC XL2'0810',XL2'8003' 3420 TAPE DRIVE @VA03757 00267000 DC XL2'0808',XL2'8003' 3410 TAPE DRIVE @VA03757 00268000 DC XL2'0820',XL2'8001' 2420 TAPE DRIVE @VA03757 00269000 DC XL2'0840',XL2'8001' 2415 TAPE DRIVE @VA03757 00270000 DC XL2'0880',XL2'8001' 2401 TAPE DRIVE @VA03757 00271000 DC XL2'0401',XL2'200A' 3340 DISK @VA03757 00272000 DC XL2'0402',XL2'2007' 2305 DRUM DEVICE @VA03757 00273000 DC XL2'0402',XL2'2006' 2305 MODEL 1 DRUM DEVICE @VA03757 00274000 DC XL2'0408',XL2'200B' 3350 DISK STORAGE @VA03757 00275000 DC XL2'0410',XL2'2009' 3330 DISK @VA03757 00276000 DC XL2'0410',XL2'200D' 3330 MODEL 11 DISK @VA03757 00277000 DC XL2'0420',XL2'200E' 3380 DASD HRC011DK 00277500 DC XL2'0440',XL2'2008' 2314/2319 DISK @VA03757 00278000 DC XL2'0480',XL2'2001' 2311 DISK @VA03757 00279000 DC XL2'0480',XL2'2003' 2303 DRUM DEVICE @VA03757 00280000 DC XL2'0480',XL2'2002' 2301 DRUM DEVICE @VA03757 00281000 DC XL2'0480',XL2'2005' 2321 DATA CELL DEVICE @VA03757 00282000 DC XL2'0220',XL2'0842' 3850 MASS STORAGE SYSTEM @VA07371 00282100 SPACE 1 00283000 DEVICEND DS 0F END OF DEVICE TABLE @VA03757 00284000 SPACE 2 00285000 TERMCODE DS 0F CONVERSION TABLE FOR TERMINALS @VA03757 00286000 SPACE 1 00287000 DC XL2'8014',XL2'4010' 1050 TERMINAL @VA03757 00289000 DC XL2'8018',XL2'4010' 2741 TERMINAL @VA03757 00290000 DC XL2'8020',XL2'4050' TELETYPE TERMINAL @VA03757 00291000 DC XL2'8040',XL2'4090' 2700 BISYNC LINE @VA09892 00292100 DC XL2'8080',XL2'4090' 3270 REMOTE BISYNC LINE @VA03757 00293000 DC XL2'8008',XL2'4010' SDLC LINES @V67CDF1 00293500 SPACE 1 00294000 TERMEND DS 0F END OF TERMINAL TABLE @VA03757 00295000 SPACE 1 00296000 CONSOLES DS 0H THIS TABLE FOR @VA07585 00296050 * 1052,3210,3215,2150 00296100 * THIS TABLE CAN ALSO BE ADDED TO AND CONCLAS ROUTINE USED 00296150 * TO GET THE VS DEVICE TYPE. 00296200 * THE PURPOSE FOR THIS TABLE IS TO USE THE LABEL RDEVNAME TO 00296250 * TO GET THE REAL DEVICE TYPE. 00296300 DC XL2'3215',XL2'0823' VM DEVICE TYPE TO VS 3215 @VA07585 00296350 DC XL2'3210',XL2'0822' VN DEVICE TYPE TO VS 3210 @VA07585 00296400 DC XL2'1052',XL2'0820' VM DEVICE TYPE TO VS 1052 @VA07585 00296450 DC XL2'2150',XL2'0821' VM DEVICE TYPE TO VS 2150 @VA07585 00296500 SPACE 00296550 CONSEND DS 0F END OF CONSOLE TABLE @VA07585 00296600 MAXTERM DC AL2(TERMEND-TERMCODE) SIZE OF TERMINAL TABLE @VA03757 00297000 DS 0F @VA03757 00298000 D2311 EQU X'11' 2311 DASD DEVICE @VA03757 00299000 D2303 EQU X'03' 2303 DASD DEVICE @VA03757 00300000 D2301 EQU X'01' 2301 DASD DEVICE @VA03757 00301000 LTORG @VA03757 00302000 COPY OBRRECN @VA03757 00303000 COPY DEVTYPES @VA03757 00304000 COPY EQU @VA03757 00305000 COPY RBLOKS @VA03757 00306000 PSA @VA03757 00307000 COPY SAVE @VA03757 00308000 END 00309000