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