PUT

Write fixed-length data

WTSupported in traditional Synergy on Windows
WNSupported in Synergy .NET on Windows
USupported on UNIX
VSupported on OpenVMS
PUT(channel, data_area, record) [[error_list]]

Arguments

channel

The channel to which you want to send data. The channel must already have been opened in output, append, or update mode with no submode specified. (n)

On OpenVMS, the file must have a stream record format.

data_area

An expression whose contents are to be written. The size of the result of the expression determines the number of characters transmitted. For example, an a623 variable causes 623 characters to be written. (a)

record

An expression defining which record is written. If the value is less than 1, you’ll get an “Illegal record number specified” error ($ERR_RECNUM). (n)

error_list

(optional) An I/O error list. If any one of the specified errors occurs during the PUT, control is transferred to the associated label.

Discussion

The PUT statement performs random-access binary output. It does not interpret the data being transmitted. It assumes that each character is an 8-bit binary value.

The record number is interpreted according to the size of the data area. The position of the first character is calculated as follows:

((record - 1) * (size of data_area)) + 1

During PUT processing, record terminators are not automatically attached or stripped.

Examples

The examples below use the following data division.

record
    area1               ,a38
    area2               ,a1967
    area3               ,a5

The following example sends the 157th five-byte record to the specified channel. The record starts at position 781 from the beginning of the file [ ((157–1) * 5) + 1 = 781 ].

put(CHN, area3, 157)

The next example sends the 1967-byte record whose number is defined by recno to the file opened on CHN. If a trappable error occurs, control immediately transfers to the statement labeled lbl1.

put(CHN, area2, recno) [err=lbl1]