Writing

CALL EPOUTS (LUNIT,MODE,NW,IREC,*IBUF*,IERR*)

Writes one record with standard logical record header (4 words, see important remark on logical record headers in section .

Input parameters:

LUNIT

logical unit number

MODE

transfer more

1:

transfer data as they are (bit string)

2:

pack data before writing, given as 16-bit right adjusted

3:

pack data before writing, given as 32-bit right adjusted

NW

no. of words to be written.
For MODE=1 in units (as defined by physical header word 11), for MODE=2 or =3 in 16 or 32-bit words respectively, i.e. the number of machine words occupied

IREC

area containing the user data.

Input/Output buffer:

IBUF

user provided unit buffer. Must not be touched by user.
Minimum size = (16*status word 1 - 1)/(bits/word) + 1

Output parameters:

IERR

error flag. See separate list.

CALL EPOUTL (LUNIT,MODE,NH,IH,NW,IREC,*IBUF*,IERR*)

This routine writes a user specified logical record header in front of the data, instead of the header produced automatically from the status words. Words 1,3 (and possibly 2 and 4) will be set by the writing routine in any case (basic protection).

The logical record data are given in the same call.

Input parameters:

LUNIT

logical unit number

MODE

transfer more

1:

transfer data as they are (bit string)

2:

pack data before writing, given as 16-bit right adjusted

3:

pack data before writing, given as 32-bit right adjusted

NH

header length in words

IH

array containing header (in unpacked form)

NW

no. of words to be written.
For MODE=1 in units (as defined by physical header word 11), for MODE=2 or =3 in 16 or 32-bit words respectively, i.e. the number of machine words occupied

IREC

area containing the user data.

Input/Output buffer:

IBUF

user provided unit buffer. Must not be touched by user.
Minimum size = (16*status word 1 - 1)/(bits/word) + 1

Output parameters:

IERR

error flag. See separate list.

CALL EPCLOS (LUNIT,*IBUF*,IERR*)

Routine to close output units (write existing physical buffer out - writing may continue afterwards). The physical block count will continue from its current value at re-opening.

Closing an input unit has no effect.

Mandatory at end of job for all output units (or EPEND)

Input parameters:

LUNIT

logical unit number

Input/Output buffer:

IBUF

user provided unit buffer. Must not be touched by user.

Output parameters:

IERR

error flag. See separate list.