Re: Named constants in DCL-S

On 2019-04-23 8:42 AM, Paul Bailey wrote:

Hi,

I might be having a bad-brain-day, but I thought the following was possible:
dcl-s TTAAMT_x like(CURR_1) inz; // currently packed(13: 2)
dcl-c C_TTAAMT_LEN CONST(%LEN(TTAAMT_x));
dcl-c C_TTAAMT_DP CONST(%DECPOS(TTAAMT_x));
// needed for multiple data structure overlays
dcl-s TTAAMT_z zoned(C_TTAAMT_LEN: C_TTAAMT_DP) inz;

CURR_1 has to be defined before you use it for the definition of TTAAMT_z.

This compiles for me:

dcl-s CURR_1 packed(13:2);
dcl-s TTAAMT_x like(CURR_1) inz; // currently packed(13: 2)
dcl-c C_TTAAMT_LEN CONST(%LEN(TTAAMT_x));
dcl-c C_TTAAMT_DP CONST(%DECPOS(TTAAMT_x));
dcl-s TTAAMT_z zoned(C_TTAAMT_LEN: C_TTAAMT_DP) inz;
return;