Re: use of *TBL in RPGLE

[Michael Wisolmerski <mikewiz@xxxxxxxxxxxxx>]

Patrik -

Here is a sample of how I used the *TBL in RPG/400:

I was performing this translation for Japanese use, and you would not need 
the DBCS parameters, but I think you can get you can get a feel for the 
required parameters. Also, this is documented in the System API Reference, 
OS/400 National Language Support APIs manual.

Mike W.


  *
  * EBCDIC to ASCII table with Katakana
  *
I              'QASCIIK'             C         @ST1
I              'QGPL   '             C         @SL1
  *
  * EBCDIC to ASCII table with lower case Roman
  *
I              'QASCII'              C         @ST2
I              'QSYS'                C         @SL2
  *
C           $DBCS     BEGSR
C                     CLEAR@DOUT
C                     CLEAR@DOUTL
C                     CLEAR@DCNVL
C                     CLEAR@DAI
C                     CLEAR@DAO
C                     SELEC
C           @DTBL#    WHEQ 1
C                     MOVEL@ST1      @SCBST    P
C                     MOVEL@ST1      @SCBST
C                     MOVEL@SL1      @SCBSL
C           @DTBL#    WHEQ 2
C                     MOVEL@ST2      @SCBST
C                     MOVEL@SL2      @SCBSL
C                     ENDSL
C                     CALL 'QDCXLATE'
C                     PARM 87        @DINL   50
C                     PARM           @DIN   87
C                     PARM           @SCBST 10
C                     PARM           @SCBSL 10
C                     PARM           @DOUT 174
C                     PARM 174       @DOUTL  50
C                     PARM           @DCNVL  50
C                     PARM '*JPN'    @DBCSL 10
C                     PARM 'N'       @DSISO  1
C                     PARM '*EA'     @DCNV  10
C                     MOVEA@DOUT     @DAI













At 05:09 PM 6/29/2000 +0200, you 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
>+---
>| 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
+---