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
 

 

To make a field uneditable in MFS screen

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
Sathish Gurumoorthy

New User


Joined: 12 Feb 2009
Posts: 33
Location: Chennai, India

PostPosted: Tue Jun 23, 2009 11:25 am    Post subject: To make a field uneditable in MFS screen
Reply with quote

I have the below MFS screen.

Code:
 PRINT NOGEN                                                     
D EQU 'ATTR=NO'                                                   
M EQU 'ATTR=YES'                                                 
H EQU 'ATTR=(NUM,PROT,HI)'                                       
N EQU 'ATTR=NUM'                                                 
O EQU 'ATTR=(NUM,PROT)'                                           
Q EQU 'ATTR=(NUM,PROT,NODISP,MOD)'                               
S EQU 'ATTR=(NODISP,MOD)'                                         
T EQU 'ATTR=MOD'                                                 
CHADCT00 MSG TYPE=OUTPUT,SOR=(CHADC0,IGNORE),NXT=CHADCTI0         
 SEG                                                             
 MFLD FLD000,LTH=39,D                                             
 MFLD FLD001,LTH=23,D                                             
 MFLD FLD002,LTH=23,D                                             
 MFLD FLD003,LTH=03,M                                             
 MFLD FLD004,LTH=06,M                                             
 MFLD FLD005,LTH=78,D                                             
 MSGEND                                                           
CHADCTI0 MSG TYPE=INPUT,SOR=(CHADC0,IGNORE),NXT=CHADCT00         
 SEG                                                                   
 MFLD (FLD000,' '),LTH=39,JUST=L,FILL=C' '                             
 MFLD (FLD001,' '),LTH=23,JUST=L,FILL=C' '                             
 MFLD (FLD002,' '),LTH=23,JUST=L,FILL=C' '                             
 MFLD (FLD003,' '),LTH=01,JUST=L,FILL=C' '                             
 MFLD (FLD004,' '),LTH=04,JUST=L,FILL=C' '                             
 MSGEND                                                                 
CHADC0 FMT                                                             
 DEV TYPE=(3270,2),FEAT=IGNORE,SYSMSG=SYSLN                             
 DIV TYPE=INOUT                                                         
 DPAGE CURSOR=((20,33))                                                 
FLD000 DFLD POS=(01,02),LTH=39,T                                       
FLD001 DFLD POS=(01,50),LTH=23,Q                                       
FLD002 DFLD POS=(02,27),LTH=23,Q                                       
       DFLD 'PROFITABILITY AD COST',                                   X
               POS=(07,26)                                             
       DFLD 'ALLOCATION INPUT DATA ENTRY SCREEN',                      X
               POS=(08,20)                                             
       DFLD 'TRANSACTION',                                             X
               POS=(11,10)                                             
       DFLD 'SELECTIONS         A  -  AD COST ADJUSTMENTS',            X
               POS=(12,10)                                             
       DFLD 'C  -  AD COST REBATES',                                   X
               POS=(13,29)                                             
       DFLD 'D  -  AD COST SUBDIVISION CHANGES',                       X
               POS=(14,29)                                             
       DFLD 'E  -  AD COST MEDIA MODELS',                              X
               POS=(15,29)                                             
       DFLD 'ENTER SELECTION   ===>',                                  X
               POS=(20,10)                                             
FLD003 DFLD POS=(20,33),LTH=01                                         
       DFLD 'PROCESSING MONTH  ===>',                                  X
               POS=(21,10)                                             
FLD004 DFLD POS=(21,33),LTH=04                                         
       DFLD '     (MMYY)',                                             X
               POS=(21,38)                                             
FLD005 DFLD POS=(23,02),LTH=78,H                                       
SYSLN DFLD POS=(24,02),LTH=79,O                                         
 FMTEND                                                                 
 END                                                                   


User enters the PROCESSING MONTH in MMYY format. Now i don't want the user to key in this field. I just want this field to be uneditable. Instead, i will proess this field in the Program by populating current month.
Please let me know how to make this field uneditable.
Back to top
View user's profile Send private message

dominickim

New User


Joined: 28 Feb 2007
Posts: 65
Location: NS, CA

PostPosted: Mon Jun 29, 2009 6:44 pm    Post subject:
Reply with quote

Change the attribute for field MLD004 in your MOD
"MFLD FLD004,LTH=06,M" to "MFLD FLD004,LTH=04,ATTR=(NUM,PROT,MOD)"

And delete attribute byte for field MLD004 in your output area in the program.
Back to top
View user's profile Send private message
Ajay Baghel

Active User


Joined: 25 Apr 2007
Posts: 205
Location: Bangalore

PostPosted: Mon Jun 29, 2009 8:34 pm    Post subject:
Reply with quote

Hi Dominic,

Should it not be changed on MID instead of MOD and why are you reducing 2 bytes?

Thanks,
Ajay
Back to top
View user's profile Send private message
dominickim

New User


Joined: 28 Feb 2007
Posts: 65
Location: NS, CA

PostPosted: Mon Jun 29, 2009 10:31 pm    Post subject:
Reply with quote

Hello Ajay,

MID has only data portion of it, MOD has both ATTR and data.
I suggested to reduce 2 bytes because it used use "ATTR=YES" and now trying to use static ATTR instead, which doesn't need extra 2 bytes.
Let me know if you have another opinion.
Back to top
View user's profile Send private message
dominickim

New User


Joined: 28 Feb 2007
Posts: 65
Location: NS, CA

PostPosted: Mon Jun 29, 2009 10:52 pm    Post subject: corrections
Reply with quote

Thanks Ajay to see this again and these are corrections:

Change the attribute for field MLD004 in your MOD and DIF/DOF
"MFLD FLD004,LTH=06,M" to "MFLD FLD004,LTH=04,D"
"FLD004 DFLD POS=(21,33),LTH=04" to "FLD004 DFLD POS=(21,33),LTH=04,ATTR=(NUM,PROT,MOD)"

And delete attribute byte for field MLD004 in your output area in the program.
Back to top
View user's profile Send private message
Ajay Baghel

Active User


Joined: 25 Apr 2007
Posts: 205
Location: Bangalore

PostPosted: Tue Jun 30, 2009 7:08 pm    Post subject:
Reply with quote

Thanks Dominic.
Back to top
View user's profile Send private message
dominickim

New User


Joined: 28 Feb 2007
Posts: 65
Location: NS, CA

PostPosted: Wed Jul 01, 2009 12:46 am    Post subject:
Reply with quote

You're welcome Ajay.
Wondering Sathish has resolved this or not.
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 -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Alter &DATENS field in HEADER1 Angad DFSORT/ICETOOL 4 Mon Apr 24, 2017 11:49 am
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts IMS DB-How to update a record (a sing... Nic Clouston IMS DB/DC 9 Thu Mar 09, 2017 4:38 pm
No new posts outrec field outside range Danielle.Filteau SYNCSORT 10 Sat Mar 04, 2017 2:37 am


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