Alan, I ran this exec. It terminated after 33 records. That is, it
performs eofback according to spec. I used the module that is currently at
Marist.
But you're right about the return code. It is not supposed to be zero.
That's a bug and I can see where it is. Looks like it has been that way
since I added the delete support in 1994.
Cheers,
j.
/* */
/* John Hartmann 1 Mar 2010 16:02:15 */
Signal on novalue
numeric digits 12
Address COMMAND
'PIPE (listerr end ¼ name AW)',
'¼literal',
'|dup 100',
'|c: count lines',
'|spec number 1',
'|eofback console',
'|pad 1000000',
'|lookup autoadd',
'|count lines',
'|cons',
'¼c:',
'|cons'
Exit RC
31
32
33
PIPSTO122E Insufficient free storage.
PIPMSG004I ... Issued from stage 7 of pipeline 1 name "AW".
PIPMSG001I ... Running "lookup autoadd".
33
0
Ready; T=0.48/2.00 16:06:37
On 1 March 2010 15:24, Alan Winson <[email protected]> wrote:
> Thanks, Rob. I read your paper. It looks like a great companion to the
> rest of the lookup doc. The part about how to prevent it from running out
> of main storage looks more involved than anything I can get into right now.
>
> Unfortunately my problem has not gone away. As I mentioned in another
> post,
> the global STOPERROR option and using EOFBACK CONSOLE had no effect at all
> on the run.
>
> So I am still looking for a way to make the pipe give a non-zero return
> code
> if it runs out of storage. All help much appreciated.
>
