Routine: PRSLIB00

Information

PRSLIB00 ;WOIFO/JAH - PAID LIBRARY - ROUTINES & FUNCTIONS ;01/22/2005

Name	Comments	DBIA/ICR reference
AVAILREC(WHO,GLOBREF,OUT)	;IS RECORD AVAILABLE
LOCK(GLOBREF)	;INCREMENTALLY LOCK A RECORD
UNLOCK(GLOBREF)	;INCREMENTALLY UNLOCK A RECORD
ASK(HOLD)	;ask user 2 continue function
BLDYR(NEXT)	;Build year with last digit of year.
LEAPYR(Y)	;boolean function determines if year is leap year.
MONOGRPH(MSG)	;DISPLAY A MESSAGE (MSG)
HUMDRUM(ZZ,INC)	;A SORT OF CLOCK THAT SPINS WHILE LONG PROCESSING IS OCCURRING
MSSG(MSG)	;Randomly pick a heart warming message ; MSGS = The # of messages in this routine. If u add a message, update
MSG	;
CVTDATE(X,PRSDATE)	; ; Called by the input transform of File 458.1 (LEAVE REQUEST) field ; # 2 From Date and field # 4 To Date. ; ; INPUT: X - is set to the external representation of the date ; selected by the user.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,EMPNAME,!,MESSAGE Line Location: AVAILREC+30
Function Call: WRITE	Prompt: !!,HAIR,!,FORHEAD,!,NOSE,!,LINE Line Location: MONOGRPH+11
Function Call: WRITE	Prompt: !,"\| ",?TAB1,MSG,?TAB2,"\|",!,LINE,!,TOE,! Line Location: MONOGRPH+12
Function Call: WRITE	Prompt: $C(13),$S(ZZT=1:"\|",ZZT=2:"/",ZZT=3:"-",ZZT=4:"\",ZZT=5:"\|",ZZT=6:"/",ZZT=7:"-",ZZT=8:"\",1:"") Line Location: HUMDRUM+1