On Mon, 30 Nov 2020, at 13:57, Seymour J Metz wrote:
> Where and how is the code failing?
[snip]
Sorry to reply to this post, but I've deleted the OP's question. But
looking at the part you included at the foot of your mail...
> 'PIPE SAFE * | STEM MSG.'
>
> TOvolume = Word( Msg,4 )
> MsgID = Word( Msg,1 )
> MsgID1 = substr(MsgID,2,2)
I don't think I ever used PIPE SAFE... but surely the "STEM MSG." part
implies that the first line of the message would be in MSG.1 ?
I wouldn't use a loop to test successive values in the 'volume' var.
Given
volume = 'SP5145 ' ,
'SP5146 ' ,
'SP5147 '
(though since that's a list of volsers I doubt very much I'd have called
that var 'volume' - surely eg 'volslist' would be a better name?)
I'd just use
if wordpos(TOvolume,volslist) > 0 then ...
--
Jeremy Nicoll - my opinions are my own.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
