home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / vrac / mtwdo301.zip / VARIABLE.CMD < prev    next >
OS/2 REXX Batch file  |  1996-02-09  |  1KB  |  65 lines
  1. ;
  2. ;
  3. ; Assignement of values to variables
  4. ;
  5. $(aA) := "100"
  6. $(BB) := $(aA)
  7.  
  8. $(b) := $(AA)
  9.  
  10. $(A) := "10"
  11. ;
  12. ; Calculation with numeric - strings
  13. ;
  14. $(A) := $(A) + "20"
  15. $(A) := $(A) + $(A)
  16. $(B) := "10"
  17. ;
  18. ; Concat of string - variables
  19. ;
  20. $(B) := $(B) & "20"
  21. $(C) := $(B) + $(A)
  22.  
  23. ;
  24. ; INIFile
  25. ;
  26. $E$ := $(_INIFILE)
  27. $E$ := $(_INIPATH)
  28. $E$ := $(_CMDFILE)
  29. $E$ := $(_CMDPATH)
  30.  
  31. if $(_CMDFILE) == variable.cmd
  32. $TRUE$ := TRUE
  33. else
  34. $TRUE$ := FALSE
  35. endif
  36.  
  37. +[$TRUE$]Wert=True
  38.  
  39. ;
  40. ; The $F$ variable is assigned the Value of the given Section/Key
  41. ; If it does not exist, then a empty string is assigned
  42. ;
  43. $(F) := $(_INIVALUE[Section]Key)
  44. $(G) := $(_FILEINIVALUEC:\WIN95\WIN.INI[Windows]Device)
  45. ;
  46. ; Returns the VESA drivername
  47. ;
  48. $(V) := $(_VESA)
  49. ;
  50. ; Access the NW bindery
  51. ; 
  52. $(FN) := $(_NW_LOGINNAME)
  53. $(FN) := $(_NW_OBJID)
  54. $(FN) := $(_NW_LOGINTIME)
  55. $(FN) := $(_NW_CONNECTION)
  56. $(FN) := $(_NW_FULLNAME)
  57. $(FN) := $(_NW_NICADDR)
  58. $(FN) := $(_NW_INETADDR)
  59. ;
  60. ;
  61. ; Environment variables are accessed with $(%....)
  62. ;
  63. $(TMP) := $(%TEMP)
  64.  
  65.