home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / rpvcs / gafrlstu.rex next >
Encoding:
OS/2 REXX Batch file  |  1993-01-14  |  1.6 KB  |  57 lines
  1. /* GAFRLSTU.REX - Get All FRom LiST Unlocked
  2.  
  3.    This macro GETs all files in an LST file generated from either
  4.    an os tool or SourceLink
  5.    
  6.    Customizations necessary:
  7.      1. Create a list of PVCS logfiles using SourceLink's Maintain 
  8.         List-Of-File.
  9.      2. Edit the list, removing the 1st line, the '\\#'.
  10.      3. Alter the alias' herein to suite.
  11.      4. Edit all Alias' below to suit.
  12. */
  13.  
  14. /* -------------------------- Alias list ----------------------------*/
  15.  
  16.       /* The path to PVCS GET.EXE */
  17. GetPath = 'e:\pvcs\get'
  18.  
  19.       /* The path to the group file */
  20. GroupPath = 'e:\pvcs\macros\test\eric.grp'   
  21.  
  22.       /* The directory that will be the destination for the workfiles */
  23. DestDir = 'e:\pvcs\macros\test'
  24.  
  25.       /* This is the Configuration File parameter */
  26.       /* create pattern: -c\..\..\vcs.dir */
  27. CfgParam = insert('-c',DestDir)
  28. CfgParam = insert(CfgParam,'\vcs.cfg')
  29.  
  30.       /* This is the Error Output path */
  31.       /* create pattern: -xe\..\..\err */
  32. ErrPath = insert(DestDir,'\err')
  33.  
  34.       /* This is the Error Output parameter */
  35.       /* create pattern: \..\..\err */      
  36. ErrParam = insert('-xe',ErrPath)
  37.  
  38.       /* This is the Group file parameter */
  39.       /* create pattern: @\..\..\file.grp(destDir) */
  40. GroupParam = insert('@',GroupPath)
  41.  
  42. /* ---------------------------- Begin ------------------------------ */
  43.  
  44.  
  45. 's_cd' DestDir
  46. cmd = GetPath '-w -q ' ErrParam CfgParam GroupParam
  47. cmd
  48.  
  49. if \(rc=0) then
  50.   do
  51.   's_msg "GET ALL failed","Error Code was:",' RC ',resp'
  52.   slstart ErrPath
  53.   end
  54. else
  55.   's_msg "GET ALL succeeded",,,resp'
  56.  
  57. /* end */