プログラミングの部屋  ▲前 へ ▼次 へ 一覧へ戻る  プログラミングの部屋 メニューへ  WebBoard総合メニューへ
この投稿に対し、フォローを投稿する
日 時'12年 3月20日 13:53:09
タイトルRe(1):COBOLの問題なんですが... (閲覧回数:1021回)
投稿者kuwahataさん 

>[2月12日 18:45 みいさんの投稿]
>COBOLの問題で、
>テーブルを使うけど件数がわからない。
>ただし、30件以内ということがわか
>っているという場合、どのような処理
>を行えばいいでしょうか。
>ちなみにテーブルは食品名と販売数の
>2つがあります。
>
>できればOCCURS句を使いたいんですが
>それは可能でしょうか?
>もしよければ教えてください。


WORKING-STORAGE SECTION.
01 uriage    OCCURS 30.
02 shokuhinmei PIC X(40).    // 漢字のみなら N(20)
02 hanbaisuu PIC S9(10). // マイナスデーターを考慮してSをつける


PROSEDURE DIVISION.
MOVE 1 TO A.
OPEN -----.
RD01.
READ ----*.
MOVE ******* TO shokuhinmei (A).
MOVE **** TO hanbaisuu (A).
IF A NOT = 30 ADD 1 TO A GO TO RD01.

これでどうでしょうか!
フォロー元の投稿
 ◆[ 2/12 18:45] COBOLの問題なんですが... // みいさん
<この投稿に対するフォローはありません>