!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 XUV1 ! INPUT SHIT 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