Silverfrost Logo About Us | Contact Us
 

GET_PATH@

Platform

x64, Win32

Purpose

To get the fully qualified pathname.

Syntax

SUBROUTINE GET_PATH@(HANDLE,RESULT,ERROR_CODE)
CHARACTER (LEN=*) RESULT
INTEGER (KIND=2) HANDLE,ERROR_CODE

Description

GET_PATH@ returns the pathname of the file open on file handle HANDLE. This works regardless of whether a local or global name was used when the file was originally opened. ERROR_CODE is returned as zero for success or it is returned as a system error code.

Example

CHARACTER (LEN=100)::FULL_PATH
CALL OPENR@('MYDATA',HANDLE,ERROR_CODE)
CALL DOSERR@(ERROR_CODE)
CALL GET_PATH@(HANDLE,FULL_PATH,ERROR_CODE)
CALL DOSERR@(ERROR_CODE)
PRINT *,FULL_PATH. . .

 

 

Copyright © 1999-2017 Silverfrost Limited