I have a custom application that is being slowly converted "portion at a time" from Arev 3.12 to OI32.
we have a table called "CURRENCY" that has the currency symbol as a field. This has been entered via Arev, so the Sterling symbol is ASCII character 156. This field is accessed via a symbolic in a PRICE table using xlate. All good and easy. However, in the Windows world in order to represent the Sterling symbol we need to use the Window char set. So the question:
Is there any way the symbolic in the PRICE table can be aware of being used in AREV or OI so the appropriate conversion can take place?
Ta
J
I'm sure there's a much smarter and more generic way of doing this, but a simple way would be to set up a common variable to define what system is being used.
eg:
common /systype/system@
set system@ when you login to arev then check it in your symbolic.
Same for OI.
Tried the program stack ?? or @tcl.stack ??.
based on this post, try something like
function Get_Rev_Application( void )
#define AREV
#ifdef REVENG
#undefine AREV
#endif
application=unknown'
#ifdef REVENG
application=OI"#endif
#ifdef AREV
application=Arev'#endif
return application