The following program allows a 7 or 9-track FR80 Dump Tape to be listed on the 1906A. The macro is:
:GSIN10.FR80LIST
which may be run either as a RUNJOB, or indirectly by the 1906A Operators:
RUNJOB jobname,username,:GSIN10.FR80LIST, PARAM(parameterlist)
or
FR80 LIST, parameterlist
The following parameters are permissible.
A banner heading:
FR80LIST
will appear on the first page of output. This will be followed by any name specified by this parameter. Usually, name will be the username of the person wishing to receive the output. It should always be present when the listing is initiated by the 1906A Operators.
If no further parameters are present, every source file on the tape will be listed. Selective listing can be obtained by using:
This parameter may occur many times, and specifies the file names, or directories, to be listed from the tape.
In each case, named files must be given in the exact form in which they are stored in the FR80 - two sets of 6 characters, with no extra spaces, and no directory names:
III109 III166INVAR
The files must be in the correct order on the tape.
If a name is followed by a semicolon, it is taken as a directory name (3 characters only). In this case, every source file in that directory is listed, and the tape is rewound ready for the next name. However, reading to the end of tape in this way sometimes causes a tape failure, which will abort the job. Consequently, it is advisable to put the directory name at the end or any list of individual files.
Binary files will be skipped.
Example
IN MYFILE III109 and *CRMYFILE SYM; ****
is equivalent to
*FLIII109,*FLSYM;
The tape will be requested as
FR80 (NONSTANDARD)
It should be given to the operators beforehand, who should also be told whether the tape is 7 or 9-track.
Unrecognised characters will be noted in the monitor file, and replaced by / in the listing.
There will be a page throw between files, but any form feed characters encountered in a file, will give rise to (FORM FEED) on the listing.
Tape errors are recorded on the listing as a string of **.
Tabs will be interpreted at every 8th position, and will be at least 2 spaces.
Operator request, listing of directory ROB.
FR80 LIST,*NMCSIN10,*FLROB;
User job, listing 2 files to named output file
RJ MYMOP,:GSIN10.FR80LIST,PARAM(*LPMYLIST,*FLIII109,*FLIII109GO),- JD(JT60SECS)