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
 
Non Editable Field in CICS Map

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
muthuvel

Active User


Joined: 29 Nov 2005
Posts: 217
Location: Chennai

PostPosted: Wed Feb 11, 2009 10:43 am    Post subject: Non Editable Field in CICS Map
Reply with quote

how to protect a field from being edited in a CICS screen using BMS macro and using it only for display purpose.
For example in the screen when i type the Employee ID ,Employee Name should be displayed and initially also Employee Name Should be a non-editable(display only ) field?
I gave the below mentioned macro code but it is not working.It allows employee name to be edited.

Code:
        DFHMDF POS=(05,02),               
               LENGTH=16,                 
               ATTRB=(ASKIP,PROT),       
               INITIAL='EMPLOYE NAME   :'
EMPNM DFHMDF POS=(05,19),               
               LENGTH=12,                 
               ATTRB=(ASKIP,PROT)

Please advise.
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 Feb 11, 2009 7:14 pm    Post subject: Re: Non Editable Field in CICS Map
Reply with quote

Change (ASKIP.PROT) to (ASKIP,NORM) or (ASKIP,BRT) and all will be forgiven.

Note that (ASKIP.PROT) is a contradiction of terms.
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Wed Feb 11, 2009 9:05 pm    Post subject:
Reply with quote

don't forget to perform CEMT newcopy on the map after you
reassemble
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 FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts Remove leading spaces from numeric field rexx77 SYNCSORT 6 Wed Sep 06, 2017 2:15 am
No new posts JES2 job size field matching Windows ... SRICOBSAS All Other Mainframe Topics 4 Tue Sep 05, 2017 5:49 pm
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm
No new posts Need to track the CICS transaction fr... sam8051 CICS 3 Mon Aug 07, 2017 3:11 pm

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