FREEDSK 
.PROC,FREEDSK,DN=0,TRIAL=BFSI/ABFIS,TH=3000,DD=3, 
              MN=0,MG=60,SG=60,SM=A,SS=#FILE. 
.*/ 
.*/  PROC,FREEDSK,DN=0,TRIAL=BFSI/ABFIS,TH=3000,DD=3, 
.*/               MN=0,MG=60,SG=60,SM=A,SS=#FILE. 
.*/ 
.*/    THIS PROC WAITS IN THE ROLLOUT QUEUE FOR A LOW DISK SPACE
.*/    THRESHOLD FLAG TO BE SET BY THE NOS OPERATING SYSTEM.
.*/ 
.*/    NOTE:  THE PROGRAM *PROFULL* /BINNARIES *DKFULL* MUST BE 
.*/    WITH IN THE SYSTEM.
.*/ 
.*/  FREE UP DISK SPACE OF FILES. 
.*/  IGNORE FILES ACCESSED IN THE 
.*/  LAST DD DAYS.
.*/  CAN PROCESS BY DEVICE. #DN=DN. 
.*/ 
SETPR(31) 
SETJOB,UJN=MAS. 
NOTE,OUTPUT,NR.+1NOSCLSH FAMILY #SM=SM FREEDSK
WRITEF,OUTPUT.RFL(60000)
* 
SET(R1=1) 
SET(R2=2) 
WHILE(R1.LE.R2,COPY)
DKFULL. 
* 
*     ALLOWS ONLY ONE COPY OF SSMOVE TO EXECUTE AT A TIME.
* 
ATTACH,MASLOCK/UN=SYSTEMX,M=W,NA. 
RFL,60000.
* FREE UP DISK SPACE OF FILES ON DEVICE DN. 
SSMOVE(I=RLS,PX=TRIAL,#DN=DN) 
RETURN,MASLOCK. 
.IF,$TRIAL$.EQ.$BFIS$.SSUSE,#SM=SM,OP=ABC.
ROUTE,OUTPUT,DC=PR. 
ENDW,COPY.
$REVERT. RELEASE COMPLETE 
.DATA,RLS.
* CHANGE DEFAULT VALUE OF SYSTEM. 
*WM,RL,AG=1.
*WA,RL,DV=1.
*PR,RL,M=1. 
*  RELEASE DISK SPACE OF FILES BACKED UP ON 860.
FR,DS,#MN=9999999.
FR,RL,#DD=DD,#MN=MN,#TH=TH. 
#SM,DA,#MG=MG.
#SM,DA,#SG=SG.
