home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug061.arc / INIT.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  1KB  |  35 lines
  1. SET TALK OFF
  2. STORE EndBal TO StateBal
  3. STORE CheckBal TO Balance
  4. RELEASE Choice
  5. RELEASE EndBal,BegBal,CheckBal,CanCheck,CanDep,CanMscCrd,CanMscDeb,TotCanCrd 
  6. RELEASE TotCanDeb,OutCheck,OutDep,OutMscCrd,OutMscDeb,TotOutCrd,TotOutDeb,P,C
  7. RELEASE Out,Descrip
  8. COPY TO PEND FOR (.NOT. CAN)
  9. USE CheckMod
  10. ERASE
  11. SET INTENSITY OFF
  12. ? '          WHAT NAME DO YOU WANT TO GIVE YOUR DATABASE? '
  13. ?
  14. ? '               **********************************'
  15. ? '               * NOTE: ".DBF" extension will be *'
  16. ? '               * added to your filename. USE NO *'
  17. ? '               * FILENAME EXTENSION.            *'
  18. ? '               **********************************'
  19. ?
  20. STORE '        ' TO UseBase
  21. SET INTENSITY ON
  22. @ 10,27 GET UseBase  
  23. READ
  24. IF UseBase = '        '
  25.    RETURN
  26. ENDIF
  27. COPY STRUCTURE TO &UseBase  
  28. USE &UseBase
  29. APPEND FROM PEND
  30. DELETE FILE PEND
  31. SAVE TO &UseBase
  32. GO TOP
  33. ERASE
  34. RETURN
  35.