TWiki > TWiki > Hp3000CommandFiles > Hp3000MpexXeqs > Hp3000MpexXeqSysfile	TWiki webs: Main | TWiki | Sandbox
	TWiki . { Welcome | Register | Changes | Topics | Index | Search | Go }

Comment ****************************************************
Comment * This File Is Used By The SFILE Command File.  It *
Comment * Uses MPEX To Scan Files In A Select System Group *
Comment * And Determines If The Files Are Located on the   *
Comment * MPEX_SYSTEM_VOLUME_SET on LDEV 1. The Files That *
Comment * It finds Must always be on LDEV 1.               *
Comment *                                                  *
Comment *  2/18/99                         J. Reynolds     *
Comment ****************************************************
Comment
YesPurge Mastlist > $Null
Setvar PrCt 0
Repeat
Echo !MPEXCURRENTFILE Is Now Being Processed..
Listf !MPEXCURRENTFILE,-3 > Junk
Print Junk;SEARCH="FILE:"> Junk1
Print Junk;SEARCH="($SYSTEM_MASTER)" > Junk2
Repeat
   Setvar Fname "!FCurrrec"
   Input Fvar < Junk1
   Setvar Fvar, RTrim(Str(Fvar,7,26)," ")
Forrecs FCurrrec=Junk1,OldTemp
Repeat
   Setvar SName "!SCurrrec"
   Input Svar < Junk2
   Setvar Svar, RTrim(Str(Svar,54,16)," ")
   If "!Svar" = "($SYSTEM_MASTER)" Then
      Setvar PrCt PrCt + 1
     Echo !Fvar is a !Svar File and is located on LDEV 1 >> Mastlist
   Endif
Forrecs SCurrrec=Junk2,OldTemp
ForFiles !FList
Echo        >> Mastlist
Echo        >> Mastlist
Echo There is !PrCt files flagged as !Svar in !Flist  >> Mastlist
Echo
Echo There is a Total of !PrCt files flagged as !Svar in !Flist
Save MASTLIST
YesPurge Jun@;Temp > $Null
Deletevar PrCt,Fname,Fcurrrec,Fvar,Sname,SCurrrec,Svar,Flist

-- ChrisBartram - 09 Jun 2006

Parents: WebHome > Hp3000CommandFiles > Hp3000MpexXeqs

Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors. Ideas, requests, problems regarding TWiki? Send feedback Note: Please contribute updates to this topic on TWiki.org at TWiki:TWiki.Hp3000MpexXeqSysfile