0 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.destage +++|.PROC,DESTAGE,TRIAL=AFIS/ABFIS,MN=0,MX=9999999,DD=0,TH=0,SM=A,SS=#FILE.
00002  M01S00002.destage +++|.*/
00003  M01S00003.destage +++|.*/  PROC,DESTAGE,TRIAL=AFIS/ABFIS,MN=0,MX=9999999,DD=0,TH=0,SM=A,SS=#FI
00004  M01S00004.destage +++|.*/
00005  M01S00005.destage +++|.*/  DESTAGE FILES.  MN < PRU SIZE < MX.
00006  M01S00006.destage +++|.*/
00007  M01S00007.destage +++|.*/   THIS PROC CALLS THE SSMOVE PROGRAM AT SET TIMES.
00008  M01S00008.destage +++|.*/
00009  M01S00009.destage +++|SETPR(31)
00010  M01S00010.destage +++|SETJOB,UJN=MAS.
00011  M01S00011.destage +++|NOTE,OUTPUT,NR.+1NOSCLSH FAMILY #SM=SM DESTAGE
00012  M01S00012.destage +++|WRITEF,OUTPUT.
00013  M01S00013.destage +++|SET(R1=1)
00014  M01S00014.destage +++|SET(R2=2)
00015  M01S00015.destage +++|WHILE(R1.LE.R2,COPY)
00016  M01S00016.destage +++|NOTE,TAPE1.=1200        (START SSMOVE AT 1200 HOURS)
00017  M01S00017.destage +++|TIMEB(TAPE1)
00018  M01S00018.destage +++|.*/
00019  M01S00019.destage +++|.*/   ALLOWS ONLY ONE COPY OF SSMOVE TO EXECUTE AT A TIME.
00020  M01S00020.destage +++|.*/
00021  M01S00021.destage +++|ATTACH,MASLOCK/UN=SYSTEMX,M=W,NA.
00022  M01S00022.destage +++|RFL(60000)
00023  M01S00023.destage +++|*
00024  M01S00024.destage +++|*   DESTAGE FILES TO 7990.
00025  M01S00025.destage +++|*   GREATER THAN MN PRUS.
00026  M01S00026.destage +++|*   LESS THAN MX PRUS.
00027  M01S00027.destage +++|*
00028  M01S00028.destage +++|SSMOVE(I=NPRUS,LO=F,PX=TRIAL)
00029  M01S00029.destage +++|RETURN,MASLOCK.
00030  M01S00030.destage +++|.IF,$TRIAL$.EQ.$ABFIS$.REVERT. TRIAL DESTAGE COMPLETE.
00031  M01S00031.destage +++|BEGIN(CYCLE,SS,SM)
00032  M01S00032.destage +++|SSUSE,#SM=SM,OP=ABC.
00033  M01S00033.destage +++|ROUTE,OUTPUT,DC=PR.
00034  M01S00034.destage +++|NOTE,TAPE1.=1640         (START SSMOVE AT 1640 HOURS)
00035  M01S00035.destage +++|TIME(TAPE1)
00036  M01S00036.destage +++|ATTACH,MASLOCK/UN=SYSTEMX,M=W,NA.
00037  M01S00037.destage +++|REWIND,*.
00038  M01S00038.destage +++|RFL(60000)
00039  M01S00039.destage +++|SSMOVE(I=NPRUS,LO=F,PX=TRIAL)
00040  M01S00040.destage +++|RETURN,MASLOCK.
00041  M01S00041.destage +++|.IF,$TRIAL$.EQ.$ABFIS$,REVERT.  TRIAL DESTAGE COMPLETE.
00042  M01S00042.destage +++|SSUSE,#SM=SM,OP=ABC.
00043  M01S00043.destage +++|ROUTE,OUTPUT,DC=PR.
00044  M01S00044.destage +++|ENDW,COPY.
00045  M01S00045.destage +++|$REVERT.DESTAGE COMPLETE
00046  M01S00046.destage +++|.DATA,NPRUS.
00047  M01S00047.destage +++|*   DESTAGE FILES OVER MN AND LESS THAN MX PRUS.
00048  M01S00048.destage +++|*WA,DS,LN=1000.
00049  M01S00049.destage +++|*BR,DS,MD=1.
00050  M01S00050.destage +++|*
00051  M01S00051.destage +++|FR,RL,#MN=9999999.
00052  M01S00052.destage +++|FR,DS,#MN=MN,#MX=MX,#DD=DD,#TH=TH.