Re: CLEAR Question for Input Files

["Booth Martin" <Booth@xxxxxxxxxxxx>]

Could you CLEAR/RESET the screen format before you do the chain to the data
file?
 
 
 
---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------
 
-------Original Message-------
 
From: RPG programming on the AS400 / iSeries
Date: Tuesday, January 07, 2003 10:32:03 AM
To: rpg400-l@midrange.com
Subject: CLEAR Question for Input Files
 
Hi Everyone,
 
I've run into a problem that I wonder how other people solve. I've got a
data file that I use for input only in my program, and I use the values to
populate a screen (where they may get changed and then saved off someplace
else). Typically, I CHAIN to the file and then fill the screen fields.
 
My problem is that if the CHAIN fails (which it will, from time to time),
I get decimal data errors on the screen fields. I thought I could solve
this by using CLEAR on the data file format, but CLEAR doesn't work since
the file is input only.
 
I know I could just zero out all the fields individually, but that seems a
little crude :-). I tried using an externally-defined data structure (I
thought maybe I could clear that), but I got compile errors telling me I
hadn't renamed the fields. I finally solved the problem by adding an A to
the F-spec and putting in a dummy subroutine that writes the record format
(which the program never calls). That worked like a charm, since now the
CLEAR works after the failed chain, but I wonder -- is there a better way
to do this?
 
Thanks very much!
 
Mike Naughton
Senior Programmer/Analyst
Judd Wire, Inc.
124 Turnpike Road
Turners Falls, MA 01376
413-863-4357 x444
mnaughton@juddwire.com
 
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
 
.