exit and go to 1

[claudeb]

Hi, I have a program that is done in this manner. I would like to know if the paragraph BUILD-MISC-HEADER is performed in case of (NOT A AND NOT U). Thanks a lot.

BUILD-MISC-HEADER.
-------------------------------
PERFORM PAGE
THRU PAGE-X.

BUILD-MISC-HEADER-X.
--------------------
EXIT.

BUILD-MISC-TYPE.
--------------------------
MOVE 1 TO SW.
IF NOT A AND NOT U
GO TO BUILD-MISC-TYPE-T.

ADD 1 TO AAA-AA-A.

PERFORM BUILD-MISC-HEADER
THRU BUILD-MISC-HEADER-X.

BUILD-MISC-TYPE-T.
----------------------------
MOVE 1 TO IX-SW.

IF NOT TRA
GO TO BUILD-MISC-TYPE-X.

PERFORM BUILD-MISC-HEADER
THRU BUILD-MISC-HEADER-X.

ADD 1 TO BBB-BBB.

BUILD-LOOP-TYPE-T1.
--------------------------------
PERFORM IMPRES
THRU IMPRES-X.

PERFORM POLICY-TURN
THRU POLICY-TURN-X.
BUILD-MISC-TYPE-X.
------------------
EXIT.

 

[LaurenC]

Assuming that BUILD-MISC-TYPE is either performed or the target of a GO TO, it would then depend on the definition of TRA. In BUILD-MISC-TYPE-T, if TRA, you would perform BUILD-MISC-HEADER.

 

[slade]

Hi Claude,

Wow, I haven't seen code like that in a long time. To answer your ques:

If TRA is true BUILD-MISC-HEADER is executed, if not, not.
Enjoy your spaghetti.

Bon Appitit, Jack.