FTOPEN—begin file tailoring

The FTOPEN service, which begins the file tailoring process, allows skeleton files to be accessed from the skeleton library specified by ddname ISPSLIB. The skeleton library must be allocated before invoking ISPF. ISPSLIB can specify a concatenation of files.

If output from file tailoring is not to be placed in a temporary file, the desired output file must be allocated to the ddname ISPFILE before invoking this service. ISPFILE can designate either a library or a sequential file. The skeleton files can contain variable-length records, with a maximum record length of 255.

The same rules apply for DBCS-related variable substitution in file tailoring as those described for file skeleton definition.

Command invocation format


>>-ISPEXEC--FTOPEN--+------+-----------------------------------><
                    '-TEMP-'

Call invocation format


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


>>-CALL--ISPLINK--('FTOPENbb'--,-+-'TEMPbbbb'-+--);------------><
                                 '-'b'--------'

Parameters

TEMP

Specifies that the output of the file tailoring process should be placed in a temporary sequential file. Output is fixed-length 80-byte records. The file is automatically allocated by ISPF. Its name is available in system variable ZTEMPF.

If this parameter is omitted, the output is placed in the library or sequential file designated by ddname ISPFILE.

ZTEMPF contains a fully qualified data set name. ZTEMPN contains the ddname. Generated JCL in this file can be substituted for background execution by using the TSO command:

SUBMIT '&ZTEMPF'

Before issuing the SUBMIT command, the VGET service should be invoked to initialize the variable ZTEMPF, and the FTCLOSE service must be invoked to ensure that all of the file tailoring output is included.

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: File tailoring already in progress.
16: Skeleton library or output file not allocated.
12: Output file in use; ENQ failed.
20: Severe error.

Example

Prepare for access (open) both the file tailoring skeleton and file tailoring output libraries.

ISPEXEC FTOPEN

Set the program variable BUFFER to contain:

FTOPEN

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

CALL ISPEXEC (BUFLEN, BUFFER);

or alternately:

CALL ISPLINK ('FTOPEN  ');