Conference ilbbak::ibi_focus

299.0. "Error in Key Deletion" by MOCA::JOHNSON () Wed Jan 10 1990 15:03

    Hi, it me again with another of those FOCUS problem but this time
    it is with missing value in the key field. If a error is made in a
    key field is there a way to correct or delete it. Because this is
    what is happening.
    Some error which user commits:
    
    REPORT_NAME: SGO_TEST
    FREQ: (leaving out the frequency) 
    USERNAME: LINDA JOHNSON
              
    or
    
    REPORT_NAME: (leaving out the report name)
    FREQ: D
    USERNAME: LINDA JOHNSON
    
    or
    
    REPORT_NAME: SGO_TEST
    FREQ:  (leaving out frequency and username)
    USERNAME:
    
    etc....
    
    Whenever information is left from these field it can't be called
    backed because the empty field is not recognized as a value. So
    these error stay on the database. User doesn't want this. How can
    FOCUS find these error, and then display them so that user can delete
    them. Here is a fex that I made to do this job but it doesn't work.
    
    Maybe you can tell me what's wrong.


    MODIFY FILE REPDIST
    CRTFORM
    " ********************************************************************** "
    " WHEN VALUE IN THE KEY FIELDS ARE MISSING (REPORT_NAME,FREQ,USERNAME)     "
    " ********************************************************************** "
    " "
    "            ENTER REPORT NAME: <T.REPORT_NAME>"
    "            ENTER FREQUENCY: <T.FREQ>"
    "            ENTER USERNAME: <T.USERNAME>"
    " "
    COMPUTE REPORT_NAME=REPORT_NAME;FREQ=FREQ; USERNAME=USERNAME;
    MATCH REPORT_NAME FREQ
    ON MATCH GOTO DETAIL
    CASE DETAIL
    CRTFORM LINE 1 CLEAR
    " ********************************************************************** "
    "                      THIS RECORD WILL BE DELETED        "
    " ********************************************************************** "
    " "
    "       REPORT: <D.REPORT_NAME  "
    "       FREQ: <D.FREQ        USER: <D.USERNAME"
    "       DESCRIPTION: <D.DESC"
    "       STEP: <D.STEP       PROCEDURE: <D.COM"
    "       DESTINATION: <D.DEST     QTY: <D.QTY"
    "       DEPARTMENT: <D.DEPT     COPIES : <D.QTY "
    "       CC: <D.CC  "
    "       RETENTION PERIOD: <D.RETENT_PER "
    "       RETENTION NUMBER <D.RETENT_NO"
    " "
    "        Are you sure?  Hit return to DELETE or PF3 to CANCEL"
    MATCH REPORT_NAME FREQ USERNAME
    ON MATCH DELETE
    ON NOMATCH REJECT
    ENDCASE 
    DATA
    
    Just in case you need to know Report_name and Freq are on the same
    segment (REPINFO) and Username is on another segment (USERINFO).
    
    Thanks

    Yes ofcause key fields should never be blank.   In the data entry
    modify
    procedure use the VALIDATE statement to prevent blank keys from 
    geting into your database.

    I don't really understand when you say to use the validate function
    to capture empty field. Can you give me an example of this.
    
    Thanks

    Refer to the manual starting on page 5-92. There are some good examples
    on page 5-98 and 5-99. 
    

    I am still having problem setting up fex to not accept blank fields
    what I have to do is set up fex that when a carriage return is given
    that it's not accepted. How can that be done? Can someone also check
    my notes 315 (blank field not validated). To see why it don't work.
    Your help is truly appreciated.
    
    Thanks Lj