JCL internal error



JES, JES2, JCL utilities, IDCAMS, Compile & Run JCLs, PROCs etc...

JCL internal error

Postby Saramrkd » Mon May 07, 2018 10:24 am

hi.guys.i have to run this jcl code but i encounter this error when i run it

IKJ56700A ENTER JOBNAME CHARACTER(S) -
06.53.24 JOB00611 $HASP165 PRAK040A ENDED AT N1 - JCL ERROR CN(INTERNAL)
***

any ideas?
You do not have the required permissions to view the files attached to this post.
Saramrkd
 
Posts: 5
Joined: Mon May 07, 2018 10:18 am
Has thanked: 4 times
Been thanked: 0 time

Re: JCL internal error

 

Re: JCL internal error

Postby steve-myers » Mon May 07, 2018 10:54 am

  • JCL (e.g., the statements with // in the first two positions) DOES NOT accept lower case characters. Period. End of story.
  • it is not likely that the program that processes the statement in the data set specified by the DD statement with DD name SYSUT1 will accept lower case characters.
  • This topic does not appear to have anything to do with Cobol. I suspect it has something to do with CICS. I hope the moderators will move this topic to the correct place.
  • If you must transfer data from 3270 emulator windows, there are better ways to do this than to post a window image. Learn them and do it that way.

These users thanked the author steve-myers for the post:
Saramrkd (Thu May 10, 2018 3:06 am)
steve-myers
Global moderator
 
Posts: 1939
Joined: Thu Jun 03, 2010 6:21 pm
Has thanked: 4 times
Been thanked: 207 times

Re: JCL internal error

Postby NicC » Mon May 07, 2018 1:44 pm

The message shown refers to job PRAK040A the job shown is prak040m.
As noted by Steve JCL is not lower case.
Use a simple cut and paste to post scvreen and use the code tags to present it properly (plenty of items on how to use them).
Topic moved to JCL and locked.

edit: first ever post - topic unlocked.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 2802
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 115 times

Re: JCL internal error

Postby enrico-sorichetti » Mon May 07, 2018 1:51 pm

CN(INTERNAL)


the info tells that the message was routed to the <INTERNAL> console, not that the jcl had an internal error :mrgreen:


The message shown refers to job PRAK040A the job shown is prak040m.


since the jcl and the submit command do not understand lower case
the ts was asked to enter the jobname characters ( the suffix to be appended to the userid )

the JOB card was probably built correctly, but the rest was still lowercase and hence the JCL error

it is not likely that the program that processes the statement in the data set specified by the DD statement with DD name SYSUT1 will accept lower case characters.

dfhmaps is the procedure to <prepare> a cics bms maps ( the assembler will be happy to process statements in lower case )
the procedure is likely to contain four steps
one - iebgener to create a sequential dataset with the source
two - assembler to create a dsect ( invoked with SYSPARM(DSECT) - IIRC )
three - assembler to create the map ( invoked with SYSPARM(MAP) - IIRC )
four - binder to link the map
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort

These users thanked the author enrico-sorichetti for the post:
Saramrkd (Thu May 10, 2018 3:04 am)
enrico-sorichetti
Global moderator
 
Posts: 2760
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 143 times

Re: JCL internal error

Postby steve-myers » Tue May 08, 2018 9:28 am

Based on what Mr. Sorichetti says, the High Level Assembler will eventually process the data in the data set specified by the DD statement with DD name SYSUT1. In my experience its support of lower case characters is somewhat hit and miss. For example, it will convert dfmsd in the first statement to upper case and call the DFMSD macro. It will convert the keyword operands like the type in type=map to upper case for the macro, but it will not convert the map in type=map to upper case. Whether the macro will handle the lower case map as MAP is up to the macro, but I would not bet the mortgage on it.

The following will mainly interest Assembler programmers.

I wrote the following to check my statements in the first paragraph.
         MACRO
&NAME    DFMSD &TYPE=TEXT,&MODE=TEXT,&LANG=TEXT,&STORAGE=AUTO,         X
               &TIOAPFX=TEXT
         MNOTE *,'TYPE=&TYPE,MODE=&MODE,LANG=&LANG,STORAGE=&STORAGE,TIOX
               APFX=&TIOAPFX'
         AIF   ('
&TYPE' NE 'MAP').NOMAP
         MNOTE *,'
PROCESSING TYPE=MAP'
         AGO   .TSTMODE
.NOMAP   MNOTE 8,'
TYPE=&TYPE NOT SUPPORTED'
.TSTMODE AIF   ('
&MODE' NE 'INPUT').BADMODE
         MNOTE *,'
PROCESSING MODE=INPUT'
         AGO   .TSTLANG
.BADMODE MNOTE 8,'
MODE=&MODE NOT SUPPORTED'
.TSTLANG AIF   ('
&LANG' NE 'COBOL2').NOTCOB2
         MNOTE *,'
PREOCESSING LANG=COBOL2'
         AGO   .TSTSTOR
.NOTCOB2 MNOTE 8,'
LANG=&LANG NOT SUPPORTED'
.TSTSTOR AIF   ('
&STORAGE' NE 'AUTO').NOTAUTO
         MNOTE *,'
PROCESSING STORAGE=AUTO'
         AGO   .TSTAPFX
.NOTAUTO MNOTE 8,'
STORAGE=&STORAGE NOT SUPPORTED'
.TSTAPFX AIF   ('
&TIOAPFX' NE 'YES').BADAPFX
         MNOTE *,'
PROCESSING TIOAPFX=YES'
         AGO   .EXIT
.BADAPFX MNOTE 8,'
TIOAPFX=&TIOAPFX NOT SUPPORTED'
.EXIT    MEND
NSET040  DFMSD TYPE=MAP,MODE=INPUT,LANG=COBOL2,STORAGE=AUTO,           *
               TIOAPFX=YES
nset040  dfmsd type=map,mode=input,lang=cobol2,storage=auto,           *
               tioapfx=yes
         END


When I ran it through the High Level Assembler, it produced the following output in the data set specified by the DD statement with DD name SYSTERM, though this will not display well on the web site -
                                     32 nset040  dfmsd type=map,mode=input,lang=cobol2,storage=auto,           *
                                                       tioapfx=yes
** ASMA254I *** MNOTE ***            34+     8,TYPE=map NOT SUPPORTED                                           01-00007
** ASMA254I *** MNOTE ***            35+     8,MODE=input NOT SUPPORTED                                         01-00011
** ASMA254I *** MNOTE ***            36+     8,LANG=cobol2 NOT SUPPORTED                                        01-00015
** ASMA254I *** MNOTE ***            37+     8,STORAGE=auto NOT SUPPORTED                                       01-00019
** ASMA254I *** MNOTE ***            38+     8,TIOAPFX=yes NOT SUPPORTED                                        01-00023
Assembler Done      5 Statements Flagged /   8 was Highest Severity Code
steve-myers
Global moderator
 
Posts: 1939
Joined: Thu Jun 03, 2010 6:21 pm
Has thanked: 4 times
Been thanked: 207 times

Re: JCL internal error

Postby enrico-sorichetti » Tue May 08, 2018 10:26 am

I remember writing assembler programs in lower case with no trouble ...

but - I cannot check right now (*) - probably I changed the assembler default to MACROCASE , which does not hurt anyway
MACROCASE
Instructs the assembler to convert (internally) lowercase alphabetic characters
(a through z) in unquoted macro operands to uppercase alphabetic characters
(A through Z).


(*) I will try to run a few tests later today and let You know
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2760
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 143 times


Return to JCL

 


  • Related topics
    Replies
    Views
    Last post