RE: Setting value of a CL variable

["Wilt, Charles" <WiltC@xxxxxxxxxx>]

What's the format of the value in the LDA: Packed, Zoned, or binary?

For Zoned, I think this would work....

Dcl  &myNbrChar   *char 5
Dcl  &myNbr       *Dec  (5 0)

RTVDTAARA DTAARA(*LDA (POS LEN)) RTNVAR(&myNbrChar)
Chgvar  &mynbr value(&myNbrChar)

If binary, change the last line to
Chgvar  &mynbr value(%BIN(&myNbrChar))

Packed is a problem....


HTH,


Charles Wilt 
--
Software Engineer
CINTAS Corporation - IT 92B
513.701.1307

wiltc@xxxxxxxxxx


> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-
> bounces@xxxxxxxxxxxx] On Behalf Of Don Cavaiani
> Sent: Friday, June 27, 2008 9:02 AM
> To: Midrange Systems Technical Discussion
> Subject: RE: Setting value of a CL variable
>
> Yes - got that, and just hit the numeric thing.  I had 3 fields, 2 of
> which were alphanumeric, and the numeric one caused
> CPF0812 is: RTNVAR parameter type not valid for data area *LDA.
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Wilt, Charles
> Sent: Friday, June 27, 2008 7:58 AM
> To: Midrange Systems Technical Discussion
> Subject: RE: Setting value of a CL variable
>
> Don,
>
> Crispin has given most if not all you need...
>
> One possible catch, is the value in the LDA character or numeric?
>
>
>
> Charles Wilt
> --
> Software Engineer
> CINTAS Corporation - IT 92B
> 513.701.1307
> wiltc@xxxxxxxxxx
>
>
> > -----Original Message-----
> > From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-
> > bounces@xxxxxxxxxxxx] On Behalf Of Don Cavaiani
> > Sent: Friday, June 27, 2008 8:28 AM
> > To: midrange-l@xxxxxxxxxxxx
> > Subject: Setting value of a CL variable
> >
> > Greetings,
> >
> > Is it possible to change the value of a CL variable to the value of
> > certain bytes in the *LDA?
> >
> > Don
>
>
> This e-mail transmission contains information that is intended to be
> confidential and privileged.  If you receive this e-mail and you are not
> a named addressee you are hereby notified that you are not authorized to
> read, print, retain, copy or disseminate this communication without the
> consent of the sender and that doing so is prohibited and may be
> unlawful.  Please reply to the message immediately by informing the
> sender that the message was misdirected.  After replying, please delete
> and otherwise erase it and any attachments from your computer system.
> Your assistance in correcting this error is appreciated.
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
> list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.



This e-mail transmission contains information that is intended to be confidential and privileged.  If you receive this e-mail and you are not a named addressee you are hereby notified that you are not authorized to read, print, retain, copy or disseminate this communication without the consent of the sender and that doing so is prohibited and may be unlawful.  Please reply to the message immediately by informing the sender that the message was misdirected.  After replying, please delete and otherwise erase it and any attachments from your computer system.  Your assistance in correcting this error is appreciated.