000050 IDENTIFICATION DIVISION.
000060 PROGRAM-ID. SAMPLE2.
000060*
000070 DATA DIVISION.
000080 WORKING-STORAGE SECTION.
000060*
000090 01 ALP-G.
000060   02 ALP PIC X(26) VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
000100   02 ALP-R REDEFINES ALP.
000110     03 CHAR OCCURS 26 TIMES PIC X.
000120 01 IN-DATA PIC X.
000130 01 COUNTER PIC 9(2).
000060*
000140 PROCEDURE DIVISION.
000150     DISPLAY "英大文字を1字、入力してください。 >> " WITH NO ADVANCING.
000160     ACCEPT IN-DATA.
000170     PERFORM TEST BEFORE
000180         VARYING COUNTER FROM 1 BY 1 UNTIL COUNTER > 26
000190*----------------------------------------------------------------
000200* COUNTERを添字にして、入力された文字と比較します。
000220*----------------------------------------------------------------
000230         IF IN-DATA = CHAR(COUNTER) THEN
000240*----------------------------------------------------------------
000250             EXIT PERFORM
000260         END-IF
000270     END-PERFORM.
000060*
000280     IF COUNTER <= 26 THEN
000290         DISPLAY IN-DATA "は、アルファベットで" COUNTER "番目の文字です。"
000300     ELSE
000310         DISPLAY "入力文字に誤りがあります。"
000320     END-IF.
000330 END PROGRAM SAMPLE2.