I don't have access to SyncSORT. I don't understand why you get a message for OUTREC when you are not using OUTREC.
The INCLUDE= should be for for, not less than or equal to four.
Why is the LRECL so large? Why do you want to output fixed-length-variable-length record in the end?
Change the BUILD on OUTFIL to (1,4,5,76) for now, to see if it shows a record.
merge 4 VB records from 4 differnt files into single VB file
Re: merge 4 VB records from 4 differnt files into single VB
by BillyBoyo » Tue Sep 23, 2014 5:30 pm
I've made an example using fixed-length records (until those questions are answered)
//HARRYF EXEC PGM=SORT
//CHKOUT DD DUMMY
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(1,1,CH,EQ,C'1'),
PUSH=(30:2,28),
RECORDS=4),
IFTHEN=(WHEN=GROUP,
BEGIN=(1,1,CH,EQ,C'2'),
PUSH=(59:2,18),
RECORDS=3),
IFTHEN=(WHEN=GROUP,
BEGIN=(1,1,CH,EQ,C'3'),
PUSH=(78:2,18),
RECORDS=2)
OUTFIL INCLUDE=(1,1,CH,EQ,C'4'),
IFTHEN=(WHEN=INIT,
BUILD=(30,66,X,2,13)),
IFTHEN=(WHEN=INIT,
OVERLAY=(1,80,SQZ=(SHIFT=LEFT,MID=C',')))
//SORTIN DD *
1TRL,V05,00,201409,20140831,
2 000000000446967
3 000000000002788
4000071355053
//CHKOUT DD DUMMY
//SYSOUT DD SYSOUT=*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(1,1,CH,EQ,C'1'),
PUSH=(30:2,28),
RECORDS=4),
IFTHEN=(WHEN=GROUP,
BEGIN=(1,1,CH,EQ,C'2'),
PUSH=(59:2,18),
RECORDS=3),
IFTHEN=(WHEN=GROUP,
BEGIN=(1,1,CH,EQ,C'3'),
PUSH=(78:2,18),
RECORDS=2)
OUTFIL INCLUDE=(1,1,CH,EQ,C'4'),
IFTHEN=(WHEN=INIT,
BUILD=(30,66,X,2,13)),
IFTHEN=(WHEN=INIT,
OVERLAY=(1,80,SQZ=(SHIFT=LEFT,MID=C',')))
//SORTIN DD *
1TRL,V05,00,201409,20140831,
2 000000000446967
3 000000000002788
4000071355053
- BillyBoyo
- Global moderator
- Posts: 3804
- Joined: Tue Jan 25, 2011 12:02 am
- Has thanked: 22 times
- Been thanked: 265 times
Re: merge 4 VB records from 4 differnt files into single VB
by hariharan_bk » Tue Sep 23, 2014 6:44 pm
ok BillyBoyo.
I have also changed the input to FB from VB.
i need to reformat the FB 80 byte record to satisfy my additional requirement. Following is the sysntax i used.
following is the error we are getting, can u help -
input file : FB 80 byte
output expected: FB, 90 byte
I have also changed the input to FB from VB.
i need to reformat the FB 80 byte record to satisfy my additional requirement. Following is the sysntax i used.
OUTREC BUILD=(1:1,27,28:C'000',31:28,16,47:C'000',50,44,16,
66:C' ',67:C'00000',72:60,12,84:C',+',80:X)
66:C' ',67:C'00000',72:60,12,84:C',+',80:X)
following is the error we are getting, can u help -
SYNCSORT LICENSED FOR VERIZON WIRELESS
SYSIN :
OPTION COPY
OUTREC BUILD=(1:1,27,28:C'000',31:28,16,47:C'000',50,44,16,
66:C' ',67:C'00000',72:60,12,84:C',+',90:X)
*
WER268A OUTREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
******************************* BOTTOM OF DATA *******************
SYSIN :
OPTION COPY
OUTREC BUILD=(1:1,27,28:C'000',31:28,16,47:C'000',50,44,16,
66:C' ',67:C'00000',72:60,12,84:C',+',90:X)
*
WER268A OUTREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
******************************* BOTTOM OF DATA *******************
input file : FB 80 byte
----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
********************************* Top of Data **********************************
TRL,V05,00,201409,20140831,,000000000446967,000000000002788,000071355053
******************************** Bottom of Data ********************************
********************************* Top of Data **********************************
TRL,V05,00,201409,20140831,,000000000446967,000000000002788,000071355053
******************************** Bottom of Data ********************************
output expected: FB, 90 byte
TRL,V05,00,201409,20140831,000000000000446967,000000000000002788, 00000000071355053,+
Many Thanks,
Harry
Harry
- hariharan_bk
- Posts: 73
- Joined: Thu Mar 29, 2012 11:13 am
- Has thanked: 5 times
- Been thanked: 0 time
Re: merge 4 VB records from 4 differnt files into single VB
by hariharan_bk » Tue Sep 23, 2014 7:04 pm
Found the issue. We will resolve this. Thanks
Many Thanks,
Harry
Harry
- hariharan_bk
- Posts: 73
- Joined: Thu Mar 29, 2012 11:13 am
- Has thanked: 5 times
- Been thanked: 0 time
Re: merge 4 VB records from 4 differnt files into single VB
by hariharan_bk » Thu Sep 25, 2014 12:02 am
Hi BillyBoyo or team,
can u help me fix the above issue for VB records. currently the approach is working fine for FB.
It wud be of great help with VB
can u help me fix the above issue for VB records. currently the approach is working fine for FB.
It wud be of great help with VB
Many Thanks,
Harry
Harry
- hariharan_bk
- Posts: 73
- Joined: Thu Mar 29, 2012 11:13 am
- Has thanked: 5 times
- Been thanked: 0 time
Re: merge 4 VB records from 4 differnt files into single VB
by BillyBoyo » Thu Sep 25, 2014 1:36 am
Can you post what you have the the FB, please? You'll also need to answer those questions I asked earlier.
- BillyBoyo
- Global moderator
- Posts: 3804
- Joined: Tue Jan 25, 2011 12:02 am
- Has thanked: 22 times
- Been thanked: 265 times
Re: merge 4 VB records from 4 differnt files into single VB
by Thampy » Thu Sep 25, 2014 10:38 pm
I tried the below syncsort jcl assuming the record length of 80 and VB record format for all the input files. The merge works fine.
Output is
TRL,V05,00,201409,20140831,000000000446967,000000000002788,000071355053
//STEP001 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=VBFILE1,DISP=SHR
// DD DSN=VBFILE3,DISP=SHR
// DD DSN=VBFILE2,DISP=SHR
// DD DSN=VBFILE4,DISP=SHR
//SORTOUT DD DSN=VBFILE5,DISP=(,CATLG,DELETE),
// SPACE=(TRK,(3,1),RLSE),RECFM=VB,LRECL=320,DSORG=PS
//SYSIN DD *
SORT FIELDS=(92,1,CH,A)
SUM FIELDS=(32,8,40,8,48,2,51,8,59,8,67,2,70,8,78,4),FORMAT=BI
INREC IFTHEN=(WHEN=INIT,OVERLAY=(32:18Z,
51:18Z,70:12Z,90:SEQNUM,2,ZD,92:C'A')),
IFTHEN=(WHEN=(90,2,ZD,EQ,2),OVERLAY=(32:5,18)),
IFTHEN=(WHEN=(90,2,ZD,EQ,3),OVERLAY=(51:5,18)),
IFTHEN=(WHEN=(90,2,ZD,EQ,4),OVERLAY=(70:5,12))
OUTREC BUILD=(1,31,32,51,SQZ=(SHIFT=LEFT,MID=C','))
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=VBFILE1,DISP=SHR
// DD DSN=VBFILE3,DISP=SHR
// DD DSN=VBFILE2,DISP=SHR
// DD DSN=VBFILE4,DISP=SHR
//SORTOUT DD DSN=VBFILE5,DISP=(,CATLG,DELETE),
// SPACE=(TRK,(3,1),RLSE),RECFM=VB,LRECL=320,DSORG=PS
//SYSIN DD *
SORT FIELDS=(92,1,CH,A)
SUM FIELDS=(32,8,40,8,48,2,51,8,59,8,67,2,70,8,78,4),FORMAT=BI
INREC IFTHEN=(WHEN=INIT,OVERLAY=(32:18Z,
51:18Z,70:12Z,90:SEQNUM,2,ZD,92:C'A')),
IFTHEN=(WHEN=(90,2,ZD,EQ,2),OVERLAY=(32:5,18)),
IFTHEN=(WHEN=(90,2,ZD,EQ,3),OVERLAY=(51:5,18)),
IFTHEN=(WHEN=(90,2,ZD,EQ,4),OVERLAY=(70:5,12))
OUTREC BUILD=(1,31,32,51,SQZ=(SHIFT=LEFT,MID=C','))
Output is
TRL,V05,00,201409,20140831,000000000446967,000000000002788,000071355053
Re: merge 4 VB records from 4 differnt files into single VB
by BillyBoyo » Fri Sep 26, 2014 12:12 am
You should specify OPTION EQUALS and be aware that this won't work if there are other than numeric data on the other three files, or if someone decides to cut the leading zeros off so that you have variable-length fields.
You'll have trailing blanks on your record. You shouldn't specify DCB information for output files, SORT will handle that.
You'll have trailing blanks on your record. You shouldn't specify DCB information for output files, SORT will handle that.
- BillyBoyo
- Global moderator
- Posts: 3804
- Joined: Tue Jan 25, 2011 12:02 am
- Has thanked: 22 times
- Been thanked: 265 times
-
- Related topics
- Replies
- Views
- Last post
-
- merge the records from 3 input files into 1 output file alte
by MFUSERVDC » Sun Jan 24, 2016 10:43 am - 2 Replies
- 2721 Views
- Last post by MFUSERVDC
Sun Jan 24, 2016 9:57 pm
- merge the records from 3 input files into 1 output file alte
-
- Merge two files and sum up the count in a single trailer
1, 2by gauravnnl » Tue Jan 13, 2015 5:08 pm - 12 Replies
- 10112 Views
- Last post by gauravnnl
Thu Jan 22, 2015 5:39 pm
- Merge two files and sum up the count in a single trailer
-
- Merge 2 records into single, involves reformating too
by hariharan_bk » Thu Oct 09, 2014 7:18 pm - 3 Replies
- 3037 Views
- Last post by BillyBoyo
Sun Oct 12, 2014 6:15 am
- Merge 2 records into single, involves reformating too
-
- How many file we can able to merge in a single step?
by RajendraPrabhuS » Fri Jul 24, 2009 11:41 am - 6 Replies
- 2759 Views
- Last post by RajendraPrabhuS
Sat Jul 25, 2009 7:38 am
- How many file we can able to merge in a single step?
-
- Need to Compare 2 files and select matching/MERGE records
1, 2by rockstar2020 » Wed Jan 08, 2014 4:06 pm - 10 Replies
- 6419 Views
- Last post by BillyBoyo
Wed Jan 15, 2014 2:20 pm
- Need to Compare 2 files and select matching/MERGE records