by BillyBoyo » Thu Dec 06, 2012 3:25 pm
Well, you don't have a loop, but since you've coded "STOP RUN" in the second paragraph of your PERFORM ... THRU then the compiler has noticed you will never be able to return from the PERFORM.
Some comments and tips:
Use 88-level Condition Names in place of your test for literal values. You give the 88 a meaningful name, and the code is much clearer.
You list the valid options, but your test does not allow for all of them.
Don't have both GOBACK and STOP RUN. Better to just use GOBACK.
No need to use full-stops/periods in the Procedure Division except to end paragraph/section/program and after the PROCEDURE DIVISION itself.
Use meaningful names. You say "ABEND" when this is not caused.
Don't INITIALIZE things unnecessarily. RPT-LINE is not used before it is the target of a MOVE, so it's value at the start of the MOVE is irrelevant.
Use a data-name for your literal 4, again allowing you to describe what the four means.
Can you show the definition of PARM-VALUE, including the group it is part of, please.
- These users thanked the author BillyBoyo for the post:
- chenky (Thu Dec 06, 2012 3:43 pm)