added CMS folder

CMS/BP.CLOCK/STATUS.WO.PRINT

@@ -0,0 +1,171 @@
+*--------------------------*
+* TABLE
+* GENERIC TABLE MAINTENANCE PROGRAM TO UPDATE CLOCK TABLES.
+*--------------------------*
+CS=@(-1) ; CR=@(-3) ; CL=@(-4) ; RV=@(-13) ; ERV=@(-14)
+VM=CHAR(253) ; SVM=CHAR(252) ; AM=CHAR(254) ; BEEP=CHAR(7)
+PF1='<' ; PF2='P' ; PF3='/'
+FF=CHAR(12)
+LF=CHAR(10):CHAR(13)
+PROMPT ""
+HD=''; LN=''; LNCT=0
+COL=0; POS=0; MAX=20
+LAYOUT=''
+GOSUB 10000 ;* SETUP LAYOUT ARRAY
+*
+FILENAME='STATUS.WORKORDER'
+OPEN FILENAME TO OFILE ELSE ABORT
+EXECUTE \SSELECT \:FILENAME
+BRAY=''
+LOOP
+ READNEXT KEY ELSE KEY='EOF'
+UNTIL KEY='EOF' DO
+ BRAY=INSERT(BRAY,1,-1;KEY)
+REPEAT
+*
+GOSUB 2100
+BCT=DCOUNT(BRAY<1>,VM)
+B=0
+LOOP
+ B=B+1
+ KEY=BRAY<1,B>
+UNTIL B > BCT DO
+ READ IREC FROM OFILE,KEY THEN
+  OREC=IREC
+  IREC=INSERT(IREC,1;KEY)
+  GOSUB 2000; * DISPLAY RECORD
+ END
+REPEAT
+CRT @(0,22):CL
+STOP
+*
+2000 * DISPLAY DATA
+ FOR A=1 TO 7
+  ISTR=IREC<A>
+  IF LAYOUT<5,A>#'' THEN
+   ISTR=OCONV(ISTR,LAYOUT<5,A>)
+  END
+  ILEN=LAYOUT<4,A>
+  IF A=7 THEN
+   OLEN=LEN(ISTR)
+   IF OLEN > ILEN THEN
+    GOSUB 2600
+    LN=LN:OSTR
+   END ELSE
+    GOSUB 2700 ;* JUST ADD ISTR TO THE PRINT LINE
+    LN=LN:OSTR
+   END
+  END ELSE
+   GOSUB 2500
+   LN=LN:OSTR
+  END
+ NEXT A
+ GOSUB 2100
+RETURN
+2100 * PRINT LINE LOGIC
+ IF LNCT=0 THEN
+  IF MODE THEN
+   GOSUB 132
+   LN=FF:HD
+  END ELSE
+   LN=FF:HD[1,80]
+  END
+ END ELSE
+  IF MODE THEN
+   GOSUB 132
+  END ELSE
+   LN=LN[1,80]
+  END
+ END
+ IF LNCT > MAX THEN
+  LNHOLD=LN
+  LNCT=0
+  GOSUB 2100
+  LN=LNHOLD
+ END
+ PRINT LN
+ LN=''
+ LNCT=LNCT+1
+RETURN
+2500 * CONSTRUCT ELEMENTS FOR OUTPUT LINE
+ OLEN=INT(ILEN/2)-INT(LEN(ISTR)/2)
+ OSTR=SPACE(OLEN):ISTR
+ MASK="L#":ILEN
+ OSTR=OSTR MASK
+RETURN
+2600 * 
+DONE=0
+X=1; Y=ILEN; Z=0
+ LOOP
+  Z=Z+1  
+ UNTIL DONE DO
+  IF Z > 1 THEN
+   X=Z*Y-Y+1
+   OSTR=OSTR:LF:SPACE(75):ISTR[X,Y]
+   LNCT=LNCT+1
+   IF X+Y > OLEN THEN DONE=1
+  END ELSE
+   OSTR=ISTR[X,Y]
+  END
+ REPEAT
+RETURN
+2700 *
+ MASK="L#":ILEN
+ OSTR=OSTR MASK
+RETURN
+*
+80 *
+ A=CHAR(27):"`:":CHAR(12)
+ PRINT A
+RETURN
+132 *
+ A=CHAR(27):"`;":CHAR(12)
+ PRINT A
+RETURN
+*
+10000 * SETUP LAYOUT ARRAY
+FOR A=1 TO 7
+ LAYOUT<1,A>=A
+NEXT A
+LAYOUT<2,1>='WORK ORDER'
+LAYOUT<3,1>='Enter the WORK ORDER #'
+LAYOUT<4,1>=10
+*
+LAYOUT<2,2>='WO DATE'
+LAYOUT<3,2>='Enter the DATE the Work Order was Submitted'
+LAYOUT<4,2>=10
+LAYOUT<5,2>='D2/'
+*
+LAYOUT<2,3>='DUE DATE'
+LAYOUT<3,3>='Enter the DATE the Work Order is DUE'
+LAYOUT<4,3>=10
+LAYOUT<5,3>='D2/'
+*
+LAYOUT<2,4>='DESCRIPTION'
+LAYOUT<3,4>='Enter a brief DESCRIPTION of this Work Order'
+LAYOUT<4,4>=30
+*
+LAYOUT<2,5>='PRGMR'
+LAYOUT<3,5>='Enter PROGRAMMER assigned to the task'
+LAYOUT<4,5>=5
+*
+LAYOUT<2,6>='COMPLETED'
+LAYOUT<3,6>='Enter the DATE this project was COMPLETED'
+LAYOUT<4,6>=10
+LAYOUT<5,6>='D2/'
+*
+LAYOUT<2,7>='POST COMPLETION NOTES'
+LAYOUT<3,7>='Enter NOTES (ie, counts, outstanding issues, etc.)'
+LAYOUT<4,7>=50
+*
+MODE=0
+*
+ ACT=DCOUNT(LAYOUT<1>,VM)
+ FOR A=1 TO ACT
+  ISTR=LAYOUT<2,A>
+  ILEN=LAYOUT<4,A>
+  GOSUB 2500
+  HD=HD:OSTR
+ NEXT A
+*
+RETURN