【例】
1 1 2 2 2 3 3 4 4 4 5 5 6 6 6 7
7----2---6---0---4---8---2---6---0---4---8---2---6---0---4---8---2
IF ( A = B )
MOVE 1 TO A
ELSE
MOVE 2 TO A
END-IF.
IF ( ( A = B )
AND ( ( B = 1 )
OR ( B = 2 ) ) )
PERFORM ARE
END-IF.
PERFORM
UNTIL ( FLG-EOF = FLG-FALSE )
PERFORM ITEM-SET
PERFORM REC-WRITE
END-PERFORM.
PERFORM VARYING I FROM 1 BY 1
UNTIL ( I > 10 )
COMPUTE J = A(I) + J
END-PERFORM.
EVALUATE A
WHEN 1
PERFORM A-IS-1
WHEN 2
PERFORM A-IS-2
WHEN OTHER
CONTINUE
END-EVALUATE.
EVALUATE TRUE
WHEN ( ( A = 1 )
AND ( C = B ) )
PERFORM ACB
WHEN ( ( A = 2 )
AND ( C = D ) )
PERFORM ACD
WHEN OTHER
CONTINUE
END-EVALUATE.