View previous topic :: View next topic
|
Author |
Message |
Rogerio Ferreira Coelho
New User
Joined: 13 Jun 2007 Posts: 11 Location: Sao Paulo - Brazil
|
|
|
|
I've used C routines called by COBOL program on OS/390, now itsn't work on th Z/os 1.4 |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
How much other diagnostic information is provided in the jes output? Posting all of the diagnostic info may help. If there is a "DD STATEMENT MISSING" message in the output, please add it as a SYSOUT and rerun.
Where does the abend occur - during the call or during execution of the called routine?
Have all of the components been re-linked in z/OS? What changes were required by the upgrade (most likely need to talk with your system support people to find out if any rules changed)?
You might want to create a new tiny calling COBOL program and a new tiny C called module to work thru the abend. Once resolved, go back into the actual problem modules. |
|
Back to top |
|
|
Rogerio Ferreira Coelho
New User
Joined: 13 Jun 2007 Posts: 11 Location: Sao Paulo - Brazil
|
|
|
|
The abend occur when I call the C routine. I`m using Hercules, and all in the system work like in a mainframe,
That's the result of execution:
1 J E S 2 J O B L O G -- S Y S T E M S Y S 1 -- N O D E N 1
0
08.03.09 JOB09188 ---- FRIDAY, 15 JUN 2007 ----
08.03.09 JOB09188 IRR010I USERID NETRC IS ASSIGNED TO THIS JOB.
08.03.10 JOB09188 ICH70001I NETRC LAST ACCESS AT 08:02:36 ON FRIDAY, JUNE 15, 2007
08.03.10 JOB09188 $HASP373 RFCSUBC STARTED - INIT 1 - CLASS S - SYS SYS1
08.03.10 JOB09188 IEF403I RFCSUBC - STARTED - TIME=08.03.10
08.03.11 JOB09188 IEF450I RFCSUBC SUBROTC2 - ABEND=S000 U4093 REASON=00000070 387
387 TIME=08.03.11
08.03.11 JOB09188 - --TIMINGS (MINS.)-- ----PAGING COUNTS---
08.03.11 JOB09188 -JOBNAME STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV PG PAGE SWAP VIO SWAPS
08.03.11 JOB09188 -RFCSUBC SUBROTC2 U4093 1900 0 .00 .00 .0 1399 0 0 0 0 0
08.03.11 JOB09188 IEF404I RFCSUBC - ENDED - TIME=08.03.11
08.03.11 JOB09188 -RFCSUBC ENDED. NAME- TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0
08.03.11 JOB09188 $HASP395 RFCSUBC ENDED
0------ JES2 JOB STATISTICS ------
- 15 JUN 2007 JOB EXECUTION DATE
- 10 CARDS READ
- 58 SYSOUT PRINT RECORDS
- 0 SYSOUT PUNCH RECORDS
- 3 SYSOUT SPOOL KBYTES
- 0.01 MINUTES EXECUTION TIME
1 //RFCSUBC JOB MSGCLASS=X,CLASS=S JOB09188
//*
2 //SUBROTC2 EXEC PGM=COBMAIN
3 //STEPLIB DD DSN=NETRC.LOADLIB.ONLINE,DISP=SHR
4 // DD DSN=CEE.SCEERUN,DISP=SHR
5 //SYSPRINT DD SYSOUT=X
6 //SYSOUT DD SYSOUT=X
7 //PRINTER DD SYSOUT=X
8 //CEEDUMP DD SYSOUT=X
9 //SYSMDUMP DD DUMMY
ICH70001I NETRC LAST ACCESS AT 08:02:36 ON FRIDAY, JUNE 15, 2007
IEF236I ALLOC. FOR RFCSUBC SUBROTC2
IEF237I 0A99 ALLOCATED TO STEPLIB
IEF237I 0A81 ALLOCATED TO
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSOUT
IEF237I JES2 ALLOCATED TO PRINTER
IEF237I JES2 ALLOCATED TO CEEDUMP
IEF237I DMY ALLOCATED TO SYSMDUMP
IEF472I RFCSUBC SUBROTC2 - COMPLETION CODE - SYSTEM=000 USER=4093 REASON=00000070
IEF285I NETRC.LOADLIB.ONLINE KEPT
IEF285I VOL SER NOS= RPVOL4.
IEF285I CEE.SCEERUN KEPT
IEF285I VOL SER NOS= Z4RES2.
IEF285I NETRC.RFCSUBC.JOB09188.D0000101.? SYSOUT
IEF285I NETRC.RFCSUBC.JOB09188.D0000102.? SYSOUT
IEF285I NETRC.RFCSUBC.JOB09188.D0000103.? SYSOUT
IEF285I NETRC.RFCSUBC.JOB09188.D0000104.? SYSOUT
IEF373I STEP/SUBROTC2/START 2007166.0803
IEF374I STEP/SUBROTC2/STOP 2007166.0803 CPU 0MIN 00.08SEC SRB 0MIN 00.48SEC VIRT 104K SYS 260K EXT 5788K SYS 10056K
IEF375I JOB/RFCSUBC /START 2007166.0803
IEF376I JOB/RFCSUBC /STOP 2007166.0803 CPU 0MIN 00.08SEC SRB 0MIN 00.48SEC
CALL SUBROTC
CEE3250C The system or user abend U4093 R=00000070 was issued.
From compile unit COBMAIN at entry point COBMAIN at compile unit offset +000002A8 at entry offset +000002A8
at address 09701198. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Hercules is not quite the same as the mainframe. They are working on it but there are many things that need resolution.
If you can, try your process on a real mainframe and see if it works. If so, the problem is in the setup of Hercules or it is something not yet incorporated into Hercules. |
|
Back to top |
|
|
Rogerio Ferreira Coelho
New User
Joined: 13 Jun 2007 Posts: 11 Location: Sao Paulo - Brazil
|
|
|
|
Dick,
It is working now, I used a static call and the program was executed.
Thank you... |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hi Rogerio,
You're welcome.
Good to hear that it is working now.
Thank you for posting your solution |
|
Back to top |
|
|
|