How to re-read the same file in one job activity?

Document ID : KB000050926
Last Modified Date : 14/02/2018
Show Technical Document Details

Description:

How can an Easytrieve program be coded to process the same file multiple times within one job activity?

Note you have to code your own file processing loop and not rely on Easytrieve since you want to read the same file more than once.

The following solution is coded for EZT 11.x and makes use of the new CLOSE statement. It will not work for prior releases or compatibility mode.

Solution:

FILE PERSNL F(150)
 %PERSNL
 JOB INPUT NULL
   * First time through
   DO UNTIL EOF PERSNL
     GET PERSNL
     IF REGION EQ 1
       PRINT REPORT1
     END-IF
   END-DO
   CLOSE PERSNL
 
   * Second time through
   DO UNTIL EOF PERSNL
     GET PERSNL
     IF REGION EQ 2
       PRINT REPORT2
     END-IF
   END-DO
   STOP
 
 REPORT REPORT1
   LINE NAME-LAST EMP#
 
 REPORT REPORT2
   LINE NAME-LAST ADDR-ZIP