*DECK TCRMDEF 
      PROC TCRMDEF; 
      BEGIN 
      CONTROL STEXT;
#----------------------------------------------------------------------# CRMDEFS
#     S T A R T   O F   C R M D E F S                                  # CRMDEFS
                                                                         CRMDEFS
                                                                         CRMDEFS
#     THIS COMDECK CONTAINS THE VALUES NEEDED FOR CRM CALLS, THE       # CRMDEFS
#     MNEMONIC CODES FOR VARIOUS CRM FUNCTIONS AND SOME LEFT-JUSTIFIED # CRMDEFS
#     STRINGS FOR USE BY CRM AND ANYONE ELSE WHO NEEDS THEM.           # CRMDEFS
                                                                         CRMDEFS
                                                                         CRMDEFS
#     FILE ORGANIZATION MNEMONIC CODES FOR CRM CALLS                   # CRMDEFS
                                                                         CRMDEFS
      DEF FOSQ         #O"0"#;                                           CRMDEFS
      DEF FOWA         #O"1"#;                                           CRMDEFS
      DEF FOIS         #O"3"#;                                           CRMDEFS
      DEF FODA         #O"5"#;                                           CRMDEFS
      DEF FOAK         #O"6"#;                                           CRMDEFS
                                                                         CRMDEFS
                                                                         CRMDEFS
#     OC FLAG MNEMONICS                                                #
  
      DEF OC$CLOSED    #O"2"#;
      DEF OC$OPEN      #O"1"#;
  
  
#     PD FIELD MNEMONICS                                               #
  
      DEF PD$INPUT     #O"1"#;
      DEF PD$IO        #O"3"#;
      DEF PD$OUTPUT    #O"2"#;
  
  
# RELATIONAL VALUES FOR FIT FIELD *REL*                                #
  
      DEF RELEQ        #O"1"#;     # EQ.  NE IF *KNE* IS TRUE          #
      DEF RELGE        #O"3"#;     # GE.  LT IF *KNE* IS TRUE          #
      DEF RELGT        #O"6"#;     # GT.  LE IF *KNE* IS TRUE          #
  
  
#     RECORD TYPE MNEMONICS FOR CRM                                    # CRMDEFS
                                                                         CRMDEFS
      DEF RTW          #O"0"#;                                           CRMDEFS
      DEF RTF          #O"1"#;                                           CRMDEFS
      DEF RTR          #O"2"#;                                           CRMDEFS
      DEF RTZ          #O"3"#;                                           CRMDEFS
      DEF RTD          #O"4"#;                                           CRMDEFS
      DEF RTT          #O"5"#;                                           CRMDEFS
      DEF RTU          #O"7"#;                                           CRMDEFS
      DEF RTS          #O"10"#;                                          CRMDEFS
                                                                         CRMDEFS
                                                                         CRMDEFS
#     ERROR AND RETURN CODES FOR CRM                                   # CRMDEFS
                                                                         CRMDEFS
      DEF FSTTREADERR  #O"006"#;
      DEF EMPTYFILE    #O"056"#;
      DEF ENDOFILE     #O"100"#;                                         CRMDEFS
      DEF ENDOFKEY     #O"010"#;
      DEF MRLMISMATCH  #O"176"#;                                         CRMDEFS
      DEF CAPNOTLOADED #O"347"#;
      DEF AKUNKNOWNKEY #O"442"#;
      DEF UNKNOWNKEY   #O"445"#;                                         CRMDEFS
      DEF DUPLICATEKEY #O"446"#;                                         CRMDEFS
      DEF DUPALTKEY    #O"503"#;                                         CRMDEFS
      DEF UNKNWNALTKEY #O"506"#;                                         CRMDEFS
                                                                         CRMDEFS
                                                                         CRMDEFS
#     ERROR AND RETURN CODES FOR CDCS                                  #
  
      DEF CDCSERRCODE  #O"600"#;   # ANY ERROR CODE GQ THIS WILL BE A  #007000
                                   # CDCS, NOT A CRM ERROR             #007100
      DEF LOCKEDRCRD   #O"603"#;   # CDCS LOCKED RECORD                #007200
      DEF PFWAITAREA   #O"604"#;   # PF WAIT ON AREA FILE              #007300
      DEF CDCSUNAVAIL  #O"605"#;   # CDCS IS NOT UP                    #
      DEF PFWAITPRLIB  #O"612"#;   # PF WAIT ON PROCEDURE LIBRARY      #007400
      DEF WAITMEMORY   #O"613"#;   # CDCS INCOMPLETE - WAIT MEMORY     #007500
      DEF CONTROLBREAK #O"632"#;   # JOIN TERM OF THIS RANK CHANGED    #
                                   # VALUE                             #
      DEF NULLRECOCCUR #O"627"#;   # NO RECORD IN THIS RANK JOINS      #
                                   # PREVIOUS RANK                     #
      DEF NOREADRANK   #O"777"#;   # NO READ ON THIS RANK              #
  
#     LEFT JUSTIFIED-ZERO FILLED STRINGS  --  FOR CRM AND OTHERS       # CRMDEFS
                                                                         CRMDEFS
      DEF $C$          #O"03000 00000 00000 00000"#;                     CRMDEFS
      DEF $E$          #O"05000 00000 00000 00000"#;                     CRMDEFS
      DEF $F$          #O"06000 00000 00000 00000"#;                     CRMDEFS
      DEF $I$          #O"11000 00000 00000 00000"#;                     CRMDEFS
      DEF $N$          #O"16000 00000 00000 00000"#;                     CRMDEFS
      DEF $O$          #O"17000 00000 00000 00000"#;                     CHANGES
      DEF $P$          #O"20000 00000 00000 00000"#;                     CRMDEFS
      DEF $R$          #O"22000 00000 00000 00000"#;                     CRMDEFS
      DEF $U$          #O"25000 00000 00000 00000"#;                     CRMDEFS
      DEF $W$          #O"27000 00000 00000 00000"#;                     CRMDEFS
                                                                         CRMDEFS
      DEF $DA$         #O"04010 00000 00000 00000"#;                     CRMDEFS
      DEF $IS$         #O"11250 00000 00000 00000"#;                     CRMDEFS
      DEF $WA$         #O"27010 00000 00000 00000"#;                     CRMDEFS
                                                                         CRMDEFS
      DEF $CIOP$       #O"03111 72000 00000 00000"#;                     CRMDEFS
      DEF $DET$        #O"04052 40000 00000 00000"#;
      DEF $FILE$       #O"06111 40500 00000 00000"#;                     CRMDEFS
      DEF $INPUT$      #O"11162 02524 00000 00000"#;                     CRMDEFS
      DEF $IO$         #O"11461 70000 00000 00000"#; #STRING IS *I-O*  # CRMDEFS
      DEF $NEW$        #O"16052 70000 00000 00000"#;                     CRMDEFS
      DEF $OUTPUT$     #O"17252 42025 24000 00000"#;                     CRMDEFS
      DEF $REV$        #O"22052 60000 00000 00000"#;                     CRMDEFS
                                                                         CRMDEFS
                                                                         CRMDEFS
#     CRM LEVEL NUMBER -- USED TO IDENTIFY SUB-SCHEMAS WHICH WERE      #
#     COMPILED WITH A COMPATIBLE VERSION OF DDL IN ORDER TO GUARANTEE  #
#     THAT THE FITS ARE THE SAME THAT QU USES.                         #
  
      DEF CRMLEVEL15   #"1.5"#; 
  
  
#     SIZE OF THE FIT (IN NUMBER OF WORDS)                             # CRMDEFS
                                                                         CRMDEFS
#     LFIT AND LFITM1 DEFINE THE SIZE OF THE FIT.  THEIR DEFINITION    #
#     OCCURS IN NUMOPT IN ORDER THAT THEY CAN BE ACCESSED BY THE       #
#     COMPASS CODE THAT NEEDS THEM.                                    #
                                                                         CRMDEFS
                                                                         CRMDEFS
#     E N D   O F   C R M D E F S                                      # CRMDEFS
#----------------------------------------------------------------------# CRMDEFS
      END 
      TERM
