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 How to Capture the Max return code of... anilkumar922 All Other Mainframe Topics 0 Thu Jan 12, 2017 12:02 pm
No new posts INDEPENDENT CICS TS 4.1 MRO REGION UP... Kyle Carroll CICS 0 Wed Dec 14, 2016 6:55 pm
No new posts CICS START AND CANCEL blayek CICS 1 Wed Dec 07, 2016 3:27 am
No new posts How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 7 Fri Nov 18, 2016 1:48 pm


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