Re: Procedure and data area ??$*%

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

Move the declaration of your data area to the top of your program outside of
the subprocedure.  They will be global to your sub-modules inside that source
file, as well as your main (if you have one).

This works for programs as well as module source.

Regards,

Jim Langston

Me transmitte sursum, Caledoni!

Slava Zharichenko wrote:
> 
> Here is what i got when tried to create module
> ...
> 
>    110  *Local Data Area
>    111 D                UDS                  DtaAra( *LDA )
> ======>                 a                    bbbbbb
> *RNF3758 20 a      002421  Data area data structure definitions are not
> allowed in
>                            subprocedures.
> *RNF3757 20 b      002421  The keyword is not valid for definitions in
> subprocedures.
>  112 D  DateFmt                       3A
> 
> Should i use bound call to the module to read local data area?
> 
> thank you
> 
> ______________________________________________________________________
> Important Email Information
> 
> The information in this email is confidential and may be legally
> privileged. It is intended solely for the addressee. Access to this email
> by anyone else is unauthorized. If you are not the intended recipient, any
> disclosure, copying, distribution or any action taken or omitted to be
> taken in reliance on it, is prohibited and may be unlawful. If you are not
> the intended addressee please contact the sender and dispose of this
> e-mail.
> 
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

--
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---