RE: Record with external defaults

Working as designed.....  Nullable date fields must still (as always) have a
valid date value in them.  The fact that the null indicator is set means
nothing unless you implement the code to treat the field as null.  

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: Titus Kruse [mailto:T_Kruse@xxxxxxxxx]
Sent: Thursday, September 02, 2004 2:34 AM
To: RPG programming on the AS400 / iSeries
Subject: AW: Record with external defaults


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.
>
>

--
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.