RE: External DS over Display File

You need to use the INDARA keyword in the display file.



Bob Cozzi
Cozzi Consulting
www.rpgiv.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Michael Naughton
Sent: Tuesday, June 03, 2003 9:57 AM
To: RPG programming on the AS400 / iSeries
Subject: External DS over Display File

I've run into a bug that has me stumped. I am trying to put an externally
defined DS in my program, defined by a display file. I've done this
before, and it's worked fine, but now I'm getting a compile error: "The
Name entry is a reserved word; defaults to blanks." It seems to be caused
by the "changed" indicator in the display file -- the compile listing is
as follows:

D               E DS                  ExtName(MSI710FM)                   
  

*---------------------------------------------------------------------------
 * Data structure . . . . . . :                                           
  
 * External format  . . . . . :  SCRN01 : BPCSPROU/MSI710FM               
  

*---------------------------------------------------------------------------
D *IN49                          1N                                       
  
  aaaaa                                                                   
  
4 20 a     3000001  The Name entry is a reserved word; defaults to blanks.
  
D CURPOS                         4S 0  
. . .

The code for record format SCRN01 in the DDS is:
. . .
A                                      CF24                              
A                                      CHANGE(49)                        
A                                      RTNCSRLOC(&CURREC &CURFLD &CURPOS)
A                                      OVERLAY                           
A            CURPOS         4S 0H                                       
. . .

and the RPG is:
D               E DS                  ExtName(MSI710FM) 

As I say -- I've done this before and it's worked fine. If I remove the
changed indicator from the DDS, it works fine, and I can't find *IN49 used
anywhere else in the program (or the display file).

Does anyone have any ideas?

Thanks very much,


Mike Naughton
Senior Programmer/Analyst
Judd Wire, Inc.
124 Turnpike Road
Turners Falls, MA  01376
413-863-4357 x444
mnaughton@xxxxxxxxxxxx

_______________________________________________
This is the RPG programming on the AS400 / iSeries (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.