>I have a VPLUS screen (ASRC3) on which fields C and D can have a value
>entered; in which case they should be automatically zero filled, right
>justified and in
>the range 000.0 to 300.0. (C and D are defined as length=5 and type=num1).
 
>If C and/or D are blank I want them to be set to 050.0 if field A
>(occurring before them on ASRC3) is = P other wise I want to set the
>field(s) to 100.0.
 
 {DEL}
 
>Any help would be greatly appreciated.
 
 
>Thanks Romilla
 
I tried the following and it seems to work, assuming the field is set up as
'Process' type.
 
                      *** Processing Specifications ***
IF EQ $EMPTY THEN
  IF A EQ "P" THEN
     SET TO 050.0
  ELSE
     SET TO 100.0
 
IF NE $EMPTY THEN
  SET TO C
  FILL LEADING "0"
  IN 000.0:300.0  "OUT OF RANGE ERROR"
 
Regards
 
Paul H. Christidis