Sri,
Yes, you are right, it should be just TEMP in both statements.
And the SORT statement was inherited from former report where sort is
really present.
This example is "in progress", so it is not finished. It is likely there
will be sort here again.
And some details where changed to
> and now it works.
Radoslaw,
Hmm are you sure you are getting the right results? Unless you typed in the
JCL, that wouldn't give you the right results.
Reason : Your first COPY operation is writing the output to a ddname called
"TEMP', However your DISPLAY is reading from the ddname TEMP0001
Sri,
Complete control cards:
SORT FROM(WEJDATA) TO(TEMP) USING(REPO)
DISPLAY FROM(TEMP0001) LIST(PRINT) -
PAGE -
TITLE('Some title')-
DATE(DM4-) -
TIME(24:) -
BLANK -
NOCC -
ON(19,8,CH) HEADER('user') -
ON(10,10,CH)
Such a neat solution Kolusu, thanks. I'll try it out.
Thanks,
Karthik Premnath.
On Mon, Aug 2, 2021 at 9:23 PM Sri h Kolusu wrote:
> > 2) Please check if the card below is working.
>
>
> Karthik,
>
> You don't need multiple IFTHEN statements. A simple Overlay of 52 byte with
> a space will get
> 2) Please check if the card below is working.
Karthik,
You don't need multiple IFTHEN statements. A simple Overlay of 52 byte with
a space will get the desired results for OP
Thanks,
Kolusu
--
For IBM-MAIN subscribe /
Radoslaw,
It would have been nice if you showed me the complete control cards. I am
going to take an educated guess and the reason you are not getting the
right results is due to the fact that you have short records and you
referring to fields beyond the length stored in RDW.
Do you see an
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'),
(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