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