home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / rename.lx < prev    next >
Text File  |  1998-02-24  |  357b  |  12 lines
  1. /* This macros provides the user with a dialog to change */
  2. /* the name of the current file, the file is not saved and */
  3. /* the syntax of the rename is not checked */
  4. 'set lineread.title Rename File'
  5. 'set lineread.prompt Enter new name:'
  6. 'lineread 255'
  7. 'extract lastkey'
  8. if lastkey = "ENTER" then do 
  9. 'extract lastline'
  10. 'set name' lastline
  11. end
  12.