RE: [COBOL400-L] Downloading from COBOL to a .csv

[Kelly Cookson <KCookson@xxxxxxxxxxxx>]

Here's a CL program I wrote to test the CPYTOIMPF command. Seemed to work
for me.

 STRPGM:  PGM                                                           
                                                                        
 /********************************************************************/ 
 /*  03/09/04  KKC                                                   */ 
 /*          THIS PROGRAM COPIES A DB2 DATABASE FILE TO A CSV        */ 
 /*          FILE IN THE IFS. THE CSV FILE IS CALLED ifstest2.csv    */ 
 /*          LOCATED IN THE ifsdevib FOLDER OF THE ROOT DIRECTORY    */ 
 /*          IN THE IFS. THE DB2 FILE IS CALLED IFSTEST2 LOCATED     */ 
 /*          IN THE IFSDEVLIB LIBRARY.                               */ 
 /********************************************************************/ 
                                                                        
             CPYTOIMPF  FROMFILE(IFSDEVLIB/IFSTEST2)                +   
                        TOSTMF('/ifsdevlib/ifstest2.csv')           +   
                        MBROPT(*REPLACE)                            +   
                        STMFCODPAG(*PCASCII)                        +  
                                                                        
  ENDPGM:     ENDPGM                                                     
  ****************** End of data ************************************** 

Hope this helps.

Thanks,
Kelly
                                                                         
                                                                        

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx]On Behalf Of
MichaelQuigley@xxxxxxxxxx
Sent: Tuesday, March 09, 2004 9:38 AM
To: cobol400-l@xxxxxxxxxxxx
Subject: Re: [COBOL400-L] Downloading from COBOL to a .csv


   >date: Tue, 9 Mar 2004 08:04:53 -0600
   >from: Kelly Cookson <KCookson@xxxxxxxxxxxx>
   >subject: RE: [COBOL400-L] Downloading from COBOL to a .csv
            .          .          .
            .          .          .
            .          .          .
   >By the way, if you don't want to write a CSV file to the IFS using
COBOL,
   >you might try using COBOL to create a temporary DB2 database file, then
   use
   >the CL command CPYTOSTMF to write the temporary DB2 database file to an
   IFS
   >stream file. If you set the ENDLINFMT parameter to *FIXED you should get
   a
   >fixed width text file in the IFS. Microsoft Excel can open fixed width
   text
   >files.
   You could also try using CPYTOSTMF something like this:

   CPYTOIMPF FROMFILE(mylib/db2file)      
             TOSTMF('/home/mydir/test.csv')
             MBROPT(*REPLACE)              
             STMFCODPAG(*PCASCII)          
             RCDDLM(*CRLF)                  
   This will generate a .csv file in any IFS directly from a DB2 database
   file.  We've even put things on our IPCS or IXS (NT server -- whatever
   it's called now) using the /QNTC path in the IFS.

   Michael Quigley
   Systems-Analyst
   The Way International
   www.TheWay.org
_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.