COMSLFM 
COMMON
          CTEXT  COMSLFM - LOCAL FILE MANAGER EQUIVALENCES. 
          SPACE  4,10 
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
          SPACE  4,10 
***       COMSLFM - LOCAL FILE MANAGER EQUIVALENCES.
* 
*         J. L. LARSON.      78/05/16.
          SPACE  4,10 
***       *FILINFO* MACRO ADDITIONAL FILE INFORMATION KEYS. 
*         ADDITIONAL INFORMATION IS RETURNED BASED ON THE *KEY* 
*         SPECIFIED IN BITS 0-4 OF EACH WORD DEFINED IN THE *FILINFO* 
*         PARAMETER BLOCK BEYOND THE STANDARD 5 WORD LENGTH.  THE KEY 
*         WORDS CAN BEGIN AT THE *FILINFO* PARAMETER BLOCK ADDRESS + 5
*         AND CAN BE IN ANY ORDER.  BIT 5 IS SET ON RETURN IF THE KEY 
*         IF NOT APPLICABLE TO THIS TYPE OF FILE. 
  
  
 FIPBL    EQU    5           *FILINFO* STANDARD PARAMETER BLOCK LENGTH
  
  
**        KEY 1.  INFORMATION RETURNED FOR TAPE FILES ONLY. 
* 
*T        48/0, 6/F, 1/0, 5/ 1
*                F = TAPE FORMAT. 
  
 FMTK     EQU    1           TAPE FORMAT KEY
  
  
**        KEY 2.  INFORMATION RETURNED FOR TAPE FILES ONLY. 
* 
*T        41/0, 1/E, 6/ LTYP, 3/DN, 3/CV, 1/0, 5/ 2 
*                E = ERROR PROCESSING INHIBITED.
*                LTYP = LABEL TYPE. 
*                DN = TAPE DENSITY. 
*                CV = CONVERSION MODE.
  
 EPIK     EQU    2           ERROR PROCESSING INHIBITED KEY 
 LTYK     EQU    2           LABEL TYPE KEY 
 DENK     EQU    2           TAPE DENSITY KEY 
 CVMK     EQU    2           CONVERSION MODE KEY
  
  
**        KEY 4.  INFORMATION RETURNED FOR TAPE FILES ONLY. 
* 
*T        36/VSN, 12/RLN, 7/0, 5/ 4 
*                VSN = VOLUME SERIAL NUMBER.
*                RLN = REEL NUMBER. 
  
 VSNK     EQU    4           VOLUME SERIAL NUMBER KEY 
 RLNK     EQU    4           REEL NUMBER KEY
  
  
**        KEY 14B.  INFORMATION RETURNED FOR TAPE FILES ONLY. 
* 
*T        12/0, 24/BSIZE, 12/PO, 6/NS, 1/0, 5/ 14B
*                BSIZE = MAXIMUM BLOCK SIZE (IN CM WORDS).
*                PO = PROCESSING OPTIONS. 
*                NS = NOISE SIZE (IN FRAMES). 
  
 BSZK     EQU    14B         BLOCK SIZE KEY 
 POPK     EQU    14B         PROCESSING OPTIONS KEY 
 NSZK     EQU    14B         NOISE SIZE KEY 
  
  
**        KEY 15B.  INFORMATION RETURNED FOR ANY LOCAL FILE.
* 
*T        24/ 0, 24/ DSV, 6/ AL, 6/ 15B 
*                DSV = DIRECT ACCESS VALIDATION SIZE (0 IF NOT A
*                      DIRECT ACCESS FILE). 
*                AL  = ACCESS LEVEL.
  
 DSVK     EQU    15B         DIRECT ACCESS FILE VALIDATION SIZE 
 ALVK     EQU    15B         ACCESS LEVEL 
  
  
**        KEY 16B.    INFORMATION RETURNED FOR OPTICAL DISK FILES.
* 
*T        48/ SPACE, 6/ 0, 6/16B
*                SPACE = NUMBER OF SECTORS REMAINING IN FILE IF THIS
*                        FILE IS OPEN FOR WRITE.
*                      = NUMBER OF SECTORS REMAINING IN PARTITION OR
*                        NUMBER OF PRE-ALLOCATED SECTORS REMAINING IF 
*                        IF THIS FILE IS NOT OPEN.
* 
  
 SPOD     EQU    16B         SPACE REMAINING ON OPTICAL DISK
          SPACE  4,10 
**        CHECKPOINT MODE EQUIVALENCES FOR *LFM* FUNCTIONS 14B, 15B,
*         24B, AND 26B (*REQUEST* AND *LABEL* MACROS).
  
  
 CBID     EQU    75B         CHECKPOINT FILE AT BOI 
 CKID     EQU    76B         CHECKPOINT AT EOI
          SPACE  4,10 
          BASE   *
          ENDX
