u01ad User Exit

User exit u01ad retrieves a value from an attribute of an item in a file. The next line of the Proc specifies the file information.

Syntax

u01ad

file.name item-ID attribute.ref code.number

Parameter(s)

file.name	Name of the file. If the file name is prefixed with an asterisk, the dictionary portion of the file is accessed.
item-ID	Item name.
attribute.ref	Attribute name (or number).
code.number	a	Outputs to the alternative output buffer.
	p	Outputs to the primary input buffer.
	s	Outputs to the current output buffer.
	t	Outputs to the terminal.
	v	Verifies that the file exists.
	va	Verifies that the attribute exists.

Description

This function allows indirect references to values from the input and output buffers by using these special symbols:

%	Indicates the current input buffer value.
#	Indicates the current output buffer value.

NOTE

The same function can be performed with the correlative:

a0(tfile.reference;xn;;a/amc)

where file.reference is the name of the file, n is the n value to retrieve, and a/amc is the attribute-mark count to use.

Example(s)

Direct Reference
pq u01ad control-file co.name 1 s xcan’t find co.name or control.file	Reads attribute 1 of the item called co.name in the file named control-file and places it in the current output buffer.
Indirect Reference
pq u01ad %2 %3 %4 p xsomething went wrong... d0	Reads the attribute number as defined in the fourth location of the input buffer, using the item-ID from the third location and the file name from the second location.