Re: More D spec questions

[Jonathan Ball <jonball52@xxxxxxxxx>]

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=