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