home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / chrchpr3.zip / BMEMVARS.CMD < prev    next >
OS/2 REXX Batch file  |  1991-01-21  |  2KB  |  55 lines

  1. * Program BMEMVARS - Reads file BDIRFILE to get church budget parameter values
  2. Select secondary
  3. Use BDIRFILE index BDIRFILE
  4. Store 'January  February March    April    May      June     ' to MONTHS
  5. Store MONTHS+'July     August   SeptemberOctober  November December ' to MONTHS
  6. If $(DATE(),7,2) = '00'
  7.   Set date to 01,01,00
  8. ENDIF
  9.   Store ' ' to curmonthx
  10.   Store ' ' to curyear
  11.   Store ' ' to curmonth
  12.   * Set today's date from current system-date
  13.   Store $(date(),1,2) to curmo
  14.   Store $(date(),7,2) to curmonthx
  15.   Store val(curmo) to nmonth
  16.   Store curmo+curmonthx to indate
  17.   Store VAL(curmonthx) to CURYEAR
  18.   If $(date(),4,1) = '0'
  19.     Store $(DATE(),5,1) to CURMONTHX
  20.   else
  21.     Store $(DATE(),4,2) to CURMONTHX
  22.   endif
  23.   Store trim($(months,NMONTH*9-8,9)) to curmonth
  24.   Store curmonth+' '+curmonthx to curmonthx
  25.   Store ', 19'+$(DATE(),7,2) to CURYEAR
  26. GOTO 1
  27. Store trim($(SPACT,4,27)) to CHNAME
  28. SKIP
  29. Store $(SPACT,21,1) to D
  30. USE
  31. Select primary
  32. Store curmonthx+curyear to curdate
  33. Release months,curmonthx,curmonth,indate,nmonth,curmo,curyear
  34. RETURN
  35.  
  36. ewpdate,pp OFF
  37.       USE
  38.       ?
  39.       Accept '    - END OF ACCOUNTS FILE -        press <return>' to xx
  40.     CASE MSEL='9'
  41.       Do CFBSETUP.CMD
  42.       Clear
  43.       Store T to vaildd1
  44.       Store T to LEVEL1
  45.       Do BMEMVARS.CMD
  46.       Save to FMEMVARS
  47.     CASE !(MSEL) = 'Q'
  48.       Store F to LEVEL2
  49.     OTHERWISE
  50.       Accept 'Illegal selection. Please enter again ' to MSEL
  51.       Store F to validd1
  52.   ENDCASE
  53. ENDDO
  54. endif
  55. Rest                                                                                                                               1283,1283  Morgan         Sharon        MORS0012 821-2334 8944 56th Ave S.         Mpls, MN            55417     11/02/49-                     Y            47729-8321 C-3                           BS,SA,CE"                                                                                                                                    1283,1283  Morrison       Dennis        MORD001