Conference ilbbak::ibi_focus

315.0. "Blank field not validated" by BUZON::REPDIS () Mon Feb 19 1990 14:48

    I lookup the pages that you stated I created this fex but it doesn't
    work. Can you check to see what is it that I am doing wrong? Because
    the validate should be for an alpha field not numeric.
    
    Here I am saying to prompt me the first field, if first field is blank
    then give me the first field prompt again. If first field is okay
    then give me the second field. If field this blank reprompt me the
    second field, if okay then update all fields.
    
MODIFY FILE TEST_REP 
PROMPT FIRST_FIELD 
VALIDATE
FIRTEST/A30 = IF FIRST_FIELD IS MISSING THEN GOTO FIRST_FIELD_RETRY 
              ELSE GOTO SECOND_FIELD_RETRY;  
    
PROMPT SECOND_FIELD
VALIDATE        
SECTEST/A25 = IF SECOND_FIELD IS MISSING THEN GOTO SECOND_FIELD_RETRY 
              ELSE GOTO UPDATE_ALL_FIELDS;

CASE FIRST_FIELD_RETRY
PROMPT FIRST_FIELD
MATCH FIRST_FIELD
ON MATCH CONTINUE
ON NOMATCH INCLUDE
ENDCASE

CASE SECOND_FIELD_RETRY
PROMPT SECOND_FIELD
MATCH SECOND_FIELD
ON NOMATCH INCLUDE                       
ENDCASE
CASE UPDATE_ALL_FIELDS
MATCH FIRST_FIELD SECOND_FIELD        
ON MATCH UPDATE *
ENDCASE
DATA