vincent1234
New User
Joined: 08 Nov 2007 Posts: 2 Location: Shanghai
|
|
|
|
Hi, Buddies
Can someone do me a favor. The problem is as belowing... when issuing a call command in cics, there is no return from the called program.
Code block as
Code: |
....
MOVE 'VINCENT,FIRST' TO WS-TEXT-TRACE
062100 EXEC CICS WRITEQ TS
062200 QUEUE ('VINTEST')
062300 FROM (WS-TEXT-TRACE)
062400 LENGTH (LENGTH OF WS-TEXT-TRACE)
062500 END-EXEC
042700*
MOVE WS-AF-INET TO WS-AF-INET-X
MOVE WS-SOCTYPE-STREAM TO WS-SOCTYPE-STREAM-X
MOVE WS-PROTOCOL TO WS-PROTOCOL-X
STRING WS-IP WS-SF-SOCKET
DELIMITED BY SIZE
INTO WS-TEXT-TRACE
062100 EXEC CICS WRITEQ TS
062200 QUEUE ('VINTEST')
062300 FROM (WS-TEXT-TRACE)
062400 LENGTH (LENGTH OF WS-TEXT-TRACE)
062500 END-EXEC
042800 CALL 'EZASOKET' USING WS-SF-SOCKET
042900 WS-AF-INET
043000 WS-SOCTYPE-STREAM
043100 WS-PROTOCOL
043200 WS-ERRNO
043300 WS-RETCODE.
043400*
* MOVE 'VINCENT,22222' TO WS-TEXT-TRACE
MOVE 'VINCENT,11111' TO WS-TEXT-TRACE
062100 EXEC CICS WRITEQ TS
062200 QUEUE ('VINTEST')
062300 FROM (WS-TEXT-TRACE)
062400 LENGTH (LENGTH OF WS-TEXT-TRACE)
062500 END-EXEC
|
That's to say: the TSQ data as ff:
=======quote
00012 VINCENT,FIRST
00013 000000020000000100000000
=======quote
I assume there is no return from called program, or there should be
[VINCENT,11111] in the TSQ...
Can somebody do for help??Thanks a lot in advance...
Rgs
vincent |
|