User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:freedsk

Deck FREEDSK

0 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.freedsk +++|.PROC,FREEDSK,DN=0,TRIAL=BFSI/ABFIS,TH=3000,DD=3,
00002  M01S00002.freedsk +++|              MN=0,MG=60,SG=60,SM=A,SS=#FILE.
00003  M01S00003.freedsk +++|.*/
00004  M01S00004.freedsk +++|.*/  PROC,FREEDSK,DN=0,TRIAL=BFSI/ABFIS,TH=3000,DD=3,
00005  M01S00005.freedsk +++|.*/               MN=0,MG=60,SG=60,SM=A,SS=#FILE.
00006  M01S00006.freedsk +++|.*/
00007  M01S00007.freedsk +++|.*/    THIS PROC WAITS IN THE ROLLOUT QUEUE FOR A LOW DISK SPACE
00008  M01S00008.freedsk +++|.*/    THRESHOLD FLAG TO BE SET BY THE NOS OPERATING SYSTEM.
00009  M01S00009.freedsk +++|.*/
00010  M01S00010.freedsk +++|.*/    NOTE:  THE PROGRAM *PROFULL* /BINNARIES *DKFULL* MUST BE
00011  M01S00011.freedsk +++|.*/    WITH IN THE SYSTEM.
00012  M01S00012.freedsk +++|.*/
00013  M01S00013.freedsk +++|.*/  FREE UP DISK SPACE OF FILES.
00014  M01S00014.freedsk +++|.*/  IGNORE FILES ACCESSED IN THE
00015  M01S00015.freedsk +++|.*/  LAST DD DAYS.
00016  M01S00016.freedsk +++|.*/  CAN PROCESS BY DEVICE. #DN=DN.
00017  M01S00017.freedsk +++|.*/
00018  M01S00018.freedsk +++|SETPR(31)
00019  M01S00019.freedsk +++|SETJOB,UJN=MAS.
00020  M01S00020.freedsk +++|NOTE,OUTPUT,NR.+1NOSCLSH FAMILY #SM=SM FREEDSK
00021  M01S00021.freedsk +++|WRITEF,OUTPUT.RFL(60000)
00022  M01S00022.freedsk +++|*
00023  M01S00023.freedsk +++|SET(R1=1)
00024  M01S00024.freedsk +++|SET(R2=2)
00025  M01S00025.freedsk +++|WHILE(R1.LE.R2,COPY)
00026  M01S00026.freedsk +++|DKFULL.
00027  M01S00027.freedsk +++|*
00028  M01S00028.freedsk +++|*     ALLOWS ONLY ONE COPY OF SSMOVE TO EXECUTE AT A TIME.
00029  M01S00029.freedsk +++|*
00030  M01S00030.freedsk +++|ATTACH,MASLOCK/UN=SYSTEMX,M=W,NA.
00031  M01S00031.freedsk +++|RFL,60000.
00032  M01S00032.freedsk +++|* FREE UP DISK SPACE OF FILES ON DEVICE DN.
00033  M01S00033.freedsk +++|SSMOVE(I=RLS,PX=TRIAL,#DN=DN)
00034  M01S00034.freedsk +++|RETURN,MASLOCK.
00035  M01S00035.freedsk +++|.IF,$TRIAL$.EQ.$BFIS$.SSUSE,#SM=SM,OP=ABC.
00036  M01S00036.freedsk +++|ROUTE,OUTPUT,DC=PR.
00037  M01S00037.freedsk +++|ENDW,COPY.
00038  M01S00038.freedsk +++|$REVERT. RELEASE COMPLETE
00039  M01S00039.freedsk +++|.DATA,RLS.
00040  M01S00040.freedsk +++|* CHANGE DEFAULT VALUE OF SYSTEM.
00041  M01S00041.freedsk +++|*WM,RL,AG=1.
00042  M01S00042.freedsk +++|*WA,RL,DV=1.
00043  M01S00043.freedsk +++|*PR,RL,M=1.
00044  M01S00044.freedsk +++|*  RELEASE DISK SPACE OF FILES BACKED UP ON 860.
00045  M01S00045.freedsk +++|FR,DS,#MN=9999999.
00046  M01S00046.freedsk +++|FR,RL,#DD=DD,#MN=MN,#TH=TH.
00047  M01S00047.freedsk +++|#SM,DA,#MG=MG.
00048  M01S00048.freedsk +++|#SM,DA,#SG=SG.
cdc/nos2.source/opl.opl871/deck/freedsk.txt ยท Last modified: by 127.0.0.1