Re: SELECT block enhancement?

[Booth Martin <booth@xxxxxxxxxxxx>]

   STATUS = '40';
   CHAIN (X:Y:Z) ORDERLINE;
   SELECT;
      WHEN OL_QTYREM = 0;
        STATUS = '90';
      WHEN OL_LINETYPE = 'C';
        STATUS = '80'';
      // It didn't match either condition, so now I have to check the
   header
      OTHER;
        CHAIN (X:Y) ORDERHEADER;
        if_DIVISION = 'USA';
          STATUS = '60';
        endif;
   ENDSL;

On 1/29/2019 10:11 AM, mlazarus wrote:
> On 1/29/2019 8:47 AM, Joe Pluta wrote:
> > Here's another wrinkle, Mark, that's very similar.  I run into this 
> > all the time.  The basic design pattern is this: I am checking a 
> > record for some condition.  If the condition is met, great.  If not, 
> > then I have to check a different file.  Very similar to yours. I'd 
> > like to see something like this:
> >
> > CHAIN (X:Y:Z) ORDERLINE;
> >
> > SELECT;
> >
> >     WHEN OL_QTYREM = 0;
> >         STATUS = '90';
> >
> >     WHEN OL_LINETYPE = 'C';
> >         STATUS = '80'';
> >
> >     // It didn't match either condition, so now I have to check the 
> > header
> >     NOSELECT;
> >         CHAIN (X:Y) ORDERHEADER;
> >
> >     WHEN OH_DIVISION = 'USA';
> >         STATUS = '60';
> >
> >     OTHER;
> >         STATUS = '40';
> >
> > ENDSL;