home *** CD-ROM | disk | FTP | other *** search
/ CD/PC Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / VPREVAL / ASCII._ / 1000.0 next >
Encoding:
Text File  |  1994-01-13  |  406 b   |  13 lines
  1. Arg window self
  2.  
  3. /* Get item value  Value Set */
  4. value = VpGetItemValue(window,1000)
  5. /* Set item value  Entry Field */
  6. CALL VpSetItemValue window,1001,value
  7. /* Set item value  Entry Field */
  8. CALL VpSetItemValue window,1002,C2D(value)
  9. /* Set item value  Entry Field */
  10. CALL VpSetItemValue window,1003,C2X(value)
  11. /* Set item value  Entry Field */
  12. CALL VpSetItemValue window,1004,X2B(C2X(value))
  13.