Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
no return from CALL command in CICS...

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
vincent1234

New User


Joined: 08 Nov 2007
Posts: 2
Location: Shanghai

PostPosted: Thu Nov 22, 2007 3:24 pm    Post subject: no return from CALL command in CICS...
Reply with quote

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
Back to top
View user's profile Send private message

vincent1234

New User


Joined: 08 Nov 2007
Posts: 2
Location: Shanghai

PostPosted: Fri Nov 23, 2007 8:17 am    Post subject: Reply to: no return from CALL command in CICS...
Reply with quote

problem get resolved.
it's all due do miss a member in SYSLIN when doing link-edit. Thanks all anyway.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts CICS EZASOKET CONNECT using DNS name ankit.jain CICS 1 Tue Jan 16, 2018 7:24 pm
No new posts CICS web service from DB2 Triggers or... kiranprasad DB2 1 Wed Dec 20, 2017 11:10 am
No new posts IBEGENER RETURN CODE 12 anilkumar922 All Other Mainframe Topics 5 Wed Dec 13, 2017 11:41 am
No new posts Is CICS BMS logic on z/OS different ... Andi1982 CICS 2 Fri Dec 01, 2017 1:56 pm
No new posts OUTREC with ALter Command scorp_rahul23 DFSORT/ICETOOL 1 Wed Nov 22, 2017 3:10 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us