DFHBMPRO not working for variables using subscript

Sreeya · New User Joined: 13 Mar 2009 Posts: 5 Location: Hyderabad

Hi,

I wrote code for F8 and F7 functionality. The MAP contains 15 occurences and has all fields as editable.

I have 20 records. So initially when i perform F8 the next page has 5 records all editable as expected but the lines from 6 to 15 are still EDITABLE even after handling the code for the same.

I have handled the part of that code in my program by moving DFHBMPRO in to the fields using the subscript (calculated using the PAGE COUNT and LAST ITEM).
ex: In this scenario it would be from ABC(6) to ABC(15)

Actually i have verified the specific para by mentioning the TRACEID, my code is entering the para but the fields are not becoming protected.

Appreciate your help

CICS Guy · Posted: Sat Apr 04, 2009 10:39 pm

From what you say, either you are not actually setting protect on or CICS's BMS is broken.
Have you CEDFed the transaction and hex looked at the map fields when you SEND it to confirm the attribute is what you think it should be?

dbzTHEdinosauer · Posted: Sat Apr 04, 2009 10:46 pm

are you moving spaces to the unused map lines?

Bill O'Boyle · Posted: Sat Apr 04, 2009 10:56 pm

Is there a genuine business need to use DFHBMPRO? I would think that DFHBMASK would be a better alternative as it employs AUTOSKIP, whereas, DFHBMPRO does not.

However, DFHBMPRO can be defined for the LAST non-keyable map-field attribute-byte (such as a right parenthesis or act as the last map-field stopper-byte), so that users (who only let their fingers do the walking) will hit this and prevent them from erroneously looping back to the first keyable (TOP) map-field in a wraparound fashion.

Regards,

Sreeya · New User Joined: 13 Mar 2009 Posts: 5 Location: Hyderabad

Yes I have done CEDF and its the correct attribute fields.

No I am not moving any spaces.

Yes Bill, I tried moving DFHBMPRF and DFHBMASK also but still its not working. I am wondering whether its issue with array?... coz in my program for individual variables i have used DFHBMPRF and it worked

Thanks for your response

-
Sreeya

Bill O'Boyle · Posted: Sun Apr 05, 2009 11:14 pm

I'm assuming that your BMS-Generated COBOL Map Layout is redefined in the program or are you using the generated OCCURS?

Are you positive that each OCCURS entry specifies the following (and in this order) -

01) Data-Length (Binary-Halfword) PIC S9(04) COMP
02) Attribute-Byte
03) Keyable Map-Data

Because it seems like there's a misalignment of data between the redefined map and the BMS map.

Look at the address-offsets in the program's data-map and ensure the redefined map fields match the generated map fields.

Regards,

Sreeya · New User Joined: 13 Mar 2009 Posts: 5 Location: Hyderabad

Hi Bill,

Yes I have redefined the MAP i.e symbolic map to 15 occurences.
This is how the map occurs looks.

Earl Haigh · Active User Joined: 25 Jul 2006 Posts: 475

Your Redefines does not look correct.

Please post a some of the BMS map copybook that you are
trying to use your own occurs definition with ?

Sreeya · New User Joined: 13 Mar 2009 Posts: 5 Location: Hyderabad

Earl,
Please find the BMSMAP, Actual Symbolic map and modified symbolic map for the fields LSTID and LSTNM

MAP:

Sreeya · New User Joined: 13 Mar 2009 Posts: 5 Location: Hyderabad

Earl,

You were right... actually there is issue with the symbolic map only.
I recompiled the MAP and again redifined the same for occurs and now its working.

I was not sure how the F7 and F8 was working for the same map earlier.

Regards,

Earl Haigh · Active User Joined: 25 Jul 2006 Posts: 475

Sreeya,