home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / curcmd.lx < prev    next >
Text File  |  1998-02-24  |  332b  |  12 lines
  1. /* This macro puts the contents of the current line  */
  2. /* in the command dialog so user can edit & then process  */
  3. 'extract content'
  4. 'set lineread.title Current line'
  5. 'set lineread.prompt Enter a command'
  6. 'lineread 255' content
  7. 'extract lastkey'
  8. if lastkey = "ENTER" then do 
  9. 'extract lastline'
  10. 'lxn lxc' lastline
  11. end
  12.