I
I
I
I
2.
After the deck and PRELIB have run, assume the previous environment.
This
example allocates files 54 and 56 on the system pack and leaves file 55 on
scratch device 854/2.
This job assumes the device number of the system
device is 8541.
$JOB,
~
,
$ RAT, 854/8541
$CLOSE,54
$FET, MSOS,
FILE54~
512, 00, 0000, 0000
$RELEASE, ALL
$ALLOCATE, 100, 991230
$CLOSE,56
$FET, MSOS, FILE56, 960, 00, 0000, 0000
$RELEASE, ALL
$ALLOCATE, 130, 991230
~~end-
of-file
3.
The following job releases the system scratch files· and reallocates them on
the most extreme tracks.
txxx
II-7-2
$JOB,
~,
$CLOSE,54
$FET, MSOS, FILE54, 512,00, 0000, 0000
$RELEASE, ALL
$CLOSE,55
$FET, MSOS, FILE55, 512,00, 0000, 0000
$RELEASE, ALL
$CLOSE,56
$RAT,854/8541
$FET, MSOS, FILE56, 960,00, 0000, 0000
$RELEASE, ALL
$FET, DUMMY, TEMPORARY, 4096
$ALLOCATE, xxx, 000001 t
$FET, MSOS, FILE55, 512, 00, 0000,0000
$ALLOCATE, 64, 999999
$OPEN,55
$FET, MSOS, FILE54, 512, 00,0000,0000
$ALLOCATE,1
the number of free tracks beyond the OCAREM and library files minus two
tracks for files 54 and 56, and 64 tracks for file 55.
60410800 D
Need help?
Do you have a question about the 3170 and is the answer not in the manual?
Questions and answers