*COMDECK FNAT1
          CONTROL NOLIST;    #FNAT1#
  # ****************************************************************** #
  # *                                                                * #
  # *   THIS IS THE FNAT DESCRIPTION                                 * #
  # *                                                                * #
  # ****************************************************************** #
  
  
  # *  AN FNAT ENTRY HAS MANY WORDS IN IT.                             #
  # *   ITS DEFINITION FOLLOWS                                         #
  
          COMMON FNATCOMM;
          BASED ARRAY FNAT [0:0] S(16); 
          BEGIN 
            ITEM FN$WORD1    U (0, 0,60); 
            ITEM FN$SMSECLEN U (0, 0,30); 
            ITEM FN$SMSECOFF U (0,30,30); 
  
            ITEM FN$DVCEPTR  U (1, 0,15); 
            ITEM FN$RESAREA  U (1,15,15); 
            ITEM FN$STATPTR  U (1,30,15); 
            ITEM FN$RELKPTR  U (1,45,15); 
            ITEM FN$RECPTR   U (2, 0,15); 
            ITEM FN$ALTKPTR  U (2,15,15); 
            ITEM FN$RRUNREC  U (2,30,15); 
            ITEM FN$SMSECNO  U (2,45,15); 
            ITEM FN$SAREAPTR U (3, 0,15); 
            ITEM FN$SSORTPTR U (3,15,15); 
            ITEM FN$SRECPTR  U (3,30,15); 
            ITEM FN$BCTMIN   U (3,45,15); 
            ITEM FN$BCTMAX   U (4, 0,15); 
            ITEM FN$RCTMIN   U (4,15,15); 
            ITEM FN$RCTMAX   U (4,30,15); 
            ITEM FN$PRECCNT  U (4,45,15); 
            ITEM FN$CODEPTR  U (5, 0,15); 
            ITEM FN$DRECPTR  U (5,15,15); 
            ITEM FN$RPTPTR  U (5,30,15);
            ITEM FN$MFILPOS  U (5,45,15); 
            ITEM FN$ERRPTR   U (6, 0,15); 
            ITEM FN$LABLPTR0 U (6,15,15); 
            ITEM FN$LABLPTR1 U (6,30,15); 
            ITEM FN$LABLPTR2 U (6,45,15); 
            ITEM FN$AREAORD  U(6,15,15);
            ITEM FN$RKEYORD  U(6,30,15);
            ITEM FN$AFITPLT  U(6,45,15);
          ITEM   FN$VBITS    U(7,0,8);
            ITEM FN$VOPEN    U(7,0,1);
            ITEM FN$VCLOSE   U(7,1,1);
          ITEM   FN$VDELETE  U(7,2,1);
          ITEM   FN$VSEEKST  U(7,3,1);
          ITEM   FN$VWRITE   U(7,4,1);
          ITEM   FN$VREAD    U(7,5,1);
          ITEM   FN$VREWRIT  U(7,6,1);
          ITEM   FN$VSKIP    U(7,7,1);
          ITEM   FN$VOUTPUT  U(7,8,1);
          ITEM FN$SSMIPFIL U (07,09,01);    #SS MIP FILE INDICATOR     #
                                            #WHEN ALT. KEYS LEFT OFF   #
                                            #SUBSCHEMA.                #
            ITEM FN$LABLPTR3 U (7, 0,15); 
            ITEM FN$LABLPTR4 U (7,15,15); 
            ITEM FN$LABLPTR5 U (7,30,15); 
            ITEM FN$LABLPTR6 U (7,45,15); 
            ITEM FN$LABLPTR7 U (8, 0,15); 
            ITEM FN$LABLPTR8 U (8,15,15); 
            ITEM FN$LABLPTR9 U (8,30,15); 
  
            ITEM FN$DNATPTR  U (9, 0,15); 
            ITEM FN$LINAGPTR U (9,15,15); 
            ITEM FN$FOOTPTR  U (9,30,15); 
            ITEM FN$TOPPTR   U (9,45,15); 
             ITEM FN$BOTTPTR  U (10,0,15);
            ITEM FN$ACCUMMAX U (10,15,18);
            ITEM FN$ACCUMMIN U (10,33,18);
  
            ITEM FN$VARTYPE  U (11, 0, 2);
            ITEM FN$ACCESS   U (11, 2, 3);
            ITEM FN$ORG      U (11, 5, 4);
            ITEM FN$PROCMODE U (11, 9, 2);
            ITEM FN$GENDEV   U (11,11, 6);
            ITEM FN$LABELREC U (11,17, 3);
            ITEM FN$RECMODE  U (11,20, 4);
            ITEM FN$SSCHEMA U(11,16,1); 
            ITEM FN$RECTYPE U (11,24, 4); 
         ITEM FN$ACINPUT   U(11,28,01); 
         ITEM FN$ACIO       U(11,29,01);
  
            ITEM FN$SELECT   U (11,30, 1);
            ITEM FN$OPTIONAL U (11,31, 1);
            ITEM FN$APPLY    U (11,32, 1);
            ITEM FN$RRUNEOR  U (11,33, 1);
            ITEM FN$BLKCTREC U (11,34, 1);
            ITEM FN$WRTEADY  U (11,35, 1);
            ITEM FN$LABLLIT0 U (11,36, 1);
            ITEM FN$LABLLIT1 U (11,37, 1);
            ITEM FN$LABLLIT2 U (11,38, 1);
            ITEM FN$LABLLIT3 U (11,39, 1);
            ITEM FN$LABLLIT4 U (11,40, 1);
            ITEM FN$LABLLIT5 U (11,41, 1);
            ITEM FN$LABLLIT6 U (11,42, 1);
            ITEM FN$LABLLIT7 U (11,43, 1);
            ITEM FN$LABLLIT8 U (11,44, 1);
            ITEM FN$LABLLIT9 U (11,45, 1);
            ITEM FN$LINAGLIT U (11,46, 1);
            ITEM FN$FOOTLIT  U (11,47, 1);
            ITEM FN$TOPLIT   U (11,48, 1);
            ITEM FN$BOTTLIT  U (11,49, 1);
            ITEM FN$RKEYERR  U (11,50, 1);
            ITEM FN$VRECLEN  U (11,51, 1);
            ITEM FN$DBLCT    U (11,52, 1);
            ITEM FN$PRINTF   U (11,53, 1);
            ITEM FN$2DASSIGN U (11,54, 1);
            ITEM FN$EXTERNAL U (11,55, 1);
            ITEM FN$ABORT U (11,56,1);                                  000431
            ITEM FN$SSRELATN U (11,57, 1);  #1 IF SS -RELATION-#
            ITEM FN$ASSIGN   U (11,58, 1);
            ITEM FN$SSFDLT   U (11,59, 1);  #1 IF DEFINED IN SS/FDLT# 
            ITEM FN$DBLCTPTR U (12, 0,15);
            ITEM FN$DBLCTVAL U (12,15,15);
            ITEM FN$RCDEPPTR U (12,30,15);
            ITEM FN$USLITPTR U (12,45,15);
            ITEM FN$WAKPTR   U (13, 0,15);
            ITEM FN$2DPLTPTR U (13,15,15);
            ITEM FN$BLOCKNBR U (13,30,15);
            ITEM FN$XTRAWDS  I (13,45, 4);
            ITEM FN$RECCOUNT I (13,49,11);
            ITEM FN$FRECPTR  I (14,42,18);
            ITEM FN$LFN      C (14, 0, 7);
            ITEM FN$RECOFF   I(15,00,15); 
            ITEM FN$LINE     U(15,15,15);  #LINE NO. OF SELECT# 
            ITEM FN$SSRSTLST U (15,30,15);  #PTR TO (AUX) LIST OF AREAS 
                                               TRAVERSED BY SS RELATION#
            ITEM FN$SSRQTLST U (15,45,15);  #PTR TO (AUX) LIST OF SS
                                               RELATION QUALIFIERS# 
          END 
  
  
          CONTROL LIST;      #FNAT1#
