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

Trying to submit COBOL PGM - JCL ERROR CN(INTERNAL)
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
sandeep prajapati

New User


Joined: 23 Mar 2020
Posts: 19
Location: India
PostPosted: Tue Mar 24, 2020 11:21 pm
 Reply with quote
Hi All,

I am trying to Execute a Simple Addition Cobol program.
where it accepts 2 numbers from JCL via instream data SYSIN DD * and compute add1 = num1 + num2.

on execution, it shows the following JCL error.

Code:
 STMT NO. MESSAGE                                                               
        2 IEFC001I PROCEDURE IGYWCLG WAS EXPANDED USING SYSTEM LIBRARY VENDOR.PROCLIB
       39 IEFC621I EXPECTED CONTINUATION NOT RECEIVED                           
       40 IEFC605I UNIDENTIFIED OPERATION FIELD   


Code:
[size=7]  4 XXCOBOL  EXEC PGM=IGYCRCTL,REGION=0M                           
  5 XXSTEPLIB  DD  DSNAME=&LNGPRFX..SIGYCOMP,DISP=SHR             
    IEFC653I SUBSTITUTION JCL - DSNAME=IGY620.SIGYCOMP,DISP=SHR   
  6 XX         DD  DSNAME=&LIBPRFX..SCEERUN,DISP=SHR               
    IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR       
  7 XX         DD  DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR             
    IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR       
  8 XXSYSPRINT DD  SYSOUT=*                                       
  9 XXSYSLIN   DD  DSNAME=&&LOADSET,UNIT=SYSALLDA,                 
    XX             DISP=(MOD,PASS),SPACE=(CYL,(1,1)),VOL=(,,,1)   
 10 XXSYSUT1   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)     
 11 XXSYSUT2   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)     
 12 XXSYSUT3   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)     
 13 XXSYSUT4   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)     
 14 XXSYSUT5   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)     
 15 XXSYSUT6   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)     
 16 XXSYSUT7   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)     
 17 XXSYSUT8   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)     
 18 XXSYSUT9   DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)     
 19 XXSYSUT10  DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)     
 20 XXSYSUT11  DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)     
 21 XXSYSUT12  DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)     
 22 XXSYSUT13  DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)             
 23 XXSYSUT14  DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)             
 24 XXSYSUT15  DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)             
 25 XXSYSMDECK DD  UNIT=SYSALLDA,SPACE=(CYL,(1,1)),VOL=(,,,1)             
 26 XXLKED   EXEC PGM=IEWBLINK,COND=(8,LT,COBOL),REGION=0M               
 27 XXSYSLIB   DD  DSNAME=&LIBPRFX..SCEELKEX,DISP=SHR                     
    IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKEX,DISP=SHR             
 28 XX         DD  DSNAME=&LIBPRFX..SCEELKED,DISP=SHR                     
    IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEELKED,DISP=SHR             
 29 XXSYSPRINT DD  SYSOUT=*                                               
 30 XXSYSLIN   DD  DSNAME=&&LOADSET,DISP=(OLD,DELETE)                     
 31 XX         DD  DDNAME=SYSIN                                           
 32 XXSYSLMOD  DD  DSNAME=&&GOSET(&GOPGM),SPACE=(CYL,(1,1,1)),           
    XX             UNIT=SYSALLDA,DISP=(MOD,PASS),DSNTYPE=LIBRARY         
    IEFC653I SUBSTITUTION JCL - DSNAME=&&GOSET(GO),SPACE=(CYL,(1,1,1)),UNI
    DSNTYPE=LIBRARY                                                       
 33 XXGO     EXEC PGM=*.LKED.SYSLMOD,COND=((8,LT,COBOL),(4,LT,LKED)),     
    XX             REGION=0M                                             
 34 XXSTEPLIB  DD  DSNAME=&LIBPRFX..SCEERUN,DISP=SHR                     
    IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN,DISP=SHR               
 35 XX         DD  DSNAME=&LIBPRFX..SCEERUN2,DISP=SHR                     
    IEFC653I SUBSTITUTION JCL - DSNAME=CEE.SCEERUN2,DISP=SHR             
 36 XXSYSPRINT DD  SYSOUT=*                                               
 37 XXCEEDUMP  DD  SYSOUT=*                                               
 38 XXSYSUDUMP DD  SYSOUT=*                                               
 39 //COBOL.SYSIN DD DSN=Z56117.SANDEEP.COURSE.COBOL.PGM(ADDPGM),         
 40 //               DISP=SHR                                             
 41 //GO.SYSIN    DD *                   [/size]     


please advise.
Back to top
View user's profile Send private message
Joerg.Findeisen

Senior Member


Joined: 15 Aug 2015
Posts: 1348
Location: Bamberg, Germany
PostPosted: Tue Mar 24, 2020 11:26 pm
 Reply with quote
Line 40: Put DISP=SHR at Column #16 and Restart the JOB.
Back to top
View user's profile Send private message
sandeep prajapati

New User


Joined: 23 Mar 2020
Posts: 19
Location: India
PostPosted: Tue Mar 24, 2020 11:37 pm
 Reply with quote
The program got Executed with RC=000

program logic

Code:
[size=7]WORKING-STORAGE SECTION.                               
01 ADDNUMBER.                                           
   02  NUM1            PIC 9(02).                       
   02  NUM2            PIC 9(02).                       
   02  ADD1            PIC 9(03).                       
PROCEDURE DIVISION.                                     
Begin.                                                 
    DISPLAY "ENTER FIRST 2 DIGIT NUMBER".               
    ACCEPT  NUM1.                                       
    DISPLAY "ENTER SECOND 2 DIGIT NUMBER".             
    ACCEPT  NUM2.                                       
    COMPUTE ADD1 = NUM1 + NUM2.                         
    DISPLAY "------------------------------------------
    DISPLAY "NUMBER ONE IS" NUM1.                       
    DISPLAY "------------------------------------------
    DISPLAY "NUMBER TWO IS" NUM2.                       
    DISPLAY "------------------------------------------
    DISPLAY "ADDITION OF TWO NUMBER IS" ADD1.           
    DISPLAY "------------------------------------------
    STOP RUN.      [/size]   


but in the spool, there is not data as expected.

Code:
ENTER FIRST 2 DIGIT NUMBER                     
ENTER SECOND 2 DIGIT NUMBER                     
-----------------------------------------------
NUMBER ONE IS                                   
-----------------------------------------------
NUMBER TWO IS                                   
-----------------------------------------------
ADDITION OF TWO NUMBER IS000                   


please advise I have passed this data

Code:
 Command ===>                                                  Scroll ===> PAGE
 ****** ***************************** Top of Data ******************************
 000001 //COBRUN      EXEC  IGYWCLG                                             
 000002 //COBOL.SYSIN DD DSN=SANDEEP.COURSE.COBOL.PGM(ADDPGM),DISP=SHR   
 000003 //GO.SYSIN    DD *                                                     
 000004   25                                                                   
 000005   50             
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 792
Location: Pennsylvania
PostPosted: Wed Mar 25, 2020 12:01 am
 Reply with quote
In your JCL, you need:

Code:
SYSOUT DD  SYSOUT=*


This is some very basic questions you are asking.

You should have a mentor at your company helping with this stuff.
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: Wed Mar 25, 2020 12:04 am
 Reply with quote
The ACCEPT statement is expecting you to input each value starting in column 1; you started in column 3. Since each value is 2 digits, your ACCEPT took in spaces for each value, converted them to zero per the internal representation of zoned decimal values in COBOL, added zero to zero and got zero which was then displayed.
Back to top
View user's profile Send private message
sandeep prajapati

New User


Joined: 23 Mar 2020
Posts: 19
Location: India
PostPosted: Wed Mar 25, 2020 12:12 am
 Reply with quote
Dave, I am aware about the SYSOUT DD SYSOUT=*, to display all system messages in Spool

I am trying to use Accept statement GO, which then displays the Program result
and SYSOUT also.

thank you, Robert, got it the Accept statements reads the data from Column1

many thanks all.
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 -> JCL & VSAM

 

Similar Topics
Topic Forum Replies
No new posts IEW2315E 1369 Link error All Other Mainframe Topics 3
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 Help on IMS -API URL migrating from P... IMS DB/DC 1
No new posts Replacing FILLER with FILLER<SeqNu... DFSORT/ICETOOL 2
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