Platform

x64, Win32

Purpose

To get the fully qualified pathname.

Syntax

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

Description

GET_PATH@ returns the pathname of the file with system identifier SID. 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',SID,ERROR_CODE)
CALL DOSERR@(ERROR_CODE)
CALL GET_PATH@(SID,FULL_PATH,ERROR_CODE)
CALL DOSERR@(ERROR_CODE)
PRINT *,FULL_PATH. . .