AW: Record with external defaults

["Titus Kruse" <T_Kruse@xxxxxxxxx>]

No! It does not work. Even when I specify for a date field in DDS
DFT(*NULL), the field was initialized in RPG with *SYS (current date).

And because the subfields of the data structure in RPG don't have any
null-indicators, the RESET operation cannot set them to null. After the
following WRITE operation to the file, date fields have the current date
with null indicator off. :-(


> -----Ursprungliche Nachricht-----
> Von: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Titus Kruse
> Gesendet: Donnerstag, 2. September 2004 08:51
> An: RPG programming on the AS400 / iSeries
> Betreff: AW: Record with external defaults
>
>
> Ok, this should work. But is there no easier way? Maybe in V5R2?
>
>
> > -----Ursprungliche Nachricht-----
> > Von: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]Im Auftrag von Bob Cozzi
> > Gesendet: Mittwoch, 1. September 2004 15:21
> > An: 'RPG programming on the AS400 / iSeries'
> > Betreff: RE: Record with external defaults
> >
> >
> > You would have to create a data structure with the same name as
> > the file and
> > the issue a RESET opcode to the data structure, thus initializing
> > the fields
> > in the database record.
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>