home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug045.ark / P_R340.BAS < prev   
Encoding:
BASIC Source File  |  1984-04-29  |  2.2 KB  |  53 lines
  1.     REMARK    ****************************************\
  2.         *  P/R340.BAS    M-T-D JOB FILE RESET  *\
  3.         *   5/18/79               10:39  AM    *\
  4.         ****************************************
  5.  
  6. %INCLUDE CURSOR
  7.  
  8.     DIM W(2),W1(2),W2(14),W2$(2),G3(5),G2$(5)
  9.     GOTO 6000
  10. %INCLUDE SUBS1
  11. %INCLUDE GENINFO
  12. 6000    Y9=2
  13.     CTRL.C%=1
  14.     OPEN "JOB0F100.DAT" RECL 160 AS 1
  15.     OPEN "G/I0F010.DAT" RECL 200 AS 2                REMARK  OPEN JOB AND GENERAL INFORMATION FILES
  16.     GOSUB 700
  17. 6010    PRINT CLEAR.SCREEN$;"CLEAR JOB MTD FIELDS"            REMARK  DISPLAY PROGRAM I.D.
  18.     PRINT "KEY RETURN TO BEGIN; CTRL-C TO EXIT"            REMARK  DISPLAY OPERATOR INSTRUCTIONS ON CRT
  19.     FOR I%=1 TO 6:PRINT:NEXT I%
  20. 6011    PRINT "THIS PROGRAM WILL CLEAR ALL MTD FIELDS FOR EVERY JOB ON THE ";
  21.     PRINT "JOB ":PRINT "FILE, SO BE SURE YOU WANT THAT TO HAPPEN BEFORE ";
  22.     PRINT "YOU START IT."
  23. 6015    PRINT 
  24.     PRINT "TO END THE PROGRAM WITHOUT CLEARING, PRESS CTRL-C NOW."
  25.     PRINT "IT WILL NOT WORK AFTER THE PROGRAM HAS STARTED."
  26. 6021    X1=256:GOSUB 210
  27.     PRINT "DATE: ";
  28.     X0=G3(1):GOSUB 680.5                        REMARK  DISPLAY CURRENT DATE
  29.     PRINT "    P/R NUMBER:";G3(4)                    REMARK  DISPLAY DAY NUMBER IN PAYROLL PERIOD
  30.     X1=128:GOSUB 210
  31. 6050    X1=128:X2=1:X3=0:X4=0:GOSUB 345
  32.     IF X%=3 THEN GOTO 7000
  33.     X2$= "ARE YOU SURE YOU WANT TO CLEAR MTD FIELDS NOW?"
  34.     X2=1:X3=0:X4=1:GOSUB 665                    REMARK  PROMPT OPERATOR ONE LAST TIME
  35.     IF X%=3 THEN GOTO 7000
  36.     IF X0 <> 1 THEN GOTO 7000                    REMARK  VERIFY ENTRY:'1'=O.K, '0'=EXIT PROGRAM
  37.     FOR K%=1 TO JOB.RECORDS
  38.     READ #1,K%;W(1),W(2)                        REMARK  READ FROM JOB FILE; IF W(2)=0, THEN READ DETAIL
  39.     IF W(2)=0 THEN GOTO 6100
  40.     READ #1,K%;W(1),W(2),W2(1),W2(2),W2(3),W2(4),W2(5),W2(6),W2(7),\
  41.     W2(8),W2(9),W2(10),W2(11),W2(12),W2(13),W2(14)
  42.     IF W2(3)=-1 THEN 6100                        REMARK  SKIP LOGICALLY DELETED JOB RECORDS
  43.     X1=320:GOSUB 210                        REMARK  DISPLAY M-T-D CLEAR STATUS
  44.     PRINT USING "NOW CLEARING JOB ###### -- EMPLOYEE ###";W(1),W(2)
  45.     FOR I%=1 TO 7
  46.     W2(I%)=0                            REMARK  SET MONTH-TO-DATE TOTAL TO ZERO
  47.     NEXT I%
  48.     PRINT #1,K%;W(1),W(2),W2(1),W2(2),W2(3),W2(4),W2(5),W2(6),W2(7),\
  49.     W2(8),W2(9),W2(10),W2(11),W2(12),W2(13),W2(14)            REMARK  RE-WRITE CLEARED JOB DETAIL RECORD
  50. 6100    NEXT K%
  51. 7000    PRINT CLEAR.SCREEN$;"MTD JOB CLEAR LOADING MENU"        REMARK  DISPLAY PROGRAM EXIT MESSAGE
  52.     CHAIN "P/R000"
  53.