Named constant *SRCCCSID for current source CCSID

Moving files from QRPGLESRC to IFS and around in international environment can cause some challenges for CCSID. However procedures can be written to be aware of this issue and be language (ccsid) neutral by passing the ccsid of the source file containing the caller of your procedure.

Suggestion:

By providing a named constant i.e named *SRCCCSID that evaluates to the ccsid of the source this can be achieved.

Example:

Lets say you have a QRPGLESRC files in ccsid 500 that calls a procedure in a service program supposed to cater for any (EBCDIC) ccsid - today we need to do something like this:

// Set your delimiter according to your CCSID of your source file if you parse any strings. // Note the "makefile" is set to international - ccsid 500 for all source files

json_setDelimitersByCcsid(500);

pJson = json_parseString ('{ "name":"Niels"}');

...

Now with the *SRCCCSID in place we could potentially write the code more generic:

json_setDelimitersByCcsid(*SRCCCSID);

pJson = json_parseString ('{ "name":"Niels"}');

.. and it will work with whatever the (EBCDIC) source ccsid is in scope.

Note: You are able to temporary switch ccsid in the source and therefore the *SRCCCSID should reflect the current ccsid in scope.

Extra feature:

Perhaps an extra feature is to be able to pass the *SRCCCID as a hidden parameter by declaring into the prototype:

Dcl-PR json_parseString pointer extproc(*CWIDEN : 'jx_ParseString');

ccsid uns(5) value options(*srcccsid: *hidden)

string pointer value options(*string);

End-PR;

When we then call it like this.

pJson = json_parseString ('{ "name":"Niels"}');

.. it will under the covers - in this case - expand to :

pJson = json_parseString ( 500: '{ "name":"Niels"}');

Workaround:

It is correct that you can make the conversion by declaring the ccsid on the prototype, however it will not work for options(*string)

This request is based on input from users of the noxDb open source project:

https://github.com/sitemule/noxDB