RE: use of *TBL in RPGLE

["Timura, Patrik (CAP, GCF)" <Patrik.Timura@xxxxxxxxxxxxx>]

Thank you, Keith, that's what I needed ...

-----Original Message-----
From: keith mcintosh [mailto:keith_eh@yahoo.ca]
Sent: Thursday, June 29, 2000 8:27 PM
To: RPG400-L@midrange.com
Subject: Re: use of *TBL in RPGLE



If you are using RPG to copy(Create) the file in 
the IFS you can use the API QDCXLATE.

ie.

d DataLen         S              5P 0 INZ(52)  
d Buffer          S             10A   INZ      
d XLateTable      S             10A   INZ      
d XLateTblLib     S             10A   INZ      

c      CALL   'QDCXLATE'                  68 
c      Parm                DataLen                  
c      Parm                SocketData               
c      Parm   'QASCII'     XLateTable               
c      Parm   'QSYS'       XLateTblLib               


You could also use the *TBL in the Cpytostmf Command.

Data conversion options  . . . . > *TBL  
Conversion table . . . . . . . . >
'/qsys.lib/qascii.tbl'


> "Timura, Patrik (CAP, GCF)" wrote:
> 
> > Hi everybody :-)
> >
> > That's me again ...
> >
> > I am now trying to solve this problem :
> > I have a spoolfile, which I need to copy to IFS
> using the translation table.
> > There's no problem to read data from splf, no
> problem to write them to IFS,
> > but how to translate the data from EBCDIC to
> CP1250 ? I have ebcdic to
> > cp1250 *tbl object, but I don't know how to use it
> in RPG.
> >
> > Does anybody know how to use it ?
> >
> > Thanx ...
> >
> > Patrik Timura
> > +---


_______________________________________________________
Do You Yahoo!?
Get your free @yahoo.ca address at http://mail.yahoo.ca
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---