Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Trying to submit COBOL PGM - JCL ERROR CN(INTERNAL)

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
sandeep prajapati

New User


Joined: 23 Mar 2020
Posts: 17
Location: India

PostPosted: Tue Mar 24, 2020 11:21 pm    Post subject: Trying to submit COBOL PGM - JCL ERROR CN(INTERNAL)
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

Active User


Joined: 15 Aug 2015
Posts: 235
Location: Bamberg, Germany

PostPosted: Tue Mar 24, 2020 11:26 pm    Post subject:
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: 17
Location: India

PostPosted: Tue Mar 24, 2020 11:37 pm    Post subject: Trying to submit COBOL PGM - JCL ERROR CN(INTERNAL) Read m
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: 737
Location: Pennsylvania

PostPosted: Wed Mar 25, 2020 12:01 am    Post subject:
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: 8545
Location: Dubuque, Iowa, USA

PostPosted: Wed Mar 25, 2020 12:04 am    Post subject:
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: 17
Location: India

PostPosted: Wed Mar 25, 2020 12:12 am    Post subject: Trying to submit COBOL PGM - JCL ERROR CN(INTERNAL) Read m
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Compare multiple files using JCL/Rexx... tanvi110788 JCL & VSAM 4 Tue May 19, 2020 5:47 pm
No new posts Need example for CALL 'ISRSUPC' in COBOL Sue Adams COBOL Programming 2 Thu May 14, 2020 5:32 am
No new posts COBOL Student learning COBOL File Han... torrind COBOL Programming 3 Sat May 09, 2020 3:40 am
No new posts JCL ERROR - Opernad too Long dharmaraok JCL & VSAM 4 Tue Apr 21, 2020 1:20 pm
No new posts COBOL NOADVANCING strange results in ... Alan Playford COBOL Programming 4 Mon Apr 20, 2020 3:31 pm

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