
@smallformat
@verbatim
           05 SCB-Handle-NUM                    PIC X(4) COMP-X.
           05 SCB-Mode-CD                       PIC X(1).
              88 SCB-MODE-Input-BOOL            VALUE 'I', 'i'.
              88 SCB-MODE-Output-BOOL           VALUE 'O', 'o'.
              88 SCB-MODE-Both-BOOL             VALUE 'B', 'b'.
           05 SCB-Function-CD                   PIC X(2).
              88 SCB-Func-CLOSE-BOOL            VALUE 'C ', 'c '.
              88 SCB-Func-DELETE-BOOL           VALUE 'D ', 'd '.
              88 SCB-Func-OPEN-BOOL             VALUE 'O ', 'o '.
              88 SCB-Func-READ-BOOL             VALUE 'R ', 'r '.
              88 SCB-Func-READ-Delim-BOOL       VALUE 'RD', 'rd',
                                                      'rD', 'Rd'.
              88 SCB-Func-WRITE-BOOL            VALUE 'W ', 'w '.
              88 SCB-Func-WRITE-Delim-BOOL      VALUE 'WD', 'wd',
                                                      'wD', 'Wd'.
           05 SCB-Delimiter-Mode-CD             PIC X(1).
              88 SCB-DELIM-Unix-BOOL            VALUE 'U', 'u'.
              88 SCB-DELIM-Windows-BOOL         VALUE 'W', 'w'.
           05 SCB-Offset-NUM                    PIC X(8) COMP-X.
           05 SCB-Error-Routine-PTR             USAGE PROGRAM-POINTER.
           05 SCB-Error-Routine-NUM REDEFINES SCB-Error-Routine-PTR
                                                USAGE BINARY-LONG.
           05 SCB-Return-CD                     USAGE BINARY-LONG.
           05 SCB-Filename-TXT                  PIC X(256).
@end verbatim
@end smallformat
