Re: RPG Free Syntax for Externally Described Data Structure

Yes.

With the change to free-form, the compiler was also enhanced to allow more extensive use of constants - this is one of those cases. Without the quotes, it is looking for a field named LMBJDS104W. With quotes, it knows it is a literal reference.

The conversion tools such as that in Code for i take care of this for you.

Personally I'm happy that it was changed the old rules were too sloppy and unpredictable.


Jon P.

On Apr 26, 2024, at 3:50 PM, <smith5646midrange@xxxxxxxxx> <smith5646midrange@xxxxxxxxx> wrote:

Does the EXTNAME value have to be in quotes so the compiler does not think it is a variable? EXTNAME('LMBJDS104W')

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Mohan Eashver
Sent: Friday, April 26, 2024 3:38 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: RPG Free Syntax for Externally Described Data Structure

Peter,

The Fixed Form here compiles successfully.

* D DS_WMS0104 E DS EXTNAME(LMBJDS104W) D
prefix('W_')*

But compilation is not successful with *Free *Format you mentioned.

010100 *DCL-DS DS_WMS0104 EXTNAME(LMBJDS104W) PREFIX('W_') END-DS;
*
======> bbbbbbbbbb aaaaaaaaaa

======> cccccccccc

*RNF0202 20 a 010100 THE PARAMETER FOR EXTNAME OR EXTFLD MUST BE A
DEFINED NAMED
CONSTANT OR LITERAL.

*RNF3523 40 b 010100 External description DS_WMS0104 for data
structure is not
found; data structure is ignored.

*RNF3530 00 c 010100 Data structure DS_WMS0104 has no valid
subfields.

[image: image.png]
----
Regards,
Mohan Eashver



On Fri, Apr 26, 2024 at 2:30 PM Peter Dow <petercdow@xxxxxxxxx> wrote:

Something like

DCL-DS DS_WMS0104 EXTNAME(LMBJDS104W) PREFIX('W_') END-DS;

or

DCL-DS DS_WMS0104
EXTNAME(LMBJDS104W)
PREFIX('W_')
END-DS;

--
*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
petercdow@xxxxxxxxx
pdow@xxxxxxxxxxxxxx /

On 4/26/2024 11:13 AM, Mohan Eashver wrote:

Happy Friday to you, how are you?

Will you please recommend a Free RPG syntax for the below ?



* D DS_WMS0104 E DS EXTNAME(LMBJDS104W) D
prefix('W_')*

----
Regards,
Mohan Eashver

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

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.

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

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.


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

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.