Text 81, 81 rader
Skriven 2005-10-16 17:47:00 av Gero Dirk Lachner (2:2448/200)
     Kommentar till en text av Alle
Ärende: Regina ? .CMD
=====================
Hallo zusammen,

I have the rexx-prg NodeDate.CMD running under OS/2, so I read out of the
Nodelists the date
(from the first line) and set it as correct filedate for the Nodelist-file.

Under Windows XP Home I have installed REGINA 3.3 for the Extensions (.REXX,
.REX, .RE und .CMD). But if I start the NodeDate.CMD, it does not work - all
lines will work like in a normal Batch. And that cannot be.

If I start the NodeDate.CMD as NodeDate.REXX, than under Windows XP Home it
works till the line "result=...".
Why not with the NodeDate.CMD ?

What under Windows XP Home not works is the following line:
-> result = SysSetFileDateTime(Nodeliste , Datum)
although this "SysSetFileDateTime" stands inside the REXXUTIL.DLL .
Where is the Problem ?


NodeDate.CMD / NodeDate.REXX
>---------Gero's Schnipp ON-------------------------------------------
/*
;A FidoNet Nodelist for Monday, January 2, 1998 -- Day number 002 : 20470
*/

/* Initialize RexxUtil */
if RxFuncQuery( "SysLoadFuncs" ) <> 0 then do
    call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
    call SysLoadFuncs
end


parse arg Nodeliste

line = LINEIN(Nodeliste,,1)

Datum00Pos = LASTPOS(", ",line,)
Datum01Pos = LASTPOS(", ",line,Datum00Pos)
Datum02Pos = LASTPOS(" -- ",line,)
Datum = SUBSTR(line,Datum01Pos + 2,Datum02Pos-Datum01Pos-2)

Tag01Pos = LASTPOS(", ",Datum,)
Tag02Pos = LASTPOS(" ",Datum,Tag01Pos)

Tag = SUBSTR(Datum,Tag02Pos+1, Tag01Pos-Tag02Pos - 1)

Monat = SUBSTR(Datum,1,Tag02Pos - 1)

Jahr = RIGHT(Datum,4)


if Monat = 'January' then Monat = 1
if Monat = 'February' then Monat = 2
if Monat = 'March' then Monat = 3
if Monat = 'April' then Monat = 4
if Monat = 'May' then Monat = 5
if Monat = 'June' then Monat = 6
if Monat = 'July' then Monat = 7
if Monat = 'August' then Monat = 8
if Monat = 'September' then Monat = 9
if Monat = 'October' then Monat = 10
if Monat = 'November' then Monat = 11
if Monat = 'December' then Monat = 12

Datum = Jahr'-'Monat'-'Tag

zzz = stream(Nodeliste,'c','close')

result = SysSetFileDateTime(Nodeliste , Datum)
if result = 0 then SAY 'OKAY'
if result <> 0 then SAY 'ERROR'

EXIT
>---------Gero's Schnipp OFF------------------------------------------


Gruss, Gero

--- GoldED+/EMX 1.1.5-31012
 * Origin: Tagline stolen and added to my collection. (2:2448/200)