Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 2504
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: 2504
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 Update table without cursor Ron Klop DB2 3 Wed Oct 11, 2017 1:06 pm
No new posts Extend the decimal values in DIVISION Balaryan DFSORT/ICETOOL 3 Thu Oct 05, 2017 4:05 pm
No new posts sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts Moving UDB database to Db2 on z/OS Keith Hooley DB2 4 Wed Sep 27, 2017 12:38 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us