Re: External DS with TIMESTAMP(0) column

[Brian Parkins <goodprophet.bp@xxxxxxxxx>]

Hmmm ... this compiles OK for me at V7.4.

**FREE
DCL-DS JOBSCHEDDS_t EXTNAME('SCHED_JOB') ALIAS QUALIFIED TEMPLATE;
END-DS;
*InLR = *On;

The RPG IV Reference states:

"The default size of a timestamp is 26, with 6 fractional seconds. For a 
free-form timestamp definition, you
use the parameter of the TIMESTAMP keyword to control the number of 
fractional seconds. For a
fixed-form timestamp definition, you can either specify the length of 
the timestamp item as 19, or a value
between 21 and 32, or you can specify the number of fractional seconds 
in the Decimal Positions entry."

Which seems to concur with the generated D-specs in the compiler listing:

    40=D LAST_SUCCESSFUL_SUBMISSION_TIMESTAMP... 1000036
    41=D                               19Z

PTF needed maybe?

Brian.

On 12/03/2021 20:14, Brian Garland via RPG400-L wrote:
> I'm trying to use one of the system views as the EXTNAME of a
> data-structure but it has a TIMESTAMP(0) field and the RPGLE compiler
> complains that it has a length of 19 when it should be 26.
>
> Is there anything I can do in RPGLE to use this view as a data-structure?
>
> My code:
> DCL-DS JOBSCHEDDS_t EXTNAME('SCHED_JOB') ALIAS QUALIFIED TEMPLATE;
> END-DS;
>
> >From the compile listing:
> LAST_SUCCESSFUL_SUBMISSION_TIMESTAMP             19Z
> 20 70000037 The length of a timestamp item must be exactly 26.