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.

F CustMast UF  A  E        K DISK
F                                  PREFIX('CUST.')
D CUST        E DS                 QUALIFIED EXTNAME(CUSTMAST)
D                                  INZ(*EXTDFT)


C               RESET      CUST

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Titus Kruse
Sent: Wednesday, September 01, 2004 6:46 AM
To: Midrange-RPG
Subject: Record with external defaults

Hi!

How do I initialize a record format with external defaults (using V5R1)?

When defining an external described data structure with keyword
INZ(*EXTDFT), all fields are initialized with default values specified in
DDS. Null capable fields are set to null instead of not null. How to do the
same for record formats (on a clear operation)???

Thanks for any help.

Titus Kruse
Software-Entwicklung IBM iSeries
ESW Software Warda KG (GmbH & Co.)
Telefon: +49.40.682893.22
E-Mail: t_kruse@xxxxxxxxx
Web: www.esw-kg.de

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