*COMDECK  COMFET
          TITLE  COMFET - COMMON FILE DEFINITION AREA 
          USE    /COMFET/ 
 OSSC2    IFEQ   HOST,SC2 
 FILECS   BSS    1           ORIGINAL CONTROL STATEMENT FILE
 FILEPS   FILE               PROCEDURE STACK FILE 
 FILEDS   FILE               DATA STACK FILE
 FILEDF   FILE               DATA FILE CREATED FROM PROC
 FILEPC   FILE               FILE FOR READING PROCEDURE 
 FILEHP   BSS    0
 ZZZZZC3  FILE               HELP TEXT FILE 
 FILEIO   FILE               FIT FOR I/O ROUTINES 
 OSSC2    ELSE
          USE    //          BLANK COMMON 
  
*         BUFFER FIELDS FOR CIO INTERFACE ON NOS AND NOS/BE 
  
 CIOPSL   EQU    V.MINCIO 
 CIODSL   EQU    V.MINCIO 
 CIODFL   EQU    CIODSL 
 CIOHPL   EQU    V.MINCIO 
 CIOINP   EQU    V.MINCIO 
 CIOOUT   EQU    V.MINCIO 
 NOS      IFEQ   IP.TAPO,1
 CIOPCL   EQU    V.MINTAP 
 NOS      ELSE
 CIOPCL   EQU    V.MINCIO                                                CL0112 
 NOS      ENDIF 
 CIOIOL   EQU    CIOPCL 
  
 CIOPS    BSS    CIOPSL 
 CIODS    BSS 
 CIODF    BSS 
          BSS    CIODSL      SHARED I/O AREA FILEDS AND FILEDF
 CIOPC    BSS 
 CIOIO    BSS 
          BSS    CIOPCL      SHARED I/O AREA FILEPC AND FILEIO
 CIOHP    BSS    CIOHPL 
 CIOIN    BSS    CIOINP      CIO TERMINAL INPUT BUFFER
 CIOOU    BSS    CIOOUT      CIO TERMINAL OUTPUT BUFFER 
  
 FILECS   BSS    1           ORIGINAL CONTROL STATEMENT FILE
          USE    /COMFET/ 
 FILEPS   FILEC              PROCEDURE STACK FILE 
 FILEDS   FILEC  ,,FET=8     DATA STACK FILE - EXTENDED 
 FILEDF   FILEC              DATA FILE CREATED FROM PROCEDURE 
 RLD      IFEQ   IP.RLD,1 
 FILEPC   RFILEB ,,FET=9,(IND=PCINDX,6) RANDOM FET FOR READING PROC 
 RLD      ELSE
 FILEPC   FILEB  ,,FET=9     FILE FOR READING PROC ON NOS/BE
 RLD      ENDIF 
 FILEHP   BSS    0
 ZZZZZC3  FILEC  ,,FET=8     FILE FOR HELP TEXT 
 FILEIO   FILEC  ,,FET=8     FILE FOR I/O ROUTINES - EXTENDED 
 I        BSS    0
 OSNBE    IFEQ   HOST,NOSBE 
 ZZZZZIN  FILEC  ,,FET=8
 OSNBE    ENDIF 
 OSNOS    IFEQ   HOST,NOS 
 INPUT    FILEC  ,,FET=8
 OSNOS    ENDIF 
 O        BSS    0
 OSNBE    IFEQ   HOST,NOSBE 
 ZZZZZOU  FILEC  ,,FET=8
 OSNBE    ENDIF 
 OSNOS    IFEQ   HOST,NOS 
 OUTPUT   FILEC  ,,FET=8
 PFILE    FILEB  ,,FET=13    FET FOR PRIMARY FILE (GETFNT MACRO)
 OSNOS    ENDIF 
 OSSC2    ENDIF 
  
