Loop and use of queue

[CDMZZZ]

Hi

I am looping through a file and writing out records using the Queue function,however if more than one occurance is found in the file how do I tell REXX to queue both at the moment its just writing out the last record. See code below.


"EXECIO * DISKR INDD (FINIS stem IN."
cnt = 0
DO LOOP = 1 TO IN.0
IF SUBSTR(IN.LOOP,26,3) = "JCL" THEN
error=STRIP(SUBSTR(IN.LOOP,1,133))
end
queue error
"ExecIO "Queued()" DiskW OUTDD (Finis)"

 

[rexxhead]

Move the "queue error" inside the loop.

As coded, you set "error" several times but only queue once.

Frank Clarke
Support the Troops:
-- Bring them home.

http://www.RonPaul2008.com