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



David,

If you are not concerned about receiving an error, what you have will work providing - from the manual - the explicit OPEN operation opens the file named in the file-name operand and the file named cannot be designated as a primary, secondary, or table file.


Regards,
Pat Landrum
Senior Programmer/Analyst
Hanover County Public Schools
200 Berkley Street
Ashland, Va 23005
Phone: 804-365-4658 Email: plandrum@xxxxxxx


Notice: This message or any accompanying documents may contain confidential or privileged information of Hanover County Public Schools. If you are not the intended recipient, disclosure, copying or distribution is strictly prohibited by state and federal law. If you received this message in error, please notify the sender as soon as possible.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of David FOXWELL
Sent: Thursday, February 04, 2010 9:59 AM
To: RPG programming on the IBM i / System i
Subject: RE: OPEN in RPGIII

Guys, guys, lets be reasonable here. Surely we're not the only shop with a load of RPGIII that still need to be maintained. I only ever used CVTRPGSRC once and it left me with hours of work to get the program running correctly.

What noone has replied to is, why can't I just do this?

C OPEN MYFILE 10
C KEY CHAINMYFILE 10

Isn't it like
monitor;
open myfile;
on-error;
// do nothing
endmon;

??


-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de rob@xxxxxxxxx
Envoyé : jeudi 4 février 2010 14:23 À : RPG programming on the IBM i /
System i Objet : Re: OPEN in RPGIII

First you take the RPGIII and run CVTRPGSRC on it. Then you have your
way with it.


Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





From: David FOXWELL <David.FOXWELL@xxxxxxxxx>
To: RPG programming on the IBM i / System i
<rpg400-l@xxxxxxxxxxxx>
Date: 02/04/2010 05:52 AM
Subject: OPEN in RPGIII
Sent by: rpg400-l-bounces@xxxxxxxxxxxx



Hi all,

How do I write the equivalent of

/FREE

IF NOT %OPEN(MYFILE);
%OPEN(MYFILE);

ENDIF;

/END-FREE

for RPGIII ?


At the moment, I have
C OPEN MYFILE 10
C KEY CHAINMYFILE 10 >
Thanks
--
This is the RPG programming on the IBM i / System i
(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 / System i
(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.