× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. January 2016

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

No, this is perfectly valid:

/free
dow 1=1;
<...>
/end-free
c enddo

But really bad code IMHO...

I make it a rule not to intermix free format and fixed format.

I might write a new subroutine/subproceudre in free format, even though the
rest of the program is fixed format.

Charles

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

there is ENDDO but it's not within the /free and /endfree

is that a problem, in 6.1?

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

yes was just being generic again :)

On Tue, Jan 5, 2016 at 1:29 PM, Charles Wilt <charles.wilt@xxxxxxxxx>
wrote:

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.



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



As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.