JOB INPUT NULL, pair-wise GET logic on a parameter file. Test data ends with a lone JOBNAME line and runs fine. Prod data ends with a JOBNAME + parm pair and we A010 on ENTRADA while writing the last good row.
People keep saying "add IF EOF". Feels like I should restructure instead?
Do not slap IF EOF on and call it fixed. When the second GET of a pair is the last record, your code still does another GET, hits EOF, then touches the record area. That is the A010.
Restructure so you never reference the file buffer after a GET that set EOF. PERFORM a read routine, check EOF before using the fields.
Also Easytrieve MOVE is not COBOL MOVE. Prefer assignments. And DEFINE is only required outside the library section.
Rewrote with a read PROC. Both datasets behave the same now.
You must be signed in to reply to this thread