Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 9405

DFSORT/ICETOOL :: RE: Removing Extra Spaces in a comma separated file

$
0
0
Author: mistah kurtz
Posted: Tue Sep 13, 2016 1:52 pm (GMT 5.5)

Try this sort card. See if it works for you. I don't have DFSORT, tested it on syncsort assuming both input/output are fb/80.

Input:
Code:
----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
DON BRADMAN          ,AUSTRALIA        ,101,CAPTAIN   AUS               
SACHIN  TENDULKAR    ,INDIA            ,99 ,CAPTAIN   IND               

Sort Card
Code:
OPTION   COPY                                                       
INREC IFOUTLEN=80,                                                 
      IFTHEN=(WHEN=INIT,                                           
      BUILD=(1,21,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'"',LENGTH=23), 
            23,17,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'"',LENGTH=19), 
            41,03,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'"',LENGTH=06), 
            45,15,JFY=(SHIFT=LEFT,LEAD=C'"',TRAIL=C'"',LENGTH=17))),
      IFTHEN=(WHEN=INIT,                                           
      BUILD=(1,65,SQZ=(SHIFT=LEFT,MID=C',',PAIR=QUOTE))),           
      IFTHEN=(WHEN=INIT,FINDREP=(IN=C'"',OUT=C''))                 

Output:
Code:
DON BRADMAN,AUSTRALIA,101,CAPTAIN   AUS
SACHIN  TENDULKAR,INDIA,99,CAPTAIN   IND


Viewing all articles
Browse latest Browse all 9405

Trending Articles