mme gefsye zero CC,ARGLIST zero 43,BUFFER
This version of MME GEFSYE obtains information about all the files allocated for this program. The argument list indicated by ARGLIST has the form
zero RETURN_WORD,INF_PTR zero -1,BUFSIZEwhere
dec -1as the second word of the argument list.
The information block contains information about all files that are currently allocated. The first word of the block has the form
Bit 0: if 1, error returned from Integrity Control
1: if 1, an update file with RDERR/JOURNAL/
is present
2: if 1, a file with ABORT/ARCHIVE/ is present
3: if 1, a file with RDERR/DUP/ is present
4: if 1, a file with ACCESS/MONITOR/ is present
5: if 1, a file with I/O controlled by
Integrity Control is present
6: reserved
7: if 1, an update file with ABORT/ROLLBACK/ or
TEST allocation is present
8: if 1, an update file with VERIFY/YES/ is
present
9: if 1, temporary random files are allocated
10: if 1, temporary sequential files are
allocated
11: if 1, files with TEST allocation are present
12: if 1, files with TEST allocation are present
as well as update PRMFLs without TEST
13: if 1, user-supplied before images should not
be taken for efficiency reasons
14-17: reserved
18-35: number (M) of mass storage files allocated;
M must be <= BUFSIZ-35
After this word comes M additional words, each describing an allocated file.
Each of these words has the following form.
Bit 0: if 1, error returned by Integrity Control
1: if 1, file has update allocation with
RDERR/JOURNAL/ protection
2: if 1, file has ABORT/ARCHIVE/ protection
3: if 1, file has RDERR/DUP/ protection
4: if 1, file has ACCESS/MONITOR/ protection
5: if 1, file I/O controlled by Integrity
Control
6: reserved
7: if 1, file has update allocation with
ABORT/ROLLBACK/
8: if 1, file has update allocation with
VERIFY/YES/
9: if 1, file is permanent
10: if 1, file is not catalogued
11: if 1, file has random allocation
12-17: number of sectors per page (protected
files only)
18-21: allocation type from PAT pointer:
0000 Execute
0010 Append
0110 Load
0111 Recovery
1000 Read
1001 Read concurrent
1010 Read and append
1011 Query
1100 Write
1101 Write concurrent
1110 Test
1111 Test concurrent
22-23: reserved
24-35: file code
Copyright © 2000, Thinkage Ltd.