Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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 EXIT or RETURN cvnlynn CLIST & REXX 16 Wed Jul 19, 2017 2:50 am
No new posts How to Clear all TSQs during CICS sta... Hooman24 CICS 10 Mon Jun 26, 2017 9:46 pm
No new posts CICS Transaction attach count of supp... lind sh CICS 1 Wed Jun 21, 2017 1:33 pm
No new posts QUESTION: RETURN CHANNEL pahiker CA Products 21 Thu Apr 20, 2017 12:31 am
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us