DDS column headings in CSV

This is a slight enhancement to Ron Harrison's tip. I added all of the three column headings and the field names. The delimiter is what I use for my regular CPYTOIMPF command.

This is a slight enhancement to Ron Harrison's tip. I added all of the three column headings and the field names. The delimiter is what I use for my regular CPYTOIMPF command.

     
      * GETFFDR Build Column Headings record in
Copy to Import file  
      * Created: 6/2/2004 Ron Harrison                               
      * Reads in DSPFFD Outfile, builds string of columns separated by
      * commas, then strips out any colons, period, quotes and ampersands
                                                                     
     FFDIMPF    O    E             DISK                              
     FFDFLDS    IF   E             DISK    usropn                    
     dcomma            C                   ','                       
     Dnonos            C                   ':."@'                    
     Dblks             C                   '    '                    
     Ddl               C                   X'05'                     
                                                                     
      /free                                                          
         // Heading 1                                                
       Open  FDFLDS;                                                 
       Read  FDFLDS;                                                 
       Eval  fddata  = %trim(whchd1)+dl;                             
       Read  FDFLDS;                                                 
       Dow  not %eof(FDFLDS);                                        
         Eval  fddata  = %trim(fddata) + %trim(whchd1) + dl;         
         Read  FDFLDS;                                 Enddo;

       // eval fddata = %xlate(nonos:blks:fddata);         
       write  RFDIMP;                                      
                                                           
         // Heading 2                                      
       Close FDFLDS;                                       
       Open  FDFLDS;                                       
       Read  FDFLDS;                                       
       Eval  fddata  = %trim(whchd2)+dl;                   
       Read  FDFLDS;                                       
       Dow  not %eof(FDFLDS);                              
         Eval  fddata  = %trim(fddata) + %trim(whchd2) + dl;
         Read  FDFLDS;                                     
       Enddo;                                              
       // eval fddata = %xlate(nonos:blks:fddata);         
       write  RFDIMP;                                      
                                                           
         // Heading 2                                      
       Close FDFLDS;                                       
       Open  FDFLDS;                                       
       Read  FDFLDS;                        
       Eval  fddata  = %trim(whchd3)+dl;                   
       Read  FDFLDS;                                       
       Dow  not %eof(FDFLDS);                              
         Eval  fddata  = %trim(fddata) + %trim(whchd3) + dl;
         Read  FDFLDS;                                     
       Enddo;                                              
       // eval fddata = %xlate(nonos:blks:fddata);         
       write  RFDIMP;                                      
                                                           
         // Field Name                                     
       Close FDFLDS;                                       
       Open  FDFLDS;                                       
       Read  FDFLDS;                                       
       Eval  fddata  = %trim(whfldi)+dl;                   
       Read  FDFLDS;                                       
       Dow  not %eof(FDFLDS);                              
         Eval  fddata  = %trim(fddata) + %trim(whfldi) + dl;
         Read  FDFLDS;                                     
       Enddo;                                              
       // eval fddata = %xlate(nonos:blks:fddata);         
       write  RFDIMP;                        
       Close *all;      
       Eval  *Inlr = *on;
      /end-free


               
               

This was first published in August 2005

Dig deeper on iSeries programming commands

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close