Re: SELECT block enhancement?

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;