cobolプログラムをCSV出力しても空白に...
2度目の質問です。
宜しくお願いします。
COBOLを勉強し始めて間もないのですが、プログラムを何とか参考書を見ながら書いており、
エラーが出なくなったのですが、CSVファイルで出力しても空白になってしまい、原因がわからず困惑しております。
以下、プログラムを記載します。
何が原因がわかる方おりましたらアドバイスをいただけると幸いです。
IDENTIFICATION DIVISION.
PROGRAM-ID. REI-01.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO
"C:\COBOL\kamokuUT2.txt"
ORGANIZATION LINE SEQUENTIAL.
SELECT OUTFILE ASSIGN TO
"C:\COBOL\UT2.csv"
ORGANIZATION LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 INREC.
02 I-NUMBER PIC 9(2).
02 I-NAME PIC X(20).
02 I-KAMOKU-SYURUI PIC 9(3).
02 I-KAMOKU-TEN PIC X(3).
FD OUTFILE.
01 OUTREC PIC X(32).
01 W-MIDASHI.
02 W-ID PIC X(8) VALUE "社員番号".
02 W-COMMA PIC X(1) VALUE ",".
02 W-NAME PIC X(4) VALUE "名前".
02 W-COMMA PIC X(1) VALUE ",".
02 W-KAMOKU PIC X(4) VALUE "科目".
02 W-COMMA PIC X(1) VALUE ",".
02 W-TEN PIC X(4) VALUE "点数".
02 W-COMMA PIC X(1) VALUE ",".
01 W-MEISAI.
02 O-NUMBER PIC 9(2).
02 O-COMMA PIC X(1) VALUE ",".
02 O-NAME PIC X(20).
02 O-COMMA PIC X(1) VALUE ",".
02 O-KAMOKU-SYURUI PIC 9(3).
02 O-COMMA PIC X(1) VALUE ",".
02 O-KAMOKU-TEN PIC X(3).
02 O-COMMA PIC X(1) VALUE ",".
WORKING-STORAGE SECTION.
77 W-FLAG PIC X(1).
PROCEDURE DIVISION.
PERFORM MAE-SHORI THRU MAE-SHORI-EXIT
PERFORM SHU-SHORI THRU SHU-SHORI-EXIT
UNTIL W-FLAG = "1"
PERFORM ATO-SHORI THRU ATO-SHORI-EXIT
STOP RUN.
MAE-SHORI.
OPEN INPUT INFILE
OUTPUT OUTFILE
MOVE "0" TO W-FLAG
READ INFILE
AT END MOVE "1" TO W-FLAG
END-READ.
MAE-SHORI-EXIT.
EXIT.
SHU-SHORI.
WRITE OUTREC FROM W-MIDASHI.
IF I-KAMOKU-TEN >= 70
THEN MOVE I-NUMBER TO O-NUMBER
MOVE I-NAME TO O-NAME
MOVE I-KAMOKU-SYURUI TO O-KAMOKU-SYURUI
MOVE I-KAMOKU-TEN TO O-KAMOKU-TEN
WRITE OUTREC FROM W-MEISAI
ELSE CONTINUE
END-IF.
READ INFILE
AT END MOVE "1" TO W-FLAG
END-READ.
SHU-SHORI-EXIT.
EXIT.
ATO-SHORI.
CLOSE INFILE OUTFILE.
ATO-SHORI-EXIT.
EXIT.
【出力ファイル.csv】の完成系ですが、
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
社員番号 名前 科目 点数
01 ○○ 010 073
・ ・ ・ ・
・ ・ ・ ・
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
【入力ファイル.txt】はこのような形です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
01あああああいいいいい010070
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
※入力ファイルの得点が70点以上のファイルのみ出力したいのですが・・・
長文になってしまいましたが宜しくお願いします。
お礼
PIC 9(1)になっていました…… 以前作ったファイルをコピーして編集したので、 恥ずかしながら見落としていました・・・・。 ありがとうございます！！！！！！！！ おかげさまで１５回でバチッと終わりました。