home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
chrchpr4.zip
/
MMEMVARS.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1987-01-06
|
2KB
|
57 lines
* Program MMEMVARS - Sets current date info; sets memvar globals from MDIRFILE.
Store 'January February March April May June ' to MONTHS
Store MONTHS+'July August SeptemberOctober November December ' to MONTHS
If $(DATE(),7,2) = '00'
Set date to 01,01,00
ENDIF
Store ' ' to curmonthx
Store ' ' to curyear
Store ' ' to curmonth
* Set today's date from current system-date
Store $(date(),1,2) to curmo
Store $(date(),7,2) to curmonthx
Store val(curmo) to nmonth
Store curmo+curmonthx to indate
If $(date(),4,1) = '0'
Store $(DATE(),5,1) to CURMONTHX
else
Store $(DATE(),4,2) to CURMONTHX
endif
Store trim($(months,NMONTH*9-8,9)) to curmonth
Store curmonth+' '+curmonthx to curmonthx
Store ', 19'+$(DATE(),7,2) to CURYEAR
Select primary
USE MDIRFILE index MDIRFILE
Store trim($(SPACT,4,27)) to CHNAME
SKIP
Store $(SPACT,21,1) to D
SKIP
Store $(spact,28,4) to cyearcon
SKIP
Store trim($(spact,3,29))+' ' to curdates
Store curmonthx+curyear to curdate
GOTO 17
Store !($(spact,29,1)) to FAUPDATE
GOTO 23
Store val($(spact,16,2)) to voteage
SKIP
Store $(spact,26,1) to LSEP
SKIP
Store !($(spact,12,1)) to ZONING
SKIP
Store !($(spact,26,1)) to fullzip
USE
release curmo,months,curyear,curmonthx
RETURN
THERWISE
Accept 'Illegal entry. Please enter again: ' to ESEL
Store T to invalcc
ENDCASE
enddo
ENDDO
USE
If ADDEDREC
SET CONSOLE OFF
Store d+':offerndx.ndx' to xfile
Delete file &xfile
Store d+':scmembrs.nd