Repeat a record



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

Re: Repeat a record

Postby skolusu » Mon Nov 11, 2013 10:52 pm

javivi,

Try this JCl which will work for 1 account records. It will not work for more than 1 account.

//STEP0100 EXEC PGM=SORT                                           
//SYSOUT   DD SYSOUT=*                                             
//INA      DD DISP=SHR,DSN=Your Account file
//INB      DD DISP=SHR,DSN=Your Currency file
//SORTOUT  DD SYSOUT=*                                             
//SYSIN    DD *                                                   
  OPTION COPY                                                     
  JOINKEYS F1=INA,FIELDS=(19,10,A)                                 
  JOINKEYS F2=INB,FIELDS=(01,10,A)                                 
  REFORMAT FIELDS=(F1:1,44,F2:1,25)                               
  JOIN UNPAIRED                                                   
  INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,1,CH,GT,C' '),PUSH=(1,44)),   
  IFTHEN=(WHEN=INIT,                                               
  OVERLAY=(71:(29,16,UFF,MUL,55,15,UFF),DIV,+100000,PD,LENGTH=16))

  OUTFIL REMOVECC,NODETAIL,                                       
  SECTIONS=(1,18,                                                 
  TRAILER3=(1,18,X,AVG=(71,16,PD,EDIT=(TTTTTTTTTT.TTTTTT))))       
//*
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: Re: Repeat a record

 

Previous

Return to DFSORT/ICETOOL/ICEGENER

 


  • Related topics
    Replies
    Views
    Last post