PASCAL

For calls in PASCAL the format for invoking the TSO/E service facility from functions by using TSOLNK is:

TSOLNK(PARM1,PARM2,PARM3,PARM4,PARM5,PARM6)

In PASCAL programs you should include the following:

Figure 1. Format of the Parameter List Written in PASCAL

PROCEDURE TSOLNK( VAR PARM1:PA4;
                  VAR PARM2:PA80;
                  VAR PARM3:INTEGER;
                  VAR PARM4:INTEGER;
                  VAR PARM5:INTEGER;
                  VAR PARM6:INTEGER);
FORTRAN; (* THIS KEYWORD IS REQUIRED TO ESTABLISH LINKAGE TO TSF *)
VAR
 PARM1:PA4;          (* WORD OF CONTROL BITS *)
 PARM2:PA80;         (* PROGRAM BUFFER       *)
 PARM3:INTEGER;      (* LENGTH OF PROGRAM    *)
 PARM4:INTEGER;      (* FUNCTION RETURN CODE               *)
 PARM5:INTEGER;      (* TSO SERVICE FACILITY REASON CODE   *)
 PARM6:INTEGER;      (* FUNCTION ABEND CODE                *)
 FILEOUT:TEXT;       (* DECLARE OUTPUT FILE NAME           *)