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

[Michael Anderson]

oopst!

numidx should of had a picture clause, like "Pic s9(4) Comp Value 0."

On 05/05/2013 06:19 PM, Michael Anderson wrote:
> 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
>
> ------------------------------------------------------------------------------
> 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