View previous topic :: View next topic
|
Author |
Message |
Dsingh29
Active User
Joined: 16 Dec 2008 Posts: 132 Location: IBM
|
|
|
|
Hi All,
We are coding for a project, where my screen is being called from some other screen.
I have completed coding for my screen but the calling screen is not yet completed (which is being coded by someone else). I want to start with testing of my code now rather then waiting for calling screen to be completed.
Can you please provide me some ways to test my code as a stand alone program, without much change in code?
Can populating linkage section through a JCL, be an option?
I have tried to search the forum for standalone testing of cics program, but could not find much.
Many thanks in advance. |
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
Could you LINK to your program, via CECI, passing a commarea (if required)?
When the program terminates, you must use a plain-jane EXEC CICS RETURN.
Or, define a temporary transid to your program and use CEDF or a 3rd-Party Debugger?
HTH....
Bill |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
Well, it is an excellent opportunity for "desk checking".
No, you won't be able to do it directly from JCL. You will at least need a "stub" to do the establishment of correct linkage to your program.
Once you have a "stub", if you have a debugger, you can amend the values in the stub to simulate different situations. |
|
Back to top |
|
|
Dsingh29
Active User
Joined: 16 Dec 2008 Posts: 132 Location: IBM
|
|
|
|
Hi Bill, Thanks for your reply.
Yes, I am able to link through CECI and got the response as NORMAL.
Code: |
LINK PROGRAM(XXXXXXX) CO('999999999') TRANS(TTTT)
STATUS: COMMAND EXECUTION COMPLETE NAME=
EXEC CICS LInk Program( 'XXXXXXX ' )
< COmmarea( '999999999' ) < Length( +00009 ) > < Datalength() > >
< SYSid() >
< SYNconreturn >
< Transid( 'TTTT' ) >
< INPUTMSG() < INPUTMSGLen() > >
< CHannel() >
RESPONSE: NORMAL EIBRESP=+0000000000 EIBRESP2=+0000000000 |
But the program is not invoked/ran.
Can you please advice how to proceed further. Please let me know if you more information. |
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
Dave - Well, you're past step 01 (didn't abend)
But, I think you're going to have to get Tech Support to define your program to a temporary transid (PCT entry) of their choosing and then you can begin step 02, debugging with CEDF, IBM DebugTool and/or a 3rd-Party Debugger.
Is your commarea a minimum of 9-Bytes and is your program validating EIBCALEN? Are all '9's a valid commarea value?
Also, you don't need the transid option on the LINK....
Bill |
|
Back to top |
|
|
Dsingh29
Active User
Joined: 16 Dec 2008 Posts: 132 Location: IBM
|
|
|
|
Hi Bill,
We dont have any third party debugger tool, we use CEDF only.
my commarea takes account number and after pressing enter should populate the screen from db. Yes, my program is validating EIBCALEN.
I have used all 9's just to show values here.
Regarding, entry to PCT, I will get back after doing research at my end.
Thanks a lot for your time and help.
Ciao. |
|
Back to top |
|
|
|