Re: Compiler bug??? (a bit long)

[Barbara Morris <bmorris@xxxxxxxxxx>]

ed_doxtator=6uS3uco/Pu3QT0dZR+AlfA@public.gmane.org wrote:
>
> h nomain
>
> d MAX_MSG         c                   200
>
> d dsFuncPr_t      ds
> d  count                         5p 0
> d  array                        10a   dim(MAX_MSG)
>
> pfunc             b                   export
> dfunc             pi                  likeds(dsFuncPr_t)
> d dsFuncPi        ds                  likeds(dsFuncPr_t)
>
>  /Free
>   count = 100;
>   array( 1 ) = 'Blah, Blah';

Doc, these assignments to count and array are not doing anything to your
dsFuncPi structure.  They are setting the global dsFuncPr_t structure.
You have to use dsFuncPi.count and dsFuncPi.array to set the local
structure values.

If you passed the structure as a parameter,

dfunc             pi
d  outStruct                          likeds(dsFuncPr_t)

You could just reference the parameter directly:
    outStruct.count = 100;
    outStruct.array(1) = 'Blah, Blah';

The point of LIKEDS is that you can have several versions of the same
structure with the same subfields.  To distinguish the subfields in one
structure from the other, you have to "qualify" the subfield names with
the structure name: DS.SUBF.