Q&A
https://qiita.com/zard0308/questions/bdd3da3cb4065c2060d3
以下ご対応ください。
https://teratail.com/help#posted-otherservice
解決したいこと
COBOLにてアンケートプログラムを作成しているのですが、集計結果を上手く出力することが出来ないです。
問題
設問の数は1～１０問で可変、回答の選択肢は1～５の間で可変。
処理するアンケートによって、設問数、選択肢数はパラメタファイルで設定できる。
また、集計元結果ファイルの先頭１行はヘッダ行となり、対応するパラメタＩＤが設定される。ヘッダ行のパラメタＩＤとパラメタのパラメタＩＤが相違する場合はエラー終了させる。
同様に、集計元結果ファイルの最終行にはそのファイルのデータレコードの件数が設定される。この件数とファイルのデータレコード数が不一致である場合はエラー終了させる。
私が考えていること
箱の初期化
ファイルを開く
1行目読み込む
2行目読み込む
ヘッダIDとパラメタIDが相違しているなら終了
(GO TO で、終了）
ファイルを読み込む
↓
主処理
データ区分が２なら
ループ
入力データを足す→計算結果格納する箱がいる
1行読む
ループ
データ区分が２でないなら、
件数とファイルのデータレコード数が不一致である場合はエラー終了させる。
↓
終了処理
結果を出力する
ファイルを閉じる
ディスプレイに表示
終わる
入力ファイル
1JP000001
200001,00101,00001,0000,10000,10000,10000,10000,10000,10000
200001,00101,00001,0000,10000,10000,10000,10000,10000,10000
200001,00101,00001,0000,10000,10000,10000,10000,10000,10000
200001,00101,00001,0000,10000,10000,10000,10000,10000,10000
200001,00101,00001,0000,10000,10000,10000,10000,10000,10000
900005
パラメタファイル
JP000001,06,01
出力ファイルで出力したい形
例）設問1選択肢1件数5
************************************************************ * 例題プログラム * ank3 ************************************************************ * 見出し部 ************************************************************ IDENTIFICATION DIVISION. PROGRAM-ID. ank3. ************************************************************ * 環境部 ************************************************************ ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. * 入力ファイル SELECT 入力ファイル ASSIGN TO syukeimoto ORGANIZATION IS LINE SEQUENTIAL. * パラメタファイル SELECT パラメタファイル ASSIGN TO parameta ORGANIZATION IS LINE SEQUENTIAL. * 出力ファイル SELECT 出力ファイル ASSIGN TO syukeiresult ORGANIZATION IS LINE SEQUENTIAL. ************************************************************ * データ部 ************************************************************ DATA DIVISION. FILE SECTION. * 入力ファイルのレイアウト定義 FD 入力ファイル. 01 ヘッダ. 03 ヘッダ区分 PIC 9(1). 03 ヘッダID PIC X(08). 01 データ. 03 データ区分 PIC 9(1). 03 データ設問 OCCURS 10. 05 データー選択肢 OCCURS 5. 07 入力ー結果 PIC 9(01). 05 FILLER PIC 9(01). 01 トレーラ. 03 トレーラ区分 PIC 9(1). 03 トレーラーデータ件数 PIC X(05). *----------------------------------------------------------- * パラメタファイルのレイアウト定義 FD パラメタファイル. 01 パラメタ. 03 パラメタID PIC X(08). 03 FILLER PIC 9(01). 03 設問 PIC 9(02). 03 FILLER PIC 9(01). 03 選択肢 PIC 9(01). *----------------------------------------------------------- * 出力ファイルのレイアウト定義 FD 出力ファイル. 01 出力. 03 出力ー設問 PIC 9(02). 03 出力ー選択肢 PIC 9(01). 03 出力ー件数 PIC 9(02). *----------------------------------------------------------- *作業領域の定義 WORKING-STORAGE SECTION. 01 Ｗ定数. 03 Ｗ定数ー終了 PIC 9(02) VALUE 1. 01 Ｗ表示. 03 Ｗ表示ー終了 PIC 9(02). 03 Ｗ表示ー終了2 PIC 9(02). 01 Ｗ計算. 03 Ｗ計算ー設問 OCCURS 10. 05 Ｗ計算ー回答 OCCURS 5. 07 Ｗ計算ー箱 PIC 9(02). 01 Ｗ色々. 03 ＷＩＸーx PIC 9(02). 03 ＷＩＸーy PIC 9(02). 03 ＷＩＸ－入力件数 PIC 9(02). ************************************************************ * 手続き部 ************************************************************ PROCEDURE DIVISION. メインコントロール SECTION. メインコントロールＳ. ************************************************************ * メインコントロール ************************************************************ PERFORM 初期処理 * PERFORM 主処理 UNTIL Ｗ表示ー終了 ＝ Ｗ定数ー終了 * PERFORM 終了処理 . メインコントロールＥ. STOP RUN. 初期処理 SECTION. 初期処理Ｓ. ************************************************************ * 初期処理 ************************************************************ * 作業領域の初期化 INITIALIZE Ｗ表示. INITIALIZE Ｗ色々. * ファイルのオープン OPEN INPUT 入力ファイル. OPEN INPUT パラメタファイル. OPEN OUTPUT 出力ファイル. * 入力データの読み込み PERFORM ファイル読み込み PERFORM パラメタ読み込み * 相違エラー IF ヘッダID NOT = パラメタID THEN DISPLAY "エラー" UPON CONSOLE GO TO メインコントロールＥ END-IF PERFORM ファイル読み込み . 初期処理Ｅ. EXIT. 主処理 SECTION. 主処理Ｓ. ************************************************************ * 主処理 ************************************************************ *集計 IF データ区分 = 2 THEN PERFORM UNTIL ＷＩＸーx = 設問 COMPUTE ＷＩＸーx = ＷＩＸーx + 1 PERFORM UNTIL ＷＩＸーy = 選択肢 COMPUTE ＷＩＸーy = ＷＩＸーy + 1 IF 入力ー結果(ＷＩＸーx ,ＷＩＸーy) = 1 THEN COMPUTE Ｗ計算ー箱 (ＷＩＸーx ,ＷＩＸーy) = Ｗ計算ー箱(ＷＩＸーx ,ＷＩＸーy) + 1 END-IF END-PERFORM INITIALIZE ＷＩＸーy END-PERFORM INITIALIZE ＷＩＸーx END-IF * 入力データの読み込み PERFORM ファイル読み込み . 主処理Ｅ. EXIT. 終了処理 SECTION. 終了処理Ｓ. ************************************************************ * 終了処理 ************************************************************ * 出力ファイルの編集 PERFORM UNTIL ＷＩＸーx = 設問 COMPUTE ＷＩＸーx = ＷＩＸーx + 1 PERFORM UNTIL ＷＩＸーy = 選択肢 COMPUTE ＷＩＸーy = ＷＩＸーy + 1 PERFORM 書き込み END-PERFORM INITIALIZE ＷＩＸーy END-PERFORM . * 出力ファイルの編集 CLOSE 入力ファイル CLOSE パラメタファイル CLOSE 出力ファイル . 終了処理Ｅ. EXIT. ヘッダ9 SECTION. ヘッダ9Ｓ. ************************************************************ * ヘッダ9 ************************************************************ IF ＷＩＸ－入力件数 NOT = トレーラーデータ件数 DISPLAY "入力件数が正しくありません" UPON CONSOLE CLOSE 入力ファイル CLOSE パラメタファイル CLOSE 出力ファイル STOP RUN END-IF . 終了処理Ｅ. EXIT. ファイル読み込み SECTION. ファイル読み込みＳ. ************************************************************ * ファイル読み込み ************************************************************ READ 入力ファイル AT END MOVE 1 TO Ｗ表示ー終了 NOT AT END COMPUTE ＷＩＸ－入力件数 = ＷＩＸ－入力件数 + 1 END-READ . ファイル読み込みＥ. EXIT. パラメタ読み込み SECTION. パラメタ読み込みＳ. ************************************************************ * パラメタ読み込み ************************************************************ READ パラメタファイル AT END MOVE 1 TO Ｗ表示ー終了2 NOT AT END CONTINUE END-READ . ファイル読み込みＥ. EXIT. 書き込み SECTION. 書き込みＳ. ************************************************************ * 書き込み ************************************************************ MOVE ＷＩＸーx TO 出力ー設問 MOVE ＷＩＸーy TO 出力ー選択肢 MOVE Ｗ計算ー箱(ＷＩＸーx,ＷＩＸーy) TO 出力ー件数 WRITE 出力 . 書き込みＥ. EXIT.
>https://qiita.com/zard0308/questions/bdd3da3cb4065c2060d3
404Not Found
お探しのページは一時的にアクセスができない状況にあるか、移動もしくは削除された可能性があります。 また、URL、ファイル名にタイプミスがないか再度ご確認ください。
人に見てもらうなら、見易さを考えては？
どの言語もそうだけど、意味のある字下げをする。
COBOLは接頭語を統一してどのファイルやワークの項目かわかるように。
あと、プログラミングの初歩だけど、
英数字をマルチバイト文字で書くのは止めましょう。見る気がしないです。
あなたの回答
tips
プレビュー
