HTH,
1) Hope the RDW 4 bytes are considered while processing the VB file.
2) Please check if the card below is working.
//CTL1CNTL DD *
OPTION COPY
OUTREC IFTHEN=(WHEN=(45,2,CH,EQ,C'NO'),
BUILD=(1:1,44,45:45,2,48:5X)),
IFTHEN=(WHEN=(45,2,CH,EQ,C'YES'),
BUILD=(1:1,44,45:45,3,48:4X))
/*
Above statement adds 5 spaces with NO records & 4 spaces with YES records &
ignore records with UNKNOWN.
Karthik Premnath.
On Mon, Aug 2, 2021 at 6:30 PM Radoslaw Skorupka <[email protected]>
wrote:
> (yet another DFSORT question)
>
> Source file is RECFM=VB. Last field is text, expected values are YES,
> NO, UNKNOWN
> The goal is to put this field in ICETOOL report, like
> ...
> ON(45,7,CH) HEADER('status')
>
> However it doesn't work.
> Is it possible to change DFSORT behavior and logically add spaces to the
> field?
>
> I see the following solution - just to copy source file to FB and then
> process it.
>
> Does any simpler solution exist?
>
> --
> Radoslaw Skorupka
> Lodz, Poland
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
