Joined: 12 Feb 2009 Posts: 33 Location: Chennai, India
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.
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.
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.