169354 Currently Banned New User
Joined: 14 May 2007 Posts: 5 Location: chennai
|
|
|
|
For file comparision task i have written this code.
I have acct numbers in the two input files. REC LENGTH =80 and it is a fixed block.
length of the acct no's is 16.
If the account number is present in file1 and file2, write the account# to Outfile1
If the account number is present in file1 and NOT in file2, write the account# to Outfile2
If the account number is present in file2 and NOT in file1, write the account# to Outfile3
but am getting MAXCC=16. i tried lot but couldnt fix it..
can anyone help me plz.
Code: |
//STEP010 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DISP=SHR,DSN=DATX00D.ISDXU23.SAMPLE.FILE1
//IN2 DD DISP=SHR,DSN=DATX00D.ISDXU23.SAMPLE.FILE2
//T1 DD DSN=DATX00D.T1.TEMP,UNIT=SYSDA,SPACE=(CYL,(5,5)),
// DISP=(MOD,KEEP,KEEP)
//OUT12 DD DSN=*****************FILE12.OUT,
// DISP=(,CATLG,DELETE),
// UNIT=DEVDA,SPACE=(CYL,(1,1),RLSE)
//OUT1 DD DSN=****************.FILE1.OUT,
// DISP=(,CATLG,DELETE),
// UNIT=DEVDA,SPACE=(CYL,(1,1),RLSE)
//OUT2 DD DSN=***************.FILE2.OUT,
// DISP=(,CATLG,DELETE),
// UNIT=DEVDA,SPACE=(CYL,(1,1),RLSE)
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT12) ON(1,16,CH) WITH(18,1) USING(CTL3)
/*
//CTL1CNTL DD *
INREC OVERLAY=(17:C'11')
/*
//CTL2CNTL DD *
INREC OVERLAY=(17:C'22')
/*
//CTL3CNTL DD *
OUTFIL FNAMES=OUT12,INCLUDE=(17,2,CH,EQ,C'12'),BUILD=(1,16)
OUTFIL FNAMES=OUT1,INCLUDE=(17,2,CH,EQ,C'11'),BUILD=(1,16)
OUTFIL FNAMES=OUT2,INCLUDE=(17,2,CH,EQ,C'22'),BUILD=(1,16)
/*
|
|
|