013goto语句的演示

IDENTIFICATION DIVISION. *>
PROGRAM-ID. EXAM2. *>
ENVIRONMENT DIVISION. *>
DATA DIVISION. *>
WORKING-STORAGE SECTION. *>工作存储节
77 L PICTURE 9.
PROCEDURE DIVISION.
ACCEPT L.
GO TO A,B DEPENDING L.
A. DISPLAY 'A1'.
GO TO F.
B. DISPLAY 'A2'.
GO TO F.
F. DISPLAY 'END'.
STOP RUN.
当输入1,对应A.程序，输出A1字样，当输入2,对应B.程序输出A2字样