Oddly enough, we began experiencing a similar issue with PIPESERV in the past 24 hours. The essential issue seems to be that the cmdt output stream is reporting streamstate 8 and nothing good happens thereafter. Could our two problems be related? Could this be somehow related to the date having been 1/11/11? Would any PIPESERVE expert care to weigh in on this, please? -- bc
On Wed, Jan 12, 2011 at 2:29 PM, Smith, Wayne H Mr CTR DISA CDB12 < wayne.smith....@csd.disa.mil> wrote: > I just downloaded PIPESERV, PICKPIPE, and CMS PIPELINES. I'm trying to > get the basic PIPESERV functions working. > > When I issue "PIPE PIPESERV", PIPESERV appears to initialize. I see the > "loading authorization file" message, Copyright statement, and "ready" > message. When I issue a command at the console, it's echoed on the > screen and logged in the PIPSRVLG log file but not executed. I tried > sending a command from the one ID I authorized in the authorization > file, and got the same results (command echoed on screen, logged, not > executed). > > I tried tracing PIPESERV REXX. When PIPESERV initializes, it goes to > the "read_stream" routine and the last statement executed is "select > anyinput". When I enter console input or send commands from the other > ID, nothing appears to happen. I was expecting to some trace activity. > > > Any recommendations on what I should try? > > Below is PIPESERV's "read_stream" routine below in case anyone's > interested. > > We're running at the following level: > > z/VM Version 5 Release 4.0, service level 1002 (64-bit) > Generated at 09/30/10 14:25:49 EST > IPL at 11/07/10 07:40:53 EST > > CMS Level 24, Service Level 002 > > > read_stream: > /* Stop PIPESERV if console stream has disappeared */ 'streamstate input > %cmd' > if rc < 0 | rc > 8 > then do > say 'Command connection severed. 'pipeserv' terminating.' > call TheEnd 4 > end > 'select anyinput' /* Read any input stream */ > 'readto input' > wk = rc > if wk <> 0 > then do > 'select input %cmd' > 'sever input' > call TheEnd wk * (wk <> 12) /* i.e. rc -4095 if stalled */ > end > return >
