wonder about message ne val

Dear all,

could you please help me, I wonder related with code in routine. I find this routine in version at validation. and I see code I found :

$INCLUDE GLOBUS.BP I_COMMON
$INCLUDE GLOBUS.BP I_EQUATE

$INCLUDE GLOBUS.BP I_F.FUNDS.TRANSFER
$INCLUDE GLOBUS.BP I_F.ACCOUNT
$INCLUDE GLOBUS.BP I_F.COMPANY
$INCLUDE GLOBUS.BP I_F.LIMIT


IF MESSAGE NE 'VAL' THEN
RETURN
END

GOSUB INITIALISE
GOSUB CHECK.ACCT.LIMIT.OD
GOSUB BLOCK.ACCT.OVRDRW

RETURN

*********
I do not understand :
IF MESSAGE NE 'VAL' THEN
RETURN
END
=> What does line do, pls explain me and some time I see MESSAGE EQ 'VAL' ?

Thanks

MESSAGE is a common variable that passes messages between pgms. it is often used to exit routines at field validation stage or Input stage.
For example, a validation routine is triggered at field input and again when user commits a record.
when its triggered at the commit stage the common variable MESSAGE is populated with VAL
so having the statement below at the beginning of your routine will prevent the logic from executing again.

IF MESSAGE EQ 'VAL' THEN RETURN

Risteard,

Can you pls give an example when MESSAGE EQ 'VAL' and MESSAGE NE 'VAL' is used in a validation routine? I guess validation routine gets triggered when a user validates the record, moves cursor away from the field(HOT.FIELD set) or commits the record. In which scenario the routine logic gets executed twice.

Regards,
Vignesh Gautam