RXS_GetJobCcsid()

This subprocedure retrieves the CCSID of the current job. This may be used in character data conversion, such as with RXS_Convert().

Subprocedure Prototype

#

     D RXS_GetJobCcsid...
     D                 PR            10I 0 Extproc('RXS_GetJobCcsid') Opdesc

Returns the CCSID of the current job.

Example Code

#
      *--------------------------------------------------------------
      * This example code retrieves the CCSID, and then outputs it to
      * the job log using RXS_JobLog();
      *--------------------------------------------------------------
     H DFTACTGRP(*NO) BNDDIR('RXSBND') ACTGRP(*CALLER)

      /copy QRPGLECPY,RXSCB

     D CCSID           S             10I 0
      /free
        CCSID = RXS_GetJobCCSID();

        RXS_JobLog( 'Job CCSID: %s' : %Char(CCSID) );

        *INLR = *ON;
      /end-free
View as Markdown