home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / smart21b.zip / MACROS / REST_ENV.REX < prev    next >
OS/2 REXX Batch file  |  1992-09-01  |  861b  |  38 lines
  1. /* Rexx Macro to Restore Environment */
  2. if ARG(1,'E') 
  3.    then
  4.       OLDFILENAME = ARG(1)
  5.    else
  6.       'S_PROMPT' 'Enter Environment Filename,' 'OLDFILENAME'
  7.  
  8. S_DOES_FILE_EXIST OldFileName FileExists
  9. if FileExists = 'FALSE'
  10.    then say 'File does not exist'
  11.  
  12. do until LINES( OldFilename ) = 0
  13.    CurrLine = LINEIN( OldFilename )
  14.    Filename = WORD( CurrLine, 1 )
  15.    
  16.    Loc = WORD( CurrLine, 2 )
  17.    PARSE VALUE Loc WITH '(' LineNum ':' ColNum ')'
  18.    
  19.    Editmode = WORD( CurrLine, 3 )
  20.    if Editmode = EDIT
  21.        then EditOpen = 'E'
  22.    else
  23.        EditOpen = 'R'
  24.        
  25.    Wrapmode = WORD( CurrLine, 4 )
  26.    if Wrapmode = WRAP
  27.        then WrapOpen = Y
  28.    else
  29.        WrapOpen = N
  30.        
  31.    'S_OPEN_SL_FILE 0' EditOpen WrapOpen Filename
  32.    if rc = 0 
  33.       then do  
  34.          S_GOTO_LINE LineNum
  35.          S_GOTO_COL ColNum
  36.       end
  37. end
  38.