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

STEPLIB used to denote library for cobol db2 Load module


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Thu Nov 20, 2008 10:19 pm
Reply with quote

Quote:
I completly disagree with above statement, Try to execute programs which is in JOBLIB and SYSTEM Default Library by having diffrent version. Try to find whether JCL has pick up which version ie either from JOBLIB or SYSTEM Default Library(Have STEPLIB, JOBLIB in JCL)..(I have tested this).. :o)



it took me just a couple of minutes to run a test
- it took me longer to write the post icon_cool.gif

steps... done to test the joblib steplib issue

allocate a dataset to be used as joblib
allocate a dataset to be used as steplib

assemble and link into the joblib dataset
a simple program to issue a wto..

Code:

TEST     CSECT
         BAKR  14,0
         BASR  12,0
         USING *,12
         WTO   'TEST - JUST A STUPID WTO'
         PR
         LTORG
         END

submitted the job
Code:

//jobname  JOB .....
//*
//JOBLIB    DD DISP=SHR,DSN=joblib_dataset
//G       EXEC PGM=TEST
//STEPLIB   DD DISP=SHR,DSN=steplib_dataset



as expected ended with an abend s806 load module not found
which means that... guess what:
... the manual is right

so You might disagree, but You are just
... plain wrong ....


so it would be wiser to get a better grasp of the manuals in order
to review your understanding of the joblib/steplib behavior
and also to review Your testing methodology

to convince you that I am not cheating and carried on the tests properly
here are the SDSF XDC of the two jobs
abended job
Code:

1                         J E S 2  J O B  L O G  --  S Y S T E M  S Y S 1  --  N O D E  N 1
0
 18.06.53 JOB00051 ---- THURSDAY,  20 NOV 2008 ----
 18.06.53 JOB00051  IRR010I  USERID zosuser  IS ASSIGNED TO THIS JOB.
 18.06.53 JOB00051  ICH70001I zosuser  LAST ACCESS AT 18:06:40 ON THURSDAY, NOVEMBER 20, 2008
 18.06.53 JOB00051  $HASP373 zosuserB STARTED - INIT 1    - CLASS A - SYS SYS1
 18.06.53 JOB00051  IEF403I zosuserB - STARTED - TIME=18.06.53
 18.06.53 JOB00051  CSV003I REQUESTED MODULE TEST    NOT FOUND
 18.06.53 JOB00051  CSV028I ABEND806-04  JOBNAME=zosuserB  STEPNAME=TEST
 18.06.53 JOB00051  IEA995I SYMPTOM DUMP OUTPUT  874
    874             SYSTEM COMPLETION CODE=806  REASON CODE=00000004
    874              TIME=18.06.53  SEQ=00022  CPU=0000  ASID=001A
    874              PSW AT TIME OF ERROR  070C1000   811B5A78  ILC 2  INTC 0D
    874                NO ACTIVE MODULE FOUND
    874                NAME=UNKNOWN
    874                DATA AT PSW  011B5A72 - 8400181E  0A0D18FB  180C181D
    874                AR/GR 0: 9196DFDE/00001E00   1: 00000000/84806000
    874                      2: 00000000/00FDDD68   3: 00000000/00000000
    874                      4: 00000000/00000000   5: 00000000/008FF548
    874                      6: 00000000/000000FF   7: 00000000/00000000
    874                      8: 00000000/008C1250   9: 00000000/011B5F4C
    874                      A: 00000000/00000000   B: 00000000/00000004
    874                      C: 00000000/00000000   D: 00000000/008C1250
    874                      E: 00000000/84806000   F: 00000002/00000004
    874              END OF SYMPTOM DUMP
 18.06.53 JOB00051  IEF450I zosuserB TEST - ABEND=S806 U0000 REASON=00000004  875
    875                     TIME=18.06.53
 18.06.53 JOB00051  IEF404I zosuserB - ENDED - TIME=18.06.53
 18.06.53 JOB00051  $HASP395 zosuserB ENDED
0------ JES2 JOB STATISTICS ------
-  20 NOV 2008 JOB EXECUTION DATE
-            7 CARDS READ
-           75 SYSOUT PRINT RECORDS
-            0 SYSOUT PUNCH RECORDS
-            4 SYSOUT SPOOL KBYTES
-         0.00 MINUTES EXECUTION TIME
         1 //zosuserB JOB (ACCT#),'TEST',NOTIFY=&SYSUID,                        JOB00051
           //             CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
           //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
           //*
           IEFC653I SUBSTITUTION JCL - (ACCT#),'TEST',NOTIFY=zosuser,CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
         2 //JOBLIB    DD DISP=SHR,DSN=zosuser.TEST.JOBLIBB
         3 //TEST    EXEC PGM=TEST
         4 //STEPLIB   DD DISP=SHR,DSN=zosuser.TEST.STEPLIB
 ICH70001I zosuser  LAST ACCESS AT 18:06:40 ON THURSDAY, NOVEMBER 20, 2008
 IEF236I ALLOC. FOR zosuserB TEST
 IEF237I 0A83 ALLOCATED TO JOBLIB
 IEF237I 0A83 ALLOCATED TO STEPLIB
 CSV003I REQUESTED MODULE TEST    NOT FOUND
 CSV028I ABEND806-04  JOBNAME=zosuserB  STEPNAME=TEST
 IEA995I SYMPTOM DUMP OUTPUT
 SYSTEM COMPLETION CODE=806  REASON CODE=00000004
  TIME=18.06.53  SEQ=00022  CPU=0000  ASID=001A
  PSW AT TIME OF ERROR  070C1000   811B5A78  ILC 2  INTC 0D
    NO ACTIVE MODULE FOUND
    NAME=UNKNOWN
    DATA AT PSW  011B5A72 - 8400181E  0A0D18FB  180C181D
    AR/GR 0: 9196DFDE/00001E00   1: 00000000/84806000
          2: 00000000/00FDDD68   3: 00000000/00000000
          4: 00000000/00000000   5: 00000000/008FF548
          6: 00000000/000000FF   7: 00000000/00000000
          8: 00000000/008C1250   9: 00000000/011B5F4C
          A: 00000000/00000000   B: 00000000/00000004
          C: 00000000/00000000   D: 00000000/008C1250
          E: 00000000/84806000   F: 00000002/00000004
  END OF SYMPTOM DUMP
 IEF472I zosuserB TEST - COMPLETION CODE - SYSTEM=806 USER=0000 REASON=00000004
 IEF285I   zosuser.TEST.STEPLIB                         KEPT
 IEF285I   VOL SER NOS= Z9SYS1.
 IEF373I STEP/TEST    /START 2008325.1806
 IEF374I STEP/TEST    /STOP  2008325.1806 CPU    0MIN 00.05SEC SRB    0MIN 00.00SEC VIRT     4K SYS   256K EXT       0K SYS   10600K
 IEF285I   zosuser.TEST.JOBLIBB                         KEPT
 IEF285I   VOL SER NOS= Z9SYS1.
 IEF375I  JOB/zosuserB/START 2008325.1806
 IEF376I  JOB/zosuserB/STOP  2008325.1806 CPU    0MIN 00.05SEC SRB    0MIN 00.00SEC


Code:


1                         J E S 2  J O B  L O G  --  S Y S T E M  S Y S 1  --  N O D E  N 1
0
 18.26.48 JOB00052 ---- THURSDAY,  20 NOV 2008 ----
 18.26.48 JOB00052  IRR010I  USERID zosuser  IS ASSIGNED TO THIS JOB.
 18.26.48 JOB00052  ICH70001I zosuser  LAST ACCESS AT 18:06:53 ON THURSDAY, NOVEMBER 20, 2008
 18.26.48 JOB00052  $HASP373 zosuserB STARTED - INIT 1    - CLASS A - SYS SYS1
 18.26.48 JOB00052  IEF403I zosuserB - STARTED - TIME=18.26.48
 18.26.48 JOB00052  +TEST - JUST A STUPID WTO
 18.26.48 JOB00052  IEF404I zosuserB - ENDED - TIME=18.26.48
 18.26.48 JOB00052  $HASP395 zosuserB ENDED
0------ JES2 JOB STATISTICS ------
-  20 NOV 2008 JOB EXECUTION DATE
-            7 CARDS READ
-           36 SYSOUT PRINT RECORDS
-            0 SYSOUT PUNCH RECORDS
-            2 SYSOUT SPOOL KBYTES
-         0.00 MINUTES EXECUTION TIME
         1 //zosuserB JOB (ACCT#),'TEST',NOTIFY=&SYSUID,                        JOB00052
           //             CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
           //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
           //*
           IEFC653I SUBSTITUTION JCL - (ACCT#),'TEST',NOTIFY=zosuser,CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
         2 //JOBLIB    DD DISP=SHR,DSN=zosuser.TEST.JOBLIBB
         3 //TEST    EXEC PGM=TEST
           //*TEPLIB   DD DISP=SHR,DSN=zosuser.TEST.STEPLIB
 ICH70001I zosuser  LAST ACCESS AT 18:06:53 ON THURSDAY, NOVEMBER 20, 2008
 IEF236I ALLOC. FOR zosuserB TEST
 IEF237I 0A83 ALLOCATED TO JOBLIB
 TEST - JUST A STUPID WTO
 IEF142I zosuserB TEST - STEP WAS EXECUTED - COND CODE 0000
 IEF373I STEP/TEST    /START 2008325.1826
 IEF374I STEP/TEST    /STOP  2008325.1826 CPU    0MIN 00.02SEC SRB    0MIN 00.00SEC VIRT     8K SYS   248K EXT       0K SYS   10564K
 IEF285I   zosuser.TEST.JOBLIBB                         KEPT
 IEF285I   VOL SER NOS= Z9SYS1.
 IEF375I  JOB/zosuserB/START 2008325.1826
 IEF376I  JOB/zosuserB/STOP  2008325.1826 CPU    0MIN 00.02SEC SRB    0MIN 00.00SEC



Back to top
View user's profile Send private message
Robert Sample

Global Moderator


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

PostPosted: Thu Nov 20, 2008 11:56 pm
Reply with quote

Enrico -- I have to agree with you; revel is wrong in thinking the JOBLIB is searched if there's a STEPLIB. I've seen too many cases where the JOBLIB is ignored when a STEPLIB is included to think the manual is wrong here.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Fri Nov 21, 2008 3:03 am
Reply with quote

Hello,

Devil's Advocate here. . . .

What are the odds that there is some exit/add-on (purchased or "own-code") that traps the 806 when there is a steplib and uses the joblib if there is one?


My experience from many, many systems is as Enrico, Robert, and the manual have said - when there is a steplib, joblib is ignored for that step.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Fri Nov 21, 2008 4:12 am
Reply with quote

Hi,

Was reading just other Manual:
Quote:
The STEPLIB DD statement is used to identify a program library to search first when attempting to locate programs executed during the job step. The STEPLIB can be placed anywhere in the step's JCL. More than one program library can be concatenated after the first one on a STEPLIB.

If a STEPLIB DD is specified in a job that also has a JOBLIB, the STEPLIB takes precedence when searching for a program.


Revel,

You need to prove this
Quote:
I completly disagree with above statement, Try to execute programs which is in JOBLIB and SYSTEM Default Library by having diffrent version. Try to find whether JCL has pick up which version ie either from JOBLIB or SYSTEM Default Library(Have STEPLIB, JOBLIB in JCL)..(I have tested this).. :o)
post something like Enrico did, we are not against you - at times we were called as "tough public" though.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Fri Nov 21, 2008 4:15 am
Reply with quote

Hello again,

The program search order for MVS uses the following program libraries in the order given:

1. JOB Pack Area (already loaded programs)
2. Private task library, if specified.
3. STEPLIB library, if specified.
4. JOBLIB library, if specified, AND no STEPLIB is specified
5. Link Pack Area (PLPA)
6. System Link List (i.e., SYS1.LINKLIB and the data sets concatenated to it).
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1702
Location: Australia

PostPosted: Fri Nov 21, 2008 5:35 am
Reply with quote

Hi,

for what it's worth, my findings are exactly the same as Enrico (tested)



Gerry
Back to top
View user's profile Send private message
Simon Jia

New User


Joined: 21 Nov 2008
Posts: 5
Location: China

PostPosted: Fri Nov 21, 2008 8:40 am
Reply with quote

step lib is used only for search priority.
for example, you have PGM1 in steplib and another same named PGM1 in the system lib, if you specify the step lib PGM1 in step lib gets run, if you do not specify the step lib the PGM1 in the system lib gets run.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Fri Nov 21, 2008 8:52 am
Reply with quote

Hello,

What you say is true, but how does it apply/relate to the discussion about joblib versus steplib?
Back to top
View user's profile Send private message
revel

Active User


Joined: 05 Apr 2005
Posts: 135
Location: Bangalore/Chennai-INDIA

PostPosted: Fri Nov 21, 2008 10:52 am
Reply with quote

Hi All,

Then What this link says ??

www.ibmmainframes.com/about8374.html

Check it please..

Any how i am checking out above scenario, It will take couple of time, i will get back to you soon with answer ... :o)
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Fri Nov 21, 2008 11:19 am
Reply with quote

if You can read, the majority of the posters on the link says exactly what I/more of us say,
quoting even the same paragraph of the manual,
You have there only one supporter that misread as You did the manual

but probably Your ethics tells to stand by the minorities icon_biggrin.gif
Back to top
View user's profile Send private message
revel

Active User


Joined: 05 Apr 2005
Posts: 135
Location: Bangalore/Chennai-INDIA

PostPosted: Fri Nov 21, 2008 11:29 am
Reply with quote

icon_lol.gif icon_lol.gif icon_lol.gif Enrico,

Thank you for wards, I will get back to you with answers... icon_razz.gif
Back to top
View user's profile Send private message
revel

Active User


Joined: 05 Apr 2005
Posts: 135
Location: Bangalore/Chennai-INDIA

PostPosted: Fri Nov 21, 2008 2:02 pm
Reply with quote

Sorry Guys

For misundrestanding the concept and for misleading you people, I am really very sorry for this !!!!!! :O)

True It only check in STEPLIB Library then goes to SYS1.LINKLIB not in JOBLIB Library in case JCL has STEPLIB & JOBLIB..

Sorryyy..... 36_8_11.gif 36_2_18.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Fri Nov 21, 2008 2:12 pm
Reply with quote

Hi Raghu!
what punishment do You prefer..
a good spanking
or that
all Your bytes lose their parity
36_2_51.gif
Back to top
View user's profile Send private message
revel

Active User


Joined: 05 Apr 2005
Posts: 135
Location: Bangalore/Chennai-INDIA

PostPosted: Fri Nov 21, 2008 2:33 pm
Reply with quote

Enrico 36_2_37.gif
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


Joined: 22 Apr 2006
Posts: 6250
Location: Mumbai, India

PostPosted: Fri Nov 21, 2008 8:47 pm
Reply with quote

enrico-sorichetti wrote:
all Your bytes lose their parity
In this Digital world..mercy amen..!
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Sat Nov 22, 2008 1:14 am
Reply with quote

Hello,

Quote:
I am really very sorry for this
Not to worry icon_smile.gif

These topics keep us on our toes, but we can be a tough crowd though. . . icon_wink.gif

d
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 Goto page 1, 2  Next

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts Load new table with Old unload - DB2 DB2 6
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts How to load to DB2 with column level ... DB2 6
Search our Forums:

Back to Top