check if global is within method and declare error #COMMAND DEFINE$VARIABLE$HELP #IFDEF NUM_ARGUMENTS #IF (!Zl & 1) // old style - force to global Global_Variable !1 !2 !3 !4 !5 !6 !7 !8 !9 #REM WARNING 301: Global Variable defined in method #ELSE #ERROR 301 Global Variable defined in method #ENDIF #ELSE Global_Variable !1 !2 !3 !4 !5 !6 !7 !8 !9 #ENDIF #ENDCOMMAND
#IF (!0>0)
#IFDEF SUPPORT$ADDRESS
#CHECK !1 '"STRING""NUMBER""DATE""INTEGER""REAL""ADDRESS"'
#ELSE
#CHECK !1 '"STRING""NUMBER""DATE""INTEGER""REAL"'
#ENDIF
#CHECK !2 RT
#IFSAME !1 STRING
#IF (!0>2)
#IFDEF !3
#CHECK !3 _VSWDF
#STR V$ !3
#REPLACE !2 |VS!v
#IF (!0>3)
Global_Variable !1 !4 !5 !6 !7 !8 !9
#ENDIF
#ELSE
#STR V$ 80
#REPLACE !2 |VS!v
Global_Variable !1 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ELSE
#STR V$ 80
#REPLACE !2 |VS!v
#ENDIF
#ELSE
#IFSAME !1 INTEGER
#REPLACE !2 |VI!D
#ELSE
#IFSAME !1 DATE
#NUM V$
#REPLACE !2 |VD!v
#ELSE
#IFSAME !1 NUMBER
#NUM V$
#REPLACE !2 |VN!v
#ELSE
#IFDEF SUPPORT$ADDRESS
#IFSAME !1 REAL
#REAL V$
#REPLACE !2 |VR!v
#ELSE
#ADDRESS V$
#REPLACE !2 |VX!v
#ENDIF
#ELSE
#IFSAME !1 REAL
#REAL V$
#REPLACE !2 |VR!v
#ENDIF
#ENDIF
#ENDIF
#ENDIF
#ENDIF
#IF (!0>2)
GLOBAL_VARIABLE !1 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDIF
#ENDIF