Re: Is this the simplest way to define corresponding arrays in D-specs

On 8/8/2013 6:11 PM, Alan Campin wrote:

... What you want is to have something like this
encapsulated inside a procedure or maybe better yet in a procedure in a
service program. The caller should just ask what the value related with
this value. How the procedure does it should be hidden.
...
All of this points to the fact that we need better mechanisms for declaring
arrays inside procedures.

Not disagreeing with your conclusion, but if you use a procedure, you don't really need an array.

select;
when code = 'h':
return 'header';
when code = 'H';
return 'HEADER';
...
other;
signalInternalError ('Unknown code "' + code + '"');
endsl;

But aside from that, I agree that RPG is a lacking in array initialization. I don't hate CTDATA quite as much as Jon does, but almost as much. Still, I do use it sometimes if it seems less icky than other options.