*DECK TPFMDEF 
USETEXT TOPTION 
      PROC  TPFMDEF;
      BEGIN 
      CONTROL STEXT;
#----------------------------------------------------------------------#
#     S T A R T   O F   T P F M D E F                                  #
#                                                                      #
#     THIS CONTAINS VARIOUS DEFINITIONS RELATED TO PERMANENT FILE      #
#     FUNCTIONS AND THE INTERNAL TABLES USED FOR PERMANENT             #
#     FILE PARAMS.                                                     #
  
  
#     NOS/BE FDB CODES FOR P.F. PARAMS.                                #
  
      DEF FDBVAL$CY    #O"03"#;    # FDB VALUE FOR NOS/BE CY           #
      DEF FDBVAL$ID    #O"14"#;    # FDB VALUE FOR NOS/BE ID           #
      DEF FDBVAL$LC    #O"31"#;    # FDB VALUE FOR NOS/BE LC           #
      DEF FDBVAL$MR    #O"11"#;    # FDB VALUE FOR NOS/BE M            #
      DEF FDBVAL$PWL   #O"20"#;    # FDB VALUE FOR NOS/BE PW (LOW)     #
      DEF FDBVAL$PWH   #O"24"#;    # FDB VALUE FOR NOS/BE PW (HIGH)    #
      DEF FDBVAL$RW    #O"33"#;    # FDB VALUE FOR NOS/BE RW           #
      DEF FDBVAL$SN    #O"40"#;    # FDB VALUE FOR NOS/BE SN           #
  
  
#     VALUES FOR MODE PARAMETER (M) ON NOS.                            #
  
      DEF NOSPFM$W     #0#;        # VALUE FOR (M=W)                   #
      DEF NOSPFM$R     #1#;        # VALUE FOR (M=R)                   #
      DEF NOSPFM$M     #5#;        # VALUE FOR (M=M)                   #
      DEF NOSPFM$RM    #6#;        # VALUE FOR (M=RM)                  #
      DEF NOSPFM$RA    #7#;        # VALUE FOR (M=RA)                  #
  
  
#     VALUES PUT IN SUBSCHEMA BY DDL FOR NOS P.F. PARAMS.              #
  
      DEF $DDLUN$      #O"14"#;    # NOS UN                            #
      DEF $DDLPWL$     #O"20"#;    # NOS PW (LOW VALUE)                #
      DEF $DDLPWH$     #O"24"#;    # NOS PW (HIGH VALUE)               #
      DEF $DDLM$       #O"30"#;    # NOS M                             #
      DEF $DDLPN$      #O"40"#;    # NOS PN                            #
      DEF $DDLR$       #O"41"#;    # NOS R                             #
  
  
#     VALUES FOR FDB ORDINALS FOR NOS P.F. PARAMS.                     #
  
      DEF $FDBUN$      #5#;        # FDB WORD FOR NOS UN PARAM         #
      DEF $FDBPW$      #6#;        # FDB WORD FOR NOS PW PARAM         #
      DEF $FDBM$       #7#;        # FDB WORD FOR NOS M  PARAM         #
      DEF $FDBPN$      #8#;        # FDB WORD FOR NOS PN PARAM         #
      DEF $FDBR$       #9#;        # FDB WORD FOR NOS R PARAM          #
  
  
#     MISCELLANEOUS DEFINITIONS.                                       #
  
CONTROL IFEQ OS$NAME,NOS; 
      DEF PFN$LTH      #7#;        # MAX PF NAME LTH IN CHARS (NOS)    #
      DEF PF$PM1       #5#;        # ORDINAL OF START OF PF PARAMS     #
      DEF PF$TABLESZ   #$FDBR$+1#;  # SIZE OF PF TABLE (NOS)           #
CONTROL ENDIF;
  
CONTROL IFEQ OS$NAME,SCOPE; 
      DEF ERR$ATTACHED #O"24"#;    # ERROR FOR PF ALREADY ATTACHED     #
      DEF PFN$LTH      #30#;       # MAX PF NAME LTH IN CHARS (NOS/BE) #
      DEF PF$PM1       #5#;        # ORDINAL OF START OF PF PARAMS     #
      DEF PF$TABLESZ   #16+1#;     # SIZE OF PF TABLE (NOS/BE),        #
                                   # (ONE EXTRA WORD FOR ZERO CHECK)   #
CONTROL ENDIF;
  
  
#     TABLE TO HOLD USER CHANGES TO PERMANENT FILE PARAMETERS.         #
  
      BASED ARRAY  PFTABLE; 
        BEGIN 
        ITEM  PARAMWORD     I(00,00,60);  # FULL PARAMETER WORD        #
        ITEM  PFBKD         I(00,24,18);  # BACKWARD POINTER           #
        ITEM  PFFWD         I(00,42,18);  # FORWARD POINTER            #
        ITEM  PFDELPW       B(00,23,01);  # TRUE IF TO REMOVE          #
                                          # PASSWORDS (NOS/BE)         #
        ITEM  PFPFN         C(01,00,30);  # 1-30 CHAR P.F. NAME        #
        ITEM  PFKEY         U(00,54,06);  # PARAMETER KEYWORD VALUE    #
        ITEM  PFVALUE       U(00,00,54);  # PARAMETER KEYWORD CODE     #
        END 
  
  
#     E N D   O F   T P F M D E F                                      #
#----------------------------------------------------------------------#
      END 
      TERM
