Easytrieve reading CA Top Secret TSSCFILE and receiving '620 *******A010 INVALID FILE REFERENCE - INFILE'

Products

• Top Secret
• Top Secret - LDAP

Issue/Introduction

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.

Environment

Release: TOPSEC00200-15-Top Secret-Security
Component:

Resolution

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