FORTRAN and Pascal

The general call format for invoking ISPF services from FORTRAN or Pascal functions is either of these:

lastrc = ISPLNK (service-name, parameter1, parameter2, ...)
lastrc = ISPEX (buf-len, buffer)

The parameters for ISPLNK and ISPEX are the same as those for ISPLINK, as described in CALL ISPLINK parameters, and for ISPEXEC, as described in CALL ISPEXEC parameters.

The lastrc variable is both a FORTRAN and a Pascal integer variable that contains the return code from the specified ISPF service. The lastrc variable is any valid FORTRAN or Pascal name.

For functions written in FORTRAN, arguments can be passed as either variables or literals.

ISPF services can be issued from dialog function modules that reside either below or above the 16-megabyte line. The dialog interface module ISPLINK (and alias entry points ISPLNK, ISPEXEC, ISPEX, and ISPQRY) has the attributes RMODE(ANY) and AMODE(ANY). This allows a 31-bit addressing mode caller. Data areas below the 16-megabyte line are also supported.

Note: The ISPLINK module is shipped with the RMODE(ANY). The load module is link-edited RMODE(24) and AMODE(ANY) to maintain compatibility with ISPF dialogs that have the AMODE(24) attribute and that use a LOAD and CALL interface to ISPLINK. ISPLINK can reside above the 16-megabyte line.