home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
ovlay.zip
/
OVLAY2.CPY
< prev
next >
Wrap
Text File
|
1990-04-17
|
1KB
|
25 lines
! Clarion include file for data definiton of overlay stack
!
! Place the statement INCLUDE('OVLAY2.CPY') in your global data area
PT_RECS BYTE ! Counter of records on stack
PMSG STRING(80) ! Global message area available to
! called procedure
CR_LF EQUATE('<010><013>')
PAR_TABLE TABLE
PAR_BLOCK GROUP,PRE(PAR)
EX_PROC BYTE ! Code of procedure being executed
CALL_PROC BYTE ! Code of calling procedure to have
! control returned to
CALL_STAT BYTE ! Used internally - indicates that
! procedure has been called, but
! is awaiting return control
PASS_MSG STRING(80) ! Message that can be retreived by
! called function. Use to pass
! parameters
. .
INCLUDE('PROCDEFS.INC')