Re: Help needed with Free format H specs

[Vernon Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Just a reminder on interpreting errors in a compile listing - in the 
example, in the line with the message ID (RNF0274) there is a severity 
30 and a single character - "a" in this case. That letter corresponds to 
the string of them in the line above and tells you where the beginning 
and extent of the error is. Understanding that error might take 
something more - but if you use RDi and have turned the EVENTF option 
on, you'll get a chance to directly see the entire message description - 
instead of having to dig around in the 5250 app or in SEU.

HTH
Vern

On 2/6/2019 7:55 AM, Justin Taylor wrote:
> Is line 5 your problem?
>
> -----Original Message-----
> From: Burrows, Thomas 1001 [mailto:Burrows.Thomas@xxxxxxxxxxxxxx]
> Sent: Tuesday, February 05, 2019 5:18 PM
> To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxxxxxxxx>
> Subject: RE: Help needed with Free format H specs
>
> This is what I am getting.
>
>        2   Ctl-Opt Debug (*Yes) Option(*NoDebugIo)
>        3           EXPROPTS(*RESDECPOS) DFTACTGRP(*No)
>        4           ACTGRP(*Caller);
>        5 //************************************************************************
>   ======> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
>   *RNF0274 30 a      000500  Compiler directive not recognized; directive ignored.
>
> -----Original Message-----
> From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Charles Wilt
> Sent: Tuesday, February 5, 2019 5:15 PM
> To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxxxxxxxx>
> Subject: Re: Help needed with Free format H specs
>
> [ External Email ]
>
> ----------------------------------------------------------------------
> Barfing?  How?
>
>
>
> Works for me.
>
>
>
> Charles
>
>
>
> On Tue, Feb 5, 2019 at 4:07 PM Burrows, Thomas 1001 <
>
> Burrows.Thomas@xxxxxxxxxxxxxx> wrote:
>
>
>
> > Ctl-Opt Debug (*Yes) Option(*NoDebugIo)
> >           EXPROPTS(*RESDECPOS) DFTACTGRP(*No)
> >           ACTGRP(*Caller);
> > This is barfing. I know the top line works.
> > Help.
> > Thomas
> > --
> > 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=VBHDUGU-v3GeSgYt3O5OJtj1-q3MHEr0HKM3_VSemDs&s=lokgnzkSSp5TLujHqNFq5VA-yh6VRi5FzGMP1jTVsHM&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=VBHDUGU-v3GeSgYt3O5OJtj1-q3MHEr0HKM3_VSemDs&s=ykcgLJ3_DrUxEPVggaQcx7AwiySG9-ROI-0tqge1Qxg&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=VBHDUGU-v3GeSgYt3O5OJtj1-q3MHEr0HKM3_VSemDs&s=EB4QinG6vyOe4m20U_FPESimgL-Xu3-kVg8YH7ycyaE&e=