FRELATE

NM and CM callable.

Determines whether a file pair (on any device) is interactive, duplicative, or both interactive and duplicative.

Syntax

     U16               I16V      I16V

   intordup:=FRELATE(infilenum,listfilenum);

Functional Return

intordup

16-bit unsigned integer (assigned functional return)

Returns values indicating whether the two files referenced are interactive and/or duplicative:

Bits	Value/Meaning
15:1	0 Files specified by `infilenum` and `listfilenum` do not form an interactive pair. 1 Files specified by `infilenum` and `listfilenum` form an interactive pair.
0:1	0 Files specified by `infilenum` and `listfilenum` do not form a duplicative pair. 1 Files specified by `infilenum` and `listfilenum` form a duplicative pair.

Parameters

infilenum

16-bit signed integer by value (required)

Passes the file number of the input file.

listfilenum

16-bit signed integer by value (required)

Passes the file number of the list file.

Operation Notes

A device file is interactive if it requires human intervention for all input operations; this is necessary to establish the person/machine dialog required to support a session.

A device file is duplicative if all input operations are echoed to a corresponding display without intervention by the operating system software.

The interactive/duplicative attributes of a file pair do not change between the time the files are opened and closed.

(KSAM) This intrinsic cannot be used for KSAM files. If called for a file created as a KSAM file, CCL (1) is returned.

Condition Codes

CCE (2): Request granted.
CCG (0): Request denied. Infilenum and/or listfilenum corresponds to $NULL (a logical file that contains no data). No data can be read from this file, and all data written to it is discarded. Interactive or duplicative functions do not apply.
CCL (1): Request denied. An error occurred.

Related Information

Intrinsics: None
Commands: None
Manuals: Accessing Files Programmer's Guide (32650-90017) and Getting System Information Programmer's Guide (32650-90018)