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

Cursor Moving to a protected Field after Entering Values to


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
vina2010

New User


Joined: 06 Sep 2010
Posts: 19
Location: Bangalore

PostPosted: Wed Dec 15, 2010 12:55 am
Reply with quote

Hi

I have a map where there are two adjacent map fields with a unprotected followed by a protected one ( length 1 both).When I enter the value in unprotected field the cursor goes on to the adjacent protected field.Though it doesn't allow user to enter values since its protected but ideally it should move on to a next unprotected field.

Attributes of Protected Filed are PRotected NOrmal and Unprotected field is UNprotected NOrmal.

Surprisingly, this doesn't happen when the initial screen pops up, once you press an enter for some validation this problem occurs.

Can anyone please guide me to resolve this problem.Please let me know if I have to provide additional details.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA

PostPosted: Wed Dec 15, 2010 1:57 am
Reply with quote

Change ATTRB=(PROT,NORM) to ATTRB=(ASKIP,NORM) in your DFHMDF BMS Macro and all will be forgiven.... icon_wink.gif

Review IBM copybook DFHBMSCA for programmatic attribute-byte values, such as DFHBMASK (ASKIP,NORM).

Bill
Back to top
View user's profile Send private message
vina2010

New User


Joined: 06 Sep 2010
Posts: 19
Location: Bangalore

PostPosted: Wed Dec 15, 2010 12:58 pm
Reply with quote

HI Bill

I tried doing this but still not working.I am using SDF2 to generate the map/macro.

The BMS macro fields for the the two fields looks as below


* field1 field1
DFH0018 DFHMDF POS=(7,51),LENGTH=6,JUSTIFY=(LEFT,BLANK), *
INITIAL='______',ATTRB=(UNPROT,NORM,FSET)
* field2 field2
DFH0019 DFHMDF POS=(7,58),LENGTH=1,JUSTIFY=(LEFT,BLANK),INITIAL='_', *
ATTRB=(ASKIP,NORM),PICOUT='*(0001)'
DFHMDF POS=(7,60),LENGTH=1,ATTRB=(PROT,NORM)

After looking into the above macro I am little shocked as I can see one more DFHMDF field at POS=(7,60) .I have checked my map again there is no other field after field2 for this line.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA

PostPosted: Wed Dec 15, 2010 7:28 pm
Reply with quote

You need to change -

Code:

DFHMDF POS=(7,60),LENGTH=1,ATTRB=(PROT,NORM)

to -

Code:

DFHMDF POS=(7,60),LENGTH=1,ATTRB=(ASKIP,NORM)

In your map definition, ensure that SDF2 recognizes POS=(7,60) as ASKIP instead of PROT. Apparently, it "thinks" it should be Protected.

Because there isn't a DFHMDF label for this map-field, the ATTRB value needs to be defined properly, unless you add a label, then the symbolic map-field attribute-byte can be changed programmatically to DFHBMASK (ASKIP,NORM).

Bill
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 -> CICS

 


Similar Topics
Topic Forum Replies
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts Null values are considered in Total c... DFSORT/ICETOOL 6
No new posts Join 2 files according to one key field. JCL & VSAM 3
No new posts How to move the first field of each r... DFSORT/ICETOOL 5
Search our Forums:

Back to Top