Re: EXTNAME ( MyDSPF : MyFormat )

[Charles Wilt <charles.wilt@xxxxxxxxx>]

CLEAR will never cause blanks to be placed in a zoned character field.

RESET on the other hand will, unless INZ is specified.


"The CLEAR operation sets elements in a structure (record format, data
structure, array, or table) or a variable (field, subfield, array
element or indicator), to their default initialization value depending
on field type (numeric, character, graphic, UCS-2, indicator, pointer,
or date/time/timestamp). For the default initialization value for a
data type, see Chapter 10, “Data Types and Data Formats,” on page
169."

"The RESET operation is used to restore a variable to the value held
at the end of the *INIT phase. This value is called the reset value.
If there is no *INZSR subroutine, the reset value is the same as the
initial value"


Charles

On Tue, Nov 17, 2009 at 9:56 AM, Mark Walter <mwalter@xxxxxxxxxxxxxxx> wrote:
> Even if you're using INZ, CLEAR MyDS will cause blanks in your zoned character field. Try using INZ with RESET.
>
> Mark Walter
> Business to Business Data Integration Specialist
> Certified IBM System i Specialist
> Paragon Consulting Services, Inc
> mwalter@xxxxxxxxxxxxxxx
> 717-764-7909 ext. 126
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of David FOXWELL
> Sent: Tuesday, November 17, 2009 9:13 AM
> To: RPG programming on the IBM i / System i
> Subject: EXTNAME ( MyDSPF : MyFormat )
>
> Hi, all.
>
> I just added a DS to a procedure with the idea that it would be populated automatically when the user enters data. In the record MyFormat is one zoned decimal field, all the rest are character fields.
> At the EXFMT MyDSPF, I get MCH1202.
>
> The code is basically this :
>     D MyDS     E DS                  EXTNAME ( MyDSPF : MyFormat:*INPUT )
>
>        /FREE
>                MyNumField = 0;
>                EXFMT MyFormat;
>
> While debugging, there seems to be confusion between MyNumField of MyDS and MyNumField of MyDSPF. If I do EVAL MyNumField at the EXFMT, I see that MyNumFld = 0. If I step into the EXFMT, and then type EVAL MyNumField, I then see that MyNumFld = blank. I've tried INZ on the MyDS declaration and also CLEAR MyDS.
>
> What am I doing wrong? Is there a better way?
>
> In the DSPF there are many many field names that occur in different record formats.
> For that reason, I wanted to store the contents of MyFormat in a global qualified DS.
>
>
>
> Thanks
>
>
>
> --
> This is the RPG programming on the IBM i / System i (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 IBM i / System i (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.