berwatt wrote:
> With idcams/dollect, i use :
> SORT FIELDS=COPY
> INCLUDE COND=(9,2,CH,EQ,C'D ')
> OUTREC IFTHEN=(WHEN=(79,1,BI,EQ,B'1.......'),
> BUILD=(1,4,29,44,C'IS',121,6)),
> IFTHEN=(WHEN=(79,1,BI,EQ,B'.1......'),
> BUILD=(1,4,29,44,C'PS',121,6)),
> IFTHEN=(WHEN=(79,1,BI,EQ,B'..1.....'),
> BUILD=(1,4,29,44,C'DA',121,6)),
> IFTHEN=(WHEN=(79,1,BI,EQ,B'......1.'),
> BUILD=(1,4,29,44,C'PO',121,6)),
> IFTHEN=(WHEN=(80,1,BI,EQ,B'....1...'),
> BUILD=(1,4,29,44,C'VS',121,6)),
> IFTHEN=(WHEN=NONE,
> BUILD=(1,4,29,44,C'??',121,6))
>
> question: Can I simplify?
Since each of your DFSORT IFTHEN clauses builds essentially the same record
with only one different field, you could build the entire record once with
a WHEN=INIT clause instead of every time, and then just overlay the one
field in the other IFTHEN clauses like this:
SORT FIELDS=COPY
INCLUDE COND=(9,2,CH,EQ,C'D ')
OUTREC IFTHEN=(WHEN=INIT,
BUILD=(1,4,5:29,44,49:79,2,51:121,6)),
IFTHEN=(WHEN=(49,1,BI,EQ,B'1.......'),
OVERLAY=(49:C'IS')),
IFTHEN=(WHEN=(49,1,BI,EQ,B'.1......'),
OVERLAY=(49:C'PS')),
IFTHEN=(WHEN=(49,1,BI,EQ,B'..1.....'),
OVERLAY=(49:C'DA')),
IFTHEN=(WHEN=(49,1,BI,EQ,B'......1.'),
OVERLAY=(49:C'PO')),
IFTHEN=(WHEN=(80,1,BI,EQ,B'....1...'),
OVERLAY=(49:C'VS')),
IFTHEN=(WHEN=NONE,
OVERLAY=(49:C'??'))
Note that I've copied positions 79-80 from your input record into positions
49-50 of the OUTREC record so we can test and overlay them.
Frank Yaeger - DFSORT Team (IBM) - [EMAIL PROTECTED]
Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols,
Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/
Frank Yaeger - DFSORT Team (IBM)
Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
