Function Convert_Excel_Export_Paths(Void)

$Insert LOGICAL
$insert EXPORTS_EQU

Declare function    Database_Services, Error_Services, SRP_Path
Declare subroutine  Database_Services, Error_Services, SRP_Path

hExports    = Database_Services('GetTableHandle', 'EXPORTS')
@DICT       = Database_Services('GetTableHandle', 'DICT.EXPORTS')

Select hExports
EOF = False$
Loop
    Readnext @ID else EOF = True$
Until EOF EQ True$
    @RECORD                 = Database_Services('ReadDataRow', 'EXPORTS', @ID)
    Path                    = @RECORD<EXPORTS_PATH$>
    NewPath                 = {NEW_PATH}
    @RECORD<EXPORTS_PATH$>  = NewPath
*    Database_Services('WriteDataRow', 'EXPORTS', @ID, @RECORD, True$, '', True$)
    If Error_Services('HasError') then
        Error_Services('DisplayError')
    end
Repeat

Return ''
