ページの先頭行へ戻る
NetCOBOL for .NET V8.0 メッセージ集
FUJITSU Software

2.4.43 JMN3061I-S

特殊レジスタ@1@は,受取り側に指定できません.

引数の説明

@1@:

特殊レジスタ名(LINE-COUNTER, LINAGE-COUNTER)

      000001 PROGRAM-ID.  C3061.
      000002 ENVIRONMENT  DIVISION.
      000003 INPUT-OUTPUT SECTION.
      000004 FILE-CONTROL.
      000005     SELECT RW-FS1 ASSIGN TO
      000006     REPFILE.
      000007     SELECT PRINT-FILE ASSIGN TO
      000008     SYS006.
      000009 DATA DIVISION.
      000010 FILE SECTION.
      000011 FD PRINT-FILE
      000012     LINAGE IS 50 LINES.
      000013 01  PRINT-REC PIC X(120).
      000014 FD  RW-FS1
      000015     LABEL RECORDS ARE STANDARD
      000016     REPORT IS RW-FS1-REPORT-1.
      000017 WORKING-STORAGE SECTION.
      000018 01  REPORT-LINE-IMAGE.
      000019     02  FILLER  PICTURE X(43).
      000020     02  WS-COUNTER PICTURE 9(6) VALUE ZERO.
      000021     02  STORE-LINE-COUNTER   PICTURE 9(6).
      000022 REPORT SECTION.
      000023 RD  RW-FS1-REPORT-1
      000024     PAGE LIMIT IS 20 LINES.
      000025 01  RW-FS1-GROUP
      000026     TYPE IS DETAIL.
      000027     03  RW-FS1-ELEM
      000028         LINE NUMBER IS PLUS 1
      000029         COLUMN NUMBER IS 5
      000030         PICTURE X(76)
      000031         SOURCE IS REPORT-LINE-IMAGE.
      000032 PROCEDURE  DIVISION.
      000033     MOVE 100 TO LINE-COUNTER
      000034     MOVE  10 TO LINAGE-COUNTER
      000035     .
      000036 END PROGRAM  C3061.
    

C3061.cob (33) : JMN3061I-S 特殊レジスタ'LINE-COUNTER'は,受取り側に指定できません.

C3061.cob (34) : JMN3061I-S 特殊レジスタ'LINAGE-COUNTER'は,受取り側に指定できません.