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 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
No new posts CICS Transaction Timeout Hooman24 CICS 2 Sun Apr 16, 2017 2:16 pm
No new posts Need help in triggering a PL1 module ... Varungv99 IMS DB/DC 0 Fri Apr 07, 2017 10:01 am
No new posts Date and time format in CICS Chandru3183 CICS 2 Sat Mar 18, 2017 12:46 pm


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