View previous topic :: View next topic
Author
Message
suganthyprabha New User Joined: 28 Jul 2005Posts: 58
This is my input file 1:
C00003333344444SE00011111MSGSEQ011004999999999999999000000006
D00001111122222SE00022222MSGSEQ021002777777777777777000000005
B00004444466666SE00033333MSGSEQ031003666666666666666000000004
A00007777788888SE00055555MSGSEQ041001555555555555555000000007
F00009999988888SE00044444MSGSEQ041002888888888888888000000008
H00005555533333SE00066666MSGSEQ051006111111111111111000000001
Q00002222222222SE00022222MSGSEQ091009222222222222222000000002
input file 2:
C00003333344444SE00011111MSGSEQ011004999999999999999000000006
D00001111122222SE00022222MSGSEQ021002777777777777777000000005
B00004444466666SE00033333MSGSEQ031003666666666666666000000004
A00007777788888SE00055555MSGSEQ041001555555555555555000000007
F00009999988888SE00044444MSGSEQ041002888888888888888000000008
In this file 1 to 15,16 to 25,26 to 33 are characters and
34 to 37,38 to 52,53 to 61 are Packed decimal.
All these 6 fields are Unique id's and all are unsorted manner. I have to
check for this 6 fields in sorted manner.
I want to get only one o/p file with the records which are present
in Input file1 not in i/p file2.
I want to get the o/p like:
H00005555533333SE00066666MSGSEQ051006111111111111111000000001
Q00002222222222SE00022222MSGSEQ091009222222222222222000000002
Following error message i am getting.
SYT213E "ON" LENGTH EXCEEDS LIMIT OF 32 FOR "PD" OR "ZD FIELDS
SYT030I OPERATION COMPLETED WITH RETURN CODE 12
Please help me to rectify this.
The Jcl Is:
Code:
// NOTIFY=&SYSUID
//S1 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN1 DD DSN=PS9728A.A.PS1,DISP=SHR
//IN2 DD DSN=PS9728A.B.PS2,DISP=SHR
//OUT1 DD SYSOUT=*
//T1 DD DSN=&&T1,DISP=(MOD,PASS),UNIT=SYSDA,SPACE=(TRK,(3,3))
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT1) ON(1,15,CH) ON(16,25,CH) ON(26,33,CH) -
ON(34,37,ZD) ON(38,52,ZD) ON(53,61,ZD) WITH(64,1) -
USING(CTL3) KEEPNODUPS
/*
//CTL1CNTL DD *
OUTREC FIELDS=(1,61,63:C'11')
//CTL2CNTL DD *
OUTREC FIELDS=(1,61,63:C'22')
/CTL3CNTL DD *
OUTFIL FNAMES=OUT1,INCLUDE=(63,2,CH,EQ,C'11'),OUTREC=(1,61)
Thanks and Regards,
Prabha.
Back to top
Hritam New User Joined: 27 Jun 2005Posts: 36 Location: India
Hi Sugan,
Check yours ON Fields for ZD thst mentioned wrong. The On fields should be
SPLICE FROM(T1) TO(OUT1) ON(1,15,CH) ON(16,10,CH) ON(26,8,CH) -
ON(34,4,PD) ON(38,15,ZD) ON(53,9,ZD) WITH(64,1)
as in ON fields should be (pos,length,format)
Back to top
suganthyprabha New User Joined: 28 Jul 2005Posts: 58
HI,
Thanks for ur Reply.
Regards,
Prabha.
Back to top
Please enable JavaScript!