parm z="*~" anyparm filter = true # ... LISTFX.UTIL.SYS # Version : B.00.17(03/13/2003) Original Date: 09/08/96 # Command file that produces an 'extended' 'listf' output of a fileset. # It includes the file name, owner, file code, record count, sector count, # creation date, mod date & time, and access date, all on a single line per # file. Also 'selects' using file attributes (preset or user specified). # setjcw insidempex=0 if "!z" <> "~" AND insidempex <> 0 then mpe run CI.PUB.SYS;PARM=3;info='!hpfile "!z",![ANYPARM(!filter)]' return endif if "!z" = "*~" then setvar _e "echo " setvar _ex "return " else setvar _e SETVAR(_ex, "# ") endif !_e Author: Paul H. Christidis phchristidis@raytheon.com !_e !_e Usage: !-1 [FileSet] [Select_Expression] !_e !_e Where: !_e FileSet = A :LISTFILE style fileset (If using the (fset,fset,..) !_e format then it MUST be included in quotes). !_e !_e Select_Expression = An expression comprised of coded FINFO function !_e calls. A number of 'predefined' FINFO parameters, constants, !_e and options are available along with the capability of !_e specifying any of the additional FINFO parameters. !_e !_e The 'predefined' items/constants/options are: !_e $fcode - The sting mnemonic for the file's file code. !_e $icode - The integer value for the file's file code. !_e $eof - The number of records in the file. !_e $recsize - File's record size in 'positive' bytes. !_e $credate - File's creation date. !_e $moddate - File's last modification date. !_e $accdate - File's last access date. !_e $sectors - Number of sectors allocated to file. !_e $finfo( - To invoke any other 'finfo' item. !_e $today - The current day in 'yyyymmdd' format. !_e $names - To list only the file name (listfile,6). !_e $ymd - List dates in 'yyyy/mmdd' format. !_e $pmcap - List ONLY run modules with PM capability. !_e Note: '$pmcap' requires READ access to qualifying !_e files, and will change the file's access date. !_e Examples: !_e :!-1 @,$fcode = 'prog' OR $icode = 1030 !_e !_e :!-1 @,($fcode = 'prog' OR $icode = 1030) AND $accdate<>$today !_e !_e :!-1 ./[B-W]@ $eof < 1000 AND ($credate > $today-(18*30)) !_e :NOTE: Correct evaluation of "$today" expressions REQUIRE that they !_e contain NO spaces AND the command file "dtoffset" IS present AND col- !_e located with THIS command file. IN its absence the expression's result !_e MUST evaluate within the current month. !_e !_e :!-1 "(./[B-W]@,/SYS/PUB/@)" $eof<1000 AND $finfo("limit")>25000 !_e !_e :!-1 "(./[B-W]@,/SYS/PUB/@)" $eof<100 AND $pmcap $names !_ex if "!z" <> "~" then if BOUND(oldmsgfence) then setvar hpmsgfence oldmsgfence setvar hpautocont _lfcont endif setvar _lfDtOffSet "DTOFFSET."+ XWORD(hpfile,".") setvar _lfYMD FALSE setvar _lfcont hpautocont setvar hpautocont true setvar oldmsgfence hpmsgfence setvar hpmsgfence 2 # ** Build temp file, set various variables and then ** # ** perform a listfile fset,6 to a temporary file. ** purge lfx!hppin,temp > $null file lfx!hppin;rec=-256,,v,ascii;disc=300000;nocctl;temp file listfilx=lfx!hppin,oldtemp;DEL setvar _lfPage 60 setvar _lfToday ![RHT(hpdatef,4)+RHT("0!hpmonth",2)+RHT("0!hpdate",2)] setvar _lfTotFil SETVAR(cierror, 0) listfile !z,6 >*lfx!hppin if cierror = 0 then setvar _lfLoop,FINFO('*lfx!hppin','eof') # # Pass expression through file to preserve quotes (") or ('), # replace tokens, validate and proceed to process file list. # echo !filter >lsfxtfil input _lfSelExp $null setvar _lfSelExp UPS(REPL(REPL(_lfSelExp,",",""),";","")) + " " if FINFO(_lfDtOffSet, "exists") then while SETVAR(_lfPos, POS("$TODAY", _lfSelExp)) <> 0 do setvar _lfPos1 _lfPos + 6 setvar _lfPos2 _lfPos1 - 1 setvar _lfParen1 SETVAR(_lfParen2, 0) while SETVAR(_lfCh, & (STR(_lfSelExp, SETVAR(_lfPos2,_lfPos2 + 1), 1))) <> " " do setvar _lfIdx POS(_lfCh, "()") setvar _lfParen!_lfIdx _lfParen!_lfIdx + 1 endwhile setvar _lfPos2 _lfPos2 - (_lfParen2 - _lfParen1) setvar _lfTemp _lfToday if _lfPos2 <> _lfPos1 then setvar _lfdelta STR(_lfSelExp, _lfPos1, (_lfPos2 - _lfPos1)) xeq !_lfDtOffSet 1, !_lfdelta, "_lfTemp" endif setvar _lfSelExp STR(_lfSelExp, 1, (_lfPos -1)) + "!_lfTemp" & + STR(_lfSelExp, _lfPos2, (LEN(_lfSelExp) - _lfPos2 +1)) endwhile else setvar _lfSelExp REPL(_lfSelExp,"$TODAY" ,'_lfToday') endif if SETVAR(_lfPmCaps, POS("$PMCAP", _lfSelExp) <> 0) setvar _lfSelExp & REPL(_lfSelExp, "$PMCAP", '($FCODE="PROG" OR $FCODE="NMPRG")') endif setvar _lfSelExp REPL(_lfSelExp,"$FCODE", 'FINFO(_lfLnam,"fmtfcode")') setvar _lfSelExp REPL(_lfSelExp,"$ICODE", 'FINFO(_lfLnam,"intfcode")') setvar _lfSelExp REPL(_lfSelExp,"$EOF" , 'FINFO(_lfLnam,"eof")') setvar _lfSelExp & REPL(_lfSelExp,"$RECSIZE",'- FINFO(_lfLnam,"recsize")') setvar _lfSelExp & REPL(_lfSelExp,"$CREDATE",'FINFO(_lfLnam,"intcreated")') setvar _lfSelExp & REPL(_lfSelExp,"$MODDATE",'FINFO(_lfLnam,"intmoddate")') setvar _lfSelExp & REPL(_lfSelExp,"$ACCDATE",'FINFO(_lfLnam,"intaccessed")') setvar _lfSelExp REPL(_lfSelExp,"$SECTORS",'FINFO(_lfLnam,"sectors")') setvar _lfSelExp REPL(_lfSelExp,"$FINFO(" ,'FINFO(_lfLnam,') # if SETVAR(_lfListNames, POS("$NAMES", _lfSelExp) <> 0) setvar _lfSelExp REPL(_lfSelExp,"$NAMES","") endif setvar _lfYMD POS("$YMD", _lfSelExp) <> 0 OR _lfYMD setvar _lfSelExp REPL(_lfSelExp,"$YMD","") setvar _lfLnam '*listfilx' setjcw cierror = 0 setvar _lfT !_lfSelExp if cierror = 0 then xeq !hpfile ~ < *listfilx else if _lfListNames OR _lfYMD then setvar _lfSelExp true xeq !hpfile ~ < *listfilx else echo **** echo Invalid selection expression OR Bad $token(s) specified  echo **** endif endif endif if _lfTotFil = 0 then echo +-+-+ No files selected in fileset '!z' +-+-+ endif # # ******************* clean up ********************* # setvar hpmsgfence oldmsgfence setvar hpautocont _lfcont deletevar oldmsgfence if BOUND(traceon) AND traceon then showvar _lf@ else deletevar _lf@, _e, _ex endif reset listfilx reset lfx!hppin return # +*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+ # + Section that parses the listfx file # +*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+ else if NOT _lfListNames then echo echo ![CHR(27)+"&a0c-1R"+CHR(27)+"J"+CHR(27)+"&a0c-1R"] setvar _lfHdGroup SETVAR(_lfHdAcct, " ") setvar _lfTotSect SETVAR(_lfPgCount, 0) setvar _lfLineCnt _lfPage setvar _lf_ffeed CHR(12) endif # ********************* loop ***************************** while SETVAR(_lfLoop, _lfLoop - 1) >= 0 #Execute 'selection criteria' and see if PMCAP is also being checked * input _lfRecord setvar _lfLnam ,LTRIM(RTRIM(_lfRecord)) setvar _lfSelectIt !_lfSelExp if _lfSelectIt AND _lfPmCaps then INPUT _lfCapRec;readcnt=110 _lfGrp & OR _lfHdAcct <> _lfAcct then setvar _lfPgCount _lfPgCount + 1 setvar _lfHdGroup _lfGrp setvar _lfHdAcct _lfAcct setvar _lfLineCnt, 0 echo ![_lf_ffeed]Account = !_lfHdAcct Group = & !_lfHdGroup !hpdatef, !hptimef Page: !_lfPgCount echo echo Filename Owner Code Records Sectors Cre-Date & Mod-Date & time Acc-Date echo -------- -------- ----- ------- ------- --------- & ----------------- --------- endif setvar _lfLineCnt _lfLineCnt + _lfIncrmnt if _lfIncrmnt = 2 then echo !_lfFName endif echo !_lfDName!_lfAccs!_lfOwner !_lfCode !_lfRecs !_lfSect !_lfCdt & !_lfMdt !_lfAdt endif endif endwhile # *** END LOOP: display sector total if more than one file *** if (NOT _lfListNames) AND _lfTotFil >1 then setvar _lfSect,RHT(' ' + '!_lfTotSect',9) echo --------- echo Total Sectors: !_lfSect (!_lfTotFil) Files endif endif return