※ ChatGPTを利用し、要約された質問です（原文：cobolプログラムをCSV出力しても空白に...）
COBOLプログラムでCSV出力時に空白になる問題の解決方法は？
このQ&Aのポイント
COBOLプログラムでCSV出力する際に空白になる問題が発生しました。解決方法を教えてください。
COBOLプログラムでCSVファイルにデータを出力する際、空白になってしまう問題が発生しています。原因がわからず困っています。
COBOLを勉強している初心者です。プログラムを参考書を見ながら書いているのですが、CSVファイルに出力すると空白になってしまいます。どうすれば解決できるでしょうか？
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点以上のファイルのみ出力したいのですが・・・
長文になってしまいましたが宜しくお願いします。
お礼
maiko0318様 早速の回答ありがとうございます！ working-storage sectionにOUTFILEの【W－MIDASHI・W-MEISAI】 を77レベルで記載するということなんですね。 まだまだ勉強することが沢山ありますね・・ また不明点が出てきた際に質問することがあるかもしれませんが、 その際アドバイスをいただければ幸いです。 助かりました。本当にありがとうございました。