Error on Specific Field

Hi all,
I have written input routine and attached in version. its generate Error message on first field i.e, FUND.ID but my requirement is to generate error on second last field i.e, PAYMENT.OPTION field. Kindly help me how can i do this

SUBROUTINE PK.V.VAL.SAVING.ORDER.CHK

$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.MF.ORDER
GOSUB INIT
GOSUB OPEN.FILES
GOSUB PROCESS
RETURN
INIT:
FN.MF.ORDER = "F.MF.ORDER"
F.MF.ORDER = ""
RETURN
OPEN.FILES:
CALL OPF(FN.MF.ORDER,F.MF.ORDER)
RETURN
PROCESS:
CALL GET.LOC.REF("MF.ORDER","PAYMENT.OPTION",Y.PAYMENT.OPTION.POS)
PAYMENT.OPTION = R.NEW(MF.ORD.LOCAL.REF)<1,Y.PAYMENT.OPTION.POS>
AGENT = R.NEW(MF.ORD.AGENT)
IF (AGENT EQ '100123') THEN
IF PAYMENT.OPTION EQ ' ' THEN
ETEXT = "Saving Plan Agent, must input values on PAYMENT.OPTION "
CALL STORE.END.ERROR
END
END
RETURN
END

Thank you. its working fine

Kindly explain the function of

AF = MF.ORD.LOCAL.REF
AV = Y.PAYMENT.OPTION.POS
AS = 0

if i want to generate error on Core field ORDER.AMOUNT so what function i should use.

Hi
easy:

AF = MF.ORD.ORDER.AMOUNT
AV = 1
AS = 1

With these 3 lines you set the position of field, value and subvalue where the error message should appear.

Thank you so much for your reply VK. its working fine.
But kindly explain me the function of AF, AV and AS.

Hi
It's in T24_BP, file I_RULES. not very explanatory, in brief: AF - current field number, AV - current value number, AS - current subvalue number. In your case you have to set these variables so your error would appear in the place where you wanted it to be.

* AF = (Attached) physical Field.no within a sequence
* Example: Field no.s are 1, 2, 3, 4, 5
* When record will be authorised and field no. 3 and
* 4 are empty and therefore not displayed
* A-sequence is 1, 2, 3 but
* AF-sequence is 1, 2, 5

* AV = multi Value field no.
* Example: Fields to be displayed are no.
* 1, 2, 3.1 (first subfield), 3.2 (2nd subfield), 5
* Values of A, AF, AV are
* within 1st line: A = 1, AF = 1; AV = ""
* within 2nd line: A = 2, AF = 2; AV = ""
* within 3rd line: A = 3, AF = 3; AV = 1
* within 4th line: A = 4, AF = 3; AV = 2
* within 5th line: A = 5, AF = 5; AV = ""
* (AS in this example always 0)
* = value number of R.VERSION(EB.VER.TEXT) for AF = '*'
* when Single mode

* AS = Sub value field no.
* Example: Field no. = 3.1.5 = Value
* AF = 3, AV = 1, AS = 5

Thanks alot VK.