Retro1.org codex

.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.