IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

calling a cobol module from easytrieve
IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
rickyc.mathew

New User


Joined: 06 Mar 2008
Posts: 30
Location: kottayam
PostPosted: Thu Sep 25, 2008 1:35 pm
 Reply with quote
Can anyone tell me tthe compile and link jcl for calling a cobol module from easytrieve?

Thanks,
Ricky
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Thu Sep 25, 2008 7:49 pm
 Reply with quote
Hello,

The compile/link jcl for a subroutine to be called by easytrieve is the same as a subroutine to be called by cobol.
Back to top
View user's profile Send private message
rickyc.mathew

New User


Joined: 06 Mar 2008
Posts: 30
Location: kottayam
PostPosted: Fri Sep 26, 2008 6:30 am
 Reply with quote
Hi dick,

I tried the same but I am getting a U4088 abend?

If possible could you please paste the jcl here so that I can compare my JCL

Thanks,
Ricky
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Fri Sep 26, 2008 6:59 am
 Reply with quote
Hello,

Is the same module you were working with back in July that abended with the 0c4? What is running when the U4088 happens?

Our jcl wouldn't help you as you would not be able to use it.

If you can call your cobol module from another cobol program, you can call it from Easytrieve.

If you post the run jcl and the diagnostic info presented including the message id, we can go from there.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India
PostPosted: Fri Sep 26, 2008 7:07 am
 Reply with quote
Ricky,

1. It's a user abend, reason behind for such an abend would differ from shop to shop.

2. Usually shops follow their own standards for such JCLs, would suggest you to post the JCL used, if there will be any flaw someone will around.
Back to top
View user's profile Send private message
rickyc.mathew

New User


Joined: 06 Mar 2008
Posts: 30
Location: kottayam
PostPosted: Fri Sep 26, 2008 12:58 pm
 Reply with quote
please find the jcl
Code:
//EZCOMP   EXEC PGM=EZTPA00                                       
//SYSPRINT DD  SYSOUT=*                                           
//SYSSNAP  DD  SYSOUT=*                                           
//SYSOUT   DD  SYSOUT=*                                           
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(450,4000))                 
//EZTVFM   DD  UNIT=SYSDA,SPACE=(CYL,(450,4000))                 
//SYSLIN DD UNIT=SYSDA,SPACE=(CYL,(50,0)),DISP=(,CATLG,DELETE),   
//       DSN=COG.TEST.LOAD1                                       
//SYSIN  DD DSN=COGRM.MRA.SOURCE(TEST22),DISP=SHR                 
//LKED    EXEC PGM=HEWL,PARM=''                                   
//SYSLIB   DD DSN=SYS1.SCEELKED,DISP=SHR                         
//SYSLIN   DD DSN=COG.TEST.LOAD1,DISP=SHR                         
//         DD DSN=COG.TEST.LOAD(MATCH1),DISP=SHR                 
//SYSLMOD  DD DSN=COG.TEST.LOAD,                                 
//            DISP=SHR                                           
//SYSPRINT DD SYSOUT=*                                           
//SYSUDUMP DD SYSOUT=*                                           
//SYSUT1   DD SPACE=(CYL,(1,1)),UNIT=SYSDA                       
//SYSIN    DD  *             
 MODE AMODE(24),RMODE(24)   
 NAME MATCH2(R)             

run jcl:
Code:
//EZCOMP   EXEC PGM=MATCH1                                           
//STEPLIB  DD  DSN=APG.TST.LOAD,DISP=SHR                             
//SYSPRINT DD  SYSOUT=*                                             
//SYSSNAP  DD  SYSOUT=*                                             
//SYSOUT   DD  SYSOUT=*                                             
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(450,4000))                     
//EZTVFM   DD  UNIT=SYSDA,SPACE=(CYL,(450,4000))                     
//PRE1     DD  DSN=COG.MC.AMEXCBAM.PREABS.REPORT.MAY2008.TST,DISP=SHR
//CUR1     DD  DSN=COG.MC.AMEXCBAM.PREABS.REPORT.JUN2008.TST,DISP=SHR
//COM1     DD  DSN=COG.MC.AMEXCBAM.PREABS.REPORT.COMP.TST01,         
//             DISP=(NEW,CATLG,CATLG),                               
//             SPACE=(CYL,(50,0),RLSE),UNIT=SYSDA,                   
//             DCB=(LRECL=133,BLKSIZE=0,RECFM=FB)         



System Message:
Code:
IEA995I SYMPTOM DUMP OUTPUT                                       
  USER COMPLETION CODE=4088 REASON CODE=00000063                   
 TIME=02.12.41  SEQ=20673  CPU=0000  ASID=00B7                     
 PSW AT TIME OF ERROR  078D1A00   80114F98  ILC 2  INTC 0D         
   ACTIVE LOAD MODULE           ADDRESS=00111CF0  OFFSET=000032A8 
   NAME=CEEBINIT                                                   
   DATA AT PSW  00114F92 - 00181610  0A0D47F0  B1081811           
   GR 0: 84000000   1: 84000FF8                                   
      2: 00000063   3: 15216D80                                   
      4: 0013E23C   5: 1520AF3C                                   
      6: 0013C308   7: 0013C780                                   
      8: 00114817   9: 0013E23C                                   
      A: 00000004   B: 00114EC8                                   
      C: 8013DAD0   D: 0036258C                                   
      E: 00000000   F: 00000063                                   
 END OF SYMPTOM DUMP                                               
IEF472I COGRMIW2 EZCOMP - COMPLETION CODE - SYSTEM=000 USER=4088 REASON=00000063
IGD104I APG.TST.LOAD                                 RETAINED,  DDNAME=STEPLIB 
IEF285I   COGRM.COGRMIW2.JOB00035.D0000101.?           SYSOUT                   
IEF285I   COGRM.COGRMIW2.JOB00035.D0000102.?           SYSOUT                   
IEF285I   COGRM.COGRMIW2.JOB00035.D0000103.?           SYSOUT
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
PostPosted: Fri Sep 26, 2008 4:58 pm
 Reply with quote
The CEE says this is an LE message, as many U4xxx messages are. From the manual for the reason code:
Quote:
X'63' (99)
Stack segment owning the next-available-byte (NAB) could not be found or a DSA backchain pointer did not contain a valid 31-bit addressable address. A storage overlay problem has probably occurred. DSA backchain pointers must contain valid addresses that can be accessed as is while in 31-bit addressing mode. For instance, a 24-bit address that was obtained by using the BAL or BALR assembler instruction will contain the ILC, CC, and Program Mask in the uppermost byte of this address, thus making it an invalid address in 31-bit mode.
It sounds like you've got a problem with AMODE/RMODE. Have you tried compiling as 31-bit?
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
PostPosted: Sat Sep 27, 2008 12:13 am
 Reply with quote
Hello,

Does this run successfully if you run the Easytrieve interpreted rather than compiled?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CA Products

 

Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
No new posts Generate random number from range of ... COBOL Programming 3
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us