Re: DataArea in a no cycle rpg

Yes I am missing the DTAARA. But doesn't UDS imply that it's a data area?
Mine is in a copy member so I wouldn't really want to touch it.

I guess the subject of non cycle programs has already been debated. For the
moment I haven't seen any real advantage.


2018-03-12 17:02 GMT+01:00 <dlclark@xxxxxxxxxxxxxxxx>:

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 03/12/2018 07:36:36
AM:

I have a UDS defined in a non-cycle program (defined with Main in the
h-specs). On compiling, I notice the warning

RNF7539: Data area dataArea should be unlocked explicitly in a non-
cycle module.

However, if I code an UNLOCK, the message below is issued and the
program will not compile.

RNF7069: The Factor 2 operand dataArea of UNLOCK is not a data area
or an update file.

I did some testing. You're probably missing the DTAARA keyword in
column 40 of the UDS statement. Using the MAIN keyword means that the LDA
(and other data areas) cannot be automatically handled by the RPG program.
Therefore, you must explicitly tell RPG that your UDS is a data area by
specifying the DTAARA keyword on your UDS statement and coding the IN,
OUT, and UNLOCK op codes in your calculations. Using D-specs, there are
about five or six different ways to code a data area definition.


D UDS DTAARA
D SubField0 10A

D UDS DTAARA('MYDTAARA1')
D SubField1 10A

D MYDTAARA2 UDS DTAARA
D SubField2 10A

D dsName3 UDS DTAARA('MYDTAARA3')
D SubField3 10A

D dsVarName4 S 10A INZ('MYDTAARA4')
D dsName4 UDS DTAARA(*var:dsVarName4)
D SubField4 10A


Sincerely,

Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300

Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331

Thanks!
--
This is the RPG programming on the IBM i (AS/400 and iSeries)
(RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related

questions.

Help support midrange.com by shopping at amazon.com with our affiliate

link:

http://amzn.to/2dEadiD

************************************************************
*********************************
This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or proprietary
information. If you have received this message in error, please
immediately notify the sender and delete and destroy the message and all
copies. All unauthorized direct or indirect use or disclosure of this
message is strictly prohibited. No right to confidentiality or privilege
is waived or lost by any error in transmission.
************************************************************
*********************************
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD