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

LOADER Missing from SYS1.SCEELKED.
IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
genesis786

Active User


Joined: 28 Sep 2005
Posts: 210
Location: St Katherine's Dock London
PostPosted: Wed Jul 18, 2012 7:39 pm
 Reply with quote
Hi - till recently I have been using following JCL to simulate minor logics in COBOL. I found this in the link

gsf-soft.com/Freeware/EXECPGMJ.shtml

Code:

//R65378CB JOB (ACCT#),COB2SYS,                         
// NOTIFY=&SYSUID,                                       
// CLASS=A,MSGCLASS=X,COND=(4,LT)                       
//*                                                     
//COB2 EXEC PGM=IGYCRCTL    IBM COBOL II                 
//SYSIN    DD  *                                         
 CBL NOLIB,APOST,NODECK,OBJECT,NOSEQ,NONAME             
 CBL NOMAP,NOLIST,NOOFFSET,NOXREF                       
       IDENTIFICATION DIVISION.                         
       PROGRAM-ID. COB2SYS.                             
       AUTHOR. GILBERT SAINT-FLOUR.                     
       DATA DIVISION.                                   
       WORKING-STORAGE SECTION.                         
       77  UPPER-CHAR-SET   PIC X(26) VALUE             
             'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.               
       77  LOWER-CHAR-SET   PIC X(26) VALUE             
             'abcdefghijklmnopqrstuvwxyz'.               
       01 WT-WORKING-TABLES.                             
.
.
.
           EXIT                                             
           .                                                 
/*                                                           
//SYSUT1 DD UNIT=VIO,SPACE=(TRK,1)                           
//SYSUT2 DD UNIT=VIO,SPACE=(TRK,1)                           
//SYSUT3 DD UNIT=VIO,SPACE=(TRK,1)                           
//SYSUT4 DD UNIT=VIO,SPACE=(TRK,1)                           
//SYSUT5 DD UNIT=VIO,SPACE=(TRK,1)                           
//SYSUT6 DD UNIT=VIO,SPACE=(TRK,1)                           
//SYSUT7 DD UNIT=VIO,SPACE=(TRK,1)                           
//SYSLIN DD UNIT=VIO,SPACE=(TRK,1),DISP=(,PASS),BLKSIZE=3200
//SYSPRINT DD SYSOUT=*                                       
//STEPLIB DD DSN=SYS1.V42.SIGYCOMP,DISP=SHR                 
//*                                                         
//GO  EXEC PGM=LOADER,PARM=PRINT                             
//SYSLIN DD DSN=*.COB2.SYSLIN,DISP=(OLD,PASS)               
//SYSLIB DD DSN=SYS1.SCEELKED,DISP=SHR                       
//SYSLOUT DD SYSOUT=*                                       
//SYSOUT DD SYSOUT=*                                         


From last couple of days - i have started facing issues with my job abending with S322.

I found that SYS1.SCEELKED doesn't have LOADER (alias of IEWBLINK) program. Rather it is present in SYS1.LINKLIB.

When i change the library to SYS1.LINKLIB.. i started getting another error:

Code:

IEW2278I B352 INVOCATION PARAMETERS - PRINT                                     
IEW2456E 9207 SYMBOL IGZCBSO UNRESOLVED.  MEMBER COULD NOT BE INCLUDED FROM THE DESIGNATED CALL LIBRARY. 
IEW2456E 9207 SYMBOL CEESTART UNRESOLVED.  MEMBER COULD NOT BE INCLUDED FROM THE DESIGNATED CALL LIBRARY. 
IEW2456E 9207 SYMBOL CEEBETBL UNRESOLVED.  MEMBER COULD NOT BE INCLUDED FROM THE DESIGNATED CALL LIBRARY. 
IEW2456E 9207 SYMBOL CEESG005 UNRESOLVED.  MEMBER COULD NOT BE INCLUDED FROM THE DESIGNATED CALL LIBRARY. 


Could you please share any thoughts on how can i make it work.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
PostPosted: Wed Jul 18, 2012 7:54 pm
 Reply with quote
Why would you think LOADER would be in SYS1.SCEELKED?

Why would you connect a 322 to a module not being found?

Is there a chance you've put a Big Fat Loop into your test program without realising it?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8697
Location: Dubuque, Iowa, USA
PostPosted: Wed Jul 18, 2012 7:59 pm
 Reply with quote
Instead of changing one to the other, concatenate the two.
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
PostPosted: Wed Jul 18, 2012 8:06 pm
 Reply with quote
You are using EXEC PGM=LOADER.

Irrespective of where it is, the system is finding it for you, else S806.

You are getting S322. Using up your CPU time.

You are using this method for checking-out bits of Cobol code.

Whilst doing this, you have either managed a BFL, or what you are doing genuinely has just exceeded your CPU limit. Job card, exec card or use a different class.
Back to top
View user's profile Send private message
genesis786

Active User


Joined: 28 Sep 2005
Posts: 210
Location: St Katherine's Dock London
PostPosted: Thu Jul 19, 2012 11:23 am
 Reply with quote
Thanks Bill / Rob - realized my mistake.. icon_redface.gif

it's working now.. i removed the big fat loop..
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 -> COBOL Programming

 

Similar Topics
Topic Forum Replies
No new posts Find missing sequence for every key DFSORT/ICETOOL 3
No new posts commands missing in JESMSGLG JCL & VSAM 3
No new posts EDCICONV - Newline are missing All Other Mainframe Topics 6
This topic is locked: you cannot edit posts or make replies. Missing Negative sign in COBOL COBOL Programming 6
No new posts Am I missing something on "FREE ... CLIST & REXX 10
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