home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug104.arc / CREATE.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  2KB  |  83 lines
  1. * Program.: CREATE.CMD
  2. * Author..: Luis A. Castro. 
  3. * Date....: 02/02/83. 
  4. * Notice..: Copyright 1983,  ASHTON-TATE.
  5. * Notes...: Creates a command file header and footer
  6. *    documentation. This is the recommend way to
  7. *    document command files.
  8.  
  9. SET TALK OFF 
  10. SET INTENSITY OFF 
  11.  
  12. * Replace my name with your name and
  13. * replace our copyright notice with your's. 
  14. STORE "Luis A. Castro" TO yourname
  15. STORE "Copyright 1983,  ASHTON-TATE" TO notice
  16.  
  17. ERASE
  18. ?
  19. ? '* Program...:'
  20. ? '* Author(s).:'+yourname
  21. ? '* Date......:'
  22. ? '* Notice....:'+notice
  23. ? '* Called by.:'
  24. ? '* Call(s)...:' 
  25. ? '* Notes.....:'
  26. @ 0,0
  27.  
  28. * Get program file name...
  29. ACCEPT '* Program...' to filename
  30. IF @('.',filename) > 0
  31.    STORE $(filename,1,@('.',filename)-1) to filename
  32. ENDIF
  33. IF filename=' '
  34.    ERASE
  35.    RETURN
  36. ENDIF
  37. STORE !(filename)+'.PRG' TO filename
  38. IF FILE(filename)
  39.    @ 10,0
  40.    ? '*** FILE ALREADY EXISTS ***'
  41.    CLEAR
  42.    RETURN
  43. ENDIF
  44.  
  45. * Next, get the rest of the information...
  46. ?
  47. ACCEPT '* Date......' TO date
  48. ?
  49. ACCEPT '* Called by.' TO called:by
  50. ACCEPT '* Call(s)...' TO calls
  51. ACCEPT '* Notes.....' TO notes
  52.  
  53. * Now, create the command file...
  54. ERASE
  55. SET ALTERNATE TO &filename
  56. SET ALTERNATE ON
  57. ? '* Program...: '+filename
  58. ? '* Author(s).: '+yourname
  59. ? '* Date......: '+date
  60. ? '* Notice....: '+notice
  61. ? '* Called by.: '+called:by
  62. ? '* Call(s)...: '+calls
  63. ? '* Notes.....: '+notes
  64. ?
  65. ? '* Set flags go here...'
  66. ? 'SET TALK OFF'
  67. ?
  68. ? '* Store statements follow...'
  69. ? "STORE ' ' TO select"
  70. ?
  71. ? '* <body of program goes here>'
  72. ?
  73. ? '* <release local memory variables>'
  74. ? 'RELEASE select'
  75. ? 'RETURN'
  76. ? '* EOF '+filename
  77. ? '* <list of parameters passed>'
  78. SET ALTERNATE OFF
  79.  
  80. CLEAR
  81. RETURN
  82. * EOF create.cmd 
  83.