=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: Register_Function Message {FOR Class} {{Type Argument} ...} RETURNS Type Parameters: Description: =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= JJT-5.1 #COMMAND REGISTER_FUNCTION R #IFDEF UI.EXISTS #ELSE USE UI #ENDIF #IFSAME !1 GLOBAL #ERROR 101 GLOBAL FUNCTIONS CANNOT BE REGISTERED #ELSE MESSAGE$ADDRESS GET_!1 #IFSAME !2 FOR #FREG GET_!1 !4 !5 !6 !7 !8 !9 #ELSE #FREG GET_!1 !2 !3 !4 !5 !6 !7 !8 !9 #ENDIF #ENDIF #ENDCOMMAND
#IF (!0>0)
#IFSAME !1 STRING
#REPLACE !2 |SS-!ZG
#ELSE
#IFSAME !1 NUMBER
#REPLACE !2 |SN-!ZG
#ELSE
#IFSAME !1 INTEGER
#REPLACE !2 |SI-!ZG
#ELSE
#IFSAME !1 DATE
#REPLACE !2 |SD-!ZG
#ELSE
#IFDEF SUPPORT$ADDRESS
#IFSAME !1 REAL
#REPLACE !2 |SR-!ZG
#ELSE
#IFSAME !1 ADDRESS
#REPLACE !2 |SX-!ZG
#ENDIF
#ENDIF
#ELSE
#IFSAME !1 REAL
#REPLACE !2 |SR-!ZG
#ENDIF
#ENDIF
#ENDIF
#ENDIF
#ENDIF
#ENDIF
DEFINE_ARGUMENTS !3 !4 !5 !6 !7 !8 !9
#ENDIF