added CMS folder

CMS/BP.CLOCK/SCOTT.TEST

@@ -0,0 +1,30 @@
+*
+$INCLUDE GEN.COMMON
+$INCLUDE USER
+OPEN 'USER' TO USER ELSE ABORT
+OPEN 'CLOCKFILE' TO CLOCKFILE ELSE ABORT
+OPEN 'SCOTT.WORK' TO SCOTT.WORK ELSE ABORT
+*
+T=0
+WT=0
+EOF=0
+*
+*EXECUTE "GL SCOTT"
+SELECT SCOTT.WORK
+*
+LOOP
+  READNEXT ID ELSE EOF=1
+UNTIL EOF DO
+  T=T+1
+  READ WK.REC FROM SCOTT.WORK,ID THEN
+    IF WK.REC<1>='' ELSE
+      CDATE=OCONV(ID,'G1|1')
+      NEW.KEY='7943|':CDATE
+      WRITE WK.REC ON SCOTT.WORK,NEW.KEY
+      WT=WT+1
+    END
+  END
+REPEAT
+CRT 'T  ':T
+CRT 'WT ':WT
+STOP