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

How to relate PCB &PCB mask in a program?


IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
p kumaran

New User


Joined: 08 Feb 2010
Posts: 1
Location: bangalore

PostPosted: Sun Feb 14, 2010 10:43 pm
Reply with quote

As I'm totally new to IMS, kindly forgive if my question is so stupid & do clarify the below.

Normally the PCB declaration will be done as below.

PCB TYPE=DB, NAME=HOSPDBD, KEYLEN=26
SENSEG NAME=HOSPITAL, PARENT=0, PROCOPT=K
SENSEG NAME=WARD, PARENT=HOSPITAL, PROCOPT=K
SENSEG NAME=PATIENT, PARENT=WARD, PROCOPT=G
PSBGEN LANG=COBOL, PSBNAME=PATRETRV
END


And in the IMS-Cobol pgm we used to refer the PCB-mask as below.

LINKAGE SECTION
01 PCB-MASK
05 DBDNAME PIC X(8)
05 STATUS-CODE PIC X(2)
05 PROC-OPTIONS PIC X(4)
05 JCB-ADDRESS PIC X(4)

.
.
PROCEDURE DIVISION
ENTRY 'DLITCBL' USING PCB-MASK
.
.
.
CALL 'CBLTDLI' USING function code
PCB mask
I-O Area
SSA's


Now please let me know how & where the PCB will be related with the PCB-mask in a IMS program? Or in other words
where do we refer the PCBname HOSPDBD inside the pgm?
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


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

PostPosted: Mon Feb 15, 2010 5:51 pm
Reply with quote

Quote:
Or in other words where do we refer the PCBname HOSPDBD inside the pgm?
You pass it from the JCL, check the JCL which executes this program.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Tue Feb 16, 2010 1:56 am
Reply with quote

In addition to what Anuj posted, you will see your database in your JCL if you are running DLI. If you are running BMP, you will not.
Back to top
View user's profile Send private message
Anuj Dhawan

Superior Member


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

PostPosted: Tue Feb 16, 2010 3:46 pm
Reply with quote

Thanks Sandy...icon_smile.gif.

P kumaran - Suggest you spend some time with this sticky of IMS DB/DC part of the Forum.
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2481
Location: Netherlands, Amstelveen

PostPosted: Tue Feb 16, 2010 3:52 pm
Reply with quote

Maybe the next link gives some clarification :

www.sysed.com/DnLoads/QualityContents/IMSControlBlock/05_Chapter02_IPB1-us.pdf
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Tue Feb 16, 2010 5:29 pm
Reply with quote

That is a great link Peter!
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 -> IMS DB/DC

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts DB2 Event passed to the Application P... DB2 1
No new posts How to pass the PARM value to my targ... COBOL Programming 8
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts EZT program to build a flat file with... All Other Mainframe Topics 9
Search our Forums:

Back to Top