RE: Help... %Len initializing field ?

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Of course you do. You never move the value of FIXED into BUFFER so it
will be blank.


> -----Original Message-----
> From: rpg400-l-admin@midrange.com
> [mailto:rpg400-l-admin@midrange.com] On Behalf Of Nicolay, Paul
> Sent: Monday, June 03, 2002 8:03 AM
> To: 'rpg400-l@midrange.com'
> Subject: Help... %Len initializing field ?
>
>
> Hi,
>
> Has this always been like that ?
>
> DBuffer           S          32767    Varying
> DpFixed           S               *
> DFixed            S          32767    Based(pFixed)
>
>  /free
>   pFixed = %Addr(Buffer) + 2;
>   Fixed = 'Hello';
>   %Len(Buffer) = %Len(Buffer) + 5;
>   *INLR = *On;
>   Return;
>  /end-free
>
> Given this sample... I end up with Buffer containing 5
> blanks... and not my 'Hello' ?
>
> Kind regards,
> Paul
>
>
> --------------------------------------------------------------
> ----------------
> Notice:  This e-mail message, together with any attachments,
> contains information of Merck & Co., Inc. (Whitehouse
> Station, New Jersey, USA) that may be confidential,
> proprietary copyrighted and/or legally privileged, and is
> intended solely for the use of the individual or entity named
> in this message.  If you are not the intended recipient, and
> have received this message in error, please immediately
> return this by e-mail and then delete it.
>
> ==============================================================
> ================
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>