I finally got the programmable operator piece working. I'm a little
embarrassed by my mistake. I had a misplaced RETURN command in the EXEC.
I looked at the EXEC I don't know how many times and didn't see it. Do'h!
Now my next opportunity. I want to take the file that was placed in the
Try READCARD or EXECIO?
-Original Message-
From: The IBM z/VM Operating System
[mailto:[EMAIL PROTECTED] On Behalf Of Steve Gentry
Sent: Wednesday, April 11, 2007 11:23 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: Programmable operator working: my
Of Steve Gentry
Sent: Wednesday, April 11, 2007 11:23 AM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Re: Programmable operator working: my bad; next opportunity
I finally got the programmable operator piece working. I'm a little
embarrassed by my mistake. I had a misplaced RETURN command in the EXEC
System IBMVM@LISTSERV.UARK.EDU
04/11/2007 11:28 AM
Please respond to The IBM z/VM Operating System
To: IBMVM@LISTSERV.UARK.EDU
cc:
Subject:Re: Programmable operator working: my bad; next
opportunity
Try READCARD or EXECIO?
-Original Message-
From
cc:
Subject:Re: Programmable operator working: my bad; next
opportunity
Try READCARD or EXECIO?
-Original Message-
From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On Behalf Of
Steve Gentry
Sent: Wednesday, April 11, 2007 11:23 AM
To: IBMVM
PROTECTED]
Sent by: The IBM z/VM Operating System IBMVM@LISTSERV.UARK.EDU
04/11/2007 11:28 AM
Please respond to The IBM z/VM Operating System
To:IBMVM@LISTSERV.UARK.EDU
cc:
Subject:Re: Programmable operator working: my bad; next
opportunity
/* Read in a NOTE file but do not put it in ALL NOTEBOOK */
/* Untested !!! */
arg spid fn ft fm
'MAKEBUF'
buf = rc
push 'FILE' fn ft fm
'EXEC PEEK' spid '(FOR *'
code = rc
'DROPBUF' buf
'ESTATE' fn ft fm
if rc = 0 then 'CP PURGE READER' spid
exit code
