C$GETLASTFILEOP

The C$GELASTFILEOP library routine returns the name of the last i-o operation.

Syntax:

CALL "C$GETLASTFILEOP" USING fileOp

Parameters:

fileOp

PIC X(n)

Receives the operation name. Possible values are: "Close" "Delete" "DeleteFile" "DeleteRandom" "Open" "ReadNext" "ReadPrevious" "ReadRandom" "Rewrite" "RewriteRandom" "Start" "Unlock" "Write" "WriteRandom"

Examples:

Example - Get the filename and path of the last file used on a I/O stmt along with the last I/O file operation

*> define fileName, filePath and fileOp as pic x(n) display-io-error.    ...    call "c$getlastfilename" using fileName filePath    call "c$getlastfileop"   using fileOp    *> assuming the file error code was already moved to a general variable    display message "Error code    : " fs-code   x"0d0a"                    "I/O Operation : " fileOp    x"0d0a"                    "On file       : " fileName  x"0d0a"                    "File path     : " filePath.