PARM fileset=@, datetype="moddate", comp=">=", accdate=today, entry=main comment LISTFILE by access date >= "accdate". Assumes mm/dd[/[yy]yy] format. if '!entry' = 'main' then if '!datetype' = 'moddate' then setvar _lfa_item 'intmoddate' setvar _lfa_fmtdate 'fmtmoddate' setvar _lfa_fmttime 'fmtmodtime' setvar _lfa_title 'Modified' elseif '!datetype' = 'accdate' then setvar _lfa_item 'intaccessed' setvar _lfa_fmtdate 'fmtaccessed' setvar _lfa_fmttime 'fmtaccessetime' setvar _lfa_title 'Accessed' elseif '!datetype' = 'credate' then setvar _lfa_item 'intcreated' setvar _lfa_fmtdate 'fmtcreated' setvar _lfa_fmttime 'EXIST' setvar _lfa_title 'Created' endif setvar _lfa_comp '!comp' errclear continue listfile !fileset,6 >lfatemp if hpcierr = 0 then comment Convert accdate to yyymmdd format setvar _lfa_yy '!hpyear' if '!accdate' = 'today' then setvar _lfa_mm '!hpmonth' setvar _lfa_dd '!hpdate' elseif setvar(_lfa_pos,pos('/','!accdate')) < setvar(_lfa_pos2,pos('/','!accdate')) comment mm/dd/YY format (year is in date) setvar _lfa_yy rht('!accdate',len('!accdate')-_lfa_pos2) setvar _lfa_mm lft('!accdate',_lfa_pos-1) setvar _lfa_dd str('!accdate',_lfa_pos+1,_lfa_pos2-_lfa_pos-1) else comment optional year not supplied setvar _lfa_mm lft('!accdate',_lfa_pos-1) setvar _lfa_dd rht('!accdate',len('!accdate')-_lfa_pos) endif if len(_lfa_yy) = 2 then setvar _lfa_yy '19!_lfa_yy' endif setvar _lfa_mm rht('0!_lfa_mm',2) setvar _lfa_dd rht('0!_lfa_dd',2) comment assemble the final access date for INTEGER compares setvar _lfa_date !_lfa_yy!_lfa_mm!_lfa_dd comment read lfatemp file and do date compares xeq !hpfile datetype='!datetype',comp='!comp',entry=read_n_compare