Re: pattern for an error

On Wed, 28 May 2008 09:06:02 -0500, "Michael Mattias"
<mmattias@xxxxxxxxxxxxxx> wrote:

In my case, I don't have the option of EXIT PERFORM, so if I wanted to
convert an old CoBOL program to eliminate GO TOs, I would have to
write code.

PERFORM UNTIL some-condition
.....
[END-PERFORM]

There's a lot of old code that looks like this:
PERFORM AAAA THRU AAAA-EXIT UNTIL FILE-EOF.

AAAA.
...
COMPUTE INVENTORY-TYPE = INPUT-TYPE + DATABASE-TYPE.
IF INVENTORY-TYPE > 1212
GO TO AAAA-EXIT
...
READ MY-FILE.
IF FILE-STATUS-OK
CONTINUE
ELSE
GO TO BAD-FILE-STATUS
END-IF.
AAAA-EXIT.
EXIT.


.