RE: CLEAR Question for Input Files

["Tyler, Matt" <mattt@xxxxxxxxxxxxxx>]

Michael,
        Create an external data structure using the same file as the format
template, then clear the DS name.

FExtrnFile IF E              K  DISK

D DS_NAME   E DS  EXTNAME('ExtrnFile')

C                CLEAR                               DS_NAME

Thank you,
Matt Tyler
WinCo Foods, Inc
mattt@wincofoods.com

-----Original Message-----
From: Michael Naughton [mailto:mnaughton@juddwire.com]
Sent: Tuesday, January 07, 2003 07:48
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.