IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

To move the records to the end of the file


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Tue Aug 16, 2011 10:04 pm
Reply with quote

bahugun,

Here is a simpler way to get the desired results. Use the following control cards.

Code:

//SYSIN    DD *                                                       
  OMIT COND=(2,7,CH,EQ,C'LOCSITE',OR,2,7,CH,EQ,C'locsite')           
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(101:C'1')),                       
  IFTHEN=(WHEN=(1,100,SS,EQ,C'IFILELST',OR,1,100,SS,EQ,C'ifilelst',OR,
                1,100,SS,EQ,C'QUIT',OR,1,100,SS,EQ,C'quit'),         
  OVERLAY=(101:C'2'))                                                 
  SORT FIELDS=(101,1,CH,A),EQUALS                                     
  OUTFIL IFOUTLEN=100,IFTHEN=(WHEN=(2,4,CH,EQ,C'PUT '),               
  BUILD=(2:C'locsite TRAILingblanks',/,1,100))                       
//*
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Access to non cataloged VSAM file JCL & VSAM 18
No new posts Compare only first records of the fil... SYNCSORT 7
Search our Forums:

Back to Top