Following a tip from Eric, I find this is very easy to do. To cause
each user request to LISTSERV "TELL LISTSERV GET fileid", you need do
only the following:
1. LSVPUT GETLOG EXEC (PUTC where GETLOG EXEC is the following:
/* This File access validation exit logs user GET requests. */
ADDRESS COMMAND
ARG , req origin filelist . "*" fn ft .
IF req ^= "GET1" THEN EXIT 0
entry = DATE("U") TIME() LEFT(filelist,8) LEFT(fn,8) LEFT(ft,8) origin
"EXECIO 1 DISKW" fn "GETLOG A1 0 (VAR ENTRY FINIS"
EXIT 0