home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / seedump.zip / SAMPLES / R5.BAG < prev    next >
Text File  |  1995-08-18  |  530b  |  34 lines
  1. /*
  2.  * Author : a priori computer solutions GmbH
  3.  * Title  : Rexx-Utility
  4.  * Notice : Written 1995, the 27th of July
  5.  */
  6.  
  7. parse arg p1
  8. stacktrace
  9. say rc
  10. do i=0 to stacktrace.0
  11.   say stacktrace.i
  12. end
  13. /*
  14. globvar p1
  15. say p1 " at " d2x(rc)
  16. */
  17. struct "dum"
  18.  
  19. if ( struct.1 = "STRUCT.1" )
  20. then do
  21.   say "No structure found with the name dum"
  22.   exit 1;
  23. end
  24.  
  25. do i=0 to struct.0
  26.   say struct.i
  27. end
  28. do i=0 to struct.0
  29.   parse value struct.i with a b c
  30.   if a == "next" then
  31.     say '>>'a 'at ' b
  32. end
  33. return 0
  34.