Skip Navigational Links
LISTSERV email list manager
LISTSERV - COMMUNITY.EMAILOGY.COM
LISTSERV Menu
Log In
Log In
LISTSERV 17.5 Help - LSTSRV-L Archives
LISTSERV Archives
LISTSERV Archives
Search Archives
Search Archives
Register
Register
Log In
Log In

LSTSRV-L Archives

LISTSERV Site Administrators' Forum

LSTSRV-L

Menu
LISTSERV Archives LISTSERV Archives
LSTSRV-L Home LSTSRV-L Home

Log In Log In
Register Register

Subscribe or Unsubscribe Subscribe or Unsubscribe

Search Archives Search Archives
Options: Use Forum View

Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Ross Patterson <A024012@RUTVM1>
Reply To:
The Revised LISTSERV Distribution List <LSTSRV-L@DEARN>
Date:
Mon, 12 Oct 87 09:32:41 EDT
Content-Type:
text/plain
Parts/Attachments:
text/plain (22 lines)
It shouldn't be hard to parse out the Date: line in a Rexx exec, and
you already have the "set the date and time" program - LSVSDATE, shipped
as part of LISTSERV. Syntax is "LSVSDATE <fn> <ft> <fm> <yymmdd> <hhmmss>".
Yes, that's "yymmdd", not "mmddyy". Remember, Eric lives in France ;-)
Try something like:
 
/* FIXDATE EXEC - syntax: FIXDATE <fn> <ft> <fm> */
Arg FN FT FM .;
'EXECIO * DISKR' FN FT FM '(STEM L.';
Do I = 1 to L.0;
   Parse upper var L.I Resent? 'DATE:' Day ',' DD Month YY HH ':' MM ':' SS .;
   If L.I = '' then Leave;
   If Resent? ^= '' & Resent ^= 'RESENT-' then Iterate;
   MM = Find(Mon,'JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC');
   If MM = 0 then Leave;
   'LSVSDATE' FN FT FM YY || MM || DD HH || MM || SS;
   If RC ^= 0 then Say 'Error(' || RC || ') from LSVSDATE';
   Exit RC;
End;
Say 'Couldn't find Date: or Resent-Date: in headers of' FN FT FM;
Exit 100;

ATOM RSS1 RSS2

COMMUNITY.EMAILOGY.COM CataList Email List Search Powered by LISTSERV