Receiving '620 *******A010 INVALID FILE REFERENCE - INFILE' for Easytrieve program reading TSSCFILE.
Easytrieve program receiving:
620 *******A010 INVALID FILE REFERENCE - INFILE'
when reading a CA Top Secret TSSCFILE.
The error occurs if a file field is referenced when the file is no longer active in Eastrieve.
Lines 242 and 621 needed to be modified:
238 PERFORM GET-INFILE 02320002
239 IF EOF-CFILE = 'N' 02330002
240 W-PROC-PROF = 'Y' 02340002
241 END-IF 02350002
242 DO WHILE EOF-CFILE = 'N' AND W-PROC-PROF = 'Y'
243 PERFORM PROCESS-PROFILE 02370002
244 END-DO 02380002
And, at line 621 it should be:
IF EOF-CFILE = 'N' AND P-U-ID NE W-PROFILE