Type III C lass A Program

IHEFILE--PL/I File Access Routine
Purpose:
IHEFILE converts
corresponding CMS
WRBUF.
PL/I file access requests
commands S-rATE. ERASE" FINIS,
into the
RDBUF" and
The user should be familiar with the operations of the
above-named CMS file system routines. and the error codes
produced by them.
Calling Sequence
CALL IHEFILE ( FCB ) ;
where FeB (File Control Block) is a PL/I structure in the
form illustrated below.
DECLARE 1 FCB,
2 COMMAND CHAR ( 9 ) i, /*CMS command desired */
2 FILENAME CHAR(S) /* CMS filename */
2 FILETYPE CHARCS) /* CMS filetype */
2 CARD NUMBER FIXED BIN (31,0).
/* record number - RDBlJF/WRBUF only
2 STATUS FIXED BIN(31.0),
/* CMS r,.!turn code - o means OK */
2 CARD BUFFER CHAR(80);
/* 80 byte record to be read or written
The SO-byte record need not necessarily be a single
character string. The next 80 bytes of the structure (after
STATUS) are used, whatever they may be. Therefore, binary
integers, character strings, floating-point numbers. etc.
can be used in the following ways:
(1) adding them to structure in place of CARD_BUFFER,
(2) defining another structure positioned on top of
CARD_BUFFER/, or
(3) converting all information into a concatenated
character string and separating out on input by
SOBSTR.
CARD NUMBER must be set for RDBUF/wRBUFusage; it is ignored
for STATE" ERASE, and FINIS. If sequential writing or
reading is to be done, the PL/I program must increment the
CARD NUMBER or set it to zero. During writing. if the card
already exists, it is replaced by the new card. If the card
does not exist (that is, the file is being expanded), the
position of the end-of-file is moved and the new card added
to the file.
STATUS is the CMS return code for the last IHEFILE issued
352 PL/I Programming
*/
*/