2

売上高が 10,000 人までの従業員数: ZZ9

従業員数 10,001 人から 20,000 人の売上: ZZ9

私が達成しようとしているのは、ZZ9が変数である場所です。これを行う方法がよくわかりません。本を盗まれたので、助けを求めていました。私のWORKING-STORAGE SECTIONには

 01  HEADING-LINE-3.
            05                      PIC X(03) VALUE SPACES.
            05                      PIC X(48) VALUE
                  "Number of employees with up to 10,000 in sales: "
 01  HEADING-LINE-4
            05                      PIC X(03) VALUE SPACES.
            05                      PIC X(52) VALUE
                  "Number of employees from 10,001 to 20,000 in sales: "

そして、私のPROCEDURE DIVISIONには

 4000-PROCESS.
              WRITE REPORT-RECORD         FROM REPORT-BLANK-LINE.
              WRITE REPORT-RECORD         FROM COLUMN-HEADING-2.
              WRITE REPORT-RECORD         FROM HEADING-LINE-3.
              WRITE REPORT-RECORD         FROM HEADING-LINE-4.

しかし、これらのステートメントの最後に変数を追加する方法がわかりません。どんな助けでも大歓迎です。私は 3 日前に cobol を始めたので、可能な限りすべてを馬鹿にすることができれば、それは素晴らしいことです!

4

1 に答える 1

2

データ宣言の最後に数値フィールドを追加するだけです。

    01  HEADING-LINE-3.
        05                      PIC X(03) VALUE SPACES.
        05                      PIC X(48) VALUE
              "Number of employees with up to 10,000 in sales: "
        05 Number-employee-to-10000  pic zzz,zz9
    01  HEADING-LINE-4
        05                      PIC X(03) VALUE SPACES.
        05                      PIC X(52) VALUE
              "Number of employees from 10,001 to 20,000 in sales: " 
        05 Number-employee-above-10000  pic zzz,zz9.

あなたの記録は2つのコンプフィールドでカウントされますか?

   01  ws-accumulators
       03 employee-accum-1      pic s9(9) comp. 
       03 employee-accum-2      pic s9(9) comp.

数値編集フィールド (pic zz9) は実際には数値ではないテキスト フィールドであるため、これらを累積する必要があります (多くのコンパイラでは、いずれにせよそれを行うことはできません)。コンプフィールドはより高速になるはずです。

次に、手続き部で、合計を上の新しいフィールドに移動します

   4000-PROCESS.
          Move  employee-accum-1        to Number-employee-to-10000 
          Move  employee-accum-2        to Number-employee-above-10000

          WRITE REPORT-RECORD         FROM REPORT-BLANK-LINE.
          WRITE REPORT-RECORD         FROM COLUMN-HEADING-2.
          WRITE REPORT-RECORD         FROM HEADING-LINE-3.
          WRITE REPORT-RECORD         FROM HEADING-LINE-4.
于 2014-12-04T02:29:28.717 に答える