testval1.nrx      29.11.2002 16:04:13


/*====================================================================*/
/* generated by the classic REXX to NetRexx converter */
/* (c) Thomas.Schneider@Donauland.at */
/*====================================================================*/
/* orig. REXX source: testval1 */
/* generated at: 2002-11-22 18:44:35 */
/* with: rex_nrx.nrx vs. 4.00 pre 21 */
/* Rexx2Nrx options: verbose1 nologo nolist nostats */
/* Vars Localized: NO */
/* IO-method used : 3 ( RexxFile Object oriented ) */
/*====================================================================*/
import Rexx2Nrx.Rexx2RT.RexxSymb
class testval1
properties public static
   /* ... Declare Global Numbers */
   xx = int 12345
   /* ... Declare Global other Variables */
   yy = Rexx 'YY'
method main(args=String[]) static
arg=Rexx(args) -- program arguments as single string
arg=arg -- avoid NetRexx warning
/* Attention: class: testval1 needs Symbolic interface RexxSymb) */
   RexxSymb.setClass('testval1')
   xx = 12345
   say RexxSymb.symbol('xx')
   say RexxSymb.symbol('yy')
   xx = 234
   say 'new value of xx is:' RexxSymb.getValue('xx')
   RexxSymb.setValue('xx',14)
   RexxSymb.setValue('yy','abcdef')
   say 'new value of xx is:' RexxSymb.getValue('xx')
   say 'which must be als equal to:' xx
   say 'yy has now value:' yy 'with value func:' RexxSymb.getValue('yy')
   say 'end of simple value test'
   exit