Spanish Printing in AS/400

25 pts.
Tags:
AS/400 printers
AS/400 printing
RPG36
How can I print some report text in Spanish? AS400 5.3

Thanks, BobPhoenix



Software/Hardware used:
AS/400 5.3 RPG36
ASKED: August 30, 2011  1:53 PM
UPDATED: March 31, 2012  5:23 PM

Answer Wiki

Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Discuss This Question: 1  Reply

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • TomLiotta
    It's hard to determine exactly what you want to do. Here's a very trivial ILE CL program that prints a report. The heading and first detail line is in English. The last detail line is in Spanish. This was tested on a US English system:
    /* +
       CRTCLMOD MODULE( mylib/PRTSPANISH )           +
                SRCFILE( mylib/QCLSRC )              +
                SRCMBR( PRTSPANISH )                 +
                LOG( *NO )                           +
                                                     +
       CRTPGM PGM( mylib/PRTSPANISH )                +
              BNDDIR( QC2LE )                        +
              ACTGRP( *NEW )                         +
    */
    pgm  ( +
         )
    
       dcl   &msgdta      *char  128
    
       dcl   &NL          *char    1     value( x'15' )
       dcl   &x00         *char    1     value( x'00' )
    
       dcl   &rc          *int
    
    
    /* Set a trivial page heading... */
       chgvar           &msgdta       ( +
                                        'A generated Spanish SPLF:' *cat  +
                                        &NL          *cat  +
                                        &NL          *cat  +
                                        &x00               +
                                      )
    
    /* Assign our printed output to QPRINT... */
       ovrdbf      STDOUT  +
                     tofile( QPRINT )  +
                     share( *YES )
    
    /* Print our trivial heading... */
       callprc        'printf'            ( +
                                            &msgdta        +
                                          ) +
                                    rtnval( &rc )
    
    
       chgvar           &msgdta       ( +
                                        'Name   Address' *cat +
                                        &NL          *cat  +
                                        &x00               +
                                      )
       callprc        'printf'            ( +
                                            &msgdta        +
                                          ) +
                                    rtnval( &rc )
    
       chgvar           &msgdta       ( +
                                        'Nombre Dirección' *cat +
                                        &NL          *cat  +
                                        &x00               +
                                      )
       callprc        'printf'            ( +
                                            &msgdta        +
                                          ) +
                                    rtnval( &rc )
    
    /* Clear away our override... */
       dltovr      STDOUT
    
    /* ...and get out of here... */
       return
    
    endpgm
    But somehow that doesn't seem to be what you're trying to do. Can you explain in a little more detail? Tom
    125,585 pointsBadges:
    report

Forgot Password

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

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following