MACRO 00001000
DOSCB 00002000
PUSH PRINT 00002100
AIF ('&SYSPARM' NE 'SUP').ACC01 00002200
PRINT OFF,NOGEN 00002300
.ACC01 ANOP 00002400
* 00003000
* DOS SIMULATION CONTROL BLOCK 00004000
* 00005000
DOSSECT DSECT 00006000
DOSINIT DS 0X DOSCB FLAG BYTE 00007000
DOSOS EQU X'40' CREATED BY 'OS' USER 00007250
DOSDOS EQU X'20' DEFINED FOR NON-CMS DISK 00007500
DOSCMS EQU X'10' DEFINED FOR CMS DISK 00007750
DOSDDCAT EQU X'08' USER CATALOG DATASET 00008000
DOSPERM EQU X'04' PERMANENT CONTROL BLOCK 00009000
DOSJCAT EQU X'02' SEARCH VSAM JOB CATALOG 00010000
DOSUCAT EQU X'01' SEARCH VSAM USER CATALOG 00011000
DOSNEXT DS A AL3(NEXT DOSCB) 00012000
DOSCBID DS CL4 'DLBL' TO DISTINGUISH FROM CMSCB 00013000
DOSDD DS CL8 DATA DEFINITION NAME 00014000
DOSOP DS CL8 CMS OPERATION 00015000
DOSTAPID DS 0X TAPE IDENTIFICATION 00016000
DOSDSNAM DS CL8 DATASET NAME 00017000
DOSDSTYP DS CL8 DATASET TYPE 00018000
DOSDSMD DS CL2 DATASET MODE 00019000
DOSITEM DS H ITEM (RECORD) NUMBER 00020000
DOSBUFF DS F A(INPUT/OUTPUT BUFFER) 00021000
DOSBYTE DS F SIZE OF BUFFER (DATA COUNT) 00022000
DOSFORM DS CL2 FILE FORMAT: FIXED/VARIABLE 00023000
DOSCOUT DS H RECORDS PER CMS PHYSICAL BLOCK 00024000
DOSREAD DS F N'BYTES ACTUALLY READ 00025000
DOSDEV DS X DEVICE TYPE CODE 00026000
DOSDUM EQU 0 DUMMY DEVICE 00027000
DOSDSK EQU 20 DISK 00028000
DOSTAPMD DS X TAPE MODESET SAVE 00029000
DOSBLKSZ DS H BLOCK SIZE 00030000
DOSWORK DS D WORK AREA 00031000
DOSYSXXX DS 0H LOGICAL UNIT FOR CMS/DOS 00032000
DOSSYS DS 1X SYS/PROG UNIT: X'00' =SYS, X'01'=PROG 00033000
DOSXXX DS 1X NUMBER FROM 000-255 ASSOC WITH UNIT 00034000
DOSEXT DS 1X NUMBER DOS EXTENTS LEFT TO PROCESS 00035000
DOSEXTCT DS 1X CURRENT DOS EXTENT 00036000
DOSOSFST DS F POINTER TO OS FST 00037000
DOSOSDSN DS F POINTER TO OS DSNAME BLOCK 00038000
DOSVOLTB DS F A(VOLUME ID TABLE)-VSAM MULTIVOL DATASET 00039000
DOSEXTTB DS F A(EXTENT TABLE) FOR VSAM DATASPACE 00040000
DOSSENSE DS H I/O SENSE DATA 00041000
DOSVOLNO DS X NO. VOLUMES (ENTRIES IN DOSVOLTB) 00042000
DOSEXTNO DS X NO. EXTENTS (ENTRIES IN DOSEXTTB) 00043000
DOSBUFSP DS F SIZE OF VSAM I/O BUFFER(S) 00044000
DOSUCNAM DS CL8 VSAM USER CATALOG DDNAME 00045000
DOSSAVE DS 6F TEMP SAVE FOR RE-ENTRANT CODE 00046000
DOSEXTCX DS 1X - CURRENT EXTENT (USED BY DMSXCP) 00047100
DOSTYPE DS 1C - DATASET TYPE (SAM=S, VSAM=A) 00047150
DS H - RESERVED FOR FUTURE USE 00047200
DOSEND DS 0D END ADDRESS OF THIS BLOCK 00049000
DOSENSIZ EQU (*-DOSSECT)/8 SIZE OF BLOCK IN DBLWORDS 00050000
EJECT 00051000
POP PRINT 00051100
MEND 00052000