MVSFORUMS.com

[nagarajan.dharani]

Hi,
Can some one help me out in the following requirement.

I have two sequential files of different record length as below.

File1 with length 10

[vkphani]

Dharani,

Check the below links.
http://www.mvsforums.com/helpboards/viewtopic.php?t=8144&highlight=compare
http://www.mvsforums.com/helpboards/viewtopic.php?t=11&highlight=match
http://www.mvsforums.com/helpboards/viewtopic.php?t=5399

[krisprems]

nagarajan.dharani
Are there any duplicate records in i/p file1 or File2?
_________________
cHEERs
krisprems

[nagarajan.dharani]

Hi for the following code i am getting an error

E RECORD TYPE IS F - DATA STARTS IN POSITION 1
3 END OF FIELD BEYOND MAXIMUM RECORD LENGTH
0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E9-K90007 E7-K24705
3 END OF DFSORT

//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(IN2) TO(T1) USING(CTL2)
COPY FROM(IN1) TO(T1) USING(CTL1)
SPLICE FROM(T1) TO(OUT) ON(2,10,CH) WITH(1,230) WITHALL -
USING(CTL3)
//CTL1CNTL DD *
INREC BUILD=(1X,1,4,BI,TO=ZD,LENGTH=10,5,219,10X)
//CTL2CNTL DD *
INREC BUILD=(1X,2,10,219:X,231,10)
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,
INCLUDE=(2,10,CH,EQ,26,09,CH),
BUILD=(01,230)

Can soemone pls help me out

[vkphani]

Dharani,

Check whether your output file has the same length as your input files.

[nagarajan.dharani]

file1 length is 223
file2 lenght is 10

[vkphani]

what is your OUT file length?

[nagarajan.dharani]

Out file length should be 223 and should have the simliar format of file1

[vkphani]

If your OUT file has the length of 223, then you won't face this problem.

[krisprems]

nagarajan.dharani
This SORT job does what you want

[krisprems]

[nagarajan.dharani]

Hi,

This is my code and the build here has only 223 characters.

But i am still getting the same error
E RECORD TYPE IS F - DATA STARTS IN POSITION 1
3 END OF FIELD BEYOND MAXIMUM RECORD LENGTH
0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E9-K90007 E7-K24705
3 END OF DFSORT


//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT) ON(2,10,CH) WITH(1,230) WITHALL -
USING(CTL3)
//CTL1CNTL DD *
INREC BUILD=(1X,1,4,BI,TO=ZD,LENGTH=10,5,219,10X)
//CTL2CNTL DD *
INREC BUILD=(1X,2,10,219X,2,10)
//CTL3CNTL DD *
OUTFIL FNAMES=OUT,
INCLUDE=(2,10,CH,EQ,231,10,CH),
BUILD=(2,10,ZD,TO=BI,LENGTH=4,11,219)
/*

[vkphani]

Which build here has only 223 characters????

Check if you are using a VB file and also check for your OUT file length. It should be FB and 223.

[vivek1983]

nagarajan.dharani,

Please use [CODE] tags to show your code in the code-format for obtaining better clarity.
_________________
Vivek G
--------------------------------------
A dream is just a dream. A goal is a dream with a plan and a deadline. (Harvey Mackay)

[krisprems]

nagarajan.dharani

1. SPLICE level of complication is not required for your requirement, the ICETOOL JOB that i have show would suffice your requirement
2. When giving the SYSOUT messages you need to provide the complete message, like including the message code which looks like this ICE*.
3. The snapshot of the message should be clear enough to understand where the JOB has failed, either while splicing or whicle COPYing.. or where?

Keep these things in your mind
_________________
cHEERs
krisprems