YCobolについて

質問

とても初歩的なことですが教えて下さい。
文字の表示と日付の表示をさせたいのですが、

*文字列の表示
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE-01.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
*
PROCEDURE DIVISION.
MAIN.
DISPLAY "ここに文字"
STOP RUN.

*日付を表示する
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE-07.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATE-REC.
02 D-Y PIC 99.
02 D-M PIC 99.
02 D-D PIC 99.
*
PROCEDURE DIVISION.
MAIN.
ACCEPT DATE-REC FROM DATE
DISPLAY D-Y "年" D-M "月" D-D "日"
STOP RUN.

こうして合成すると表示できません。
文字と日付を同時に表示するにはどうすればいいのでしょうか？
よろしくお願いいたします。

回答No.1

x0000x · ベストアンサー

こんばんは。

懐かしいＣＯＢＯＬだったので書き込みます。

>文字と日付を同時に表示するにはどうすればいいのでしょうか
表示用に
01 DATE-DISP.
02 X-Y PIC 99.
02 FILLER PIC XX VALUE "年".
02 X-M PIC 99.
02 FILLER PIC XX VALUE "月".
02 X-D PIC 99.
02 FILLER PIC XX VALUE "日".
の集団項目変数を用意します。

ACCEPT DATE-REC FROM DATE.
MOVE D-Y TO X-Y.
MOVE D-M TO X-M.
MOVE D-D TO X-D.

DISPLAY DATE-DISP.
で表示できませんか？
（数十年前なので自信ないですが…）

今のCOBOLは、集団項目同士の下位レベルで同じ名前がある場合に、自動で代入してくれる機能もあったと思います。
この場合、DATE-DISPのX-Y,X-M,X-DをDATE-RECと同じ名前のD-Y,D-M,D-Dで宣言し、
MOVE DATE-REC TO DATE-DISP.
でも代入できたと認識しています。
（YCOBOLではなかったかもしれません）

少しでもヒントになれば幸いです。