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
 

 

START TRANSID is failing to send TWA data.

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

New User


Joined: 16 Aug 2007
Posts: 27
Location: Hyderabad

PostPosted: Wed May 06, 2009 11:01 pm    Post subject: START TRANSID is failing to send TWA data.
Reply with quote

Hello,

I am not able to pass the data(TWA data) from calling program to called program using START TRANSID command
.
Called program is not receiving anything.

Is it possible in CICS to send TWA data to called program using below START TRANSID command????

WHat is the use of FROM( ) caluse.

EXEC CICS START
TRANSID('ADWS')
TERMID(EIBTRMID)
FROM(TWA-SAVE-AREA)
LENGTH(TWALENG)
PROTECT
END-EXEC.

Please help me to resolve this issue.

Thanks,
VV
Back to top
View user's profile Send private message

CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Wed May 06, 2009 11:09 pm    Post subject: Re: START TRANSID is failing to send TWA data.
Reply with quote

vvgoud wrote:
Is it possible in CICS to send TWA data to called program using below START TRANSID command????
Yes, it looks good to me.
Data is passed to a started task if one or more of the FROM, RTRANSID, RTERMID, and QUEUE options is specified. Such data is accessed by the started task by using a RETRIEVE command.
Under CEDF, what are you RETRIEVEing?
Back to top
View user's profile Send private message
vvgoud

New User


Joined: 16 Aug 2007
Posts: 27
Location: Hyderabad

PostPosted: Wed May 06, 2009 11:24 pm    Post subject:
Reply with quote

PROGRAM A:(CALLING PROGRAM)

Code:
WOrking Storage Section.
01  WS-TWA-AREA.                           
    03 WS-INC-NO                 PIC X(12).   
    03 FILLER                        PIC X(263).   


LINKAGE SECTION.
 01  TWA SYNCHRONIZED.                                     
    03  TWA-WORK-AREA                        PIC X(275).   
    03  TWA-STANDARD-DEFN REDEFINES                       
        TWA-WORK-AREA.                                     
        05  TWA-FUNC                         PIC X(4).     
        05  TWA-PROG-NAME                    PIC X(8).     
        05  TWA-NXTFUN-PARM                  PIC X(55).   
        05  TWA-NXTFUN-MSG                   PIC X(60).   
        05  FILLER                           PIC X(123).   
        05  TWA-NXTFUN-IND           PIC X(6).                                     
   03 TWA-RECEIVED-DATA REDEFINES TWA-WORK-AREA.   
     05 TWA-INC-NO                         PIC X(12).   
     05 FILLER                                  PIC X(263). 

PROCEDURE DIVISION.

MOVE '0708JX041'      TO TWA-INC-NO.     
MOVE TWA-RECEIVED-DATA TO WS-TWA-AREA.     


    EXEC CICS START                       
                   TRANSID('ADWS')         
                   TERMID(EIBTRMID)       
                   FROM(WS-TWA-AREA)     
                   LENGTH(TWALENG)       
                   PROTECT               
                   END-EXEC.             


PROGRAM B:(CALLED PROGRAM ADWS Transaction)

Code:
WORKING STORAGE SECTION

 01  WS-TWA-AREA.                                   
   03 WS-CSX-INCNO         PIC X(12)  VALUE SPACES. 
   03 FILLER                      PIC X(263) VALUE SPACES. 

LINKAGE SECTION

 01  TWA SYNCHRONIZED.                                     
    03  TWA-WORK-AREA                        PIC X(275).   
    03  TWA-STANDARD-DEFN REDEFINES                       
        TWA-WORK-AREA.                                     
        05  TWA-FUNC                         PIC X(4).     
        05  TWA-PROG-NAME                PIC X(8).     
        05  TWA-NXTFUN-PARM             PIC X(55).   
        05  TWA-NXTFUN-MSG              PIC X(60).   
        05  FILLER                               PIC X(123).   
        05  TWA-NXTFUN-IND               PIC  X(6)
                                                                                             
   03 TWA-RECEIVED-DATA REDEFINES TWA-WORK-AREA.       
     05 TWA-CSX-INC-NO                 PIC X(12).       
     05 FILLER                                  PIC X(263).     
                                                       
PROCEDURE DIVISION.

EXEC CICS ASSIGN TWALENG(TWALENG) END-EXEC.       
                                                   
IF TWALENG                   = 0                   
   MOVE ADWS                TO DUMPCODE           
   PERFORM 9999-ABEND THRU                         
           9999-ABEND-EXIT                         
ELSE                                               
  EXEC CICS ADDRESS TWA(ADDRESS OF TWA) END-EXEC   
  MOVE TWA    TO  WS-TWA-AREA                     
END-IF.                                           


WS-TWA-AREA is empty.

Please let me know if you need any details
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Wed May 06, 2009 11:33 pm    Post subject: Re: START TRANSID is failing to send TWA data.
Reply with quote

Again, what is the RETRIEVE retrieving?
Back to top
View user's profile Send private message
vvgoud

New User


Joined: 16 Aug 2007
Posts: 27
Location: Hyderabad

PostPosted: Thu May 07, 2009 12:08 am    Post subject:
Reply with quote

Thanks for your Help.

I forgot to code below command

EXEC CICS RETRIEVE
INTO(WS-TWA-AREA)
LENGTH( LENGTH OF WS-TWA-AREA)
END-EXEC

Now it is working.
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 Sorting group data rajella DFSORT/ICETOOL 4 Sun Jan 22, 2017 11:32 pm
No new posts Storing huge volume of data, compare ... Pradeep K M All Other Mainframe Topics 3 Mon Jan 16, 2017 5:08 pm
No new posts how to recover an uncataloged VSAM da... archanamuthukrishnan All Other Mainframe Topics 3 Wed Jan 11, 2017 6:18 pm
No new posts HALDB data refresh/copy from producti... vineetanand2007 IMS DB/DC 1 Mon Jan 02, 2017 11:16 am
No new posts JES2 JEC: Use UNIX Pipes to Pass Data... Virendra Shambharkar JCL & VSAM 21 Tue Dec 20, 2016 6:55 pm


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