Introduction

Language Structure

IB Statements

File System

Comet 32 Runtime

Index

(GetDirAlias)

Mnemonic: (GetDirAlias=alias,flags)
Discussion: This mnemonic returns the path name of a directory alias. Be aware that some versions of Comet include a null terminator at the end of the pathname followed by blanks for Comet Anywhere clients. The coding example below includes code to accommodate this inconsistency.

This mnemonic may be used by foreground programs only.

The alias is the "alias identifier" as specified in COSW (e.g., CATEMP).

Flags is decimal value from the following chart:

Flag Description
1 Perform function at CometAnywhere client system
2 Perform function at CometAnywhere host system.

If the program is connected to CometAnywhere client, there may be two sets of directory aliases of interest. The first set is relative to the CometAnywhere HOST and the second to the CometAnywhere CLIENT. The flag values specify which set of DirAliases to access.

After this mnemonic is issued, your program can issue an INPUT on LUN (0) to retrieve the path name and error information. For example: 

  Length 2 & Local ax$,dx$
  Length 254 & Local result$,alias$
  Length 5.0 & Local Flags,FuncError,FileError

  ResultFmt: Format ax$;dx$;result$
  .
  .
  Print (GetDirAlias=alias$,Flags)
  Input (0,ResultFmt)
The first field, AX$, contains the function error code, and the second field, DX$, contains the suberror code (aka the Windows file error code). Both of these fields are in Intel 2's complement format, and should be processed as follows: 
  FuncError = IHexDec(ax$)             ! Function error code (decimal)
  FileError = IHexDec(dx$)             ! File error code (decimal)

  ! For unexpected values, convert to 2's complement signed integer
  If (FuncError > 32767) FuncError = FuncError-65536
  If (FileError > 32767) FileError = FileError-65536
  result$ = strip(result$)
  If RSub(result$,1,1) = "@00@" result$ = RSub(result$,2,254)    ! Strip null terminator if there (before Build 392 only)
Here is a list of the function error codes in decimal form:

Error
(FuncError)		 Description
0 Function not supported
1 Success
2 CometAnywhere required
3 Source file error (see suberrors)
4 Aborted by user
5 Function in progress

Here is a list of the suberror codes (common Windows file errors) in decimal form:

Suberror
(FileError)		 Description
0 Success
2 File not found
3 Path not found
5 Access denied
12 Invalid access
15 Invalid drive
16 An error has occurred in the current directory
18 No more files
32 Sharing violation
33 Lock violation
80 File exists
161 Bad pathname

History: This mnemonic was added in Comet Build 299 and REL Version 01.07.
Trailing @00@ was removed in build 392.