MACRO                                                          00001000
         FSCBD                                                          00002000
FSCBD    DSECT                                                          00003000
FSCBCOMM DS    CL8            FILE SYSTEM COMMAND (RDBUF,WRBUF,ETC)     00004000
FSCBFN   DS    CL8            FILENAME                                  00005000
FSCBFT   DS    CL8            FILETYPE                                  00006000
FSCBFM   DS    CL2            FILEMODE                                  00007000
FSCBITNO DS    H              RELATIVE RECORD NUMBER TO BE READ/WRITTEN 00008000
FSCBBUFF DS    A              ADDRESS OF R/W BUFFER OR OF STATEFST      00009000
FSCBSIZE DS    F              LENGTH OF BUFFER                          00010000
FSCBFV   DS    CL2            RECFM - C'F' OR C'V'                      00011000
FSCBFLG  EQU   FSCBFV+1       FLAG BYTE                                 00011100
FSCBNOIT DS    H              NUMBER OF RECORDS TO BE READ/WRITTEN      00012000
FSCBNORD DS    A              NUMBER OF BYTES ACTUALLY READ             00013000
         MEND                                                           00014000