home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG182.ARC / CHEX.LBR / ALTER.CMD next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  60 lines
  1.                 *...THIS IS COMMAND FILE "ALTER" MODIFIED 09/02/83...
  2. *...Erase the screen...
  3.   ERASE
  4. *...Use the non-indexed file to display entries of interest...
  5.   USE &BLAST
  6. *...Display the last check written for reference to record number...
  7.   GOTO BOTTOM
  8.   ?' The last check written was:'
  9.   DISPLAY
  10.   ?
  11. *...Update the balance, starting at a number where balance is correct...
  12.   ?' Enter a RECORD NO where balance'
  13.   INPUT ' is known to be correct and press RETURN ' TO SRN
  14.   STORE # TO ERN
  15.   STORE ERN + 2 TO ERN
  16.   STORE (ERN-SRN) TO VARIABLE
  17.   GOTO SRN
  18.   SKIP -1
  19.   STORE B TO TEMP
  20.   SKIP +1
  21.   STORE 1 TO INDEX
  22.   DO WHILE INDEX < VARIABLE
  23.     STORE (TEMP-A) TO TEMP
  24.     REPLACE B WITH TEMP
  25.     SKIP 1
  26.     STORE INDEX + 1 TO INDEX
  27. *...Go back to 'do while' if all checks aren't updated yet...
  28.     ENDDO VARIABLE TIMES
  29. *...Go back to main menu when all checks are updated...
  30.     IF INDEX = VARIABLE
  31.       RETURN
  32.       ENDIF
  33.                *...END OF COMMAND FILE 'ALTER'...
  34.  
  35.  
  36. ter a RECORD NO where balance'
  37. INPUT ' is known to be correct and press RETURN ' TO SRN
  38.   STORE # TO ERN
  39.   STORE ERN + 2 TO ERN
  40.   STORE (ERN-SRN) TO VARIABLE
  41.   GOTO SRN
  42.   SKIP -1
  43.   STORE B TO TEMP
  44.   SKIP +1
  45.   STORE 1 TO INDEX
  46.   DO WHILE INDEX < VARIABLE
  47.     STORE (TEMP-A) TO TEMP
  48.     REPLACE B WITH TEMP
  49.     SKIP 1
  50.     STORE INDEX + 1 TO INDEX
  51.     ENDDO VARIABLE TIMESOMMAND FILE "MENU" MODIFIED 8/7/83
  52. ?
  53. DO WHILE T
  54. ERASE
  55. ?
  56. ?
  57. ?
  58. ?'                               MENU'
  59. ?'                              ******'
  60. @