Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.sscontl +++|.PROC,SSCONTL.
00002  M00S00002.sscontl +++|*         THIS JOB BUILDS TWO PROGRAMS THAT ARE NEEDED TO TIME EVENT
00003  M00S00003.sscontl +++|*         A SSMOVE DESTAGE JOB OR A LOW DISK SPACE SSMOVE JOB.
00004  M00S00004.sscontl +++|*
00005  M00S00005.sscontl +++|*         *TIMESCR* PROGRAM IS CALLED BY A JOB THAT PLACES A SSMOVE
00006  M00S00006.sscontl +++|*         PROGRAM IN THE ROLLOUT QUEUE WAITTING FOR A PRESET TIME
00007  M00S00007.sscontl +++|*         TO START THE SSMOVE EXECUTION.
00008  M00S00008.sscontl +++|*         THIS DESTAGE RELATED PROCEEDURE IS CALL BY THE PROC *DESTAGE*.
00009  M00S00009.sscontl +++|*         ** THE BINNARY DECK IS CALLED *TIMEB*.
00010  M00S00010.sscontl +++|*
00011  M00S00011.sscontl +++|*         *PROFULL* PROGRAM IS CALLED BY A JOB THAT PLACES A SSMOVE
00012  M00S00012.sscontl +++|*         PROGRAM IN THE ROLLOUT QUEUE WAITTING FOR A LOW DISK SPACE
00013  M00S00013.sscontl +++|*         THRESHOLD FLAG TO BE SET.
00014  M00S00014.sscontl +++|*         THE *PROFULL* BINNARIES MUST BE SYSEDITED OR BE PLACED ON
00015  M00S00015.sscontl +++|*         THE DEAD START TO EXECUTED.  (AN SSJ= PROGRAM THAT READS
00016  M00S00016.sscontl +++|*         THE EST AND MST WITH SYSTEM MACRO-S FOR THE LOW DISK
00017  M00S00017.sscontl +++|*         THRESHOLD FLAGS.)
00018  M00S00018.sscontl +++|*         * THE BINNARY DECK IS CALLED *DKFULL*.
00019  M00S00019.sscontl +++|*
00020  M00S00020.sscontl +++|*         THIS LOW DISK SPACE PROGRAM IS CALLED BY THE PROC *DKFULL*
00021  M00S00021.sscontl +++|*
00022  M00S00022.sscontl +++|ATTACH,OPL/UN=LIBRARY.
00023  M00S00023.sscontl +++|COPYBR,TIMESRC,X.
00024  M00S00024.sscontl +++|COPYBR,PROFULL,X1.
00025  M00S00025.sscontl +++|REWIND,*.
00026  M00S00026.sscontl +++|COPYBF,X,TIMESRC.
00027  M00S00027.sscontl +++|COPYBR,X1,PROFULL.
00028  M00S00028.sscontl +++|REWIND,*.
00029  M00S00029.sscontl +++|MODIFY,P=0,C=0,N=N,F,Z./*CREATE,TIMESRC
00030  M00S00030.sscontl +++|REWIND,*.
00031  M00S00031.sscontl +++|MODIFY,P,LO=E,Z./*OPLFILE,N/*EDIT,TIMESRC
00032  M00S00032.sscontl +++|FTN,I=COMPILE,L=L,B=TIMEB,S=PSSTEXT,S=NOSTEXT.
00033  M00S00033.sscontl +++|REWIND,*.
00034  M00S00034.sscontl +++|MODIFY,P=0,C=0,N=N,F,Z./*CREATE,PROFULL
00035  M00S00035.sscontl +++|REWIND,*.
00036  M00S00036.sscontl +++|MODIFY,P,LO=E,Z./*OPLFILE,N/*EDIT,DKFULL
00037  M00S00037.sscontl +++|COMPASS,I,B=DKFUL,S=NOSTEXT,S=PSSTEXT,L=M.
00038  M00S00038.sscontl +++|REWIND,*.
00039  M00S00039.sscontl +++|MODIFY,P,LO=E,Z./*EDIT,MAC2
00040  M00S00040.sscontl +++|COMPASS,I,B=MACBIN,S=NOSTEXT,S=PSSTEXT,S=SSYTEXT,L=0.
00041  M00S00041.sscontl +++|REWIND,*.
00042  M00S00042.sscontl +++|LIBGEN(F=MACBIN,P=MACLIB,NX=0)
00043  M00S00043.sscontl +++|LDSET(LIB=MACLIB,PRESET=0,MAP=SBEX/MAP)
00044  M00S00044.sscontl +++|LOAD(DKFUL)
00045  M00S00045.sscontl +++|NOGO(DKFULL,DKFULL,$RFL=$,$SSJ=$)
00046  M00S00046.sscontl +++|PURGE,TIMEB,DKFULL/NA.
00047  M00S00047.sscontl +++|SAVE,TIMEB,DKFULL.
00048  M00S00048.sscontl +++|REVERT.     SAVE TIMEB AND DKFULLB.
00049  M00S00049.sscontl +++|DIS.
00050  M00S00050.sscontl +++|EXIT.
00051  M00S00051.sscontl +++|REVERT.   ERRORS......
00052  M00S00052.sscontl +++|.DATA,TIMESRC.
00053  M00S00053.sscontl +++|TIMESRC
00054  M00S00054.sscontl +++|      PROGRAM TIMESRC ( TAPE1 )
00055  M00S00055.sscontl +++|
00056  M00S00056.sscontl +++|CCC   *TIMESRC* CONTROLS THE CALLING OF *SSMOVE*.
00057  M00S00057.sscontl +++|C
00058  M00S00058.sscontl +++|C     *TIMESRC* READS LOCAL FILE TAPE1 TO DETERMINE
00059  M00S00059.sscontl +++|C     THE NEXT TIME TO CALL *SSMOVE*.  WHEN THE
00060  M00S00060.sscontl +++|C     TRIGGER TIME IS HIT, THEN *TIMESRC* ENDS AND
00061  M00S00061.sscontl +++|C     THE CCL PROCEDURE FILE IS ALLOWED TO CONTINUE.
00062  M00S00062.sscontl +++|C
00063  M00S00063.sscontl +++|C     THE CCL PROCEDURE WILL THEN CALL *SSMOVE*.
00064  M00S00064.sscontl +++|C
00065  M00S00065.sscontl +++|C     FORMAT OF TAPE1.
00066  M00S00066.sscontl +++|C
00067  M00S00067.sscontl +++|C     N RECORDS OF FORMAT I4  - HHMM.
00068  M00S00068.sscontl +++|C                             HH = HOUR OF NEXT DESTAGE.
00069  M00S00069.sscontl +++|C                             MM = MINUTES OF NEXT DESTAGE.
00070  M00S00070.sscontl +++|
00071  M00S00071.sscontl +++|      INTEGER CURTM
00072  M00S00072.sscontl +++|
00073  M00S00073.sscontl +++|C
00074  M00S00074.sscontl +++|C     READ NEXT TIME TO DESTAGE.
00075  M00S00075.sscontl +++|C
00076  M00S00076.sscontl +++|
00077  M00S00077.sscontl +++|      READ ( 1 , 9000 ) IHR , ISE
00078  M00S00078.sscontl +++|9000  FORMAT ( 2I2 )
00079  M00S00079.sscontl +++|      NTM = SHIFT ( IHR , 6 ) .OR. ISE
00080  M00S00080.sscontl +++|
00081  M00S00081.sscontl +++|C
00082  M00S00082.sscontl +++|C     DETERMINE CURRENT TIME
00083  M00S00083.sscontl +++|C
00084  M00S00084.sscontl +++|
00085  M00S00085.sscontl +++|10    CALL GETCTM ( CURTM )
00086  M00S00086.sscontl +++|      CURTM = CURTM .AND. 777700B
00087  M00S00087.sscontl +++|      CURTM = SHIFT ( CURTM , -6 )
00088  M00S00088.sscontl +++|
00089  M00S00089.sscontl +++|C
00090  M00S00090.sscontl +++|C     IF CURRENT TIME .GT. TIME TO DESTAGE, THEN
00091  M00S00091.sscontl +++|C     END TO ALLOW PROCEDURE TO CALL *SSMOVE*.
00092  M00S00092.sscontl +++|C
00093  M00S00093.sscontl +++|
00094  M00S00094.sscontl +++|      IF ( NTM .GT. CURTM ) GOTO 100
00095  M00S00095.sscontl +++|      STOP
00096  M00S00096.sscontl +++|
00097  M00S00097.sscontl +++|C
00098  M00S00098.sscontl +++|C     IF *SSMOVE* SHOULD RUN IN LESS THAN 15 MINUTES,
00099  M00S00099.sscontl +++|C     INCREASE THE FREQUENCY OF THE ROLLINS.
00100  M00S00100.sscontl +++|C
00101  M00S00101.sscontl +++|
00102  M00S00102.sscontl +++|100   CURTM = CURTM - 15
00103  M00S00103.sscontl +++|      IF ( CURTM .GT. NTM ) 110 , 120
00104  M00S00104.sscontl +++|
00105  M00S00105.sscontl +++|110   ITIME = 3
00106  M00S00106.sscontl +++|      CALL ROLL ( ITIME )
00107  M00S00107.sscontl +++|      GOTO 10
00108  M00S00108.sscontl +++|
00109  M00S00109.sscontl +++|120   ITIME = 15
00110  M00S00110.sscontl +++|      CALL ROLL ( ITIME )
00111  M00S00111.sscontl +++|      GOTO 10
00112  M00S00112.sscontl +++|
00113  M00S00113.sscontl +++|      END
00114  M00S00114.sscontl +++|          IDENT GETCTM
00115  M00S00115.sscontl +++|          ENTRY GETCTM
00116  M00S00116.sscontl +++|          SPACE  4
00117  M00S00117.sscontl +++| GETCTM   BSSZ   1
00118  M00S00118.sscontl +++|          SA1    A1
00119  M00S00119.sscontl +++|          PDATE  X1
00120  M00S00120.sscontl +++|          EQ     GETCTM
00121  M00S00121.sscontl +++|          END
00122  M00S00122.sscontl +++|          IDENT  ROLL
00123  M00S00123.sscontl +++|          ENTRY  ROLL
00124  M00S00124.sscontl +++|          SPACE  4
00125  M00S00125.sscontl +++| ROLL     BSSZ   1
00126  M00S00126.sscontl +++|          SA1    X1
00127  M00S00127.sscontl +++|          SX2    60D         CONVERT TIME TO SECONDS
00128  M00S00128.sscontl +++|          IX6    X1*X2
00129  M00S00129.sscontl +++|          SA6    ADDR
00130  M00S00130.sscontl +++|          ROLLOUT  ADDR
00131  M00S00131.sscontl +++|          EQ     ROLL        RETURN AFTER ROLLOUT
00132  M00S00132.sscontl +++|
00133  M00S00133.sscontl +++| ADDR     BSSZ   1
00134  M00S00134.sscontl +++|          END
00135  M00S00135.sscontl +++|.DATA,PROFULL.
00136  M00S00136.sscontl +++|DKFULL
00137  M00S00137.sscontl +++|          IDENT  DKFULL
00138  M00S00138.sscontl +++|
00139  M00S00139.sscontl +++|          SYSCOM B1
00140  M00S00140.sscontl +++|          SST
00141  M00S00141.sscontl +++|          ENTRY  RFL=
00142  M00S00142.sscontl +++|          ENTRY  SSJ=
00143  M00S00143.sscontl +++|          ENTRY  DKFULL
00144  M00S00144.sscontl +++|          EXT    RDESTC
00145  M00S00145.sscontl +++|
00146  M00S00146.sscontl +++|***       *DKFULL* CONTROLS THE CALLING OF *SSMOVE* WHEN THE
00147  M00S00147.sscontl +++|*         DISK LOW SPACE THRESHOLD IS REACHED.
00148  M00S00148.sscontl +++|*
00149  M00S00149.sscontl +++|
00150  M00S00150.sscontl +++|
00151  M00S00151.sscontl +++| DKFULL   SB2    ESTB              BUFFER TO RECEIVE EST ENTRIES
00152  M00S00152.sscontl +++|          SB1    1
00153  M00S00153.sscontl +++|          SB3    ESTN
00154  M00S00154.sscontl +++|          SB4    -B1               READ MASS STORAGE ENTRIES
00155  M00S00155.sscontl +++|          RJ     =XRDESTC          READ EST INTO *ESTB*
00156  M00S00156.sscontl +++|          SA5    ESTN
00157  M00S00157.sscontl +++|          SB6    X5                SET LAST MASS STORAGE ORDINAL + 1
00158  M00S00158.sscontl +++|
00159  M00S00159.sscontl +++|*SEARCH EST FOR MASS STORAGE DEVICES THAT ARE FULL.
00160  M00S00160.sscontl +++|
00161  M00S00161.sscontl +++|
00162  M00S00162.sscontl +++| DFL1     SB4    B4+B1
00163  M00S00163.sscontl +++|          EQ     B4,B6,DFL2        IF END OF MASS STORAGE DEVICES
00164  M00S00164.sscontl +++|
00165  M00S00165.sscontl +++|          SX1    B4                CALCULATE *ESTB* OFFSET
00166  M00S00166.sscontl +++|          R=     X6,ESTE
00167  M00S00167.sscontl +++|          IX1    X1*X6
00168  M00S00168.sscontl +++|          SA1    ESTB+X1+EQDE      GET NEXT EST ENTRY
00169  M00S00169.sscontl +++|          PL     X1,DFL1           IF NOT MASS STORAGE DEVICE
00170  M00S00170.sscontl +++|          BX6    X1
00171  M00S00171.sscontl +++|          LX6    59-54
00172  M00S00172.sscontl +++|          NG     X6,DFL1           IF DEVICE UNAVAIBLE FOR ACCESS
00173  M00S00173.sscontl +++|          RJ     RDM               READ MST
00174  M00S00174.sscontl +++|          SA2    MSTB+ACGL-TDGL
00175  M00S00175.sscontl +++|          LX2    59-4
00176  M00S00176.sscontl +++|          NG     X2,DFL1           IF ERROR IDLE SET ON DEVICE
00177  M00S00177.sscontl +++|          SA2    MSTB+MDGL-TDGL
00178  M00S00178.sscontl +++|          LX2    59-58
00179  M00S00179.sscontl +++|          NG     X2,DFL1           IF AUXILIARY DEVICE
00180  M00S00180.sscontl +++|          SA2    MSTB+DULL-TDGL
00181  M00S00181.sscontl +++|          LX2    59-11
00182  M00S00182.sscontl +++|          NG     X2,DFL1           IF FAMILY IDLE DOWN FLAG IS SET
00183  M00S00183.sscontl +++|          SA2    MSTB+THLL-TDGL
00184  M00S00184.sscontl +++|          LX2    59-35
00185  M00S00185.sscontl +++|          NG     X2,DFL3           FULL DISK FOUND
00186  M00S00186.sscontl +++|          EQ     DFL1              CHECK NEXT ENTRY
00187  M00S00187.sscontl +++|
00188  M00S00188.sscontl +++| DFL2     ROLLOUT ADDR
00189  M00S00189.sscontl +++|          EQ     DKFULL            CHECK REASON FOR ROLLIN
00190  M00S00190.sscontl +++|
00191  M00S00191.sscontl +++| DFL3     ENDRUN
00192  M00S00192.sscontl +++|
00193  M00S00193.sscontl +++|
00194  M00S00194.sscontl +++|***       RDM - READ FULL *MST* ENTRY.
00195  M00S00195.sscontl +++|*
00196  M00S00196.sscontl +++|*         ENTRY  (X1) = EST ENTRY.
00197  M00S00197.sscontl +++|*
00198  M00S00198.sscontl +++|*         EXIT   (X3) = MST ADDRESS.
00199  M00S00199.sscontl +++|*                (MSTA) = MST POINTER PARAMETER.
00200  M00S00200.sscontl +++|*                (MSTB) = *MSTN* CONTIGUOUS WORDS STARTING AT *TDGL*
00201  M00S00201.sscontl +++|*                         OF THE MST ENTRY.
00202  M00S00202.sscontl +++|*
00203  M00S00203.sscontl +++|*         USES   A - 6, 7.
00204  M00S00204.sscontl +++|*                X - 0, 2, 3, 6, 7.
00205  M00S00205.sscontl +++|*
00206  M00S00206.sscontl +++|*         MACROS SYSTEM.
00207  M00S00207.sscontl +++|
00208  M00S00208.sscontl +++|
00209  M00S00209.sscontl +++| RDM      SUBR                     ENTRY/EXIT
00210  M00S00210.sscontl +++|          MX0    -12
00211  M00S00211.sscontl +++|          BX3    -X0*X1            GET ADDRESS OF MST ENTRY
00212  M00S00212.sscontl +++|          LX3    3
00213  M00S00213.sscontl +++|          SX2    X3+TDGL           READ WORD *TDGL* OF MST
00214  M00S00214.sscontl +++|          LX2    35-17
00215  M00S00215.sscontl +++|          MX7    1
00216  M00S00216.sscontl +++|          SA7    MSTB
00217  M00S00217.sscontl +++|          SX7    MSTXL             NUMBER OF MST ENTRY WORDS TO READ
00218  M00S00218.sscontl +++|          LX7    59-23
00219  M00S00219.sscontl +++|          BX6    X7+X2
00220  M00S00220.sscontl +++|          SX2    MSTB
00221  M00S00221.sscontl +++|          BX6    X2+X6
00222  M00S00222.sscontl +++|          SA6    MSTA
00223  M00S00223.sscontl +++|          SYSTEM RSB,R,A6
00224  M00S00224.sscontl +++|          EQ     RDMX              RETURN
00225  M00S00225.sscontl +++|
00226  M00S00226.sscontl +++|
00227  M00S00227.sscontl +++|
00228  M00S00228.sscontl +++| SSJ=     BSS    0           SSJ= PARAMETER BLOCK
00229  M00S00229.sscontl +++|          BSSZ   1
00230  M00S00230.sscontl +++|          CON    0
00231  M00S00231.sscontl +++|          BSSZ   SSJL        PAD SSJ= PARAMETERS
00232  M00S00232.sscontl +++|          BSS    1
00233  M00S00233.sscontl +++|
00234  M00S00234.sscontl +++|
00235  M00S00235.sscontl +++|*         BUFFERS
00236  M00S00236.sscontl +++|
00237  M00S00237.sscontl +++| ADDR     VFD    24/0,24/LSPE,12/7020B  LOW SPACE THRESHOLD/ HOUR TIMER
00238  M00S00238.sscontl +++|
00239  M00S00239.sscontl +++| ESTB     BSS    ESMX*ESTE         EST BUFFER
00240  M00S00240.sscontl +++| ESTN     BSS    1                 LAST MASS STORAGE ORDINAL + 1
00241  M00S00241.sscontl +++| MSTA     BSS    1                 MST POINTER PARAMETER WORD
00242  M00S00242.sscontl +++| MSTB     BSS    MSTXL             MST ENTRY BUFFER
00243  M00S00243.sscontl +++|
00244  M00S00244.sscontl +++|
00245  M00S00245.sscontl +++|*         COMMON DECKS
00246  M00S00246.sscontl +++|
00247  M00S00247.sscontl +++|*CALL COMSEVT
00248  M00S00248.sscontl +++|*CALL COMCMAC
00249  M00S00249.sscontl +++|          USE    //
00250  M00S00250.sscontl +++| RFL=     BSS    0
00251  M00S00251.sscontl +++|          USE    *
00252  M00S00252.sscontl +++|          END    DKFULL