calling sub program using cics



Support for CICS/ESA, CICS/TS & Transaction Gateway, CICS Configuration Manager and CICS Performance Analyzer

calling sub program using cics

Postby maroom » Mon Feb 13, 2012 4:30 pm

Hai ,

I want to call a sub programme using xctl and commarea, but it is not calling the programme.

I checked the flow of our programme using CEDF .. I can see that first programme is executing the xctl command but the called programme is not at running.

plz help me in this

thank you in advance
maroom
 
Posts: 6
Joined: Tue Dec 13, 2011 6:33 pm
Has thanked: 0 time
Been thanked: 0 time

Re: calling sub program using cics

 

Re: calling sub program using cics

Postby Schlabb » Mon Feb 13, 2012 5:17 pm

Maybe the second program does not issue any EXEC CICS commands or the current program logic bypasses the execution of such commands. In this case you wouldn't see anything with CEDF. Don't you have any debugger at hand, e.g. Xpediter, DebugTool, Intertest?
Stefan
There are 10 types of people in the world: Those who understand binary, and those who don't.
User avatar
Schlabb
 
Posts: 5
Joined: Fri Feb 10, 2012 6:01 pm
Has thanked: 0 time
Been thanked: 0 time

Re: calling sub program using cics

Postby Robert Sample » Mon Feb 13, 2012 6:05 pm

1. XCTL is a transfer of control -- once you go to the new program, you won't come back (unlike a LINK) to the calling program

2. XCTL programs must be defined in the PPT (either in the CSD file or via autoinstall); what does a CEMT I PROG(<subprogram name>) show in your region?

3. If MRO is involved, the region your program executes in is not the same as the region your terminal is connected to. This could also impact your results

4. You posted basically no helpful data -- when using CEDF, did the XCTL complete normally? have an abnormal return code? if so, what was the return code?

5. As was mentioned, if your subprogram has no CICS interactions, CEDF would not show you anything -- and since you did an XCTL, your subprogram won't return to the calling program. So, depending upon your subprogram code, it is entirely possible that the behavior you are seeing is expected and normal for the subprogram.
Robert Sample
Global moderator
 
Posts: 3130
Joined: Sat Dec 19, 2009 8:32 pm
Location: Bellevue, Iowa
Has thanked: 1 time
Been thanked: 185 times

Re: calling sub program using cics

Postby maroom » Mon Feb 13, 2012 8:08 pm

Hai

xctl command is not at all executing. everything is fine at my knowledge



again I have observed all the things
maroom
 
Posts: 6
Joined: Tue Dec 13, 2011 6:33 pm
Has thanked: 0 time
Been thanked: 0 time

Re: calling sub program using cics

Postby enrico-sorichetti » Mon Feb 13, 2012 8:11 pm

just take a decision....
the XCTL is executed or not ?
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2519
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 120 times

Re: calling sub program using cics

Postby maroom » Mon Feb 13, 2012 8:17 pm

iam the fresher to the mainframe programming can you please suggest me some free debuggers ?

Iam working in a corporate so i can't install the things that was downloaded. It would be better if you suggest some pre-installed debuuger (free) .

Thanks a lot
maroom
 
Posts: 6
Joined: Tue Dec 13, 2011 6:33 pm
Has thanked: 0 time
Been thanked: 0 time

Re: calling sub program using cics

Postby maroom » Mon Feb 13, 2012 8:33 pm

i have declared it as

exec cics
xctl program('tc000064')
commarea(ws-commarea)
end-exec.

this command has been invoked after that program termination has occured ..
maroom
 
Posts: 6
Joined: Tue Dec 13, 2011 6:33 pm
Has thanked: 0 time
Been thanked: 0 time

Re: calling sub program using cics

Postby Robert Sample » Mon Feb 13, 2012 9:07 pm

If you cannot post the CEDF screen output for the XCTL, I don't think there's much anybody here can do to help you. Below is a Code post of a CEDF output. See where the screen has RESPONSE: NORMAL? If you're not getting "NORMAL" then that's your problem -- but without seeing it, there's nothing more we can do.

 TRANSACTION: PULS PROGRAM: PULSPGM1 TASK: 0000336 APPLID: CICTU    DISPLAY:  00
  STATUS:  COMMAND EXECUTION COMPLETE
  EXEC CICS SEND MAP
   MAP ('PULSM1 ')
   FROM ('...............2012/02/13....10:34:08...........................'...)
   LENGTH (270)
   MAPSET ('PULSMS ')
   CURSOR (-1)
   TERMINAL
   FREEKB
   ERASE
   NOHANDLE




  OFFSET:X'00365C'    LINE:00890          EIBFN=X'1804'
  RESPONSE: NORMAL                        EIBRESP=0

 ENTER:  CONTINUE
 PF1 : UNDEFINED           PF2 : SWITCH HEX/CHAR     PF3 : END EDF SESSION
 PF4 : SUPPRESS DISPLAYS   PF5 : WORKING STORAGE     PF6 : USER DISPLAY
 PF7 : SCROLL BACK         PF8 : SCROLL FORWARD      PF9 : STOP CONDITIONS
 PF10: PREVIOUS DISPLAY    PF11: EIB DISPLAY         PF12: ABEND USER TASK
Robert Sample
Global moderator
 
Posts: 3130
Joined: Sat Dec 19, 2009 8:32 pm
Location: Bellevue, Iowa
Has thanked: 1 time
Been thanked: 185 times


Return to CICS

 


  • Related topics
    Replies
    Views
    Last post