Joined: 10 Jun 2005 Posts: 13 Location: London, UK
I am getting error ICE126A for below code.
Input is a VSAM file with max length 1220. Need two output files created as seen in the code.
(Please note the symnames have been declared but since the error is in OUTFIL and not in INREC I haven't produced them here. Let me know if that is needed.
The situation is that input is variable length, output REPORTFL is fixed length. Works fine with OUTFIL OUTREC but gives error when used OUTFIL IFTHEN BUILD.
OUTFIL FNAMES=OUTVSAM,OUTREC=(1,4,5:21)
OUTFIL FNAMES=REPORTFL,CONVERT,INCLUDE=(5,1,CH,EQ,C'1'),IFTHEN=(WHEN=I*
NIT,BUILD=(21,18,30:X))
146I 0 END OF STATEMENTS FROM CNT2CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CNT2,SORTIN=TEMPFL*
E2,DYNALLOC
SORT FIELDS=COPY
RECORD TYPE=V
201I 0 RECORD TYPE IS V - DATA STARTS IN POSITION 5
150I 0 VLSHRT NOT USED FOR SORT, MERGE, INCLUDE, OMIT OR SUM STATEMENT FIELDS
[color=red]126A 9 INCONSISTENT REPORTFL IFTHEN 1 REFORMATTING FIELD [/color]FOUND
751I 0 C5-K05352 C6-Q95214 C7-K90000 C8-K05352 E9-K06751 E7-K90000
052I 3 END OF DFSORT
Works fine if changed from IFTHEN BUILD to OUTREC as below
Does that mean if using IFTHEN in OUTFIL with variable length input then output dataset needs to be variable length as well? .
The code worked with IFTHEN when changed OUTFIL to remove CONVERT and add RDW.
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
Quote:
I think I found the cause of the error. The syntax for OUTFIL below suggests that CONVERT/VTOF can only be used with OUTREC and not with IFTHEN.
Yes, that's what I said in my post above yours. I guess you missed it.
Quote:
Does that mean if using IFTHEN in OUTFIL with variable length input then output dataset needs to be variable length as well? .
Yes.
Quote:
Is it not possible to get fixed length o/p record using IFTHEN of OUTFIL?.
You can't go from variable input to fixed output directly when using IFTHEN. You can use IFTHEN in one step (or ICETOOL operator) and CONVERT with OUTREC in another step (or ICETOOL operator) to go from VB to FB.
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
I looked back at your example again and I don't understand why you need IFTHEN in the OUTFIL statement. You have
IFTHEN=(WHEN=INIT,BUILD=(21,18,30:X))
in your OUTFIL statement. This does the BUILD for every record, so it's the same as just using:
BUILD=(21,18,30:X)
without IFTHEN in which case you can use CONVERT. If this was just a simple example of something else you're actually trying to do with IFTHEN, show me what it is and I may be able to show you how to do it using IFTHEN in INREC or OUTREC rather than in OUTFIL so you can use CONVERT with OUTFIL.
Joined: 10 Jun 2005 Posts: 13 Location: London, UK
I did feel that example may get you wondering :-).
I gave the simpler example just for illustration purpose.
I am actually implementing a requirement to transform data in a variable length KSDS VSAM file and create report of the transformed records.
As suggested by you in a different post, I am tagging the changed records and writing them to report file using the include parameter.
But I also need to write the record key and new values of the changed fields to the report file so I can then use them to display in the report.
Now the file consists of different types of records and based on the type of record I need to write fields from different locations. So in the OUTFIL of report file , i will need to use IFTHEN BUILD to take input fields from different positions based on record type.
Since I am creating both the output file and reportfile in same step, I will not be able to use outrec as it will affect records going to both files??( Please correct if i am wrong)
It is fine if report file needs to be treated as variable file in this case, as the only extra effort is to take care of RDW everywhere when handling the report file. can treat it as fixed length file with RDW ( since all the records are going to be same length).
Attaching code in case you wish to take a look. Sorry for the length of it. CNT2CNTL is the control card with OUTFIL at the end.
Your suggestions are appreciated. Let me know if I am not clear enough.
Since DFSORT is there I dont have to write a big COBOL program to achieve this.
Is there a limit on the input filesize to DFSORT?
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
Quote:
Since I am creating both the output file and reportfile in same step,
I will not be able to use outrec as it will affect records going to
both files??( Please correct if i am wrong)
Yes, that's true. There might be a way to reduce the number of passes by making what you do in the INREC IFTHENs more complex, but it's probably not worth worrying about.
