re: IFS - CPTTOIMPF

[Billy Rowe <billyrowe@xxxxxxx>]

Unless you are at V4R4 with PTF's SF61859 & SF61937 which provides the
capability to specify the Stream File Code page(STMFCODPAG) on the
CPYTOIMPF command.

If you are at V4R3 and possibly V4R2 you can create a file in the
IFS using CPYTOSTMF specifying the Stream File Code Page(STMFCODPAG),
Example:

CPYTOSTMF                                                      
 FROMMBR('/qsys.LIB/Source.LIB/Source.FILE/Source.MBR')        
  TOSTMF('/tmp/ASCIIfile')                      
   STMFOPT(*Replace) STMFCODPAG(*PCASCII)                      
    ENDLINFMT(*CRLF)
                                          
The Source member can be any source member or it could  
be a Program Described file(i.e. Flat File).            
The Source member or Flat File should be small or empty 
because the data is not to be used in the target file.

You can then use the CPYTOIMPF command to copy to this file
specify *REPLACE and your data will be converted to ASCII.
Example:

CpyToImpF FromFile( TRANS ) TOSTMF( /tmp/ASCIIfile ) +
          MbrOpt( *REPLACE ) RcdDlm( *CRLF ) +   
          DtaFmt( *FIXED ) StrDlm( x'05' ) 

This will place a Carrige Return/Line Feed at the end of each record
and a TAB between fields.

Hope this helps!

Billy


-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of Vance Stanley
Sent: Tuesday, January 02, 2001 4:18 PM
To: MIDRANGE-L@midrange.com
Subject: IFS - CPYTOIMPF


Sorry about this because I think its been covered
before but I am having trouble with the CPYTOIMPF cmd
when I use it to copy from a db2 file to an IFS /ROOT
strm file. It looks as though I am not getting it to
Convert to ASCII. I have provided it a CCSID of 00037
and I have tried others as well. Maybe I am missing
the point and this command does not do the conversion.
If this is the case then I know of other was to
accomplish what I need.


____________________________________________________________________
Get free email and a permanent address at http://www.amexmail.com/?A=1
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---