Skip to main content

Hi Team,

I am executing IKJEFT01 utility to run COBOL -Db2 program but i am getting below mentioned error. Could you please help me here with your expert inputs. Thanks

Micro Focus ESMVS/TSO Version 7.0.000. Copyright (C) Micro Focus 1997-2021. All rights reserved.
DSN SYSTEM(DABG)
RUN PROGRAM(PGM1) PLAN(PGMN1G)
MVSTS0192I Program PGM1 Abended - COND CODE RTS0198.:
MVSER0099S Remainder of command stream flushed.:
END

Thanks,

Basav


#JCL
#Mainframe
#EnterpriseDeveloper
#EnterpriseServer
#MicroFocusCOBOL
#Eclipse
#problem

Hi Team,

I am executing IKJEFT01 utility to run COBOL -Db2 program but i am getting below mentioned error. Could you please help me here with your expert inputs. Thanks

Micro Focus ESMVS/TSO Version 7.0.000. Copyright (C) Micro Focus 1997-2021. All rights reserved.
DSN SYSTEM(DABG)
RUN PROGRAM(PGM1) PLAN(PGMN1G)
MVSTS0192I Program PGM1 Abended - COND CODE RTS0198.:
MVSER0099S Remainder of command stream flushed.:
END

Thanks,

Basav


#JCL
#Mainframe
#EnterpriseDeveloper
#EnterpriseServer
#MicroFocusCOBOL
#Eclipse
#problem

Hi Basav,

From the information I can see that that your PGM1 is generating a RTS 198 error. See the documentation for this here:
www.microfocus.com/.../HRERRHRERR49.html

I recommend you to go through this information/resolution to see if that helps resolve the issue for you. If the issue persists please consider to raise a support case and include relevant information such as full error text, region export, a simplified test case that can be used to recreate the issue, that will help my colleagues investigate further.


Hi Basav,

From the information I can see that that your PGM1 is generating a RTS 198 error. See the documentation for this here:
www.microfocus.com/.../HRERRHRERR49.html

I recommend you to go through this information/resolution to see if that helps resolve the issue for you. If the issue persists please consider to raise a support case and include relevant information such as full error text, region export, a simplified test case that can be used to recreate the issue, that will help my colleagues investigate further.

Hi KimH,

Thanks for your reply. Could you please let me know where do i need to test the below mentioned instructions in my MFED environment or VM.

set bad-pointer to entry 'just-not-there-ever'...set procedure-pointer to entry 'myentrypoint'if procedure-pointer = bad-pointer display errorend-if

Thanks,

Basav


Hi KimH,

Thanks for your reply. Could you please let me know where do i need to test the below mentioned instructions in my MFED environment or VM.

set bad-pointer to entry 'just-not-there-ever'...set procedure-pointer to entry 'myentrypoint'if procedure-pointer = bad-pointer display errorend-if

Thanks,

Basav

Hi Basav,

Thank you for your reply. this may require further in depth investigation, therefore please consider to raise a support case and include relevant information such as full error text, region export, a simplified test case that can be used to recreate the issue, that will help my colleagues investigate further.