scottklement.com

Yes, this has always been the case from day 1. The CALL command when used from the command-line ALWAYS defines character fields as CHAR(32) and ALWAYS defines numeric fields as PACKED(15, 5)

Nothing new about this. Its been this way since the AS/400 was originally introduced in 1988.

If you ...

There are commercial tools that provide a full 5250 emulator (including all the 5250 buttons like error reset) for touch displays. You'll either need to get one of those, or... stop using 5250 and make a better UI for a touch display.

Hello,

Yes, its possible.

Midrange Dynamics has a product called MDRest4i that has routines to generate JWT tokens using RSASHA-256 that are written in RPG and are aimed at RPG programmers. So that might work, assuming your OAuth2 is using JWT tokens (This is commonplace.)

You could also write it ...

Please don't convert the debug log to a Word document or PDF, just send the original document unaltered. Changing it to these document formats can change the way blank lines are handled, the way characters are translated, etc. Just send the original document unchanged so I can see the details as ...

Thanks. I don't currently have an IBM i that I have FTP access to, so its hard to test that.

There's no good way to preserve the member text with FTP. I recommend using the save file or install via Git if the member text is important to you.

I've updated the website to 1.52 and hopefully the other ...

My JSON response has a data item called __Metadata which luckily I don't need so have ignored.


DATA-INTO has an option case=convert. This converts the JSON name into a valid RPG variable name.


data-into Root
%data(%trim(ifsfile)
: 'doc=file case=convert allowextra=yes allowmissing=yes ...

I have implemented a temporary work around on this one (in case it helps anyone else in the future).

The program/API will only get called once per day so +nanoseconds extra run time is irrelevant.

I have reverted back to the code from my original post, but just before executing the data-into ...

Hello,

First of all, please initialize your data structures. RPG has a "bad old feature" where it initializes everything in a data structure to *BLANKS unless you have the INZ keyword. Blanks in EBCDIC are hex x'40' or decimal 64. That is why you are getting a result of 64 in your INT(3) fields ...

Can you explain this better, please?

Where do you see these routines? What are you trying to do?

dcl-s jsonInput varchar(1000);
dcl-s docNode pointer;

jsonInput = '{ "nombre": "Juan", "edad": 30, "activo": true }';

docNode =
yajl_buf_load_tree(
%addr(jsonInput):
%len(%trimr(jsonInput)):
errMsg);



change %ADDR(jsonInput) to %ADDR(jsonInput:*data).

I would also remove the %trimr ...