× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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