%META:TOPICINFO{author="ChrisBartram" date="1149894327" format="1.1" version="1.1"}%
%META:TOPICPARENT{name="Hp3000MpexXeqs"}%
<pre>
!JOB UVCHCKJ,MANAGER.SYS,XEDTA;OUTCLASS=,1
!
!##  Andreas Schmidt, CSC, Germany
!##  Requires MPEX and VEAUDIT.
!
!RESET @
!
!ECHO T XUV1 >EDIN
!ECHO SET BATCH,FIXED >>EDIN
!ECHO L 1 >>EDIN
!ECHO D "/GROUP" >>EDIN
!ECHO L 1 >>EDIN
!ECHO D "REPORT XYZ" >>EDIN
!ECHO L 1 >>EDIN
!ECHO D "No groups" >>EDIN
!ECHO L1 >>EDIN
!ECHO CQ 1 TO " " IN ALL >>EDIN
!ECHO L 1 >>EDIN
!ECHO D " SYS" >>EDIN
!ECHO L1 >>EDIN
!ECHO CQ 1/1 TO "" IN ALL >>EDIN
!ECHO D FIRST >>EDIN
!ECHO D FIRST >>EDIN
!ECHO K XUV2,UNN >>EDIN
!ECHO E >>EDIN
!
!SETVAR UVLOOP 1
!IF HPSYSNAME="XENBH2" THEN
!   SETVAR UVLOOP_MAX 2
!ELSEIF HPSYSNAME="XENBH8" THEN
!   SETVAR UVLOOP_MAX 5
!ELSE
!   ##  XENBH1
!   SETVAR UVLOOP_MAX 1
!ENDIF
!WHILE UVLOOP <= UVLOOP_MAX DO
!  CONTINUE
!  PURGE XUVERR!UVLOOP
!  BUILD XUVERR!UVLOOP;REC=-80,,F,ASCII
!  FILE XUVERR!UVLOOP,OLD;ACC=APPEND
!  ECHO Checklist of Accounts that should reside on &
!    User Volume UV_SET!UVLOOP  >*XUVERR!UVLOOP
!  ECHO System: !HPSYSNAME  -  !HPDATEF !HPTIMEF  >>*XUVERR!UVLOOP
!  ECHO     >>*XUVERR!UVLOOP
!
!  CONTINUE
!  REPORT XYZ135QP.@;ONVS=UV_SET!UVLOOP >XUV1
!  CONTINUE
!  PURGE XUV2
!  RUN EDITOR.PUB.SYS <EDIN
!
!  SETVAR XUV_EOF FINFO("XUV2",19)
!  SETVAR LOOP 1
!  WHILE LOOP < XUV_EOF DO
!   PRINT XUV2;START=!LOOP;END=!LOOP  >XUV1
!   INPUT SHIT <XUV1
!   SETVAR ACCT LFT(SHIT,8)
!   SHOWVAR ACCT
!   SETJCW CIERROR 0
!   CONTINUE
!   RUN MAIN.PUB.VESOFT,MPEX;PARM=1;&
!    INFO='VEAUDIT LISTGROUP @.!ACCT(HOMEVOLUMESET<>"UV_SET!UVLOOP")' >XUV1
!   IF CIERROR = 432 THEN
!     ECHO Account !ACCT is ok  >>*XUVERR!UVLOOP
!   ELSE
!     ECHO Account !ACCT something wrong. Pls check the &
!       groups. >>*XUVERR!UVLOOP
!     CONTINUE
!     FCOPY FROM=XUV1;TO=*XUVERR!UVLOOP;SUBSET="!ACCT",1
!   ENDIF
!
!   SETVAR LOOP LOOP+1
!  ENDWHILE
!
!  CONTINUE
!  PURGE XUV2
!
!  SETVAR UVLOOP UVLOOP+1
!ENDWHILE
!
!EOJ

</pre>



-- Main.ChrisBartram - 09 Jun 2006