Use the FCBPRINT function to print and dump the file control block (FCB) of a file.
This document covers the following topics:
The number of the file for which the FCB is to be printed/dumped. A file number is required the first time you execute ADAICK.
If FILE is omitted on subsequent executions, the last file accessed by ADAICK is used.
When starting, ADAICK normally performs a utility open call to the nucleus to assure that no blocks of the affected file or files are still in the nucleus buffer pool. However, this also locks the file for other users. Specifying NOOPEN prevents ADAICK from issuing the open call.
When an error is encountered while the function is running, the utility prints an error message and terminates with user abend 34 (with a dump) or user abend 35 (without a dump).
If NOUSERABEND is specified, the utility will not abend after printing the error message. Instead, the message "utility TERMINATED DUE TO ERROR CONDITION" is displayed and the utility terminates with condition code 20.
If the first unused RABN is equal to the last RABN plus 1, then it is very likely that the extent is full and there may be an additional extent. This is true of the first extent in the following example (highlighted in blue). In this case, the first unused RABN is 00002BFE, one more than the last RABN of the extent (00002BFD):
FI 00018 FCB +1A4 First NI RABN: 00002945
FI 00018 FCB +1A8 Last NI RABN: 00002BFD
FI 00018 FCB +1AC First unused NI RABN: 00002BFE
FI 00018 FCB +1B0 First NI RABN: 00002EE3
FI 00018 FCB +1B4 Last NI RABN: 00002FCB
FI 00018 FCB +1B8 First unused NI RABN: 00002FBC
The first unused RABN does not necessarily lie in the next extent.