Display, parse, issue command

[skki1]

Hi,

trying to get the terminal name from IMS shutdown status command and if active ti inact it.

not sure where/what I'm missing here.
Here's the display:

R 71,/DIS SHUTDOWN STATUS
IEE600I REPLY TO 71 IS;/DIS SHUTDOWN STATUS
DFS000I TERMINAL USER STATUS IMSL
DFS000I 1- 1 INPUT IN PROCESS IMSL
DFS000I TERMINAL USER STATUS IMSL
DFS000I T5GXXXXX OUTPUT IN PROCESS IMSL
DFS000I MSG-IN 1 MSG-OUT 1 IMSL
DFS000I MASTER ACTIVE IMSL
DFS000I TP MSG PROCESSING REGION(S) ACTIVE. IMSL
DFS000I IMSLU=xxxxxx.IMSluxx #APPC-CONV= 0 PURG
DFS000I OTMA PHASE=1 IMSL
DFS000I *14323/000046* IMSL

Here's a troubled code that is not varying that terminal off:

"OPSREPLY IMSID(IMSL) TEXT('/DIS SHUTDOWN STATUS') WAIT(3) DELAY(1)",
"CMDWAIT(2) CAPTURE(DFS0)"
DO WHILE QUEUED() > 0
PULL LINE
PARSE VAR LINE . term .
if left(term,3) = 'T5G' then do
if pos('OUTPUT IN PROCESS',ln.x) > 0 then do
say 'IMSLWDWN terminal to v inact:' term
Address OPER
"v net,inact,id="term",i"
CMD = 'TD_30 CM_V NET,ACT,ID='term
Address OSF
"oi DYNARULC" CMD


Any idea what's wrong?
Appreciate your help in advance.

 

[nclouston]

Nope, no idea. You haven't shown anything from the logs which may have useful messages.
Has this been working previously?

And please use the code icon to format your code properly.


Nic