Re: in OS 6.1 can you mix and match /free

Yes...

And I hope you meant an ENDDO...

Sure END works, but really...might as well write in RPG II.

On Tue, Jan 5, 2016 at 1:25 PM, Hoteltravelfundotcom <
hoteltravelfun@xxxxxxxxx> wrote:

the error now getting is in /free
DOW

does it need a END? (in 6.1)?

*RNF5141 30 5 ENDyy is specified without associated structured
operation.
*RNF5177 30 5 The ENDyy entry is missing for DO, DOUxx, DOWxx, FOR,
IFxx,
MONITOR, or SELECT.


On Tue, Jan 5, 2016 at 12:45 PM, Hoteltravelfundotcom <
hoteltravelfun@xxxxxxxxx> wrote:

yes, missing C specs, sorry bout that.

On Tue, Jan 5, 2016 at 12:39 PM, <broehmer@xxxxxxxxxxxxxxx> wrote:

From what you are showing, you may have several issues.
1. Make sure that if you end-free and then you begin free again,
that you /free for the new set of free statements.

/end-free
c exsr stuff
/free
exsr next;

2. One error can cause a slew of unrelated and invalid errors after

you

fix the original error. Obviously omitting /free and then

starting

with free
statements will make for some very unusual and incorrect errors.






From: Hoteltravelfundotcom <hoteltravelfun@xxxxxxxxx>
To: "RPG programming on the IBM i (AS/400 and iSeries)"
<rpg400-l@xxxxxxxxxxxx>
Date: 01/05/2016 11:34 AM
Subject: Re: in OS 6.1 can you mix and match /free
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>



I checked, they all have 'C'.

On Tue, Jan 5, 2016 at 12:28 PM, <broehmer@xxxxxxxxxxxxxxx> wrote:

Me thinks you are missing the "C" spec (column 6) after the /end-fee
unless you did not include all of the code. But to answer your

question,

you absolutely can mix.







From: Hoteltravelfundotcom <hoteltravelfun@xxxxxxxxx>
To: "RPG programming on the IBM i / System i"

<rpg400-l@xxxxxxxxxxxx>

Date: 01/05/2016 11:24 AM
Subject: in OS 6.1 can you mix and match /free
Sent by: "RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx>



According to the error I am getting, I am thinking you cannot mix

regular

and free?
Error:
*RNF0257 30 2 Form-Type entry for main procedure not valid or

out

of

sequence.

*RNF5005 30 21 Operation entry following ENDSR operation is not
valid;

specification is ignored.

*RNF5016 30 1 ENDSR operation has no associated BEGSR

operation.

*RNF5141 30 5 ENDyy is specified without associated structured
operation.
*RNF5177 30 5 The ENDyy entry is missing for DO, DOUxx, DOWxx,

FOR,

IFxx,
MONITOR, or SELECT.



code in error:


354 /end-free
355 EXSR writeLoc

======>a

======>a

*RNF0257 30 a 017600 Form-Type entry for main procedure not

valid

or
out
sequence.

356 EXSR upd67a

======>a

*RNF0257 30 a 017700 Form-Type entry for main procedure not

valid

or
out
sequence.

357 /free

358 W_STRWHERE = ' where SixSeven = 0';
--
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.




"CONFIDENTIALITY NOTICE: This e-mail transmission (and/or the

attachments

accompanying it) contain confidential information belonging to the

sender.

The information is intended only for the use of the intended

recipient.

If

you are not the intended recipient, you are hereby notified that any
disclosure, copying, distribution or the taking of any action in

reliance

on the contents of the information is strictly prohibited. Any
unauthorized interception of this transmission is illegal under the

law.

If you have received this transmission in error, please promptly

notify

the

sender by reply e-mail, and then destroy all copies of the

transmission."

--
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.

--
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.




"CONFIDENTIALITY NOTICE: This e-mail transmission (and/or the
attachments accompanying it) contain confidential information

belonging

to

the sender. The information is intended only for the use of the

intended

recipient. If you are not the intended recipient, you are hereby

notified

that any disclosure, copying, distribution or the taking of any action

in

reliance on the contents of the information is strictly prohibited.

Any

unauthorized interception of this transmission is illegal under the

law.

If you have received this transmission in error, please promptly

notify

the

sender by reply e-mail, and then destroy all copies of the

transmission."

--
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.

--
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.

--
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.