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

JCL execution fail COBOL program


IBM Mainframe Forums -> COBOL Programming
Post new topic   This topic is locked: you cannot edit posts or make replies.
View previous topic :: View next topic  
Author Message
sandeep prajapati

New User


Joined: 23 Mar 2020
Posts: 19
Location: India

PostPosted: Sat Apr 11, 2020 9:57 pm
Reply with quote

Hi All,

I am trying to implement a simple Cobol program to compute account balance by reading 3 files i.e. file1 having account balance, file2 having deposit amount & file3 withdraw amount.

I have written logic for the program which is simple, but I am unable to execute one the program using the below JCL. could you please provide a correct JCL for COBOL execution.

Code:
***************************** Top of Data ******************************
//BANKACCT JOB NOTIFY=Z56117,CLASS=A,MSGCLASS=A,PRTY=15                 
//COBRUN       EXEC IGYWCLG                                             
//COBOL.SYSIN  DD DSN=Z56117.SOURCE(BANKCOB),DISP=SHR                   
//BALANCE      DD DSN=Z56117.SOURCE.BALANCE,DISP=SHR                     
//DEPOSIT      DD DSN=Z56117.SOURCE.DEPOSIT,DISP=SHR                     
//WITHDRW      DD DSN=Z56117.SOURCE.WITHDRW,DISP=SHR                     
//SYSOUT   DD SYSOUT=*                                                   
**************************** Bottom of Data ****************************


I definitely is missing the something very important, could you please assist.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Sun Apr 12, 2020 12:21 am
Reply with quote

Quote:
could you please provide a correct JCL for COBOL execution.
No, we cannot because (1) depending upon your site the provided JCL could work perfectly fine, and (2) you did not find the message(s) telling you what the problem is and provide them to us. As a guess, most likely the issue is that your site requires an accounting field and/or programmer name (both of which would have to come before the first keyword parameter you used. Or, maybe IGYWCLG is not in a system PROCLIB and the system cannot find that procedure to execute it?
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2140
Location: USA

PostPosted: Sun Apr 12, 2020 12:26 am
Reply with quote

Did you know that JCL procedure IGYWCLG consists of three sequential procedure steps?

Did you know what is JCL procedure?

Did you know what is a procedure step?

What are any results of your test?
Back to top
View user's profile Send private message
sandeep prajapati

New User


Joined: 23 Mar 2020
Posts: 19
Location: India

PostPosted: Sun Apr 12, 2020 1:32 am
Reply with quote

ok, after doing some searching I found, program execution requires a load module(LLP) which is generated using compile procedure IGYWCL.

below is the JCL

Code:
//COBRUN   JOB NOTIFY=Z56117,CLASS=A,MSGCLASS=A,PRTY=15   
//COBOL    EXEC IGYWCL,MBR=BANKCOB                         
//RUN      EXEC PGM=BANKCOB                               
//STEPLIB  DD   DSN=&SYSUID..LOAD,DISP=SHR                   
//BALANCE  DD DSN=Z56117.SOURCE.BALANCE,DISP=SHR           
//DEPOSIT  DD DSN=Z56117.SOURCE.DEPOSIT,DISP=SHR           
//WITHDRW  DD DSN=Z56117.SOURCE.WITHDRW,DISP=SHR           
//SYSOUT   DD SYSOUT=*   



now, the system is throwing S0C7 error.

tried using the offset value to locate the data which is error in CEEDUMP, found nothing helpful, there is 3 files passing 99999999.99 value which looks fine.
Back to top
View user's profile Send private message
sergeyken

Senior Member


Joined: 29 Apr 2008
Posts: 2140
Location: USA

PostPosted: Sun Apr 12, 2020 1:35 am
Reply with quote

Any message log, please

S0C7 means you try to use some COMP-3 field which contains invalid data.

Do you know any of mentioned terms?

Is this the first program in your life?

BTW: the sentence “JCL execution fail COBOL program” - what does this mean from English point of view???
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK

PostPosted: Sun Apr 12, 2020 2:32 am
Reply with quote

Presumably you got past the previous error that you posted about - file status. If so, please update that topic with the solution.

New question = new topic.
This topic locked.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies. View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts COBOL sorting, with input GDG base COBOL Programming 7
No new posts Need help with ADABAS query (COBOL-AD... All Other Mainframe Topics 0
No new posts Replacing FILLER with FILLER<SeqNu... DFSORT/ICETOOL 2
No new posts Error to invoke MPP program through B... IMS DB/DC 3
No new posts Compile Sp Cobol base COBOL Programming 1
Search our Forums:

Back to Top