MVSFORUMS.com

[anandss_75]

Hello All,
I have the following requirement.
1) I have two files that need to be matched on a particular field X in File 1 with another field Y in the file 2
2) The record lengths of these files are different
3) The field X is of BINARY datatype in file 1 and is 4 bytes in length (declared as s9(9) comp). It starts in position offset 1 in the file.

4) The field Y is numeric in file 2 and starts in offset 2 in the file. The size of the field is 10 bytes.

My jcl using icetool looks as below

File IN1 is of 223 bytes in length. The field to be matched starts at position 1 and the data type is Binary (S9(9) COMP)

File IN2 is of 133 bytes in length. The field to be matched starts at position 2 and the data type is Numeric 9(10).


//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=VSISNAG.SORT.FPEUNLOD.OUTPUT,DISP=SHR
//IN2 DD DSN=VSISNAG.SORT.INPUT2,DISP=SHR
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT DD DSN=VSISNAG.SORT.OUTPUT,DISP=OLD
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CP02)
COPY FROM(IN2) TO(T1) USING(CP01)
SELECT FROM(T1) TO(OUT) ON(1,4,BI) ALLDUPS USING(CP03)
/*
//CP01CNTL DD *
OUTREC BUILD=(2,10,ZD,TO=BI,LENGTH=4,224:C'1')
//*
//CP02CNTL DD *
OUTREC OVERLAY=(224:C'2')
//*
//CP03CNTL DD *
OUTFIL FNAMES=OUT,INCLUDE=(224,1,CH,EQ,C'2'),BUILD=(1,223)
//*


When i Submitted the job, i got the following error message
in the TOOLMSG dd name

SELECT FROM(T1) TO(OUT) ON(1,4,BI) ALLDUPS USING(CP03)
ICE606I 0 DFSORT CALL 0003 FOR SORT FROM T1 TO OUT USING CP03CNTL TE
ICE602I 0 OPERATION RETURN CODE: 16


In the DFMSG dd name i got the following messages
ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE027A 9 END OF OUT FIELD BEYOND MAXIMUM RECORD LENGTH
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E4-K90007 E7-K24705
ICE052I 3 END OF DFSORT


Please help me in resolving this issue.

Thanks
Anand

[krisprems]

anandss_75

[Frank Yaeger]

The usual reason for the ICE027A in this situation is that your site has changed the default for the SOLRF option from YES to NO. Try adding this to your job and see if the ICE027A goes away:

[anandss_75]

Frank,
Thanks. That worked like a charm.


Thanks
Anand