On 2/6/2019 2:48 PM, Burrows, Thomas 1001 wrote:
My latest try:

123 Dcl-ds dspgms PSDS
124 EXTNAME('SYSAPGPF')
======> aaaaaaa
*RNF3529 20 a 012400 Keyword is not allowed for a program-described data
structure; keyword is ignored.

EXTNAME has to precede PSDS

125 PREFIX('Gv');
======> aaaaaa
*RNF3529 20 a 012500 Keyword is not allowed for a program-described data
structure; keyword is ignored.

Once you move PSDS to follow the EXTNAME specification, the error on PREFIX will disappear.

126 End-ds;
*RNF3530 00 123 012300 Data structure DSPGMS has no valid subfields.

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of smith5646midrange@xxxxxxxxx
Sent: Wednesday, February 6, 2019 4:46 PM
To: 'RPG programming on the IBM i (AS/400 and iSeries)' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: More D spec questions

[ External Email ]

----------------------------------------------------------------------
"The folks in India that originally wrote this program do not even know you

do not need /Free and /End-free anymore. Instead of figuring out some

C-specs they just left a few lines here and there. I got corrected in a code

review that I might be writing code no one OFFSHORE could understand:)"



Don't you HATE it when you have to "dumb-down" your code to meet the

skillset of the worst programmer on the team????



I got dinged for writing



A += 1;



Instead of



A = A + 1;



And they made me change the lines of code to the latter.



And before I get dinged for this response, although the original comment

mentioned India, this comment is not intended to be racially biased but is

in reality, this a matter of fact everywhere.



-----Original Message-----

From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Burrows,

Thomas 1001

Sent: Wednesday, February 6, 2019 5:30 PM

To: RPG programming on the IBM i (AS/400 and iSeries)

<rpg400-l@xxxxxxxxxxxxxxxxxx>

Subject: More D spec questions



Might as well go for broke here. My EXTNAME and PREFIX is giving errors.

Trying to make a free format DS for what is "dsPgms" shown below it. Tried

these keywords with the " ' " and without it.



Dcl-ds dspgms PSDS

EXTNAME(SYSAPGPF)

PREFIX(Gv)

End-ds;

// d dsPgms EsDS EXTNAME(SYSAPGPF) PREFIX(Gv)



The IBM documentation I am not understanding for either of my Prototype

declarations.



d EXPPGM PR Extpgm('FIFT09RE')

D



D APCVRMXXX PR ExtPgm('APCVRMXXX')

D EHCORF 10

D EHINTP 1

D @RTCODE 2P 0



The folks in India that originally wrote this program do not even know you

do not need /Free and /End-free anymore. Instead of figuring out some

C-specs they just left a few lines here and there. I got corrected in a code

review that I might be writing code no one OFFSHORE could understand:)



Thomas Burrows

Infosys Consultant - AppDev - Legacy SUS United States Mobile # 469.693.2533

Email: burrows.thomas@xxxxxxxxxxxxxx<mailto:burrows.thomas@xxxxxxxxxxxxxx>





--

This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)

mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To

subscribe, unsubscribe, or change list options,

visit: https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_rpg400-2Dl&d=DwICAg&c=Iej4I5bEYPmgv5l2sS6i8A&r=XeGBz1fvL6mzoxSW9-Fyt7Ajo0tG_mOKUz5KbIaikfo&m=ENHzzYwX53ae4m98f9_381yvo1Z5A9Fd_khbGw-GgC4&s=bLVc5HqEcqG_ngiLvrE05yJ8EAnZ2KvuWNo9g43kpd8&e=

or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx

Before posting, please take a moment to review the archives at

https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_rpg400-2Dl&d=DwICAg&c=Iej4I5bEYPmgv5l2sS6i8A&r=XeGBz1fvL6mzoxSW9-Fyt7Ajo0tG_mOKUz5KbIaikfo&m=ENHzzYwX53ae4m98f9_381yvo1Z5A9Fd_khbGw-GgC4&s=Ms3FcJhxw716BL1rCBgn7g4_IyKmHnryZDzjCxfNvoE&e=.



Please contact support@xxxxxxxxxxxx for any subscription related questions.



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

https://urldefense.proofpoint.com/v2/url?u=https-3A__amazon.midrange.com&d=DwICAg&c=Iej4I5bEYPmgv5l2sS6i8A&r=XeGBz1fvL6mzoxSW9-Fyt7Ajo0tG_mOKUz5KbIaikfo&m=ENHzzYwX53ae4m98f9_381yvo1Z5A9Fd_khbGw-GgC4&s=6N6oXpMNqJ63A4xxvBr-PbgzFGedweqZx0OrP3X8VLo&e=





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2021 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.