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