Retro1.org codex

.PROC,DESTAGE,TRIAL=AFIS/ABFIS,MN=0,MX=9999999,DD=0,TH=0,SM=A,SS=#FILE.
.*/
.*/  PROC,DESTAGE,TRIAL=AFIS/ABFIS,MN=0,MX=9999999,DD=0,TH=0,SM=A,SS=#FI
.*/
.*/  DESTAGE FILES.  MN < PRU SIZE < MX.
.*/
.*/   THIS PROC CALLS THE SSMOVE PROGRAM AT SET TIMES.
.*/
SETPR(31)
SETJOB,UJN=MAS.
NOTE,OUTPUT,NR.+1NOSCLSH FAMILY #SM=SM DESTAGE
WRITEF,OUTPUT.
SET(R1=1)
SET(R2=2)
WHILE(R1.LE.R2,COPY)
NOTE,TAPE1.=1200        (START SSMOVE AT 1200 HOURS)
TIMEB(TAPE1)
.*/
.*/   ALLOWS ONLY ONE COPY OF SSMOVE TO EXECUTE AT A TIME.
.*/
ATTACH,MASLOCK/UN=SYSTEMX,M=W,NA.
RFL(60000)
*
*   DESTAGE FILES TO 7990.
*   GREATER THAN MN PRUS.
*   LESS THAN MX PRUS.
*
SSMOVE(I=NPRUS,LO=F,PX=TRIAL)
RETURN,MASLOCK.
.IF,$TRIAL$.EQ.$ABFIS$.REVERT. TRIAL DESTAGE COMPLETE.
BEGIN(CYCLE,SS,SM)
SSUSE,#SM=SM,OP=ABC.
ROUTE,OUTPUT,DC=PR.
NOTE,TAPE1.=1640         (START SSMOVE AT 1640 HOURS)
TIME(TAPE1)
ATTACH,MASLOCK/UN=SYSTEMX,M=W,NA.
REWIND,*.
RFL(60000)
SSMOVE(I=NPRUS,LO=F,PX=TRIAL)
RETURN,MASLOCK.
.IF,$TRIAL$.EQ.$ABFIS$,REVERT.  TRIAL DESTAGE COMPLETE.
SSUSE,#SM=SM,OP=ABC.
ROUTE,OUTPUT,DC=PR.
ENDW,COPY.
$REVERT.DESTAGE COMPLETE
.DATA,NPRUS.
*   DESTAGE FILES OVER MN AND LESS THAN MX PRUS.
*WA,DS,LN=1000.
*BR,DS,MD=1.
*
FR,RL,#MN=9999999.
FR,DS,#MN=MN,#MX=MX,#DD=DD,#TH=TH.