home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / dbutil.zip / CREATE.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  2KB  |  97 lines
  1. * Program.: CREATE.CMD
  2. * Author..: Burton L. Rudman
  3. * Date....: 02/02/83.
  4. * Notice..: Copyright 1983,  BURTON L. RUDMAN
  5. * Notes...: Creates a command file header and footer
  6. *    documentation. This is the recommended 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 "Burton L. Rudman" TO yourname
  15. STORE "Copyright 1983,  BURTON L. RUDMAN" 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. . 
  84. SET TALK OFF 
  85.  
  86. * Store statements follow... 
  87. STORE ' ' TO select 
  88.  
  89. * <body of program goes here> 
  90.  
  91. * <release local memory variables> 
  92. RELEASE select 
  93. RETURN 
  94. * EOF PRINTSAM.PRG 
  95. * <list of parameters passed> .00) .AND. DAY>28
  96.       STORE '        ' TO MDATE
  97.