Modifies some FCD fields, to save directly accessing the FCD. You can use this call whether you are issuing standard COBOL I/O statements or calling the File Handler explicitly using the API.
call "MFFH_MODIFY_TRACE" using l-FCD-modifiers
l-FCD-modifiers. | Group item containing: | ||
l-FCD-mod-enable | pic x comp-x. | ||
l-FCD-mod-flag | pic x(4) comp-x. | ||
reserved | pic x(8). |
l-FCD-mod-enable |
| ||||||
l-FCD-mod-flag |
|
None.
The success of the call can be checked by examining RETURN-CODE.
Once a modification is set up, it is applied to every FCD passing into the File Hander until the modification is cleared.
This example enables tracing for all files.
move 1 to l-FCD-mod-enable move h"1102" to l-FCD-mod-flag call "MFFH_MODIFY_TRACE" using l-FCD-modifiers.
This example disables tracing for all files.
move 2 to l-FCD-mod-enable move h"1102" to l-FCD-mod-flag call "MFFH_MODIFY_TRACE" using l-FCD-modifiers.
This example stops the tracing bit being modified from now on for all files. What was set, stays set.
move 3 to l-FCD-mod-enable move h"1102" to l-FCD-mod-flag call "MFFH_MODIFY_TRACE" using l-FCD-modifiers.
This example enables OPEN/CLOSE tracing for all files.
move 1 to l-FCD-mod-enable move h"1808" to l-FCD-mod-flag call "MFFH_MODIFY_TRACE" using l-FCD-modifiers.