Alan,
The file does have an 'U' in position 17 of the file specs? You might
try %STATUS to see
what error you are receiving.
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 Alan Shore
Sent: Tuesday, September 29, 2009 3:58 PM
To: RPG programming on the IBM i / System i
Subject: Question concerning the RPG command DELETE(e)
Afternoon everyone
I have in a program, the following commands
c delete(e) telr
c if %error
c goto more
c endif
Does anyone know if there are in fact some errors that the above would
NOT catch
(Please - the goto is my act of desperation, and I usually don't use
them, but like I said, these are desperate times)
The situation is that the delete is NOT happening, but neither is the
error
If anyone has any ideas, it would be MUCH appreciated
P.S. This program has the file defined as BLOCK(*NO), so from what I can
tell, the delete should be as instantaneous as possible, and not held in
the buffer.
P.P.S. I almost forgot - we are on V5r4 if that means anything
Alan Shore
Programmer/Analyst, Distribution
E:AShore@xxxxxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
--
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.
midrange.com
