Re: how to remove this 'GOTO'

[Hoteltravelfundotcom <hoteltravelfun@xxxxxxxxx>]

yes that was very pleasant, thanks to all !

On Mon, Jan 25, 2016 at 3:16 PM, <tegger@xxxxxxxxxxx> wrote:

> My thoughts exactly.
> Straight forward in case you have someone come behind to you that doesn't
> understand the select/when/endsl combination. (Yes, those people do
> exist...)
>
>
>
> ----- Original Message -----
>
> From: "Kevin Bucknum" <Kevin@xxxxxxxxxxxxxxxxxxx>
> To: "RPG programming on the IBM i (AS/400 and iSeries)" <
> rpg400-l@xxxxxxxxxxxx>
> Sent: Monday, January 25, 2016 3:06:26 PM
> Subject: RE: how to remove this 'GOTO'
>
> Change the goto to an else and move your ENDIF down to where the tag is.
>
>
>
>
> Kevin Bucknum
> Senior Programmer Analyst
> MEDDATA/MEDTRON
> Tel: 985-893-2550
>
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
> Hoteltravelfundotcom
> Sent: Monday, January 25, 2016 1:59 PM
> To: RPG programming on the IBM i / System i
> Subject: how to remove this 'GOTO'
>
> HI Problem I have is that apprently, Royalty info is stored in 2 files.
> The program was only looking at one file. The first set of code that
> gets Royalty amt. was commented out. I uncommented because I saw that
> this file does have Royalty amt. So, I am thinking to run the first code
> and if it finds an amt. skip the second. Because the second was not
> finding before and the report was showing zero.
>
> I do not want to have a goto please can you inform me how to do this
> code without the goto?
> The reason being, I dont' want to touch what is currently working.
>
> *** Get Royalties for receipt (first)
> C eval KeyLcType = ROY
> C RecKey Chain SrbOrplc
> C If %Found(SrbOrplc)
> C eval PpRoyal = OcAmou
> c goto writer
> C EndIf
> *** Get Royalties for receipt (**Second)
> C If GrSpno > 0
> C eval KeyLcType = ROY
> C RecKey2 Chain Sr2Lca
> C If %Found(Sr2Lca)
> C eval PpRoyal = CaAmou
> C Else
> C eval PpRoyal = 0
> C EndIf
> C EndIf
> c writer TAG
> C Write GrtOutF
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To
> subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives at
> http://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.