COBOL: Printing A Line with a variable in it

Question

Number of employees with up to 10,000 in sales: ZZ9

Number of employees from 10,001 to 20,000 in sales: ZZ9

Is what I'm trying to accomplish Where the ZZ9's are the variable. I'm not quite sure how to do this and I had my book stolen so was hoping for some help. In my WORKING-STORAGE SECTION I have

 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: " 

And in my PROCEDURE DIVISION I have

 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.

but can't figure out how to add the variables in at the end of those statements. Any and all help is much appreciated. I started cobol like three days ago so if you could dumb everything as much as possible it'd be great!

Answer 1

Just add your numeric fields in at the end of the data declaration:

    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.

Do your record counts in 2 comp fields say

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

You should accumulate in these because Numeric-edited fields (pic zz9) are actually text fields not numeric (and many compilers will not let you do it anyway). Comp fields should be faster.

Then in the procedure division move the totals to the new fields above

   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.