This works ! thank you very much
I post it so it may help others who search one day.
/* REXX *** RETRIEVE DATA VIA DATASET FROM EXTERNAL ROUTINE */
/*"FREE FI(TEMP01)" makes error */
"ALLOC FI(TEMP01) NEW TRACKS SPACE(3 3) RECFM(V B) LRECL(300)"
"EXECIO * DISKR TEMP01 ( STEM TESTI. FINIS"
/* REXX *** WRITE TO EXTERNAL DATASET */
hke.0 = 2
hke.1 = "first"
hke.2 = "second"
do i=1 to hke.0
outpt = hke.i
"EXECIO" QUEUED() "DISKW TEMP01 ( FINIS"
Just one last question,
I tried first with QUEUE hke. but this didn't work
So I did a loop (do i=1 to hke.0 ; outpt = hke.i ; QUEUE outpt )
Is there a way to do it with hke. instead of the loop ? maybe I put it wrong ?
If not well it works with the loop so thanks anyway