Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
calling a cobol module from easytrieve

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
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    Post subject: calling a cobol module from easytrieve
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

Site Director


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

PostPosted: Thu Sep 25, 2008 7:49 pm    Post subject:
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    Post subject:
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

Site Director


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

PostPosted: Fri Sep 26, 2008 6:59 am    Post subject:
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

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Fri Sep 26, 2008 7:07 am    Post subject:
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    Post subject:
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: 8165
Location: East Dubuque, Illinois, USA

PostPosted: Fri Sep 26, 2008 4:58 pm    Post subject:
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

Site Director


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

PostPosted: Sat Sep 27, 2008 12:13 am    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm
No new posts Assembler Macro Copybook converted to... Ziquilix PL/I & Assembler 4 Tue Sep 26, 2017 3:07 am
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts ALPHABETIC check in COBOL vidyaa COBOL Programming 8 Thu Aug 17, 2017 7:13 pm
No new posts Calling CLIST through job and REXX Sahasra K CLIST & REXX 19 Tue Aug 01, 2017 10:25 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us