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 ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm
No new posts Identifying Interfaces in CICS/mainframe Ashishpanpaliya CICS 5 Fri Oct 13, 2017 3:21 pm
No new posts IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm

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