XCALL DATES.SBR (C)1989 By MEDA COMP, INC. (210)490-9008
MAP1 DATE1,B,4 !Date var 1
MAP1 DATE2,B,4 !Date var 2
MAP1 DAYS,F !# Var
MAP1 PARAM,B,2 !Result Codes, usually ignored
!See table of codes at end of doc
SPECIAL NOTES: PREFERS "B,4" TYPE VARIABLES AND WILL RETURN THE
DATE IN "YYYYMMDD" FORMAT, THUS AVOIDING THE DATE BOMB.
WILL HANDLE FLOATING POINT VARS AND STRING VARS AS WELL, BUT
ASSUMES THE "YYYYMMDD" FORMAT IF NOT A JULIAN NUMERIC DATE.
THERE ARE SOME OTHER FUNCTIONS BUILT IN FOR FORMATTED DATES,
DAY OF MONTH, WEEK, ETC. SEE SOURCE CODE FOR MORE INFO.
FUNCTIONS:
1 XCALL DATES, 1, PARAM, DATE1, DATE2
will convert an ASCII date to standard date
!----------------------------------------------------------------------
Special function
A floating point 0 will be converted to today's date on input.
For example:
XCALL DATES,1,PARAM, 0, DATE2
Will return DATE2 with today's date (i.e. 19930729 )
!----------------------------------------------------------------------
2 XCALL DATES, 2, PARAM, DATE1, DATE2, DAYS
Will compute DATE2 = DATE1 + DAYS
3 XCALL DATES, 3, PARAM, DATE1, DATE2, DAYS
Will compute DAYS = DATE2 - DATE1
PARAM (F) CODES:
0 ALL OK
1 FUNCTION NUMBER OUT OF RANGE (1..8)
2 ERROR IN CONVERSION OF INPUT DATE
3 INVALID FORMAT FOR DATE
4 IMPROPER NUMBER/TYPE OF PARAMETERS
5 INVALID FORMAT FOR DAYS
6 ERROR LOCATING FILE CHANNEL
7 VARABLE NOT A BINARY4
TO COMPIL....use M68 and then LNKLIT to produce the ".SBR" module
.....requires some libraries, including "DATES.UNV" supplied
