IBM Mainframe Forum

by **Alissa Margulies** » Tue Aug 11, 2009 7:42 pm

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:

Select all

INCLUDE=(1,4,CH,EQ,C'09IN',OR,
1,4,CH,EQ,X'00000000',OR,
1,4,CH,EQ,X'FFFFFFFF')

by **arcvns** » Tue Aug 11, 2009 11:28 pm

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' '

by **arcvns** » Wed Aug 12, 2009 12:21 am

tvssv,

Here's an alternative approach which I think would do the same.(Untested). I assumed your input as FB/LRECL=70.

Select all

//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))
/*

by **tvssv** » Thu Aug 13, 2009 4:40 pm

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

by **Alissa Margulies** » Thu Aug 13, 2009 8:05 pm

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.

IBM Mainframe Forum

Copy value from Header to detail records

Re: Copy value from Header to detail records

Re: Copy value from Header to detail records

Re: Copy value from Header to detail records

Re: Copy value from Header to detail records

Re: Copy value from Header to detail records