Re: Variable length fields

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 05/09/2018 12:38:10
AM:

System is V7R3.

I have recently started using variable length fields and a current

project

required a large json string.

Can anyone suggest a good resource for examples with using variable

length

fields. Especially where they are used a part of a return from a
procedure ?

Right or wrong, I would probably do it like this:


rJsonString = ''; // set initial length of varchar to zero

setll jrdunq issjrdpf;
if not %found(issjrdpf);
// is this an error situation?
else;

dou %eof(issjrdpf);
reade jrdunq issjrdpf;
if not %eof(issjrdpf);
remlen = %len(rJsonString:*max) - %len(rJsonString);
if remlen < %len(jrddta);
rSuccess = *off;
rMessage = 'String would exceed '
+ %char(%len(rJsonString:*max))
+ ' characters';
leave;
endif;
rJsonString += jrddta;
endif;
enddo;

endif;

if %len(rJsonString) > *zero;
jrdFound = *on;
endif;


Sincerely,

Dave Clark