Software Reference Manual - NetEx

FORTRAN Entry
The entry to the record module should be declared as shown in Figure 17
SUBROUTINE rmod (BUF,BUFLEN,BUFLEV,MSG,MSGLEN,MSGLEV,
+ RPARM,MODE,DDNAME)
type BUF(1)
INTEGER*4 BUFLEN,BUFLEV,MSGLEN,MSGLEV,MODE
CHARACTER*128 MSG
CHARACTER*64 RPARM
CHARACTER*8 DDNAME
. FORTRAN Record Module Entry Parameters
Figure 17. FORTRAN Record Module Entry Parameters
The following parameters appear in Figure 17
rmod
This parameter is the record module name.
BUF
This parameter specifies the start of the logical record information. For a receiving record module,
the logical record information will start at the beginning of the BUF array. For a sending record
module, the record should be placed starting at the beginning of the BUF array.
BUFLEN
BUFLEV
This parameter specifies the length of the logical record in bytes. When the record module is called
for the first time, BUFLEN will have the maximum logical record length permissible with the user’s
BLOCK parameter. If the record module decides this value it can change the value of BUFLEN (and
hence the BFX buffer size) before returning to the block module. On subsequent calls, the receiving
record module will obtain the logical record length in this parameter. Sending block modules should
specify the length of the outgoing record with this variable.
This parameter specifies a binary number that contains the delimiter level of the record to be sent or
accepted. This is a binary value in the range of 0 to 15. Normally, this value is one to indicate the
normal end of a logical record. A value of 15 indicates that this record is to be the last record transferred,
referred to as End of Information in the BFX specifications. Intermediated values are used by
computer operating systems that have a hierarchy of end delimiters in their file structure, such as the
EOR, EOF, and EOI indications in CDC CYBER data files.
BUFLEV has a second use: to signal when the record module is entered for the first time. On that
first entry, BUFLEV will have a value of -1. On all other entries, it will have a value greater than or
equal to zero. Thus BUFLEV < 0 can be used as a conclusive test for first time (initialization) entry
to the record module.
If the record module is receiving data, then BUFLEV will contain the delimiter level of the file delimiter
following the record provided in BUF. A record may or may not accompany this delimiter; if it
does not, then BUFLEN will be set to zero. If the passed BUFLEV is 15, then this will be the last
Page 60 Appendix A: User Modules MAN-REF-H211-05