Pues creo que no puede ser el nombre solo y la librería, la necesitas, porque es a la que "llama" el GetFileName, en cuanto a lo otro, con una simple rutina puedes hacerlo
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WTEX.
03 WT PIC X OCCURS 255.
01 I PIC 999 VALUE 255.
01 I1 PIC 999 VALUE 0.
01 ReturnValue PIC S9(9) COMP-5.
PROCEDURE DIVISION.
INITIALIZE WTEX.
INVOKE POW-SELF "GetFileName"
USING WTEX
"Seleccione Imágen ..."
"Imágen JPG|*.jpg|Imágen BMP|*.bmp"
POW-CDOPEN
RETURNING ReturnValue
END-INVOKE.
IF ReturnValue = POW-TRUE
MOVE WTEX TO "ImageName" OF IMAGEN
MOVE POW-FALSE TO "Resource" OF IMAGEN
INVOKE IMAGEN "Refresh"
END-IF.
PERFORM VARYING I FROM 255 BY -1
UNTIL WT (I) = "\" OR I = 0
CONTINUE
END-PERFORM.
COMPUE I1 = FUNCTION STORED-CHAR-LENGTH (WTEX).
MOVE WTEX (I:I1) TO ...
Un saludo