This discussion is archived
6 Replies Latest reply: Jun 13, 2013 7:10 AM by 1011576 RSS

Mainframe code Rehosting using OracleTuxedo Rehosting workbench

1011576 Newbie
Currently Being Moderated
Hi , I am trying to Rehost a SAMPLE "hello world " cobol programme with JCL using OracleTuxedo Rehosting workbench. I went through all the steps of Prepare , Analysis, Migrate , build , configure and deploy and created SAMPLE.gnt , SAMPLE.lst,SAPMLE.imbr files in /deploy/BARCH folder. After this i also ran ./setenv , ksh ./setup.sh and tmboot to start BATCH runtime.
But when I submit the job by entering
artjesadmin>smj -i ../JCL/HELLO_WORLD_JCL.ksh
I am getting below error in Job LOG;

JOB SK127YSM BEGIN AT 2013/05/31 09:50:56
BEGIN PHASE START AT 2013/05/31 09:50:56
END PHASE START AT 2013/05/31 09:50:56 (RC=C0000, JOBRC=C0000, ELAPSED=0)
BEGIN PHASE STEP01 AT 2013/05/31 09:50:56
RUNB BEGIN :
RUNBATCH BEGIN :
+>> Program BEGIN : SAMPL+
ERROR    mi_ProgramExec: The program execution has an error (SAMPLE)
END PHASE STEP01 AT 2013/05/31 09:50:58 (RC=U0900, JOBRC=U0900, ELAPSED=2)
BEGIN PHASE END_JOB AT 2013/05/31 09:50:58
END PHASE END_JOB AT 2013/05/31 09:50:58 (RC=C0000, JOBRC=U0900, ELAPSED=0)
JOB ENDED ABNORMALLY WITH CODE (U0900) AT 2013/05/31 09:50:58
ERROR    mi_FileEmpty: The type UNKNOWN of file is unknown
mi_JobEnd: Internal Error (mi_FileEmpty -r mt_FileEmpty "/root/workspace/app/00000001/SYSOUT/HELLO_WORLD_JCL_00000001__SYSPRINT_1") RC=123

Can any one help in resolve this error ?

Below is my Cobol and JCL ;

IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE.
AUTHOR. SATYAKI KOLEY.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
PROCEDURE DIVISION.
0000-MAIN.
DISPLAY "HELLO WORLD********".
STOP RUN.

//SK127YSM JOB (PUPS,27M2),'TEST JOB5',NOTIFY=SK127Y

//STEP01 EXEC PGM=SAMPLE

//STEPLIB DD DSN=CMN.SUPS.STAGO.#001929.LOD,DISP=SHR

//SYSPRINT DD SYSOUT=*

//SYSOUT DD SYSOUT=*
  • 1. Re: Mainframe code Rehosting using OracleTuxedo Rehosting workbench
    JeffDolberg Newbie
    Currently Being Moderated
    There are a few things to check.
    1. You say you ran ./setenv. Did you source it by running . ./setenv?
    2. Your progrram ends with a STOP RUN statement. The Workbench should have converted this to an EXIT PROGRAM. Can you please check the source file in the $projectPath/target directory?
    3. It would be helpful if you can provide the jeslog from the same directory as the job log.
  • 2. Re: Mainframe code Rehosting using OracleTuxedo Rehosting workbench
    1011576 Newbie
    Currently Being Moderated
    I checked and below are my responses;
    1. I had run setenv from /deploy/BATCH_RT with . ./setenv only .
    2. Yes the worbench converted STOP RUN into EXIT PROGRAM.

    *{ Ba-Stop-Run-Statement 1.1                                             
    * STOP RUN.
    *--                                                                      
    EXIT PROGRAM.
    *}

    3. Below is the jeslog of the run;

    00 #!/usr/bin/ksh
    00 #@(#)---------------------------------------------------------------------------------------------
    00 #@(#)- -
    00 #@(#)- SCRIPT NAME == HELLO_WORLD_JCL.ksh --- VERSION DU 30/05/2013 17:40
    00 #@(#)- -
    00 #@(#)- AUTHOR == -
    00 #@(#)- -
    00 #@(#)- TREATMENT == -
    00 #@(#)- -
    00 #@(#)- -
    00 #@(#)- OBSERVATIONS == MAINFRAME MIGRATION -
    00 #@(#)- -
    00 #@(#)- -
    00 #@(#)---------------------------------------------------------------------------------------------
    00 #@(#)- NDLR == -
    00 #@(#)- == -
    00 #@(#)- == -
    00 #@(#)- .. -
    00 #@(#)- -
    00 #@(#)- -
    00 #@(#)- -
    00 #@(#)- -
    00 #@(#)---------------------------------------------------------------------------------------------
    00
    00 m_JobBegin -j SK127YSM -s START -v 2.0
    00 while true ;
    00 do
    00 m_PhaseBegin
    00 case ${CURRENT_LABEL} in
    00 (START)
    00 JUMP_LABEL=STEP01
    00 (STEP01)
    00 m_OutputAssign -c "*" SYSPRINT
    00 m_OutputAssign -c "*" SYSOUT
    00 m_ProgramExec SAMPLE
    00 JUMP_LABEL=END_JOB
    00 (END_JOB)
    00 break
    00 (*)
    00 m_RcSet ${MT_RC_ABORT:-S999} "Unknown label : ${CURRENT_LABEL}"
    00 break
    00 esac
    00 m_PhaseEnd
    00 done
    00 m_JobEnd
    00 #@(#)---------------------------------------------------------------------------------------------
  • 3. Re: Mainframe code Rehosting using OracleTuxedo Rehosting workbench
    1011576 Newbie
    Currently Being Moderated
    Can anyone help me in correcting this problem.
  • 4. Re: Mainframe code Rehosting using OracleTuxedo Rehosting workbench
    user734086 Newbie
    Currently Being Moderated

    Can you send the original source and the converted versions of the COBOL program and JCL to mark.rakhmilevich@oracle.com?  I can try to recreate this to see if it's environment-specific.

     

    Mark

  • 5. Re: Mainframe code Rehosting using OracleTuxedo Rehosting workbench
    1011576 Newbie
    Currently Being Moderated

    Hi Mark , I have mailed you the original source and the converted versions of the COBOL program and JCL.

    I noticed that  it gets failed when it runs "m_ProgramExec SAMPLE" statement in converted

    HELLO_WORLD.ksh . But when I replace "m_ProgramExec SAMPLE"  by "cobcrun SAMPLE" the job runs successfully and gives below information in Joblog;

     

    JOB SK127YSM BEGIN AT 2013/06/11 08:41:10

    BEGIN PHASE START AT 2013/06/11 08:41:10

    END PHASE START AT 2013/06/11 08:41:10 (RC=C0000, JOBRC=C0000, ELAPSED=0)

    BEGIN PHASE STEP01 AT 2013/06/11 08:41:10

    HELLO WORLD********

    END PHASE STEP01 AT 2013/06/11 08:41:11 (RC=C0000, JOBRC=C0000, ELAPSED=1)

    BEGIN PHASE END_JOB AT 2013/06/11 08:41:11

    END PHASE END_JOB AT 2013/06/11 08:41:11 (RC=C0000, JOBRC=C0000, ELAPSED=0)

    JOB ENDED WITH CODE (C0000) AT 2013/06/11 08:41:11

     

    Is the "ERROR    mi_ProgramExec: The program execution has an error (SAMPLE)" error has something to do with permissions of /tuxora/art12110/Batch_RT/ejr/m_ProgramExec . Currently it has below permissions ;

     

    -rw-r--r-- 1 60000 users 4647 May  3  2012 m_ProgramExec


    Thanks for you response and help.

  • 6. Re: Mainframe code Rehosting using OracleTuxedo Rehosting workbench
    1011576 Newbie
    Currently Being Moderated

    Hi Mark, did you get anything on this .

    Thanks.

Legend

  • Correct Answers - 10 points
  • Helpful Answers - 5 points