NOINPUT FIELD TO INPUTABLE FIELD

Dear All,
Am not getting to reset the noinput field to inputable field.
"If Filed1 eq "yes" then make Field2 as noinput field"
or
"if the Field1 ne "yes" then Filed2 as inputable field"
for this i used this syntax:-"T.LOCREF<LOC.REF.POS,7> = 'NOINPUT'" else "T.LOCREF<LOC.REF.POS,7> = ''"

Dear Andreas,

Actually i called that routine like this
CALL F.READ(FN.ACC,Y.ACC.ID,R.ACC,F.ACC,ACC.ERR)
Y.PR.STATUS=R.ACC<AC.LOCAL.REF,Y.PRM.ACC>
IF Y.PR.STATUS NE "NO" THEN
T.LOCREF<Y.LNK.PR,7>='NOINPUT'
END ELSE
CALL REBUILD.SCREEN
END
RETURN
END


But its not working...
will u help me on this...

hi facing problem to attach my doc to show actually what sort of problem am facing... will u guide me to attach the doc in forum...

Hi,
Its not showing anything and even it wont take for the add file itself.. how can it be...

Hi,
Now i attached the doc files regarding am facing the problem regarding my topic.
will please sort out the solution for this query...

this the remaining snapshots of that...

Actually i got for that,but it has to check the local Field2 has noinput field or not. If it is noinput field then it dont want to thrown an error as Primary account customer and the Secondary account customer are different. if it is an input able field it has to check for that the bot the customer of that account are same or not.... for this i wrote an routine like this...


INIT:
FN.ACC='F.ACCOUNT' ; F.ACC=''
Y.ACC.ID=ID.NEW ; Y.APP='ACCOUNT'
Y.FIELD='LR.LNK.PR' ; Y.POS=''
RETURN
OPENFILE:
CALL OPF(FN.ACC,F.ACC)
CALL GET.LOC.REF(Y.APP,Y.FIELD,Y.POS)
Y.LNK.PR=Y.POS<1,1>
RETURN
PROCESS:
SEL.CMD="SELECT ":FN.ACC
CALL EB.READLIST(SEL.CMD,SEL.LIST,'',NO.OF.REC,RECT.CODE)
LOOP
REMOVE Y.ACC.ID FROM SEL.LIST SETTING Y.POS
WHILE Y.ACC.ID:Y.POS
CALL F.READ(FN.ACC,Y.ACC.ID,R.ACC,F.ACC,ACC.ERR)
LR.LNK.PR=R.ACC<AC.LOCAL.REF,Y.LNK.PR>
Y.PRIM.CUS=R.NEW(AC.CUSTOMER)
Y.SEC.CUS=R.ACC<AC.CUSTOMER>
!
CALL EB.LOCREF.SETUP('ACCOUNT',LR.LNK.PR)
IF LR.LNK.PR<1,7> NE 'NOINPUT' THEN
END ELSE
IF Y.PRIM.CUS NE Y.SEC.CUS THEN
ETEXT="EB-PRIM.SEC.ACC.CHK.RII"
CALL STORE.END.ERROR
END
END
REPEAT
RETURN
END


..... its not working as per the requirement....
kindly reply for this with suggestion...

Hi, JPB

I solved some sort of the problem on the topic, but still struggling to get 100%...

this the routine i recreated for the version,

Y.PRIM.STATUS=R.NEW(AC.LOCAL.REF)<1,Y.PRIM.ACC>
Y.LNK.STATUS=R.NEW(AC.LOCAL.REF)<1,Y.LNK.PR>
Y.ACC.ID=R.NEW(AC.LOCAL.REF)<1,Y.LNK.PR>
CALL F.READ(FN.ACCOUNT,Y.ACC.ID,R.ACCOUNT,F.ACCOUNT,ACC.ERR)
Y.PRIM.CUS=R.ACCOUNT<AC.CUSTOMER>
Y.SEC.CUS=R.NEW(AC.CUSTOMER)
IF Y.LNK.STATUS EQ 'NOINPUT' THEN
RETURN
END
IF Y.PRIM.STATUS EQ 'YES' THEN
RETURN
END ELSE
IF Y.LNK.PR EQ '' THEN
E='LR.LNK.PR FIELD MUST HAVE VALUE'
END ELSE
IF Y.PRIM.CUS NE Y.SEC.CUS THEN
ETEXT="EB-PRIM.SEC.ACC.CHK.RII"
CALL STORE.END.ERROR
END
END
END
RETURN
END



in the above rouitne it checks the status of the both local field,
if the local field1 status becomes "yes" the transaction will complete and even the local field1 status become "no" and if we wont entered in the field2 it throwing error, but if i entered the value related to same customer also it throws an error as customer are different...
what shall i do for this....