h28987
s 00042/00000/00000
d D 1.1 83/03/18 13:18:50 tes 1 0
c date and time created 83/03/18 13:18:50 by tes
e
u
4
U
t
T
I 1
divert(-1)
#define(`UNIX')
define(`F80')
#
define(`CHAR',`character*(*)')
#
ifdef(`F80',`define(`SHORTINT',`integer*1')')
#
ifdef(`UNIX',`define(`SHORTINT',`integer*2')')
#
#
define(`MAXFILE',4)   # maximum number of files open at one time
# 
# struct F_C_B {
define(`FxDRIVE',0)    # drive select code (0-16), 0=default, 1=A.. */
define(`FxNAME',1)     # upper case file name (8 characters) */
define(`FxTYPE',9)     # ascii file type */
define(`FxEXT',12)     # current extent number */
define(`FxRESV',13)    # reserved for system use */
define(`FxRC',15)      # record count for "ext" (current extent) */
define(`FxSYDX',16)    # reserved for system use */
define(`FxCR',32)      # current record to read or write in a seq. op. */
define(`FxRECORD',33)  # random record number, 0-65535 */
define(`FxOVERFL',35)  # random record overflow */
 
define(`OPNFIL',15)
define(`CLSFIL',16)
define(`DELFIL',19)
define(`MAKFIL',22)
define(`SETxDMA',26)
define(`READ',33)
define(`WRITE',34)
define(`FILSIZ',35)
 
define(`ExNOFILE',-1)
define(`ExBADNAM',-2)
define(`ExBADREQ',-3)
define(`ExNOFCB',-4)
#
# undefine m4 index macro 
undefine(`index')
divert
E 1
