numidx should of had a picture
clause, like "Pic s9(4) Comp Value 0."
-------- Original Message --------
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