× 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.


  1.  Home
  2. RPG400-L
  3. March 2008

Reading Data Area

Hi All...I'm having a problem trying to read a logical data area in
RPG400.

Data Area Definition:
Data area . . . . . . . : P57832LOCK
Library . . . . . . . : DVMODD
Type . . . . . . . . . : *LGL
Length . . . . . . . . : 1
Text . . . . . . . . . : Toggle Access to P57832 & P57833
Value . . . . . . . . . : 0

RPG code:
ILOCKDS DS 1
I 1 1 LOCK
I**CKDS DS
I** 1 1 LOCK
I**CKDS DS
I** 1 10LOCK
C *NAMVAR DEFN P57832LOCKLOCKDS
C IN LOCKDS
C LOCK IFEQ '1'
C** LOCK IFEQ 1
C MOVE DENY MSGTXT P
C CALL 'P57530'
C PARM 1 ENDOPT
C PARM MSGTXT
C MOVE *ON *INLR
C RETRN
C ENDIF

Error Message:
The P57833 193500 data area P57832LOCK type or length does not match
program data area (C G S D F).

I get this error whether the data structure is defined as character or
numeric. Can a *LGL type data area be read into an RPG400 program?
It worked fine in RPGIV but I was able to define the field to read into
as an indicator.

Any help appreciated...Thanks in advance...

- Steve


As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
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.