2.4.39 JMN3054I-S

ACCEPT文のFROM指定に，DATE，DAY，DAY-OF-WEEKまたはTIMEが指定された場合，@1@は，固定長集団項目，英数字，英数字編集，数字編集，外部10進または2進項目でなければなりません．

引数の説明

@1@:

一意名

例

      000001 IDENTIFICATION DIVISION.
      000002 PROGRAM-ID.  C3054.
      000003 ENVIRONMENT  DIVISION.
      000004 INPUT-OUTPUT SECTION.
      000005 FILE-CONTROL.
      000006     SELECT IN-FILE ASSIGN TO DA-S-SYS006.
      000007 DATA  DIVISION.
      000008 FILE SECTION.
      000009 FD   IN-FILE LABEL RECORD STANDARD.
      000010 01  REC.
      000011     02 REC-NO    PIC 9(4).
      000012     02 REC-DATA  PIC X(8).
      000013     02 FILLER    PIC X(68).
      000014 WORKING-STORAGE  SECTION.
      000015 77  AA           PIC 1(8).
      000016 PROCEDURE  DIVISION.
      000017 P-START.
      000018     ACCEPT AA FROM DATE.
      000019     STOP RUN.

C3054.cob (18) : JMN3054I-S ACCEPT文のFROM指定に，DATE，DAY，DAY-OF-WEEKまたはTIMEが指定された場合，'AA'は，固定長集団項目，英数字，英数字編集，数字編集，外部10進または2進項目でなければなりません．