IBM Mainframe Forum

[Alissa Margulies]

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.

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

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

[arcvns]

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

[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

[Alissa Margulies]

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.