Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to relate PCB &PCB mask in a program?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
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    Post subject: How to relate PCB &PCB mask in a program?
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

Senior Member


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

PostPosted: Mon Feb 15, 2010 5:51 pm    Post subject: Reply to: How to relate PCB &PCB mask in a program?
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    Post subject:
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

Senior Member


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

PostPosted: Tue Feb 16, 2010 3:46 pm    Post subject:
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: 2433
Location: Netherlands, Amstelveen

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

Maybe the next link gives some clarification :

http://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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS T-Pipe queue counts in a COBOL Pr... Siva NKK Kothamasu IMS DB/DC 0 Tue May 09, 2017 6:31 pm
No new posts Need help in REXX CALL program Raje1002 CLIST & REXX 5 Wed Apr 19, 2017 11:18 pm
No new posts how to mask the phone number kumarinfy DB2 4 Mon Apr 03, 2017 5:23 pm
No new posts SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us