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