added CMS folder

CMS/BP.CLOCK/MSD.CLOCK.HIST

@@ -0,0 +1,60 @@
+* MSD.CLOCK.HIST
+*
+$INCLUDE GEN.COMMON
+*
+CRT CS
+HDG='MOVE CLOCKFILE RECORDS TO HISTORY'
+HDL=(80 - LEN(HDG)) / 2
+CRT @(0,0):CL:RV:STR(' ',80):ERV:
+CRT @(HDL,0):RV:HDG:ERV:
+*
+TODAY=DATE()
+*
+OPEN 'CLOCKFILE' TO CLOCKFILE ELSE ABORT 201, 'CLOCKFILE'
+OPEN 'CLOCKFILE.HIST' TO CLOCKFILE.HIST ELSE ABORT 201, 'CLOCKFILE.HIST' 
+
+CRT @(16,3):CL:RV:" This process moves items to CLOCKFILE.HIST. ":ERV:
+100 *
+CRT @(8,9):CR:RV:" Move records to history older than (MM/DD/YY) :":ERV:" ":
+INPUT BDATE,11
+IF BDATE='' OR BDATE=PF3 THEN STOP
+BDATE=ICONV(BDATE,'D')
+IF BDATE < 1 THEN GO 100
+*
+IF BDATE > TODAY-180 THEN
+  CRT @(0,22):CL:BEEP:RV:" SIX MONTHS IS REQUIRED TO REMAIN IN ACTIVE FILE! <return> :":ERV:
+  INPUT ANY,3
+  GO 100
+END
+CRT @(8,9):CL:RV:" Move records to history older than (MM/DD/YY) :":ERV:" ":OCONV(BDATE,'D2/')
+CRT @(0,22):CL:RV:" ENTER 'B' TO BEGIN PROCESS :":ERV:
+INPUT BEGIN.ANS,5
+IF BEGIN.ANS[1,1] # 'B' THEN STOP
+CRT @(0,22):CL:
+*
+EOF=0 ; T=0 ; WT=0
+*
+SELECT CLOCKFILE
+LOOP
+  READNEXT ID ELSE EOF=1
+UNTIL EOF DO
+  T=T+1
+  IF REM(T,500)=0 THEN GOSUB 5000
+  CDATE=OCONV(ID,'G1|1')
+  IF CDATE < BDATE THEN
+    READ CREC FROM CLOCKFILE,ID THEN
+      WRITE CREC ON CLOCKFILE.HIST,ID 
+      DELETE CLOCKFILE,ID
+      WT=WT+1
+    END
+  END
+REPEAT
+*
+GOSUB 5000
+*
+STOP
+*
+5000 *
+CRT @(8,12):CL:" CLOCK RECORDS READ       :":T'L,'
+CRT @(8,13):CL:" RECORDS MOVED TO HISTORY :":WT'L,'
+RETURN