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.
125 PREFIX('Gv');
======> aaaaaa
*RNF3529 20 a 012500 Keyword is not allowed for a program-described data
structure; keyword is ignored.
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=
midrange.com
