Re: How do I clip a vary length field?

["Barbara Morris" <bmorris@xxxxxxxxxx>]

Sorry about that. Two mistakes in my code:
1. ezdaep_full_t should have the QUALIFIED keyword
2. I misspelled ezdaep_full_t in the LIKEDS. (I had 'exdaep_full_t')

This compiles, if I specify ODBCEXIT as the program name when I compile it.
It also compiles with any program name if I replace "dcl-pi ODBCEXIT;" with
"dcl-pi *n;"

    /copy qsysinc/qrpglesrc,ezdaep
    dcl-ds ezdaep_full_t template qualified;   // Add QUALIFIED
       header likeds(EZDSQLF2);
       data char(10000);   // not sure how big this should be
    end-ds;

    dcl-pi ODBCEXIT;
       allow char(1);
       datain likeds(ezdaep_full_t);  // Spelling of eZdaep_full_t
    end-pi;

    dcl-s Upper varchar(128);

    Upper = %subst(datain.data : 1 : datain.header.EZDQLSTL);
    return;

--
Barbara

------------------------------

message: 5
date: Tue, 21 Jan 2020 07:51:11 -0500
from: C Holko <christopherholko@xxxxxxxxx>
subject: Re: How do I clip a vary length field?

To be up front, I cannot get any of this past the compiler. Correcting one
alert leads me down a rabbit hole I am not qualified to be in.

On Fri, Jan 17, 2020 at 6:51 AM Barbara Morris <bmorris@xxxxxxxxxx> wrote:

> I made two mistakes in my code sample. (Double facepalm)
> - I should have made exdaep_full_t a template so the compiler would give
an
> error if it was used in a calculation
> - I should have used datain in the assignment to Upper
>
> Here's a more correct version of my suggestion.
>
> /copy qsysinc/qrpglesrc,ezdaep
> dcl-ds ezdaep_full_t template;
>    header likeds(EZDSQLF2);
>    data char(10000);   // not sure how big this should be
> end-ds;
>
> dcl-pi ODBCEXIT;
>    allow char(1);
>    datain likeds(exdaep_full_t);
> end-pi;
>
> dcl-s Upper varchar(128);
>
> Upper = %subst(datain.data : 1 : datain.header.EZDQLSTL);