PARM AXS_FSET="@"

# FILENAME: AXSDATE.XEQ - Joe Geiser
#
# DISPLAY FILENAME,LAST ACCESS DATE
# AND SECTORS ON 1 LINE FOR EASY REVIEW
# DO A "LISTF,3" TO GET FILENAMES IN AXS_FSET

FILE FLIST=FLIST;REC=-79,,F,ASCII;DEV=DISC;NOCCTL;DISC=200000
LISTF !AXS_FSET,3;*FLIST
FILE IN=FLIST;REC=-79
ECHO *********** ACCESS DATES & SECTORS FOR FILESET: !AXS_FSET ***********
CONTINUE
RUN CI.PUB.SYS;INFO="AXSDATE2.XEQ  &
    ![FINFO("FLIST",19)]";PARM=2<*IN
PURGE FLIST,TEMP
DELETEVAR AXS_@