I use these items in the VOC and the one subroutine for use with any DIR
type file under the current account (_HOLD_, _PH_, _BP_, etc):
< 1 > Top of "OS.DATE" in "VOC", 6 lines, 90 characters.
001: IReturn Operating System date on the file
002: SUBR("GET.OS.INFO",@ID,'D')
003: D4
004: OS Date
005: 11R
006: S
< 2 > Top of "OS.TIME" in "VOC", 6 lines, 87 characters.
001: IReturn Operating System time on the file
002: SUBR("GET.OS.INFO",@ID,'T')
003: MTS
004: OS Time
005: 8R
006: S
< 3 > Top of "OS.INFO" in "VOC", 6 lines, 75 characters.
001: IReturn Operating System Info
002: SUBR("GET.OS.INFO",@ID,'')
003:
004: OS Info
005: 21L
006: S
001: SUBROUTINE GET.OS.INFO(RTN.INFO,CURRENT.ID,TYPE)
002: *
003: CMND = @COMMAND
004: PLATFORM = OCONV(SYSTEM(33),'MCU')
005: IF PLATFORM = "UNIX" THEN DELIM = "/" ELSE DELIM = "\"
006: FN = FIELD(CMND,' ',2):DELIM:CURRENT.ID
007: BEGIN CASE
008: CASE TYPE = 'S'
009: RTN.INFO = DIR(FN)<1>
010: CASE TYPE = 'D'
011: RTN.INFO = DIR(FN)<2>
012: CASE TYPE = 'T'
013: RTN.INFO = DIR(FN)<3>
014: CASE TYPE = 'P'
015: RTN.INFO = DIR(FN)<4>
016: CASE 1
017: TEMP = DIR(FN)
018: RTN.INFO = OCONV(TEMP<2>,'D4'):" ":OCONV(TEMP<3>,'MTS')
019: END CASE
020: RETURN
Hth
Colin Alfke
-----Original Message-----
From: Al DeWitt [mailto:[EMAIL PROTECTED]
Sent: Monday, August 23, 2004 3:09 PM
To: [EMAIL PROTECTED]
Subject: [U2] DIR Function
Awhile back I requested information about finding the Date Modified of a
W2K UniData file. Folks responded to use the DIR command. It worked
great except it won't work for files in the _HOLD_ folder. I'm thinking
that the reason this is the case is because UniData sees the files in
_HOLD_ as records, not files. Am I correct? If so, is there no way
find out the Date Modified of a file in the _HOLD_ folder?
Al DeWitt
Stylmark, Inc.
763-574-8705
[EMAIL PROTECTED]
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
