home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
seedump.zip
/
SAMPLES
/
R5.BAG
< prev
next >
Wrap
Text File
|
1995-08-18
|
530b
|
34 lines
/*
* Author : a priori computer solutions GmbH
* Title : Rexx-Utility
* Notice : Written 1995, the 27th of July
*/
parse arg p1
stacktrace
say rc
do i=0 to stacktrace.0
say stacktrace.i
end
/*
globvar p1
say p1 " at " d2x(rc)
*/
struct "dum"
if ( struct.1 = "STRUCT.1" )
then do
say "No structure found with the name dum"
exit 1;
end
do i=0 to struct.0
say struct.i
end
do i=0 to struct.0
parse value struct.i with a b c
if a == "next" then
say '>>'a 'at ' b
end
return 0