home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / chrchpr4.zip / MMEMVARS.CMD < prev    next >
OS/2 REXX Batch file  |  1987-01-06  |  2KB  |  57 lines
  1. * Program MMEMVARS - Sets current date info; sets memvar globals from MDIRFILE.
  2. Store 'January  February March    April    May      June     ' to MONTHS
  3. Store MONTHS+'July     August   SeptemberOctober  November December ' to MONTHS
  4. If $(DATE(),7,2) = '00'
  5.   Set date to 01,01,00
  6. ENDIF
  7.   Store ' ' to curmonthx
  8.   Store ' ' to curyear
  9.   Store ' ' to curmonth
  10.   * Set today's date from current system-date
  11.   Store $(date(),1,2) to curmo
  12.   Store $(date(),7,2) to curmonthx
  13.   Store val(curmo) to nmonth
  14.   Store curmo+curmonthx to indate
  15.   If $(date(),4,1) = '0'
  16.     Store $(DATE(),5,1) to CURMONTHX
  17.   else
  18.     Store $(DATE(),4,2) to CURMONTHX
  19.   endif
  20.   Store trim($(months,NMONTH*9-8,9)) to curmonth
  21.   Store curmonth+' '+curmonthx to curmonthx
  22.   Store ', 19'+$(DATE(),7,2) to CURYEAR
  23. Select primary
  24. USE MDIRFILE index MDIRFILE
  25. Store trim($(SPACT,4,27)) to CHNAME
  26. SKIP
  27. Store $(SPACT,21,1) to D
  28. SKIP
  29. Store $(spact,28,4) to cyearcon
  30. SKIP
  31. Store trim($(spact,3,29))+' ' to curdates
  32. Store curmonthx+curyear to curdate
  33. GOTO 17
  34. Store !($(spact,29,1)) to FAUPDATE
  35. GOTO 23
  36. Store val($(spact,16,2)) to voteage
  37. SKIP
  38. Store $(spact,26,1) to LSEP
  39. SKIP
  40. Store !($(spact,12,1)) to ZONING
  41. SKIP
  42. Store !($(spact,26,1)) to fullzip
  43. USE
  44. release curmo,months,curyear,curmonthx
  45. RETURN
  46. THERWISE
  47.   Accept 'Illegal entry.  Please enter again: ' to ESEL
  48.   Store T to invalcc
  49. ENDCASE
  50.   enddo
  51. ENDDO
  52. USE
  53. If ADDEDREC
  54.   SET CONSOLE OFF
  55.   Store d+':offerndx.ndx' to xfile
  56.     Delete file &xfile
  57.   Store d+':scmembrs.nd