アプリ版:「スタンプのみでお礼する」機能のリリースについて

IDENTIFICATION DIVISION.
PROGRAM-ID. KADAI1.
AUTHOR. KYU99
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. WIN-PC.
OBJECT-COMPUTER. MSR-3.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
====SELECT IN-F ASSIGN TO "DEMO.TXT".
====SELECT OU-F ASSIGN TO "MEISAI.TXT".
DATA DIVISION.
FILE SECTION.
FD ( 1 ) BLOCK 10 RECORDS
====LABEL RECORD STANDARD
====DATA RECORD IN-R.
01==IN-R PICTURE X(122).
FD==OU-F LABEL RECORD OMITTED
====DATA RECORD OU-R.
01 ( 2 ) PICTURE X(122).
WORKING-STORAGE SECTION.
01 KAIGA PICTURE X(122).
PROCEDURE DIVISION.
====OPEN INPUT IN-F OUTPUT ( 3 ).
( 4 ). READ IN-F AT END GO TO ( 5 ).
====MOVE SPACE TO OU-R.
====MOVE IN-R TO KAIGA.
====WRITE ( 6 ) FROM KAIGA AFTER O.
====GO TO ( 7 ).
OWARI. CLOSE ( 8 ) OU-F.
====STOP RUN.
これは、学校の課題です。さっぱりわからないのでここで質問しました。
括弧にはいるものを教えてください。ヒントだけでもいいのでよろしくお願いします。=は無視してください。

A 回答 (1件)

COBOLなんていまだに勉強するんですね。


そんなことはさておき・・・。

どの部分がわからないのでしょうか?

FILE SECTIONは入出力ファイル全てを記述します。
(1)は入力ファイル名
(2)は出力(プリントアウト)名
PROCEDURE DIVISIONは実プログラムを記述します。
3-8は
まず、使用するファイルを全てオープンします。
ファイルを読みに行きレコードが終われば終了処理へ
レコードを読んで出力ファイルへ送り、印刷
印刷後、読み込み処理へ戻る
最後にファイルを閉じて
終了

こんな感じだと思います。
宿題の丸投げだと困るので、この程度とさせていただきます。
    • good
    • 0
この回答へのお礼

回答ありがとう御座いました。おかげで、提出することができました。

お礼日時:2002/11/15 07:27

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!