Re: Procedure Pointers and Open Files -- RPG400-L

Subject: Re: Procedure Pointers and Open Files
From: MattLavinder@xxxxxxxxxxxxxxxxxxx
Date: Mon, 26 Oct 2009 15:26:07 -0400
List-archive: <http://archive.midrange.com/rpg400-l>
List-help: <mailto:rpg400-l-request@midrange.com?subject=help>
List-id: RPG programming on the IBM i / System i <rpg400-l.midrange.com>
List-post: <mailto:rpg400-l@midrange.com>
List-subscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=subscribe>
List-unsubscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>, <mailto:rpg400-l-request@midrange.com?subject=unsubscribe>

Aside from that, I don't know what to suggest... can you show me a
simple piece of code that reproduces the same problem?

I was able to create a program that reproduces the problem. I made save
file out of the library and code.

Source is in QSOURCE file. Sample file, service program, binding
directory...everything should be in library. Compiled under V5R4.

FILETEST is main program. Accepts one parameter. Value of parameter
should be ADDUSER or DELETEUSER, which will calls AddUser or DeleteUser
procedure, respectively.

In my test, I called DELETEUSER and got the I/O error. You might have to
recompile FILETEST and then call DeleteUser to trigger error. I did. It
seems once it runs successfully, error doesn't happen again.?

(See attached file: pointtest.zip)

As an Amazon Associate we earn from qualifying purchases.

Follow-Ups:

Re: Procedure Pointers and Open Files , MattLavinder

This mailing list archive is Copyright 1997-2025 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.