Comments on: Spanish Printing in AS/400 http://itknowledgeexchange.techtarget.com/itanswers/spanish-printing/ Sat, 25 May 2013 05:16:43 +0000 hourly 1 By: tomliotta http://itknowledgeexchange.techtarget.com/itanswers/spanish-printing/#comment-95990 tomliotta Wed, 31 Aug 2011 01:37:09 +0000 #comment-95990 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

]]>