ENFORM User's Guide

Interface Procedures
Host Language Interface
6–20 058058 Tandem Computers Incorporated
Figure 6-10. FORTRAN Host Language Program (Page 1 of 2)
?symbols
IMPLICIT INTEGER(E)
INTEGER CONTROLBLOCK(36)
INTEGER COUNT
INTEGER*4 COMPILEDQUERY(6)
INTEGER ERRORNUMBER
INTEGER MASK
INTEGER IX
C The BUF record holds data returned from the ENFORMRECEIVE procedure. The
C two equivalent declarations let it be used as an integer for the ENFORM interface
C or as character strings for FORTRAN
RECORD BUF
RECORD BUF1
INTEGER*2 BUFFER(18)
END RECORD
RECORD BUF2
CHARACTER*4 EMPNUM
CHARACTER*18 EMPNAME
CHARACTER*12 JOB
INTEGER*2 AGE
END RECORD
EQUIVALENCE (BUF1,BUF2)
END RECORD
C Initialize four parameters, starting with the file name of the compiled ENFORM
C query. The first DATA statement loads the file name $DATA.QUERIES.ENFRMOBJ
C into the 12-word (24-byte) integer array.
DATA (COMPILEDQUERY(I),I=1,6) /'$DAT','A ',
1 'QUER', 'IES ', 'ENFR', 'MOBJ'/
DATA ERRORNUMBER /0/
DATA MASK /%17400/
DATA IX /1/