2.5.143 JMN3219I-I

(CONF)PERFORM文の一意名の増加の順序は次のとおりです．まず，VARYING指定の一意名にBY指定の現在値を加えます．次に，AFTER指定の一意名をFROM指定の現在値に等しくします．

例題

[C3219.cob]
000001 @OPTIONS CONF(74)
000002 IDENTIFICATION DIVISION.
000003 PROGRAM-ID.  C3219.
000004 ENVIRONMENT  DIVISION.
000005 DATA  DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01  A     PIC 9(2) BINARY.
000008 01  B     PIC 9(2) BINARY.
000009 01  C     PIC 9(2) BINARY.
000010 01  X     PIC 9(2) BINARY.
000011 01  Y     PIC 9(2) BINARY.
000012 01  Z     PIC 9(2) BINARY.
000013 PROCEDURE  DIVISION.
000014     PERFORM L1 VARYING A FROM B BY C UNTIL A = B
000015                AFTER   X FROM Y BY Z UNTIL X = Y.
000016  L1.
000017     STOP RUN.

C3219.cob 15: JMN3219I-I (CONF)PERFORM文の一意名の増加の順序は次のとおりです．まず，VARYING指定の一意名にBY指定の現在値を加えます．次に，AFTER指定の一意名をFROM指定の現在値に等しくします．