|
View previous topic :: View next topic
|
| Author |
Message |
John Poulakos
Active User
Joined: 13 Jun 2012
Posts: 178
Location: United States
|
|
|
|
I am having a problem with a DB2 COBOL program that calls a DB2 COBOL program. lf I bind it this way
| Code: |
DSN SYSTEM(TEST)
BIND PLAN (TESTPRG) OWNER(PFIAFNT) -
MEMBER (TESTPRG) -
LIBRARY ( -
'DB2TEST.DBRMLIB.DATA' -
) -
RETAIN -
DYNAMICRULES(RUN) -
QUALIFIER(PFIAFNT) -
CACHESIZE(1024) -
CURRENTDATA(YES)
DSN SYSTEM(TEST)
BIND PLAN (GETDATE) OWNER(PFIAFNT) -
MEMBER (GETDATE) -
LIBRARY ( -
'DB2TEST.DBRMLIB.DATA' -
) -
RETAIN -
DYNAMICRULES(RUN) -
QUALIFIER(PFIAFNT) -
CACHESIZE(1024) -
CURRENTDATA(YES)
|
When I execute TESTPRG I get an -805 in the called GETDATE program.
If I bind it this way:
| Code: |
DSN SYSTEM(TEST)
BIND PLAN (TESTPRG) OWNER(PFIAFNT) -
MEMBER (GETDATE) -
LIBRARY ( -
'DB2TEST.DBRMLIB.DATA' -
) -
RETAIN -
DYNAMICRULES(RUN) -
QUALIFIER(PFIAFNT) -
CACHESIZE(1024) -
CURRENTDATA(YES)
|
I get an -805 in TESTPRG when I execute TESTPRG.
Here is my execution JCL:
IKJEFT01:
| Code: |
DSN SYSTEM (TEST)
RUN PROGRAM(TESTPRG) PLAN(TESTPRG)
END
|
I do not have a lot of experience with IKJEFT01, but I suspect my problem is related to it. I suppose it could be the binds. Our only DBA is somebody who worked on a server; he knows SQL, databases and tables, but absolutely nothing about DB2 on the mainframe.
I just want to be able to run a COBOL/DB2 program that calls a COBOL/DB2 table. I can't find any mention of this anywhere. I'd appreciate any help. |
|
| Back to top |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| read the db2 manuals about plans, packages, collections, and bind accordingly |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
From Mr Google
-805 DBRM or package not found in plan. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
faster to ask on a forum rather than look at the manuals 
and ...
| Quote: |
| Our only DBA is somebody who worked on a server; he knows SQL, databases and tables, but absolutely nothing about DB2 on the mainframe. |
i flucking hate this kind of excuses for asking on a forum,
in this case we just give free consultancy to morons who decided to save money by hiring people without the proper skills and by not training properly the rest |
|
| Back to top |
|
|
daveporcelan
Active Member
Joined: 01 Dec 2006
Posts: 792
Location: Pennsylvania
|
|
|
|
John,
Your company needs to establish a standard on how to use Plans, Packages and Collections.
It would be better not to tie a particular Program to a Plan, but rather an entire Collection. This way, when a Program is re-compiled, only that program needs to be bound to a collection(s), and your plans do not.
Additional new subroutines can be added without affecting the Plans.
In any event, training and standards are required.
I am not giving you an answer because I would not set it up as you have. |
|
| Back to top |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
| Code: |
BIND ....
MEMBER (TESTPRG)
... |
and You get a -805 for a missing GETDATE
| Code: |
BIND ....
MEMBER (GETDATE)
... |
and You get a -805 for a missing TESTPRG
what does the above behaviour suggest ??? |
|
| Back to top |
|
|
pshongal
New User
Joined: 14 Jun 2012
Posts: 96
Location: India
|
|
|
|
| Add both packages in MEMBER when you are BINDing PLAN |
|
| Back to top |
|
|
|
|
