Re: IF statement, I don't understand this


"Frank Swarbrick" <Frank.Swarbrick@xxxxxxxxxxxxxx> wrote in message
news:492nekFmm166U1@xxxxxxxxxxxxxxxxx

It would perhaps be nice of 88-level
usage could be "tweaked" a bit so that we could have something like...

01 ACCOUNT-TYPE PIC 99.
88 INTEREST-BEARING VALUES 11, 21, 31, 41.
88 NON-INTEREST VALUES 10, 20, 30, 40.

IF ACCOUNT-TYPE IS INTEREST-BEARING
PERFORM CALCULATE-INTEREST
END-IF

A bit more verbose, which I'm generally not in favor of, but it seems to
me
to have no other downsides.

Although it's not quite so clear, "IF INTEREST-BEARING OF [or IN]
ACCOUNT-TYPE ..." is legal COBOL. Qualification in general is allowed
whether or not it is necessary to establish uniqueness of reference, and
qualification of condition-names is by the conditional-variable-names with
which they're associated.

-Chuck Stevens


.