50 lines
653 B
Plaintext
50 lines
653 B
Plaintext
COMPILE ROUTINE FIX_NOTIFICATION(Dummy)
|
|
ROWDEF(CHARSTR)
|
|
|
|
|
|
$INSERT QUOTE_SIGS_EQU
|
|
|
|
debug
|
|
StartOfWeek = XLATE( 'CONFIG', 'QUOTE_SIGS', MastSchedNotifyBeg$, 'X' )
|
|
|
|
EndOfWeek = XLATE( 'CONFIG', 'QUOTE_SIGS', MastSchedNotifyEnd$, 'X' )
|
|
|
|
|
|
OPEN 'NOTIFICATION' TO FileIn ELSE
|
|
debug
|
|
GOTO Bail
|
|
END
|
|
|
|
|
|
READ BegRec FROM FileIn,'MAST_SCHED_BEG' THEN
|
|
|
|
BegRec<2> = StartOfWeek
|
|
WRITE BegRec ON FileIn,'MAST_SCHED_BEG' ELSE Null
|
|
END
|
|
|
|
|
|
|
|
READ EndRec FROM FileIn,'MAST_SCHED_END' THEN
|
|
|
|
EndRec<2> = EndOfWeek
|
|
WRITE EndRec ON FileIn,'MAST_SCHED_END' ELSE Null
|
|
END
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
* * * * * * *
|
|
Bail:
|
|
* * * * * * *
|
|
|
|
|
|
|
|
END
|