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.