🚀 go-pugleaf

----------cut------------------------------------------------------------
/*
** ARexx help wanted
**
** I want to put strings in an 'string.index'
** How do I declare the index in the main routine
** before calling the procedure ? I want the string.index
** to be displayed 
** 
** I wrote this little attempt to check things out.
** Appreciate any helping comments and correcting
** of that little teeny-weeny peace that is needed.
** 
** Thanks in advance.
**
** just run  1> rx write.rexx
**
** my current output is included.
*/

/* write.rexx  */
/* string.index test */
/* */
 
options prompt "entry: "

i = 0

cnt = 1

str = ""

do while i < 3
   PARSE PULL instring
   call write
   i = i + 1
end

/* here's my problem..  */1
/* the strinsg are not printed   */

i = 0
do while i < 3
   say 'str.' || i || '  ' || str.i
   i = i + 1
end

exit

write: PROCEDURE EXPOSE instring str cnt

   say 'instring : ' || instring
   str.cnt = instring
say 'cnt ' || cnt
say 'str.cnt ' || cnt || '  ' || str.cnt
   cnt = cnt + 1
return


/* this is my output
** 
** 7.EPOST:TEMP/ad0> rx write.rexx 
** entry: A
** instring : A
** cnt 1
** str.cnt 1  A
** entry: B
** instring : B
** cnt 2
** str.cnt 2  B
** entry: C
** instring : C
** cnt 3
** str.cnt 3  C
** str.0  STR.0
** str.1  STR.1
** str.2  STR.2
** 7.EPOST:TEMP/ad0> 
*/
-----cut-----------------------------------------------------------------

<tsb>A Happy New Year To All Of You

 Regards,
 /hm      THOR v2.22   No:1270   31-Dec-95 10:37:55   Amiga since '86
--
  LUND    13.10'30''E  55.43'24''N
  http://www.algonet.se/~hansmbg
--