Re: Copy value from Header to detail records
Posted:
Tue Aug 11, 2009 7:42 pmby Alissa Margulies
tvssv wrote: SORT FIELDS=COPY -Added this statement because it was giving sort missing error
Sorry, that was a simple error of missing a piece from cut/paste on my part.
tvssv wrote:Can you please explain what is the use of INCLUDE=(1,4,CH,EQ,L(C'09IN',X'00000000',X'FFFFFFFF')),statment.
That is a simplified way of coding the following:
INCLUDE=(1,4,CH,EQ,C'09IN',OR,
1,4,CH,EQ,X'00000000',OR,
1,4,CH,EQ,X'FFFFFFFF')
Re: Copy value from Header to detail records
Posted:
Tue Aug 11, 2009 11:28 pmby arcvns
REFORMAT FIELDS=(F1:1,70,F2:1,8),FILL=(X'40')
- changed to X'40' since it was writing high values in header and trailer
SORT FIELDS=(1,4,CH,A)
OUTREC IFTHEN=(WHEN=(71,8,CH,NE,X'FF'),
BUILD=(1,55,71,8,64,7)),
IFTHEN=(WHEN=NONE,BUILD=(1,70))
tvssv,
You have used the fill byte as space-X'40'; but you're still checking for X'FF' instead of spaces.
BTW the default FILL is spaces. You need not mention it explicitly unless you want something specific. You can even omit the 'FILL' paramter and check for spaces down the line - 71,8,CH,NE,C' '
Re: Copy value from Header to detail records
Posted:
Wed Aug 12, 2009 12:21 amby arcvns
tvssv,
Here's an alternative approach which I think would do the same.(Untested). I assumed your input as FB/LRECL=70.
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUT.FILE,DISP=SHR
//T1 DD DSN=&&T1,DISP=(NEW,PASS)
//SYSIN DD *
SORT FIELDS=COPY,STOPAFT=1
OUTFIL FNAMES=T1,BUILD=(C'DATE-X,''',15,8,C'''',80:X)
/*
//S2 EXEC PGM=SORT
//SORTIN DD DSN=INPUT.FILE,DISP=SHR
//SYMNAMES DD DSN=&&T1,DISP=(OLD,PASS)
//SORTOUT DD DSN=OUTPUT.FILE,...
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=(1,4,CH,EQ,C'09IN'),
BUILD=(C'7808',10,10,23,10,20,03,40:05,04,50,04,C'Y',
23,06,09,01,DATE-X,70:X))
/*
Re: Copy value from Header to detail records
Posted:
Thu Aug 13, 2009 4:40 pmby tvssv
Hi Arcvns,
Thank you.
With the following change it is working fine.
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(1,4,CH,EQ,L(C'09IN',X'00000000',X'FFFFFFFF'))
INREC IFTHEN=(WHEN=(1,4,CH,EQ,C'09IN'),
BUILD=(C'7808',10,10,23,10,20,03,40:05,04,50,04,C'Y',
23,06,09,01,DATE-X,70:X))
/*
Otherwise it is copying all the records but formatting only '09IN' records.
Thankyou.
Can you help me to get some documents for syncsort guide or any URL.
Thanks & REgards
Tvssv
Re: Copy value from Header to detail records
Posted:
Thu Aug 13, 2009 8:05 pmby Alissa Margulies
tvssv wrote:Can you help me to get some documents for syncsort guide or any URL.
Thanks & REgards
Tvssv
Please contact me offline at
alissa.margulies@syncsort.com and I would be happy to assist you with acquiring the manuals.