Returns the open number for the file.
Syntax
For C:
#include "usrdecs" short result; short fopen_num; result = GET_FOPEN_NUM(&fopen_num);
For TAL:
?source usrdect int result; int .ext fopen_num; result := GET_FOPEN_NUM (fopen_num);
For COBOL:
?CONSULT =EXTRACT (or =REPLICAT) 01 result PIC S9(4) COMP. 01 fopen-num PIC S9(4) COMP. ENTER C "GET_FOPEN_NUM" using fopen-num giving result.