home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug106.arc / CHECKS.LBR / $REPORT1.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  64 lines
  1. * * * * *    $REPORT1.CMD   * * * * *      6/30/84
  2. *
  3. *  This program will print REPORT "CHECKS OUTSTANDING"
  4. *  from $CHECKS.DBF
  5. *
  6. SET TALK OFF
  7. SET EJECT OFF
  8. STORE 'Y' TO again
  9. DO WHILE again = 'Y'
  10.    ERASE
  11.    DO $accts.mnu
  12.    IF account = 'X'
  13.       RELEASE again
  14.       RETURN
  15.    ENDIF
  16.    USE $checks
  17.    ERASE
  18.    ?
  19.    ?
  20.    ?  "        Don't forget to turn PRINTER ON !!!  " + CHR(7)
  21.    ?
  22.    ?
  23.    ?  '         Press any key to continue...'
  24.    SET CONSOLE OFF
  25.    WAIT
  26.    SET PRINT ON
  27.    REPORT FORM $REPORT1 FOR acct = '&ACCOUNT' .AND. .NOT. can
  28.    ? CHR(7)
  29.    SET CONSOLE ON
  30.    SET PRINT OFF
  31.    ?
  32.    ?
  33.    ? '  Would you like to print another OUTSTANDING CHECK'
  34.    ?? ' Report  (Y/any) ?'
  35.    SET CONSOLE OFF
  36.    WAIT TO again
  37.    STORE !(again) TO again
  38.    SET CONSOLE ON
  39. ENDDO
  40. RELEASE again
  41. RETURN
  42.  4FG*A  613FIRST BANKCARD CENTER             450.00T01/18/84KV*A  614GIANT FOOD                         27.41T01/23/84FG*A  615OS program gener * * *   $EXIT.CMD   * * * * *      6/30/84
  43. *
  44. *   Used to exit from the program.
  45. ERASE
  46. SET INTENSITY OFF
  47. @  4,30 SAY "EXIT MENU"
  48. @  5,27 SAY "==============="
  49. @  8,23 SAY "A - Exit to DBASE II"
  50. @ 10,23 SAY "B - Exit to CP/M"
  51. @ 12,23 SAY "C - ABORT Exit"
  52. @ 16,27 SAY "PLEASE ENTER YOUR DESIRE..."
  53. SET INTENSITY ON
  54. SET CONSOLE OFF
  55. WAIT TO stop
  56. STORE !(stop) TO stop
  57. SET CONSOLE ON
  58. DO CASE
  59.     CASE stop = 'A'
  60.          USE
  61.          RELEASE ALL
  62.          SET TALK ON
  63.          ERASE
  64.          *