Skip to main content

Is there any way to determine the number of occurrences of a data item

  • August 5, 2017
  • 7 replies
  • 0 views
D

“Hello” from Russell Haile with DPC.  Please allow me to ask for help.

 I’m working on a program.  The attached copybook states:

      ******** FIREPEAT-OP-VAR-DATA ********

           05  FIREPEAT-FIELDS.

             08  FIREPEAT-SUBFIELDS.

               10  FIREPEAT-TXT-TITLE

                                       PIC X(00050).

               10  FILLER OCCURS 15.

                   15  FIREPEAT-TXT-ID

                                       PIC 9(008).

                   15  FIREPEAT-TXT-DESC

                                       PIC X(00070).

                   15  FIREPEAT-TXT-VENDOR

                                       PIC X(00040).

                   15  FIREPEAT-TXT-TYPE

                                       PIC X(00010).

                   15  FIREPEAT-TXT-PRICE

                                       PIC S9(06)V9(02).

The copybook is generated by another system.  I can’t do anything about it.  I just have to work with what I have.

 Attached is the program I’m working on.  There’s no use trying to go through it to see what it does.  It’s messy and it does not work.

 My problems:

  • I can look at the copybook and see the occurs = 15.
  • I can’t change the copybook
  • I don’t know how to make the actual cobol program “know” the value = 15.

 Here is my question:

Specifically, the copybook states 10  FILLER OCCURS 15.  In the procedure division of the attached program, is there any way to determine the number of occurrences?

    7 replies

    D

    “Hello” from Russell Haile with DPC.  Please allow me to ask for help.

     I’m working on a program.  The attached copybook states:

          ******** FIREPEAT-OP-VAR-DATA ********

               05  FIREPEAT-FIELDS.

                 08  FIREPEAT-SUBFIELDS.

                   10  FIREPEAT-TXT-TITLE

                                           PIC X(00050).

                   10  FILLER OCCURS 15.

                       15  FIREPEAT-TXT-ID

                                           PIC 9(008).

                       15  FIREPEAT-TXT-DESC

                                           PIC X(00070).

                       15  FIREPEAT-TXT-VENDOR

                                           PIC X(00040).

                       15  FIREPEAT-TXT-TYPE

                                           PIC X(00010).

                       15  FIREPEAT-TXT-PRICE

                                           PIC S9(06)V9(02).

    The copybook is generated by another system.  I can’t do anything about it.  I just have to work with what I have.

     Attached is the program I’m working on.  There’s no use trying to go through it to see what it does.  It’s messy and it does not work.

     My problems:

    • I can look at the copybook and see the occurs = 15.
    • I can’t change the copybook
    • I don’t know how to make the actual cobol program “know” the value = 15.

     Here is my question:

    Specifically, the copybook states 10  FILLER OCCURS 15.  In the procedure division of the attached program, is there any way to determine the number of occurrences?

    firepeat.zip

    D

    “Hello” from Russell Haile with DPC.  Please allow me to ask for help.

     I’m working on a program.  The attached copybook states:

          ******** FIREPEAT-OP-VAR-DATA ********

               05  FIREPEAT-FIELDS.

                 08  FIREPEAT-SUBFIELDS.

                   10  FIREPEAT-TXT-TITLE

                                           PIC X(00050).

                   10  FILLER OCCURS 15.

                       15  FIREPEAT-TXT-ID

                                           PIC 9(008).

                       15  FIREPEAT-TXT-DESC

                                           PIC X(00070).

                       15  FIREPEAT-TXT-VENDOR

                                           PIC X(00040).

                       15  FIREPEAT-TXT-TYPE

                                           PIC X(00010).

                       15  FIREPEAT-TXT-PRICE

                                           PIC S9(06)V9(02).

    The copybook is generated by another system.  I can’t do anything about it.  I just have to work with what I have.

     Attached is the program I’m working on.  There’s no use trying to go through it to see what it does.  It’s messy and it does not work.

     My problems:

    • I can look at the copybook and see the occurs = 15.
    • I can’t change the copybook
    • I don’t know how to make the actual cobol program “know” the value = 15.

     Here is my question:

    Specifically, the copybook states 10  FILLER OCCURS 15.  In the procedure division of the attached program, is there any way to determine the number of occurrences?

    Hi

    I do not have access to a compiler :-( so cannot test this answer . . . . .

    Take a look at the "LENGTH OF " special register in the manual.

    Something like

    move length of FIREPEAT-FIELDS to tot-len.
    compute no-occurs = (tot-len - 50) / 138.

    Note the 138 above should be the length of each occurrence in the table, but the actual value could be up or down a couple according to how you are handling signs/decimal places in the compiled object.

    The other thing to look at is the use of the "COUNT OF", this returns the number of times an item OCCURS. Your group that occurs is defined as FILLER, so it cannot be used on this. However, this could well work:

    move COUNT OF FIREPEAT-TXT-ID to no-occurs.

    I hope one of these helps

    Cheers

    Nigel
    D

    “Hello” from Russell Haile with DPC.  Please allow me to ask for help.

     I’m working on a program.  The attached copybook states:

          ******** FIREPEAT-OP-VAR-DATA ********

               05  FIREPEAT-FIELDS.

                 08  FIREPEAT-SUBFIELDS.

                   10  FIREPEAT-TXT-TITLE

                                           PIC X(00050).

                   10  FILLER OCCURS 15.

                       15  FIREPEAT-TXT-ID

                                           PIC 9(008).

                       15  FIREPEAT-TXT-DESC

                                           PIC X(00070).

                       15  FIREPEAT-TXT-VENDOR

                                           PIC X(00040).

                       15  FIREPEAT-TXT-TYPE

                                           PIC X(00010).

                       15  FIREPEAT-TXT-PRICE

                                           PIC S9(06)V9(02).

    The copybook is generated by another system.  I can’t do anything about it.  I just have to work with what I have.

     Attached is the program I’m working on.  There’s no use trying to go through it to see what it does.  It’s messy and it does not work.

     My problems:

    • I can look at the copybook and see the occurs = 15.
    • I can’t change the copybook
    • I don’t know how to make the actual cobol program “know” the value = 15.

     Here is my question:

    Specifically, the copybook states 10  FILLER OCCURS 15.  In the procedure division of the attached program, is there any way to determine the number of occurrences?

    Hi

    I do not have access to a compiler :-( so cannot test this answer . . . . .

    Take a look at the "LENGTH OF " special register in the manual.

    Something like

    move length of FIREPEAT-FIELDS to tot-len.
    compute no-occurs = (tot-len - 50) / 138.

    Note the 138 above should be the length of each occurrence in the table, but the actual value could be up or down a couple according to how you are handling signs/decimal places in the compiled object.

    The other thing to look at is the use of the "COUNT OF", this returns the number of times an item OCCURS. Your group that occurs is defined as FILLER, so it cannot be used on this. However, this could well work:

    move COUNT OF FIREPEAT-TXT-ID to no-occurs.

    I hope one of these helps

    Cheers

    Nigel
    D

    “Hello” from Russell Haile with DPC.  Please allow me to ask for help.

     I’m working on a program.  The attached copybook states:

          ******** FIREPEAT-OP-VAR-DATA ********

               05  FIREPEAT-FIELDS.

                 08  FIREPEAT-SUBFIELDS.

                   10  FIREPEAT-TXT-TITLE

                                           PIC X(00050).

                   10  FILLER OCCURS 15.

                       15  FIREPEAT-TXT-ID

                                           PIC 9(008).

                       15  FIREPEAT-TXT-DESC

                                           PIC X(00070).

                       15  FIREPEAT-TXT-VENDOR

                                           PIC X(00040).

                       15  FIREPEAT-TXT-TYPE

                                           PIC X(00010).

                       15  FIREPEAT-TXT-PRICE

                                           PIC S9(06)V9(02).

    The copybook is generated by another system.  I can’t do anything about it.  I just have to work with what I have.

     Attached is the program I’m working on.  There’s no use trying to go through it to see what it does.  It’s messy and it does not work.

     My problems:

    • I can look at the copybook and see the occurs = 15.
    • I can’t change the copybook
    • I don’t know how to make the actual cobol program “know” the value = 15.

     Here is my question:

    Specifically, the copybook states 10  FILLER OCCURS 15.  In the procedure division of the attached program, is there any way to determine the number of occurrences?

    Hi

    I do not have access to a compiler :-( so cannot test this answer . . . . .

    Take a look at the "LENGTH OF " special register in the manual.

    Something like

    move length of FIREPEAT-FIELDS to tot-len.
    compute no-occurs = (tot-len - 50) / 138.

    Note the 138 above should be the length of each occurrence in the table, but the actual value could be up or down a couple according to how you are handling signs/decimal places in the compiled object.

    The other thing to look at is the use of the "COUNT OF", this returns the number of times an item OCCURS. Your group that occurs is defined as FILLER, so it cannot be used on this. However, this could well work:

    move COUNT OF FIREPEAT-TXT-ID to no-occurs.

    I hope one of these helps

    Cheers

    Nigel
    Thomas Morrison
    • Thomas Morrison
    • Participating Frequently
    • August 6, 2017

    “Hello” from Russell Haile with DPC.  Please allow me to ask for help.

     I’m working on a program.  The attached copybook states:

          ******** FIREPEAT-OP-VAR-DATA ********

               05  FIREPEAT-FIELDS.

                 08  FIREPEAT-SUBFIELDS.

                   10  FIREPEAT-TXT-TITLE

                                           PIC X(00050).

                   10  FILLER OCCURS 15.

                       15  FIREPEAT-TXT-ID

                                           PIC 9(008).

                       15  FIREPEAT-TXT-DESC

                                           PIC X(00070).

                       15  FIREPEAT-TXT-VENDOR

                                           PIC X(00040).

                       15  FIREPEAT-TXT-TYPE

                                           PIC X(00010).

                       15  FIREPEAT-TXT-PRICE

                                           PIC S9(06)V9(02).

    The copybook is generated by another system.  I can’t do anything about it.  I just have to work with what I have.

     Attached is the program I’m working on.  There’s no use trying to go through it to see what it does.  It’s messy and it does not work.

     My problems:

    • I can look at the copybook and see the occurs = 15.
    • I can’t change the copybook
    • I don’t know how to make the actual cobol program “know” the value = 15.

     Here is my question:

    Specifically, the copybook states 10  FILLER OCCURS 15.  In the procedure division of the attached program, is there any way to determine the number of occurrences?

    Russell, use COPY copybookname REPLACING ==10 FILLER OCCURS== BY ==10 FILLER-FIREPEAT OCCURS==.

    This changes the source in the copybook to give the group a name that can be used with the COUNT special register.  (Search the Language Reference Manual for 'special register'.)

    Then in the procedure division you can use COUNT OF FILLER-FIREPEAT to represent the number of OCCURS.

    Tom Morrison, Consultant, South Carolina, USA
    D

    “Hello” from Russell Haile with DPC.  Please allow me to ask for help.

     I’m working on a program.  The attached copybook states:

          ******** FIREPEAT-OP-VAR-DATA ********

               05  FIREPEAT-FIELDS.

                 08  FIREPEAT-SUBFIELDS.

                   10  FIREPEAT-TXT-TITLE

                                           PIC X(00050).

                   10  FILLER OCCURS 15.

                       15  FIREPEAT-TXT-ID

                                           PIC 9(008).

                       15  FIREPEAT-TXT-DESC

                                           PIC X(00070).

                       15  FIREPEAT-TXT-VENDOR

                                           PIC X(00040).

                       15  FIREPEAT-TXT-TYPE

                                           PIC X(00010).

                       15  FIREPEAT-TXT-PRICE

                                           PIC S9(06)V9(02).

    The copybook is generated by another system.  I can’t do anything about it.  I just have to work with what I have.

     Attached is the program I’m working on.  There’s no use trying to go through it to see what it does.  It’s messy and it does not work.

     My problems:

    • I can look at the copybook and see the occurs = 15.
    • I can’t change the copybook
    • I don’t know how to make the actual cobol program “know” the value = 15.

     Here is my question:

    Specifically, the copybook states 10  FILLER OCCURS 15.  In the procedure division of the attached program, is there any way to determine the number of occurrences?

    Tom, Thank You very much. That resolved the issue. I really appreciate it!
    D

    “Hello” from Russell Haile with DPC.  Please allow me to ask for help.

     I’m working on a program.  The attached copybook states:

          ******** FIREPEAT-OP-VAR-DATA ********

               05  FIREPEAT-FIELDS.

                 08  FIREPEAT-SUBFIELDS.

                   10  FIREPEAT-TXT-TITLE

                                           PIC X(00050).

                   10  FILLER OCCURS 15.

                       15  FIREPEAT-TXT-ID

                                           PIC 9(008).

                       15  FIREPEAT-TXT-DESC

                                           PIC X(00070).

                       15  FIREPEAT-TXT-VENDOR

                                           PIC X(00040).

                       15  FIREPEAT-TXT-TYPE

                                           PIC X(00010).

                       15  FIREPEAT-TXT-PRICE

                                           PIC S9(06)V9(02).

    The copybook is generated by another system.  I can’t do anything about it.  I just have to work with what I have.

     Attached is the program I’m working on.  There’s no use trying to go through it to see what it does.  It’s messy and it does not work.

     My problems:

    • I can look at the copybook and see the occurs = 15.
    • I can’t change the copybook
    • I don’t know how to make the actual cobol program “know” the value = 15.

     Here is my question:

    Specifically, the copybook states 10  FILLER OCCURS 15.  In the procedure division of the attached program, is there any way to determine the number of occurrences?

    Tom, Thank You very much. That resolved the issue. I really appreciate it!

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement