Use this code

JOB statement with START and FINISH procs in Easytrieve

Consider reading about JOB INPUT statements and PROCs in Easytrieve to know about JOB and PROC in easytrieve (not the usual JOB and PROC in JCL !).

 LIST ON
 JOB INPUT NULL START BEGIN-PROC FINISH FINAL-PROC
   PERFORM MID-PROC
   DISPLAY ' IN THE JOB '
 STOP
*
 BEGIN-PROC. PROC
   DISPLAY ' STARTING ..'
 END-PROC
*
 FINAL-PROC. PROC
   DISPLAY ' ENDING ..'
 END-PROC
*
 MID-PROC. PROC
   DISPLAY ' MIDDLE ..'
 END-PROC
*

In the above program, BEGIN-PROC will execute first (before starting the JOB block) and FINAL-PROC will be executed after the JOB statements are complete. hence, output of this program will look like,

 STARTING ..
 MIDDLE ..
 IN THE JOB
 ENDING ..

Related Posts

• Easytrieve – check if value IS NUMERIC in an alpha variable
• Easytrieve program to parse a string
• simple and nested IF-ELSE-ENDIF statement in Easytrieve
• Comments in Easytrieve (start with *)
• Easytrieve Error messages A0** and B0**
• SYSDATE and SYSTIME in Easytrieve
• PROC (perform paragraph) in Easytrieve
• GOTO statement in Easytrieve
• SORT in Easytrieve
• EDIT MASKS – Masking variables in Easytrieve