*COMDECK SIOBASE
# 
      SUPIO BASED ARRAY DEFINITIONS 
                                                                       #
      BASED 
        BEGIN 
# 
      SIOINDX - SUPERVISION I/O RANDOM FILE INDEX 
                                                                       #
        ARRAY SIOINDX [0:0] S(SIOINDL); # SUPIO INDEX FORMAT           #
          ITEM
               RETINDL U (0,0,60), # RETURNED INDEX LENGTH NEEDED      #
               RI U      (0,0,60),    # RECORD ID IN ENTRY             #
               RL U      (1,12,18),   # RECORD LENGTH IN ENTRY         #
               RANINDX U (1,30,30),   # RANDOM INDEX IN ENTRY          #
               INDXRSV U (1,0,12),    # INDEX ENTRY RESERVED           #
               SIONAME C (0,0,10),    # SUPIOINDEX NAME IN HEADER      #
               CINDX U   (1,0,12),    # CURRENT POSITION IN INDEX HDR. #
               LINDX U   (1,12,12),   # LAST INDEX IN HEADER           #
               HDRRSV U  (1,24,36);   # HEADER RESERVE                 #
# 
      SIOFET - SUPERVISION I/O FET
                                                                       #
        ARRAY SIOFET [0:0] S(CIOFETL); # SUPIO FET FORMAT              #
          ITEM
               FETLFN C  (0,0,07),  # LOGICAL FILE NAME                #
               FETLFNI U (0,0,42), # LOGICAL FILE NAME (INTEGER)       #
               FETLEVN U (0,42,4),  # LEVEL NUMBER                     #
               FETABNT U (0,46,4),  # ABNORMAL TERMINATION CODE        #
               FETSTAT U (0,50,10), # STATUS RETURNED BY READ/WRITE    #
               FETEOI B  (0,50,1),  # END-OF-INFORMATION INDICATOR     #
               FETCODE U (0,51,9),  # REQUEST/RETURN CODE              #
               FETCMPT B (0,59,1),  # FET COMPLETE BIT                 #
               FETRAN B  (1,12,1),  # RANDOM FILE INDICATOR            #
               FETUP B   (1,14,1),  # USER PROCESSING INDICATOR        #
               FETEP B   (1,15,1),  # ERROR PROCESSING BIT             #
               FETLEN U  (1,36,6),  # FET LENGTH - 5                   #
               FETFST U  (1,42,18), # FIRST                            #
               FETIN U   (2,42,18), # IN                               #
               FETOUT U  (3,42,18), # OUT                              #
               FETPRU U  (4,24,18), # PRU SIZE                         #
               FETLMT U  (4,42,18), # LIMIT                            #
               FETCRI U  (6,0,30),  # CURRENT RANDOM INDEX             #
               FETRWR B  (6,30,1),  # RANDOM REWRITE REQUEST           #
               FETRR U   (6,31,29), # RANDOM REQUEST                   #
               FETDEC U  (6,31,29), # DETAILED ERROR CODE              #
               FETINDL U (7,24,18), # LENGTH OF INDEX                  #
               FETINDX U (7,42,18); # FWA OF INDEX                     #
        END 
