home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / fillchar.lx < prev    next >
Text File  |  1998-02-24  |  403b  |  14 lines
  1. /* This macro provides a dialog where the user can enter */
  2. /* a block fill character  */
  3. 'lxn extract blocktype'
  4.    if blocktype = 'UNSET' then 
  5.  MSG 'Must mark a block before setting a fill character'
  6. 'set lineread.title Fill a Block'
  7. 'set lineread.prompt Enter fill character'
  8. 'lineread 255' 
  9. 'extract lastkey'
  10. if lastkey = "ENTER" then do 
  11. 'extract lastline'
  12. 'block fill' lastline
  13. end
  14.