Ken Leidner wrote on IBM-MAIN
>I am trying to take a DCOLLECT output and not only convert it to fixed
>block, but do some reformatting at the same time. All seems well until
>I use the IFTHEN verb.
>
>I can only guess that either the syntax to perform the convert changes
>or you just can not do the convert and IFTHEN at the same time.
>
>This works fine.
>
>OPTION NOVLSCMP,VLSHRT
> INCLUDE COND=(9,1,CH,EQ,C'V')
> SORT FIELDS=COPY,
> OUTFIL FNAMES=SORTOUT,BUILD=(1:29,6,1X,49,4,1X,81,2),CONVERT.
>
>This has the problem
>
> OPTION NOVLSCMP,VLSHRT,
> INCLUDE COND=(9,1,CH,EQ,C'V')
> SORT FIELDS=COPY,
> OUTFIL FNAMES=SORTOUT,CONVERT,:
> IFTHEN=(WHEN=(49,4,CH,EQ,X'001A4A2C'),
> BUILD=(1:29,6,1X,C'3 ',1X,81,2,HEX)),
> IFTHEN=(WHEN=(49,4,CH,EQ,X'007EDE85'),,
> BUILD=(1:29,6,1X,C'9 ',1X,81,2,HEX)),
> IFTHEN=(WHEN=(49,4,CH,EQ,X'019EEB0F'),,
> BUILD=(1:29,6,1X,C'27',1X,81,2,HEX)),
> IFTHEN=(WHEN=(49,4,CH,EQ,X'033DD5BD'),,
> BUILD=(1:29,6,1X,C'54',1X,81,2,HEX)),
> IFTHEN=(WHEN=(49,4,CH,EQ,X'000E18B9'),,
> BUILD=(1:29,6,1X,C'1 ',1X,81,2,HEX)),
> IFTHEN=(WHEN=(49,4,CH,EQ,X'000CAA57'),,
> BUILD=(1:29,6,1X,C'C ',1X,81,2,HEX)),
> IFTHEN=(WHEN=NONE,,
> BUILD=(1:29,6,49,4,81,2,HEX))
You cannot use IFTHEN clauses and CONVERT/VTOF in the same OUTFIL
statement.
Instead, you can use IFTHEN clauses in an INREC or OUTREC statement,
and OUTFIL with VTOF (or CONVERT) and BUILD.
...
OUTREC IFTHEN=,,,
OUTFIL VTOF,BUILD=(...)
Note that the OUTREC statement is processed before the OUTFIL statement.
Frank Yaeger - DFSORT Development Team (IBM) - yae...@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
