MVSFORUMS.com

[mickeygoo]

Hope this makes sense...

1 SORTIN rec, possible multiple SORTOUT recs, depending on field values

SORTIN:

FLDA ... FLDB ... FLDC ... FLDD


IF FLDA > 0 create SORTOUT type1 rec, HIT=NEXT
IF FLDB > 0 create SORTOUT type2 rec, HIT=NEXT
IF FLDC > 0 create SORTOUT type3 rec, HIT=NEXT
IF FLDD > 0 create SORTOUT type4 rec, HIT=NEXT
IF none satisfied (WHEN=NONE), skip record

Right now, if I don't code a WHEN=NONE, the SORTIN record is copied to SORTOUT.

I've thought of "pre-sorting" the file to exclude those records that do not satisfy any of the above condition... but maybe there's a cooler way.

Ideas? TIA...

[mickeygoo]

Sorry, by "pre-sort", I mean use an "INCLUDE" condition...
_________________
Not an expert, but I did stay at a Holiday Inn... though it has been a while...

[kolusu]

mickeygoo,

An INCLUDE COND would be a better choice here