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
 

 

Cursor Moving to a protected Field after Entering Values to

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
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    Post subject: Cursor Moving to a protected Field after Entering Values to
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: 2502
Location: Atlanta, Georgia, USA

PostPosted: Wed Dec 15, 2010 1:57 am    Post subject: Reply to: Cursor Moving to a protected Field after Entering
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    Post subject:
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: 2502
Location: Atlanta, Georgia, USA

PostPosted: Wed Dec 15, 2010 7:28 pm    Post subject: Reply to: Cursor Moving to a protected Field after Entering
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    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts BI,TO=ZD Changing Values Tyler Dunbar DFSORT/ICETOOL 4 Tue Jul 25, 2017 12:12 am
No new posts Sorting of hex values Saurabh_mi DFSORT/ICETOOL 11 Thu May 25, 2017 3:49 pm
No new posts Testing rerad cursor for status with ... John F Dutcher DB2 8 Fri May 19, 2017 9:35 pm
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm


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