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-35After 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.