Identifying a particular PCB used in a Program.

rajat_gupta · New User Joined: 05 Apr 2007 Posts: 15 Location: india

Hi all
Can anybody help me out .
I have a PSB which is having 5 PCB's.I want to know which PCB out of these 5 , my program is using .I am confused as there is no PCB name.
Is there any method of finding that.
Thanks

IQofaGerbil · Posted: Wed May 30, 2007 4:26 pm

No PCB name?
Where , in the program, in the PSB?

Be more specific/give examples.

rajat_gupta · New User Joined: 05 Apr 2007 Posts: 15 Location: india

Hi IQofaGerbil

There is no PCB name given in PSB declaration llike,

PCB TYPE=DB,DBDNAME=DB9138,KEYLEN=11,PROCOPT=GOT
SENSEG NAME=P118TVL,PARENT=0,PROCOPT=GO

PCB TYPE=DB,DBDNAME=DB0724,KEYLEN=6,PROCOPT=GOTP
SENSEG NAME=P324CMN,PARENT=0,PROCOPT=GOP
SENSEG NAME=P324SDN,PARENT=P324CMN,PROCOPT=GOP

PCB TYPE=GSAM,DBDNAME=GSM5600,PROCOPT=GS

PCB TYPE=GSAM,DBDNAME=GSM0901,PROCOPT=LS

PSBGEN PSBNAME=ES067,LANG=COBOL,CMPAT=YES
END

In Cobol pgm the call is like,

CALL 'CBLTDLI' USING WS30-GET-HOLD-UNIQUE
PCB-mask
seg-IO-AREA

END-CALL

this PCB mask is declared in the linkage section.
now how can i get , which of the above PCB's is refrenced in this call.

Devzee · Posted: Wed May 30, 2007 6:20 pm

In linkage you have 4 PCB-MASK right? then relate as below and identify which one is being used in CBLTDLI call.
PCB1 = DB09138
PCB2 = DB0724
PCB3 = GSM5600
PCB4 = GSM0901

rajat_gupta · New User Joined: 05 Apr 2007 Posts: 15 Location: india

Thanks Devzee
Now I understood
Actually in my linkage section there was only 1 PCB-MASK defined, as the PSB was earlier containing only 1 PCB.
Thats why I was confused, now I need to add three more PCB-MASKS.right?

Devzee · Posted: Wed May 30, 2007 7:00 pm

If the PSB was changed then you got to make changes in Linkage to include all related PCB masks.

IQofaGerbil · Posted: Wed May 30, 2007 8:45 pm

Lets hope thst whoever added the new PCBs in the PSB appended them after the first one.
Otherwise you might be referencing the wrong one!
Worth a quick check just to be sure?

Bitneuker · Posted: Thu May 31, 2007 2:10 am

In addition to what Devzee wrote: your PSB might have more PCB's now than before. However, if your program doesn't use any of the complementary PCB''s you don't have to define them in your program. But whenever you refer in a DLI-call to any of those additional PCB's you will have a problem. I know sites where a standard PSB containing all PCB's are used in all applications; even senseg/senfield are omitted

rajat_gupta · New User Joined: 05 Apr 2007 Posts: 15 Location: india

Thanks a lot Bitneuker,IQofaGerbil and Devzee for your Input.I appreciate your help.