COBOL入門　Mission3-2　20件ごとにストップ

処 理 内 容 PROGRAM-ID 難易度 言語 20件表示ごとに一旦止める LST002 1 COBOL

１：処理図 ２：処理概要 [LST001に条件追加] 20件表示ごとに処理を一旦止める カウント数を表示しつつ、カウントが20になったら処理を一旦止めること。また一旦止めた後は、カウントをゼロに戻すこと (次をまた１からカウントするため） ※図は手違いでLST020になってます

３：ファイル名称 I-O 外部ファイル名 編成 KP/KL RL/BF access （１）ソースプログラム in C:\cobol\lst002.cbl seq 　/　 72/1 順

６：その他 ☆条件の判定について [ IF ] IF 条件 THEN 条件肯定時の命令 　ELSE 条件否定時の命令 END-IF ※THENは省略可能です ☆一時停止命令 [ STOP ] STOP "任意の文字列" ※文字列が画面に表示されるメッセージになります

 IDENTIFICATION             DIVISION.
 PROGRAM-ID.                LST002.
 ENVIRONMENT                DIVISION.
 INPUT-OUTPUT               SECTION.
 FILE-CONTROL.
     SELECT  F1  ASSIGN  TO  "C:\COBOL\LST002.CBL"  STATUS  FST
                         ACCESS  MODE  IS  SEQUENTIAL.
 DATA                       DIVISION.
 FILE                       SECTION.
 FD  F1.
 01  F1R                    PIC X(72).
 WORKING-STORAGE            SECTION.
 01  FST                    PIC X(02) VALUE SPACE.
 01  CNT                    PIC 9(02) VALUE 0.
 PROCEDURE                  DIVISION.
     OPEN  INPUT  F1
     PERFORM  UNTIL  FST NOT  =  "00"
        READ  F1
           END
              DISPLAY "<<< LST002 - ENDED >>>"
           NOT  END
              DISPLAY F1R
              ADD  1  TO  CNT
              IF  CNT  =  20
                  STOP  "ABC"
                  MOVE  0  TO  CNT
              ELSE
                  DISPLAY  F1R
              END-IF
        END-READ
     END-PERFORM
     CLOSE  F1
     STOP   RUN.

20までカウントアップして20になったら一旦止めてカウンタをゼロに戻す。まあこれは簡単ですよね。