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