Re: [open-cobol-list] for i in ..... or work around?

[Michael Anderson]

Patrick,

Using an "OCCURS 15 times", combined with a "Perform Varying", to 
iterate through the array/table of 15 numbers.

Example:

01 my-numbers.
     02 numidx
     02 numentries.
          03 numentry occurs 15.
              04 mynum pic s9(9) comp.


Perform Varying numidx from 1 by 1 until numidx > 15
   Evaluate mynum(numidx)
        When 1
                   Do something
        When 2
                   Do something
        *> and so n.....
         When other
                   Do something else
    End-Evaluate
End-Perform.

--
mike.

On 05/05/2013 04:38 PM, Patrick wrote:
> Hi Everyone
>
> I have been working hard on my first non-trivial program.
>
> I have 15 fields that contain numbers that I would like to convert to
> certain text via an evaluate statement.
>
> I guess I can copy the evaluate statement 15 times and then edit the
> control variable to one of each of these fields but I can if I can avoid
> a lot of copy and paste code, that would likely be best.
>
> I was hoping to use a statement that looks roughly like this in bash
>
> for field1 field2 field3 ; do something $i ; done
>
> If I could put an evaluate statement inside it, I should be able to
> avoid a big copy paste operation.
>
> Does anyone know if this is possible or if there is a workaround?
>
> Thanks for reading-Patrick
>
>
>
> ------------------------------------------------------------------------------
> Get 100% visibility into Java/.NET code with AppDynamics Lite
> It's a free troubleshooting tool designed for production
> Get down to code-level detail for bottlenecks, with <2% overhead.
> Download for free and get started troubleshooting in minutes.
> http://p.sf.net/sfu/appdyn_d2d_ap2
> _______________________________________________
> open-cobol-list mailing list
> address@hidden
> https://lists.sourceforge.net/lists/listinfo/open-cobol-list