Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Abend u4093 reason = 70, COBOL calling C program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
Rogerio Ferreira Coelho

New User


Joined: 13 Jun 2007
Posts: 11
Location: Sao Paulo - Brazil

PostPosted: Thu Jun 14, 2007 1:00 am    Post subject: Abend u4093 reason = 70, COBOL calling C program
Reply with quote

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
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Jun 14, 2007 2:06 am    Post subject:
Reply with quote

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
View user's profile Send private message
Rogerio Ferreira Coelho

New User


Joined: 13 Jun 2007
Posts: 11
Location: Sao Paulo - Brazil

PostPosted: Fri Jun 15, 2007 4:46 pm    Post subject: Re: Abend u4093 reason = 70, COBOL calling C program
Reply with quote

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
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Fri Jun 15, 2007 7:08 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Rogerio Ferreira Coelho

New User


Joined: 13 Jun 2007
Posts: 11
Location: Sao Paulo - Brazil

PostPosted: Fri Jun 15, 2007 7:42 pm    Post subject: Re: Abend u4093 reason = 70, COBOL calling C program
Reply with quote

Dick,


It is working now, I used a static call and the program was executed.


Thank you...
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sat Jun 16, 2007 6:31 am    Post subject:
Reply with quote

Hi Rogerio,

You're welcome.

Good to hear that it is working now.

Thank you for posting your solution icon_smile.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts XML Parse for COBOL 5.2 Bhanu Praveen COBOL Programming 1 Sat Jul 08, 2017 8:58 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts pre-compiler for program in an HFS Pedro DB2 0 Fri Jun 23, 2017 11:13 pm
No new posts Dynamic output file creation in cobol... smileheal COBOL Programming 7 Thu Jun 15, 2017 10:53 pm
No new posts Search utility(3.14) using JCl and Cobol RKS3 COBOL Programming 12 Sat Jun 10, 2017 10:24 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us