※ ChatGPTを利用し、要約された質問です（原文：お助け下さい。）
VBA初心者がCOBOLの課題で困っています。お助け下さい。
このQ&Aのポイント
VBAの初心者がCOBOLの課題に困っています。解決策を教えてください。
半年のVBA経験しかない初心者がCOBOLの課題で困っています。助けてください。
COBOLの課題に取り組む初心者が支援を求めています。お助けください。
初めて書き込みます。どなたかお助け下さい。
まだ入社して半年ほどのVBAを多少勉強した程度の初心者なのですが、上司にCOBOLの課題を出され期限が迫って困っています。お助け下さい。よろしくお願いします。 課題はCOBOLで簡単な住所録を出力させるというもの。参考書やネットで探してみてコーディングしてみたのですが、ここまでしかできませんでした。以下がコーディングしたものです。出来れば本日中か明日には回答を頂きたいです。
環境はWindowsXP、Open cobolで作成しています。
以下の条件に変更、追加したいのです。
(1)：10回ループしている部分をUNTILで無限にループさせて、最初の項番に戻った時に値を入力せずにEnterでフラグを立たせて終了。
(2)：項番や氏名などの入力で間違って入力した際に、戻って入力し直す。
IDENTIFICATION DIVISION.
PROGRAM-ID. kadai2.
ENVIRONMENT SETION.
FILE-CONTROL.
SELECT REN-F ASSIGN TO 'C:任意.DAT'
ORGANIZAITION IS LINE SEQUENTIAL
FILE STATUS IS REN-ST.
DATA DIVISION.
FILE SECTION.
FD REN-F
01 SYAIN=RAC.
05 KOUBAN PIC X(2).
05 FILLER PIC X(2).
05 SIMEI PIC N(10).
05 FILLER PIC X(2).
05 YUUBIN PIC X(10).
05 FILLER PIC X(2).
05 KEN PIC N(10).
05 FILLER PIC X(2).
05 SIKU PIC N(20).
05 FILLER PIC X(2).
05 TATEMONO PIC N(20).
WORKING-STRAGE SECTION.
01 REN-ST PIC XX.
PROCEDURE DIVISION.
SYU SECTION.
INIT.
OPEN OUTPUT REN-F.
IF REN-ST NOT='00'
THEN
CONTINUE
ELSE
PERFORM KAKIKOMI THRU SYUURYO
END-IF.
PROG-END.
STOP RUN.
KAKIKOMI.
PERFORM 10 TIMES
DISPLAY "項番" WITH NO ADVANCING
ACCEPT KOUBAN
DISPLAY "氏名" WITH NO ADVANCING
ACCEPT SIMEI
DISPLAY "郵便番号" WITH NO ADVANCING
ACCEPT YUUBIN
DISPLAY "県名" WITH NO ADVANCING
ACCEPT KEN
DISPLAY "市町村" WITH NO ADVANCING
ACCEPT SIKU
DISPLAY "部屋番号" WITH NO ADVANCING
ACCEPT TATEMONO
WRITE SYAIN-RC
END-WRITE
END-PERFORM.
SYUURYO.
CLOSE REN-F
補足と致しまして
上司にはほうれんそうに関しては日報など逐一しています。
相談やアドバイスなども求めました。
事前に設計書なども自分なりに調べて作成し提出しましたが、具体的な指摘をもらえないので修正すべき部分が分からないので困ってます。
こいった所で聞くのは、筋違いだと思いますがよろしくお願いします。
お礼
ありがとうございました！ 期限に間に合わなかったですが、勉強になりました。 新たに似たような課題が出たので、役立てたいと思います！