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) HEADER('opis') -
ON(45,7,CH) HEADER('status')
//REPOCNTL DD *
OPTION COPY,VLSCMP
INCLUDE COND=(5,5,CH,EQ,C'ABCDE')
And yes, the message ICE218A appears in the DFSMSG DD
And finally - I added
INREC OVERLAY=(52:X)
and now it works.
Thank you again!
Regards
--
Radoslaw Skorupka
Lodz, Poland
W dniu 02.08.2021 o 17:50, Sri h Kolusu pisze:
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 ICE218A message in your DFSMSG sysout?
I see the following solution - just to copy source file to FB and then
process it. >
Does any simpler solution exist?
Ofcourse there is. Assuming your last field you are referring is at
position 45 for a length of 7 bytes, you can overlay the 52 position with a
space so that all of your records are atleast 52 bytes in length.
You can do with the following
INREC OVERLAY=(52:X)
If you hae trouble incorporating that logic, then please show me your
complete ICETOOL step and I can show you the modified version.
Thanks,
Kolusu
----------------------------------------------------------------------
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
