Conference iosg::all-in-1_v30

1905.0. "MAKE_FILE_NAME ???" by AIMTEC::BUTLER_T () Fri Dec 04 1992 22:07

Below is a customer problem sent to me.  I have tried to duplicate
    the results to no avail.  Any help, comments, ideas appreciated.
    
    Thanks,
    
    Tim
    ********************************************************************
HI,

I HAVE THIS VERY STRANGE PROBLEM.  IN MY APPLICATION, THE USER HAS THE
ABILITY TO ENTER COMMENTS IN WORD PROCESSING.  THE FILENAME IS SAVED IN THE
DATASET AND THE FILE IS STORED IN A DIRECTORY.  THE FILENAME IS CREATED FROM
THE 2 KEY FIELDS OF THE ENTRY FORM.  NOW, FOR SOME WEIRD REASON, THERE IS A
PARTICULAR SEQUENCE OF CHARACTERS IN THE KEY FIELDS WHICH CAUSE ALL-IN-1 NOT
TO USE THEM, BUT TO INSTEAD CREATE A FILENAME.  I HAVE INCLUDED THE TRACE
FROM WHEN I RAN THIS TWICE, THE FIRST TIME IT DID NOT USE THE KEYS, THE
SECOND TIME IT DID.  FROM THE TRACE IT SEEMS TO DO THE SAME THING BOTH
TIMES...

I AM ALSO ENCLOSING THE PART OF MY SCRIPT THAT DOES THIS, ALTHOUGH YOU
PROBABLY DON'T REALLY NEED IT SINCE THE TRACE IS INCLUDED.  I'VE DONE
EVERYTHING I CAN THINK OF.  I'VE VERIFIED THE FILE DOES NOT ALREADY EXIST,
THE LOGICAL NAME IS FOUND CORRECTLY, ETC.  BUT, IT SEEMS THAT NO MATTER WHAT,
WHEN I ENTER SSN OF 115404203 AND DATE OF 121992, IT DOES NOT CREATE THE FILE
WITH THOSE VALUES.

!!!THE SCRIPT...

!SET UP THE FILE STUFF FOR STORING INTO THE ACCOMP_FILENAME FIELD.  WE STORE
!THIS WHETHER OR NOT THE FILE IS ACTUALLY CREATED/EDITED.

        GET #FILE = MONTHLY_DATE_REV SSN
        MAKE_F #F,#FILE,".TXT"
        GET #F="POLICE$TIME_SM_OFF:" #F


!!!THE TRACE...

5442     ! [SCP/TRACE] GET #FILE = MONTHLY_DATE_REV SSN <<
POLICE$TIME:ACCOMP_CREATE 0044
5442     ! %OA-I-LOGFUN, FUNCTION: GET             #FILE = MONTHLY_DATE_REV SSN
5442     ! OA$FLD_RTN: RETURN FIELD-CONTENTS
5443       ! OA$FMS_RTN: RETURNED "199212" FROM FIELD "MONTHLY_DATE_REV" (2)
ON PAGE 1
5443     ! OA$FLD_RTN: RETURN FIELD-CONTENTS
5443       ! OA$FMS_RTN: RETURNED "115404203" FROM FIELD "SSN" (0) ON PAGE 1
5443     ! GET SYMBOL: #FILE = MONTHLY_DATE_REV SSN
5443     !      VALUE: 199212115404203
5444     ! TEXT DSAB NAME: TXT$TXL_DO                      REQUESTS : GET_NEXT
5444     ! [SCP/TRACE] MAKE_F #F,#FILE,".TXT" << POLICE$TIME:ACCOMP_CREATE 0045
5445     ! %OA-I-LOGFUN, FUNCTION: MAKE_F          #F,#FILE,".TXT"
5445     ! GET SYMBOL: #FILE
5445     !      VALUE: 199212115404203
5445     ! GET SYMBOL: ".TXT"
5445     !      VALUE: .TXT
5449     ! TEXT DSAB NAME: TXT$TXL_DO                      REQUESTS : GET_NEXT
5449     ! [SCP/TRACE] GET #F="POLICE$TIME_SM_OFF:" #F <<
POLICE$TIME:ACCOMP_CREATE 0046
5449     ! %OA-I-LOGFUN, FUNCTION: GET             #F="POLICE$TIME_SM_OFF:" #F
5449     ! GET SYMBOL: #F="POLICE$TIME_SM_OFF:" #F
5449     !      VALUE: POLICE$TIME_SM_OFF:ZULCKK0NA.TXT
5449     ! TEXT DSAB NAME: TXT$TXL_DO                      REQUESTS : GET_NEXT
... AND THE SECOND TIME, NOT MAKING ANY PROGRAM OR FILE CHANGES
5811     ! [SCP/TRACE] GET #FILE = MONTHLY_DATE_REV SSN <<
POLICE$TIME:ACCOMP_CREATE 0044
5811     ! %OA-I-LOGFUN, FUNCTION: GET             #FILE = MONTHLY_DATE_REV SSN
5812     ! OA$FLD_RTN: RETURN FIELD-CONTENTS
5812       ! OA$FMS_RTN: RETURNED "199303" FROM FIELD "MONTHLY_DATE_REV" (2)
ON PAGE 1
5812     ! OA$FLD_RTN: RETURN FIELD-CONTENTS
5812       ! OA$FMS_RTN: RETURNED "115404203" FROM FIELD "SSN" (0) ON PAGE 1
5812     ! GET SYMBOL: #FILE = MONTHLY_DATE_REV SSN
5812     !      VALUE: 199303115404203
5812     ! TEXT DSAB NAME: TXT$TXL_DO                      REQUESTS : GET_NEXT
5812     ! [SCP/TRACE] MAKE_F #F,#FILE,".TXT" << POLICE$TIME:ACCOMP_CREATE 0045
5813     ! %OA-I-LOGFUN, FUNCTION: MAKE_F          #F,#FILE,".TXT"
5813     ! GET SYMBOL: #FILE
5813     !      VALUE: 199303115404203
5813     ! GET SYMBOL: ".TXT"
5813     !      VALUE: .TXT
5814     ! TEXT DSAB NAME: TXT$TXL_DO                      REQUESTS : GET_NEXT
5814     ! [SCP/TRACE] GET #F="POLICE$TIME_SM_OFF:" #F <<
POLICE$TIME:ACCOMP_CREATE 0046
5814     ! %OA-I-LOGFUN, FUNCTION: GET             #F="POLICE$TIME_SM_OFF:" #F
5814     ! GET SYMBOL: #F="POLICE$TIME_SM_OFF:" #F                      
5814     !      VALUE: POLICE$TIME_SM_OFF:199303115404203.TXT
5814     ! TEXT DSAB NAME: TXT$TXL_DO                      REQUESTS : GET_NEXT


THANKS...MARY LONG

    Though the customer says the file does not alread exist can we believe
    her!? When the make_file function is called it checks whether the file
    already exists, but there is a coding error in the sample so that it will
    check in the current default directory rather than the intended
    location. 
    
    Try changing the 3 lines to:
    
        GET #FILE = MONTHLY_DATE_REV SSN
        MAKE_F #F, #FILE, "POLICE$TIME_SM_OFF:.TXT"
    
    Cheers
    
    Stuart

    Thanks,
    
    In other words the filename could exist in her default directory,
    not the one given by the the last symbol assignment.
    
    Now I think, I understand the write-up for basis-sym in the manual.
    
    Tim

    
    Tim,
    
    If these are temporary files only, would MAKE_FILE_NAME/NOCHECK help?
    
    Ciao,
    
    	Simon

    Simon,
    
    I think you are right about that,  and I think Scott is right about
    the file in the default directory.
    
    I also think the customer may be in Nevada with the rest of the lot.
    Hopefully, she is bugging Tony, Iain, and Sam and that lot right now.
    
    
    Tim