× 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. December 2007

RE: SETGT *End/*Start

Yeah that's what I meant... sorry it was early here lol.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. -
Sir Winston Churchill
Freedom is the right of all sentient beings. - Optimus Prime



"Wilt, Charles" <WiltC@xxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2007/12/06 09:17 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: SETGT *End/*Start






Actually, I'd go you one further Ron.

SETGT *END, would logically position you _after_ the EOF. Which makes no
sense at all.

Charles


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Ron Power
Sent: Thursday, December 06, 2007 6:56 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: SETGT *End/*Start

Just to add 2 cents here but logically speaking, SETGT
doesn't seem to fit
anyway. To me SETGT *START would position to the 2nd record
just after
the start of the file. To me this would serve no real
purpose. The SETGT
*END would position to the EOF one would think? This is of course if
these were valid options on SETGT. So it makes sense to me
that those
special values aren't used with SETGT.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
709-576-8132
rpower@xxxxxxxxxx
http://www.stjohns.ca/
______________________________________________________________
_____________
Success is going from failure to failure without a loss of
enthusiasm. -
Sir Winston Churchill
Freedom is the right of all sentient beings. - Optimus Prime



"OPLink" <as400@xxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2007/12/06 12:20 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: SETGT *End/*Start






Kevin, there are no F specs, just one C spec in the entire
source file.
The error is focused on just the one line.
C *START SETGT ITEMBL

This one C spec works fine, doesnt draw the error message.
C *START SETLL ITEMBL


JoeM

----- Original Message -----
From: "Kevin Bucknum" <Kevin@xxxxxxxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, December 05, 2007 8:59 PM
Subject: RE: SETGT *End/*Start


It is making it's decision based on the K in the file spec.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of oplink
Sent: Wednesday, December 05, 2007 8:51 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: SETGT *End/*Start

Mike, the seu message knows nothing about the file at
this point, its
the
point of entry when I press enter that the message pops up.



Joe Pluta may be right, its just not acceptable to use *Start/*End
with
SETGT.

I understand its not feasible to list all outcomes that's not
appropriate
but I feel this should have been an exception, I could have lost a
paycheck
on this one!



You can replace with SETLL, or if your not concern with
the nulls then
use
*Hival/*Loval along with SETGT.



I just didn't see that one coming. Still, I feel there's
something im
not
seeing here.





JoeM


----- Original Message -----
From: "Mike Cunningham" <mcunning@xxxxxxx>
To: "'RPG programming on the AS400 / iSeries'"
<rpg400-l@xxxxxxxxxxxx>
Sent: Wednesday, December 05, 2007 6:01 PM
Subject: RE: SETGT *End/*Start


Are you files keyed logicals ?

On SETLL *LOVAL repositions at the start of a keyed file *START
repositions at the start of a non-keyed file
On SETGT *HIVAL repositions at the end of a keyed file *END
repositions
at
the end of a non-keyed file

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-
bounces@xxxxxxxxxxxx]
On Behalf Of OPLink
Sent: Wednesday, December 05, 2007 7:16 PM
To: RPG programming on the AS400 / iSeries
Subject: SETGT *End/*Start


We are on 5.3 and I can not use the *END or *START
with SETGT as shown below. In SEU the error message
RNF5318 pops up when enter is pressed. I can not find any
docs on the cause of error or that I can even use the
*START/*END
with SETGT. However, they both work fine for SETLL.

Am I missing a PTF??

thanks
JoeM
-----------------------------------

C *START SETGT ITEMBL

Factor 1 entry has a data type that is not allowed for this
operation;
speci...


-----------------------------------
F1 on message line
-----------------------------------
Additional Message Information

Message ID . . . . . . : RNF5318 Severity . . .
. . . . :
30
Message type . . . . . : Diagnostic

Message . . . . : Factor 1 entry has a data type that is not
allowed
for
this operation; specification is ignored.
Cause . . . . . : The Factor 1 entry (positions 12 -
25) must have
the
correct data type.
Recovery . . . : Correct the Factor 1 entry
(positions 12 - 25).
Compile
again.
--
This is the RPG programming on the AS400 / 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 AS400 / 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 AS400 / 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 AS400 / 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 AS400 / 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 email communication and accompanying documents is
intended only for the individual or entity to which it is
addressed and may contain information that is confidential,
privileged or exempt from disclosure under applicable law.
Any use of this information by individuals or entities other
than the intended recipient is strictly prohibited. If you
have received this in error, please notify the sender and
delete all the copies (electronic or otherwise) immediately.
--
This is the RPG programming on the AS400 / 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 e-mail transmission contains information that is intended to be
confidential and privileged. If you receive this e-mail and you are not a
named addressee you are hereby notified that you are not authorized to
read, print, retain, copy or disseminate this communication without the
consent of the sender and that doing so is prohibited and may be unlawful.
Please reply to the message immediately by informing the sender that the
message was misdirected. After replying, please delete and otherwise
erase it and any attachments from your computer system. Your assistance
in correcting this error is appreciated.


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.