As we use paragraph / section in COBOL, that can be executed multiple times using perform statement, we can use PROC in Easytrieve that can be called using PERFORM statement.
Below example will help you understand the syntax of PROC and PERFORM.
LIST ON
FILE INMAST FB 4
IN-NUM 1 4 N
JOB INPUT INMAST
PERFORM DISP-LINE
END-JOB
*
DISP-LINE. PROC
DISPLAY 'IN-NUM IS: ' IN-NUM
END-PROC
*
File INMAST:
0001 0002 0003 0004
the output of this program is
IN-NUM IS: 0001 IN-NUM IS: 0002 IN-NUM IS: 0003 IN-NUM IS: 0004
Use this code 