home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug106.arc / CHECKS.LBR / $REPORT2.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  104 lines
  1. * * * * *   $REPORT2.CMD   * * * * *      30 JUN 84  SMM & JJG
  2. *
  3. *  This program will print REPORT "CHECKS WRITTEN FOR A SPECIFIED
  4. *  PURPOSE, BETWEEN SPECIFIED INCLUSIVE DATES" from $CHECKS.DBF
  5. *
  6. USE b:$checks
  7. SET TALK OFF
  8. SET EJECT OFF
  9. STORE 'Y' TO again
  10. DO WHILE again = 'Y'
  11.   ERASE
  12.   DO $accts.mnu
  13.   IF account = 'X'
  14.      RETURN
  15.   ENDIF
  16.   STORE 'X' TO over
  17.   DO WHILE over <> 'Y'
  18.     STORE '        ' TO start
  19.     STORE '        ' TO end
  20.     STORE '  ' TO purpose
  21.     ERASE
  22.     @ 5,15 SAY 'Enter START Date ( MM/DD/YY )  ' GET start;
  23.            PICTURE '99/99/99'
  24.     @ 7,15 SAY 'Enter END Date ( MM/DD/YY )    ' GET end;
  25.            PICTURE '99/99/99'
  26.     @ 9,15 SAY 'Enter PURPOSE of checks (one or two letters)  ';
  27.            GET purpose
  28.     READ
  29.     @ 13,15 SAY 'Are all entries correct (Y/any) ?  '
  30.     SET CONSOLE OFF
  31.     WAIT TO over
  32.     STORE !(over) TO over
  33.     SET CONSOLE ON
  34.   ENDDO  ===> over
  35.   STORE !(purpose) to purpose
  36.   ERASE
  37.   ?
  38.   ?
  39.   ? '     Please wait while sorting....'
  40.   USE $catgs
  41.   INDEX ON memo TO memo
  42.   USE $catgs INDEX memo
  43.   FIND &purpose
  44.   STORE descrip TO cat
  45.   USE $checks
  46.   ERASE
  47.   ? CHR(7)
  48.   ?
  49.   ?
  50.   ? '     THANK-YOU for waiting...'
  51.   ?
  52.   ? '     Now, be sure to turn the PRINTER ON !!!'
  53.   ?
  54.   ?
  55.   ? '     Press any key to continue...'
  56.   SET CONSOLE OFF
  57.   WAIT
  58.   SET PRINT ON
  59.   ? 'REPORT FOR', acctname, 'CHECKS DATED FROM : ',start,;
  60.     ' THRU ', end
  61.   ?
  62.   ? 'PURPOSE OF CHECKS: ', TRIM(cat), '  --  (', purpose, ')'
  63.   ?
  64.   ?
  65.   REPORT FORM $REPORT2 FOR acct = '&account' .AND. ;
  66.    date >= '&start' .AND. date <= '&end' .AND. ;
  67.    memo = '&purpose' PLAIN
  68.   ? CHR(7)
  69.   SET PRINT OFF
  70.   SET CONSOLE ON
  71.   ?
  72.   ?
  73.   ? "     Would you like ANOTHER 'purpose' report (Y/any) ?"
  74.   SET CONSOLE OFF
  75.   WAIT TO again
  76.   STORE !(again) TO again
  77.   SET CONSOLE ON
  78. ENDDO
  79. DELE FILE B:MEMO.NDX
  80. RETURN
  81. over
  82.   ENDDO  ===> over
  83. ENDIF ===>  DATE() = '00/00/00'
  84. *  - specify disk containing command files
  85. @ 10,9 SAY 'Enter disk drive containing command files:  '
  86. SET CONSOLE OFF
  87. WAIT TO disk
  88. STORE !(disk) TO disk
  89. SET CONSOLE ON
  90. SET DEFAULT TO &disk
  91. RELEASE disk
  92. DO WHILE T
  93.   ERASE
  94.   ? "               The GRIFFIN'S Personal Finance System"
  95.   ?
  96.   ? '                                                                               
  97.   ? '    Now, be sure to turn the PRINTER ON !!!'
  98.   ?
  99.   ?
  100.   ? '    Press any key to continue...'
  101.   SET CONSOLE OFF
  102.   WAIT
  103.   SET PRINT ON
  104.   ? 'REPO