home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 126 / af126a.adf / Football.lzx / football / user / FixturesLeft.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-22  |  3KB  |  107 lines
  1. /* ***********************************************************************
  2.  
  3.    DISPLAY FIXTURES LEFT PROGRAM FOR FOOTBALL REXX SUITE
  4.   -------------------------------------------------------
  5.                    Copyright  Mark Naughton 1998
  6.  
  7.  
  8. Version    Date     History
  9. --------------------------------------------------------------------------
  10.  1.0       140498   First release.
  11.  1.1       050599   Updated to handle odd number of times each team is
  12.                     played - displays a message; but only if its not
  13.                     scheduled using a schedule file.
  14.  
  15. **************************************************************************
  16.  
  17. Procedure
  18. ---------
  19.  
  20. 1. Check files exist. Read '.df' file for schedule and numplay settings.
  21. 2. Open Teams.sf datafile. Get league name.
  22. 3. Search for unplayed matches and store.
  23. 4. Print the matches and exit...
  24.  
  25. ************************************************************************** */
  26. PARSE ARG league_stuff
  27.  
  28. version      = 1
  29. input_file   = '.sf'
  30. input2_file  = '.df'
  31. separator    = '*'
  32. separator2   = '**'
  33. games.       = '???'
  34. mtch         = 0
  35. not_played   = '__   __'
  36. autosched    = "*AUTOSCHD="
  37. autos        = 0
  38. numplay      = 0
  39. oddnums      = "1 3 5 7 9"
  40.  
  41.  
  42. parse var league_stuff league_file
  43. league_file = "Data/" || league_file
  44.  
  45. if exists(league_file || input_file) = 0  then exit
  46. if exists(league_file || input2_file) = 0  then exit
  47.  
  48.  
  49. if open(datafile2,league_file || input2_file,'r') then do
  50.    do while ~eof(datafile2)
  51.       line = readln(datafile2)
  52.       if pos(playeo,line) > 0 then
  53.          numplay = delstr(line,1,12)
  54.       if pos(autosched,line) > 0 then
  55.          autos = 1
  56.    end
  57.    close(datafile2)
  58. end
  59. else do
  60.    say
  61.    say "ERROR :    (FixturesLeft)"
  62.    say
  63.    say "Cannot read '"league_file || input2_file"' datafile."
  64.    exit
  65. end
  66.  
  67. if open(datafile,league_file || input_file,'r') then do
  68.    do while ~eof(datafile)
  69.       line = readln(datafile)
  70.       if pos(separator2,line) > 0 then
  71.          league_title = delstr(line,1,3)
  72.       if pos(not_played,line) > 0 then do
  73.          mtch = mtch + 1
  74.          games.mtch = line
  75.       end
  76.    end
  77.    close(datafile)
  78. end
  79. else do
  80.    say
  81.    say "ERROR :    (FixturesLeft)"
  82.    say
  83.    say "Cannot open '"league_file||input_file"' for reading."
  84.    exit
  85. end
  86.  
  87. say
  88. say center("'"league_title"'",78)
  89. say "-------------------------------------------------------------------------------"
  90. say
  91. if autos = 0 & pos(numplay,oddnums) > 0 then do
  92.    say "These fixtures will be incorrect as these teams play each other an odd"
  93.    say "number of times and FOOTBALL has to write a schedule for each team as"
  94.    say "this league is not scheduled using a schedule file."
  95.    say
  96. end
  97. say "Fixtures To Be Played : "mtch
  98. say
  99. do i=1 to mtch
  100.    say games.i
  101. end
  102. say
  103. say
  104. say "-------------------------------------------------------------------------------"
  105. say
  106.  
  107. exit