Re: Write to a *DEC DTAARA

[boldt@xxxxxxxxxx]

Ivan L. wrote
>Hi All,
>I define a data area MYDTA *DEC LEN(2  0).
>Now I wanna write to it from my program.
>
>DDATA             DS                          DTAARA(MYDTA)
>D  field                                      2  0
> *
>C        *LOCK         IN            DATA
>C                           Z-ADD     18                field
>C                           OUT        DATA
>C                          Move        *on               *inLR
>
>I keep geeting error  RNQ0411 :
> "Data area MYDTA type or length does not match program data area"
>
>It's easy to write to character dataarea, but *DEC give me a headache. I
>must miss something!
>Pleaseeee.....any hints or clue...!!!
>Thank you in advance.

What you're missing is that you're defining the data area
within your program as type character, and not type numeric.
(Data structures are always considered character type.)
Rewrite your code like this:

D field           s              2p 0 dtaara(MYDTA)
C     *lock         in        field
C                   eval      field = 18
C                   out       field
C                   eval      *inlr = *on

Cheers!  Hans

Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *