*COMDECK IOMICROS 
          CTEXT 
* 
*         THESE MICRO DEFINITIONS DEFINE THE COBOL FILE TABLE FIELDS
*         WHICH FOLLWO TH FIT AND FET 
* 
*                THESE FIELDS ARE FOR ALL FILE ORGANIZATIONS
* 
*      SEE FITDEFS FOR SYMPL DEFS OF THESE FIELDS 
 #CFLEN#  EQU    6           LENGTH OF COBOL FIT EXTENSIONS 
 FITFETL  EQU    #FTL#+#FTS#  LENGTH OF FIT AND FIT SCRATCH 
  
 #FLAGWD# EQU    FITFETL+0   FOR GIO - WORD WITH BIT FLAGS
 #ATEN#   MICRO  1,,/0,FITFETL+0,01,59,0,0/  AT END DETECTED
 #ATENSC# EQU    59-59       FOR GIO - SHIFT COUNT FOR AT END FLAG
 #CLCK#   MICRO  1,,/0,FITFETL+0,01,58,0,0/  FILE CLOSED WITH LOCK
 #COBO#   MICRO  1,,/0,FITFETL+0,01,57,0,0/  COBOL OPENED THE FILE ONCE 
 #OPFL#   MICRO  1,,/0,FITFETL+0,01,56,0,0/  THE FILE IS OPTIONAL 
 #FNEX#   MICRO  1,,/0,FITFETL+0,01,55,0,0/  OPTIONAL FILE NON EXISTING 
 #DSPO#   MICRO  1,,/0,FITFETL+0,01,54,0,0/  DISPLAY OR ACCEPT OPENED 
 #MINF#   MICRO  1,,/0,FITFETL+0,01,53,0,0/  MULTIPLE INDEX FILE FLAG 
 #ORPD#   MICRO  1,,/0,FITFETL+0,02,51,0,1/  ORIGINAL PROCESSING DIRECTI
 #LABT#   MICRO  1,,/0,FITFETL+0,02,49,0,1/  LABEL TYPE DECLARED
 #LIFW#   MICRO  1,,/0,FITFETL+0,01,48,0,0/  LINAGE FIRST WRITE FLAG
 #DPFF#   MICRO  1,,/0,FITFETL+0,01,46,0,0/  DUPLICATE FILE FLAG
 #BCTC#   MICRO  1,,/0,FITFETL+0,01,47,0,0/  BLOCK CONTAINS CLAUSE USED 
 #INVK#   MICRO  1,,/0,FITFETL+0,01,45,0,0/  INVALID KEY DETECTED 
 #INVKSC# EQU    59-45       FOR GIO - SHIFT COUNT FOR INVK FLAG
 #CFST#   MICRO  1,,/0,FITFETL+0,01,44,0,0/  C.FILE SET CF FLAG 
 #FSSET#  MICRO  1,,/0,FITFETL+0,01,43,0,0/  FILE STATUS ALREADY SET
 #ADDFA#  MICRO  1,,/0,FITFETL+0,01,42,0,0/  ACC DISP DUP FILE ASGD 
 #RLFG#   MICRO  1,,/0,FITFETL+0,01,36,0,0/  RELATIVE FILE FLAG 
 #FTNBT#  MICRO  1,,/0/FITFETL+0,01,35,0,0/  RESERVED FOR FTN 
 #RLWD#   MICRO  1,,/0,FITFETL+0,17,18,0,1/  REC LENGTH IN WORDS
 #RECA#   MICRO  1,,/0,FITFETL+0,18,00,0,1/  RECORD AREA ADDRESS
 #L4DBRO# MICRO  1,,/0,FITFETL+1,10,50,0,1/  L4 CDCS RECORD ORDINAL 
 #L4DBKO# MICRO  1,,/0,FITFETL+1,10,40,0,1/  L4 CDCS KEY ORDINAL
 #DBFO#   MICRO  1,,/0,FITFETL+1,10,30,0,1/  CDCS AREA (FILE) ORDINAL 
 #MIKR#   MICRO  1,,/0,FITFETL+1,12,18,0,1/  MULTIPLE INDEX KEY OF REF
 #LVOT#   MICRO  1,,/0,FITFETL+1,18,00,0,1/  POINTER TO LABEL VALUE OF T
 #RERC#   MICRO  1,,/0,FITFETL+2,20,38,0,1/  RERUN COUNT
 #RERP#   MICRO  1,,/0,FITFETL+2,20,18,0,1/  RERUN PERIOD 
 #PSMA#   MICRO  1,,/0,FITFETL+2,18,00,0,1/  POINTER TO SAME AREA FILE
 #USEX#   MICRO  1,,/0,FITFETL+3,06,54,0,1/  USE FOR EXCEPTION DECL PTR 
 #USOI#   MICRO  1,,/0,FITFETL+3,06,48,0,1/  USE FOR EXC ON INPUT 
 #USOO#   MICRO  1,,/0,FITFETL+3,06,42,0,1/  USE FOR EXC ON OUTPUT
 #USOM#   MICRO  1,,/0,FITFETL+3,06,36,0,1/  USE FOR EXC ON I-O 
 #USOE#   MICRO  1,,/0,FITFETL+3,06,30,0,1/  USE FOR EXC ON EXTEND
 #USHA#   MICRO  1,,/0,FITFETL+3,06,30,0,1/  USE FOR HASHING - DA ONLY
 #USFN#   MICRO  1,,/0,FITFETL+3,06,24,0,1/  USE FOR EXC ON FILE-NAME 
 #FSSC#   MICRO  1,,/0,FITFETL+3,06,18,0,1/  FILE STATUS DN SHIFT COUNT 
 #FSWD#   MICRO  1,,/0,FITFETL+3,18,00,0,1/  FILE STATUS DN WORD ADDR 
 #REAR#   MICRO  1,,/0,FITFETL+4,12,48,0,1/  RESERVE ALT AREAS NBR
 #CBER#   MICRO  1,,/0,FITFETL+4,06,42,0,1/  COBOL IO ERROR CODE
 #USDL#   MICRO  1,,/0,FITFETL+4,06,24,0,1/  USE FOR DEADLOCK - CDCS2 
 #CDST#   MICRO  1,,/0,FITFETL+4,06,18,0,1/  CODE SET NUMBER
 #DPFP#   MICRO  1,,/0,FITFETL+5,18,42,0,1/  DUPLICATE FILE FET PTR 
 #DBRK#   MICRO  1,,/0,FITFETL+5,24,00,0,1/  CDCS RECORD/KEY ORDINALS 
 #DBRO#   MICRO  1,,/0,FITFETL+5,12,12,0,1/  CDCS RECORD ORDINAL
 #DBKO#   MICRO  1,,/0,FITFETL+5,12,00,0,1/  CDCS KEY ORDINAL 
 #CLOA#   MICRO  1,,/0,FITFETL+4,18,00,0,1/  ADDR OF CLOSE ROUTINE
 EXTAREA  EQU    FITFETL+#CFLEN#   POINTS TO FILE SPECIFIC AREA 
* 
*                THESE FIELDS ARE FOR SEQUENTIAL FILE ORGANIZATION ONLY 
* 
 SQXWSZ   EQU    1           SIZE OF EXTRA WORDS FOR SQ ORG 
 #ORFL#   MICRO  1,,/0,EXTAREA+0,02,58,0,1/  OPEN REVERSED FLAGS
 #ORVF#   MICRO  1,,/0,EXTAREA+0,01,59,0,0/  OPEN REVERSED FLAG 
 #ORFT#   MICRO  1,,/0,EXTAREA+0,01,58,0,0/  OPEN REVERSED FIRST TIME 
 #DSPC#   MICRO  1,,/0,EXTAREA+0,01,57,0,0/  ACC OR DISP CREATED FIT
 #RWCD#   MICRO   1,,/0,EXTAREA+0,01,56,0,0/  REPORT WRITER HAS CODE CL 
 #NOAD#   MICRO  1,,/0,EXTAREA+0,01,55,0,0/  NO ADVANCING FLAG
 #WBAC#   MICRO  1,,/0,EXTAREA+0,02,53,0,1/  WRITE BEF ADV COUNT PREV OP
 #LITB#   MICRO  1,,/0,EXTAREA+0,01,52,0,0/  LINAGE AT TOP OR BOTTOM SPC
 #ACDMRL# MICRO  1,,/0,EXTAREA+0,01,51,0,0/   ACCEPT OR DISPLAY SET MRL 
 #LITP#   MICRO  1,,/0,EXTAREA+0,18,00,0,1/  LINAGE TABLE POINTER 
*      DEFAULT MRL FOR ACCEPT OR DISPLAY OPENED FILES 
 DFLTMRL  EQU    377777B     (2 ** 17) -1 
* 
*                THESE FIELDS ARE FOR THE LINAGE TABLE
* 
 #LIVA#   MICRO  1,,/0,0,30,30,0,1/  VALUE IN ITEM
 #LIC1#   MICRO  1,,/0,0,01,29,0,0/  ITEM IS COMP-1 
 #LIBC#   MICRO  1,,/0,0,04,25,0,1/  BCP OF ITEM
 #LISZ#   MICRO  1,,/0,0,07,18,0,1/  SIZE OF ITEM 
 #LIAD#   MICRO  1,,/0,0,18,00,0,1/  ADDRESS OF ITEM
*                ORDINALS IN TABLE
 #LILN#   EQU    0           LINAGE ITEM
 #LIFT#   EQU    1           FOOTING
 #LITO#   EQU    2           TOP MARGIN 
 #LIBO#   EQU    3           BOTTOM MARGIN
 #LILC#   EQU    4           LINAGE-COUNTER 
* 
*                THESE FIELDS ARE FOR INDEXED, ACTUAL-KEY, AND DIRECT FO
* 
 #RKIR#   MICRO  1,,/0,EXTAREA+0,01,59,0,0/  RECORD KEY IN RECORD FLAG
 #RKKA#   MICRO  1,,/0,EXTAREA+0,18,30,0,1/  RECORD KEY KEY ADDRESS 
 #KEYT#   MICRO  1,,/0,EXTAREA+0,18,00,0,1/  KEY TABLE POINTER
* 
*                THESE FIELDS ARE FOR WORD ADDRESS FO ONLY
* 
 #WALA#   MICRO  1,,/0,EXTAREA+0,30,30,0,1/  LAST ADDRESS + 1 ON FILE 
* 
*                THESE FIELDS ARE FOR RELATIVE FILE ORGANIZATION ONLY 
* 
 #HDTT#   MICRO  1,,/0,EXTAREA+0,30,30,0,1/  HASHED DATE-TIME 
 #NREC#   MICRO  1,,/0,EXTAREA+0,30,00,0,1/  NEXT RECORD POINTER
 #CKEY#   MICRO  1,,/0,EXTAREA+0,60,00,0,1/  COMPUTED KEY 
 #LREC#   MICRO  1,,/0,EXTAREA+1,30,30,0,1/  LAST RECORD ON FILE
 #DPTR#   MICRO  1,,/0,EXTAREA+1,12,18,0,1/  DATA POINTER 
 #V4FL#   MICRO  1,,/0,EXTAREA+1,01,17,0,0/  VERSION 4 FLAG 
 #RWDF#   MICRO  1,,/0,EXTAREA+1,04,13,0,1/  REWIND FLAG (SAVED)
 #SVRL#   MICRO  1,,/0,EXTAREA+1,04,09,0,1/  SAVED START RELATION 
 #LORD#   MICRO  1,,/0,EXTAREA+1,01,08,0,0/  LAST OP WAS A VALID READ 
 #WRIF#   MICRO  1,,/0,EXTAREA+1,01,07,0,0/  WRITE FLAG - SET IF WRITE
 #PRUF#   MICRO  1,,/0,EXTAREA+1,01,06,0,0/  PRU ORIENTED FILE
 #OPOF#   MICRO  1,,/0,EXTAREA+1,01,05,0,0/  OPEN OUTPUT FLAG 
 #REOI#   MICRO  1,,/0,EXTAREA+1,01,05,0,0/  FILE POSITIONED AT END 
 #SVRP#   MICRO  1,,/0,EXTAREA+2,30,00,0,1/  RECORD POINTER SAVED 
 #RKEY#   MICRO  1,,/0,EXTAREA+3,60,00,0,1/  RECORD KEY 
* 
*      THESE FIELDS ARE FOR THE RELATIVE FILE HEADER RECORD 
* 
 #HHDT#   MICRO  1,,/0,0,30,30,0,1/  HASHED DATE-TIME 
 #HLRN#   MICRO  1,,/0,1,30,30,0,1/  LAST RECORD NUMBER 
 #HPRUF#  MICRO  1,,/0,1,01,18,0,0/  PRU FILE FLAG
 #HLRL#   MICRO  1,,/0,1,18,00,0,1/  LOGICAL RECORD LENGTH IN WORDS 
 #HHFL#   MICRO  1,,/0,2,18,00,0,1/  HEADER FLAG
* 
*      THE FOLLOWING FIELDS ARE FOR VERSION 4 RELATIVE FILE HEADERS 
* 
 #HDT#    MICRO  1,,/0,0,30,30,0,1/  HASHED DATE-TIME 
 #CRN#    MICRO  1,,/0,0,30,00,0,1/  CURRENT RECORD NUMBER
 #LRN#    MICRO  1,,/0,1,30,30,0,1/  LAST REC ON FILE 
 #MVF#    MICRO  1,,/0,2,01,56,0,0/  MULTI-VOLUME FLAG
 #PRF#    MICRO  1,,/0,2,01,29,0,0/  PRU ORIENTED FIL E 
 #LLB#    MICRO  1,,/0,2,11,18,0,1/  LENGTH OF LABEL BLOCK
 #FLT#    MICRO  1,,/0,2,18,00,0,1/  HEADER FLAG
 #LRL#    MICRO  1,,/0,4,18,00,0,1/  RECORD LENGTH IN WORDS 
* 
*      THE FOLLOWING DEFINES THE VALUE FOR THE LNG (LANGUAGE) FILED 
*      THIS EQUATE CAN BE REMOVED WHEN CRM ADDS IT TO IOTEXT
* 
 #CBL#    EQU    2
          ENDX
