I'm trying to capture the HCP150A message to see if the user issued a VM
read or a CP read. I'm using this to END EREP and run reports (on
another virtual machine after archiving).
My normal process fails when a #CP EXT cause the prompt, but a CP READ:
HCPRET8067A ENTER END OR SUMMARY
HCPCMD001E Unknown CP command: END
HCPCMD001E Unknown CP command: EXEC
HCPCMD001E Unknown CP command: PROFILE
CONNECT= 39:33:06 VIRTCPU= 000:00.34 TOTCPU= 000:00.52
LOGOFF AT 00:16:00 CDT THURSDAY 10/15/09 BY SYSTEM
This seems to fail every once in a while.
So, experimenting (assume I have done all the SET xMSG IUCV":
"PIPE (endchar ?)",
" STARMSG *MSG",
"| CONSOLE",
"| ZONE 1-8 FIND 00000008"||,
"| ZONE 9-16 FIND EREP____"||,
"| LOCATE /HCPQCS150A/",
"| PIPESTOP",
"?",
" CP SEND EREP #CP EXT",
"| CONSOLE",
"?",
" LITERAL +1:00 WAIT TIME ELAPSED",
"| DELAY",
"| CONSOLE",
"| PIPESTOP"
When I run it, I get:
starmsg
HCPQCS150A User EREP has issued a VM read
00000008EREP EREP : HCPRET8067A ENTER END OR SUMMARY
+1:00 WAIT TIME ELAPSED
Ready; T=0.01/0.01 15:50:27
I tried *MSGALL, but got into a loop because the STARMSG trapped the
CONSOLE stage.
Frank M. Ramaekers Jr.
Systems Programmer MCP, MCP+I, MCSE & RHCE
American Income Life Insurance Co. Phone: (254)761-6649
1200 Wooded Acres Dr. Fax: (254)741-5777
Waco, Texas 76710
_____________________________________________________
This message contains information which is privileged and confidential and is
solely for the use of the
intended recipient. If you are not the intended recipient, be aware that any
review, disclosure,
copying, distribution, or use of the contents of this message is strictly
prohibited. If you have
received this in error, please destroy it immediately and notify us at
[email protected].
