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 INVALID FIELD OR CONSTANT IN SORTOF ?? Ron Klop DFSORT/ICETOOL 8 Wed Jan 11, 2017 3:44 pm
No new posts SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am
No new posts Performing arithmetic on input field zh_lad DFSORT/ICETOOL 31 Tue Dec 06, 2016 8:04 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts Updating Cursor row withour using FOR... chandan.inst DB2 15 Tue Nov 08, 2016 11:17 am


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