View previous topic :: View next topic
|
Author |
Message |
monasu1998
Active User
Joined: 23 Dec 2005 Posts: 176 Location: India
|
|
|
|
Hi,
I have COBOL program which is developed for TP transaction.
In the program there is a dynamic call statement.
Once the control goes to the call statement, it directly sends the control to the EXIT para.
I tried to XPED the program and found that the error it shows is
'Unsupported opcode - can't continue'
The structure
PROGRAM1
MOVE 1 TO VAR1
MOVE 0 TO VAR7
CALL C-PROGRAM2 USING VAR1 VAR7
IF VAR7 NOT = 0
DISPLAY 'ERROR IN PROGRA'
END-IF
--------
---------
other statement
----------
---------
--------
T100-PARA-EXIT.
EXIT.
The control goes goes to EXIT when the CALL statement is executed.
When expedited, the control dies not even go to PROGRAM2.
Can someone please help me to track down the reason?
Thanks, |
|
Back to top |
|
|
Binop B
Active User
Joined: 18 Jun 2009 Posts: 407 Location: Nashville, TN
|
|
|
|
Hi Monasu,
Quote: |
When expedited, the control dies not even go to PROGRAM2 |
Is the Program compiled with xpediter=Y option ? Are u able to open the program in the xpediter ?
Quote: |
CALL C-PROGRAM2 USING VAR1 VAR7 |
Is this a new program written by you ? Assembler Program ? Some details on this module if possible ?
Quote: |
The control goes goes to EXIT when the CALL statement is executed. |
This doesn't make sense ... One way I could think of such a situation is if the return address got corrupted in the PROGRAM-2 ... |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
do you have any active Handle Conditions
or Declaratives? |
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
Sounds like an OP CODE (of a compiler-generated Assembler instruction) was clobbered.
Did this raise a S0C1 abend?
Was the "Called" sub-program translated/compiled as CICS?
If so, check the PROCEDURE DIVISION statement in the listing, for "PROCEDURE DIVISION USING DFHEIBLK DFHCOMMAREA" and so on and so on....
Bill |
|
Back to top |
|
|
|