Use the format described for your operating system.

Use the format below when coding a FORTRAN procedure:

In FORTRAN, the procedure is declared as a subroutine or function. It cannot be a program.

Integers are passed as four bytes by reference, floats are passed as double-format floats by reference, and strings are passed in accordance with the string format used by your FORTRAN compiler. Use the character *(size) format for all character types, where size corresponds to the actual length of the table field or is large enough to hold any expected string. Consider this call to a procedure q:

The following declarations are required:

FORTRAN subroutines cannot return values to 4GL. To return a status to 4GL, the called procedure must be a FORTRAN function rather than a subroutine.

A FORTRAN function returns integer, real*8, or character *(size) values. The maximum allowable size for a string is 512 bytes. FORTRAN does not return the actual size of the string to 4GL. If the receiving string in 4GL is a variable-length character type, trailing blanks are truncated when the string returns. The three procedures are shown below.

To return an integer:

To return a floating-point value:

To return a character string: