$SET NOON
$UIC [2,3]
$SET PROTECTION=(S:RWE,O:RWE,G:RWE,W)/DEFAULT
$@DBA0:[OPERATOR]DATE.COM
$SET DEFAULT DBA0:[OPERATOR]
$RUN LSTDIR
DBA2:
$@DIRALL.COM
$ASSIGN DB2USG.DAT FOR006
$RUN TOTAL
$SET PROT=S:RWED DIRECT.*;*
$DELETE DIRECT.*;*
$SUBMIT/PRIORITY=10/AFTER='NXTDAT' TOTAL0.COM
$EXIT