It looks like !VOC.PATHNAME will work to return the fully qualified path
of two VOC F file pointer entries. Here's what I did:
>ED BOBW.BP TEST.VOC.PATH
8 lines long.
----: P
0001: CALL !VOC.PATHNAME("","TESTFILE",VOC.PATH,STATUS)
0002: IF STATUS = 0 THEN
0003: PRINT "TESTFILE PATH=":VOC.PATH
0004: END
0005: CALL !VOC.PATHNAME("","TESTFILE2",VOC.PATH2,STATUS)
0006: IF STATUS = 0 THEN
0007: PRINT "TESTFILE2 PATH = ":VOC.PATH2
0008: END
Bottom at line 8.
----: Q
>
>ED VOC TESTFILE TESTFILE2
SELECTed record name = "TESTFILE".
3 lines long.
----: P
0001: F
0002: TESTFILE
0003: D_TESTFILE
Bottom at line 3.
----: N
SELECTed record name = "TESTFILE2".
3 lines long.
----: P
0001: F
0002: ..\DEVACCT\TESTFILE
0003: ..\DEVACCT\D_TESTFILE
Bottom at line 3.
----: Q
>
03 RUN BOBW.BP TEST.VOC.PATH
PM PATH=D:/data/adv/data/DEVACCT/TESTFILE
PM2 PATH = D:/data/adv/data/DEVACCT/TESTFILE
>
In both cases, I got the full path returned. This is on a Windows 2003
system using Universe 10.1.18.
BobW
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
