FTINCL—include a skeleton

The FTINCL service specifies the skeleton that is to be used to produce the file tailoring output. If an FTOPEN service has not already been issued, the FTINCL service performs the equivalent of an FTOPEN, without the TEMP keyword, before processing the specified skeleton.

Command invocation format


>>-ISPEXEC--FTINCL--skel-name--+------+--+-----+---------------><
                               '-NOFT-'  '-EXT-'

Call invocation format


>>-CALL--ISPEXEC--(buf-len,--buffer);--------------------------><


>>-CALL--ISPLINK--('FTINCLbb'--,--skel-name--,-+-'NOFTbbbb'-+--->
                                               '-'b'--------'   

>--,-+-'EXTbbbbb'-+--);----------------------------------------><
     '-'b'--------'

Parameters

skel-name: Specifies the name of the skeleton.
NOFT: Specifies that no file tailoring is to be performed on the skeleton: the entire skeleton is to be copied to the output file exactly as is with no variable substitution or interpretation of control records.
EXT: Enables support for built-in functions in all skeletons processed by the FTINCL call, unless the NOEXT parameter is specifically included on the )IM control statement when embedding a lower level skeleton.
buf-len: Specifies a fullword fixed binary integer containing the length of "buffer".
buffer: Specifies a buffer containing the name of the service and its parameters in the same form as they would appear in an ISPEXEC call for a command procedure.

Return codes

These return codes are possible:

0: Normal completion.
8: Skeleton does not exist.
12: Skeleton in use; ENQ failed.
16: Data truncation occurred or skeleton library or output file not allocated.
20: Severe error.

Example

Perform file tailoring using the file tailoring skeleton named TELSKEL, a member in the file tailoring skeleton library, to control processing.

ISPEXEC FTINCL TELSKEL

or Set the program variable BUFFER to contain:

FTINCL TELSKEL

Set program variable BUFLEN to the length of the variable BUFFER. Enter the command:

CALL ISPEXEC (BUFLEN, BUFFER);

or alternately:

CALL ISPLINK ('FTINCL  ','TELSKEL ');