DFSORT OVERLAY



IBM's flagship sort product DFSORT for sorting, merging, copying, data manipulation and reporting. Includes ICETOOL and ICEGENER

DFSORT OVERLAY

Postby johnwp53 » Mon Nov 14, 2011 6:22 am

Hi,

I have a VB 8182 file with many different record lengths.
Anyone know of a way to include the last 80 byes of each record in the sort keys?
johnwp53
 
Posts: 5
Joined: Tue Nov 01, 2011 11:07 pm
Has thanked: 0 time
Been thanked: 0 time

Re: DFSORT OVERLAY

Postby dick scherrer » Mon Nov 14, 2011 11:18 am

Hello,

Suggest consideration be given to creating this file with the "key" as the first 80 bytes, not the last.
Hope this helps,
d.sch.
User avatar
dick scherrer
Global moderator
 
Posts: 6268
Joined: Sat Jun 09, 2007 8:58 am
Has thanked: 3 times
Been thanked: 93 times

Re: DFSORT OVERLAY

Postby skolusu » Mon Nov 14, 2011 10:08 pm

johnwp53 wrote:Hi,

I have a VB 8182 file with many different record lengths.
Anyone know of a way to include the last 80 byes of each record in the sort keys?


johnwp53,

Try the following DFSORT JCL which will give you the desired results
//STEP0100 EXEC PGM=SORT                                         
//SYSOUT   DD SYSOUT=*                                           
//SORTIN   DD DSN=Your input 8182 lrecl VB file,DISP=SHR
//SORTOUT  DD SYSOUT=*                                           
//SYSIN    DD *                                                 
  INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,5,8178,JFY=(SHIFT=RIGHT),5))
  SORT FIELDS=(8102,80,CH,A)                                     
  OUTREC BUILD=(1,4,8183)                                       
//*
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
skolusu
 
Posts: 586
Joined: Wed Apr 02, 2008 10:38 pm
Has thanked: 0 time
Been thanked: 39 times

Re: DFSORT OVERLAY

Postby johnwp53 » Wed Nov 16, 2011 8:27 pm

Thanks for responses. I also needed to sort on four fields in the first 120 bytes as well as fields in the last 80 byes. I resorted to accomplishing the task will a COBOL program.
johnwp53
 
Posts: 5
Joined: Tue Nov 01, 2011 11:07 pm
Has thanked: 0 time
Been thanked: 0 time


Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post