%META:TOPICINFO{author="ChrisBartram" date="1149893459" format="1.1" version="1.1"}%
%META:TOPICPARENT{name="Hp3000MpexXeqs"}%
<pre>
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

</pre>



-- Main.ChrisBartram - 09 Jun 2006