*COMDECK IODEFSC
          CTEXT 
*         THESE DEFINITIONS ARE FOR I-O ROUTINES CODED IN COMPASS 
*         WHERE A CRM EQUIVALENT IS NOT DEFINED, THE COMMON DECK
*         FNATVALS CONTAINS THE SAME INFORMATION FOR THE COMPILER 
*         ROUTINES. 
*         ANY CHANGE TO IODEFSC MUST BE REFLECTED IN FNATVALS 
* 
*                FILE ORGANIZATION
* 
 #RELF#   EQU    2           RELATIVE 
* 
*                ACCESS MODE
* 
 #DYNA#   EQU    2           DYNAMIC
* 
*                OPEN CLOSE FLAGS 
* 
 #LOCK#   EQU    4           LOCK 
 #REMO#   EQU    5           FOR REMOVAL
 #REVD#   EQU    6           REVERSED 
 #EXTE#   EQU    7           EXTEND 
* 
*                SYSTEM FILE NAMES (RELATIVE TO C.SYSF - 1) 
* 
 #NONS#   EQU    0           NOT A SYSTEM FILE
 #OUTP#   EQU    1           OUTPUT 
 #INPT#   EQU    2           INPUT
 #PUNH#   EQU    3           PUNCH
 #PUNB#   EQU    4           PUNCHB 
 #CONS#   EQU    5           CONSOLE
 #TERM#   EQU    6           TERMINL (TERMINAL) 
* 
*                END OF RA+2 FILE LIST
* 
 #RA2E#   EQU    63B         THE RA+2 FILE LIST ENDS IN RA+63 (IS ZERO) 
* 
*                ACCEPT FROM VALUES 
* 
 #ADAT#   EQU    1           ACCEPT FROM DATE 
 #ADAY#   EQU    2           ACCEPT FROM DAY
 #ADOW#   EQU    3           ACCEPT FROM DAY-OF-WEEK
 #ATIM#   EQU    4           ACCEPT FROM TIME 
* 
*                LENGTHS OF FIELDS IN KEY TABLE 
* 
 #KWNS#   EQU    15          WORD NUMBER
 #KBCS#   EQU    4           BCP
 #KKLS#   EQU    8           KEY LENGTH 
 #KNIL1#  EQU    3           UNUSED 
 #KTYP#   EQU    2           KEY TYPE 
 #KKIS#   EQU    3           KI - CURRENTLY UNUSED
 #KKSS#   EQU    4           KS - SUBSTRUCTURE
 #KKGS#   EQU    12          KG - REPEATING GROUP SIZE
 #KKCS#   EQU    12          KC - REPEATING GROUP COUNT 
 #KNLS#   EQU    0           NL - 
 #KIES#   EQU    0
 #KCHS#   EQU    0
 #KROS#   EQU    24          RECORD ORDINAL FOR CDCS
*                WORD 2 
 #KOMT#   EQU    1           OMIT SPARSE KEY
 #KUSE#   EQU    1           USE SPARSE KEY 
 #KSPA#   EQU    1           OMIT IF SPACES 
 #KZER#   EQU    1           OMIT IF ZEROS
 #KDN#    EQU    1           SPARSE KEY DEPS ON DATA NAME 
 #KLEN#   EQU    6           LENGTH OF LIT
 #KBCP#   EQU    4           BCP OF SPARSE KEY LIT
 #KCP4#   EQU     1          COMP4 KEY FLAG 
 #KCP4P#  EQU    44          COMP4 FLAG POSITION
 #KW2U#   EQU    26          UNUSED IN WORD 2 
 #KLFW#   EQU    18          FWA OF LIT 
* 
*                VALUES FOR KEY STRUCTORE (KS)
* 
 #KSI#    EQU    0           ASCENDING (INDEXED) = FITV$ASCEN 
 #KSF#    EQU    13B         FIFO = FITV$FIFO 
 #KSU#    EQU    17B         NODUPLICATES (UNIQUE) = FITV$NODUPL
          ENDX
