附加文件到当前文件

Synopsis

FAPEND/TXT,file#,'filespec'[,IFERR,label:]

Description

This statement retrieves a copy of a text file and appends it to the end of the file currently in the specified scratch file.

If no text currently exists in the scratch file, the appended text will still be appended as the only text in the file.

Parameters

Parameter

Description

TXT

Minor word which indicates that the file to be appended is a text file.

file#

The number of the scratch file to which the specified file is to be appended. Ten scratch file areas are available, therefore, the specified number must be between 1 and 10.

NOTE: GRIP NC CLS files also access scratch file 1. If accessing scratch file 1, you should first check to make sure no other file is there, or that file will be lost. See the example in File Management Statements table.

'filespec'

The filespec of the file to be retrieved and appended to the file currently in the specified scratch file.

IFERR,label:

Specifies a label to which the program jumps if an error occurs.

Parameter	Description
TXT	Minor word which indicates that the file to be appended is a text file.
file#	The number of the scratch file to which the specified file is to be appended. Ten scratch file areas are available, therefore, the specified number must be between 1 and 10. NOTE: GRIP NC CLS files also access scratch file 1. If accessing scratch file 1, you should first check to make sure no other file is there, or that file will be lost. See the example in File Management Statements table.
'filespec'	The filespec of the file to be retrieved and appended to the file currently in the specified scratch file.
IFERR,label:	Specifies a label to which the program jumps if an error occurs.