ALTER

General Format

ALTER { Procedure-Name-1 TO [ PROCEED TO ] Procedure-Name-2 } ...

General Rules

1.	Procedure-Name-1 must contain only a GO TO statement without DEPENDING clause.

2.	The statement causes the GO TO statement in Procedure-Name-1 to transfer the control to Procedure-Name-2 instead of the declared paragraph.

Note - Since this statement is obsolete then it is not supported in COBOL classes while a warning message is showed every time it is used in COBOL programs.

Examples

Compute simple or complex tax doing an alter of a go to.

main.    perform tax-main thru tax-exit    display message ws-tax    goback.    tax-main.    if tax-type = "complex"        alter go-to-compute-tax to proceed to compute-complex-tax    end-if.    go-to-compute-tax.    go to compute-simple-tax.    compute-complex-tax.    compute ws-tax = ws-amount * ws-base-percent * ws-tax-rate    go to tax-exit.    compute-simple-tax.    compute ws-tax = ws-amount * ws-tax-rate.    tax-exit.    exit.