Posted by Greg on May 25, 2005 at 07:00:27:
Why does the below code fail on 'C' type directories but not L, S or N types? It actually fails on the disk to disk rename and it loops forever. This was reported awhile back but still happens to us.
FILEIN$ = 'C1A'
FSTATUS$ = FSTAT(FILEIN$,EXCP=CEND)
IF SUB(FSTATUS$,12,3) NE "400"
RETRY122:
COSCTLTEXT$ = DSTAT("CL1") !!! UPDATE THE CLOCK FOR RANDOM NAME
FILEOUT$ = 'C1A'+SUB(TIME$,7,2)
RENAME FILEIN$,DIR=ZAPR$,FILEOUT$,DIR=ZAPR$, EXCP = RETRY122
CREATE FILEIN$,400,K,10,DIR=ZAPR$
CLOSE (30) & OPEN (30) FILEIN$
CLOSE (20) & OPEN (20) FILEOUT$, EXCP = RETRY122
ENDIF