|
This code is inside a procedure and everything compiled ok, but when I try
to run it, I get a date / timestamp error.
Here is the relevant code snippet:
0045.00 PRecallChk b Export
0045.01 FVndRclMst1if e k disk Static
0047.00 D PI 1n
0048.00 dwItmNo 7 0
0049.00 dwLotNo 20
0049.01 dwUsrDate d
0050.00
0050.01 DwId s 20 0
0050.02 DDateVal s 1 0
0056.00 DRetVal s 1n
0057.00
0057.01 DGetRcd Ds LikeRec(VndRclMstr)
0057.02
0058.01 // Check to see if Item exists in Recall File
0058.02 // If not we end process
0058.03
0058.04 Setll (wItmNo) VndrclMst1;
0058.05 Reade (wItmNo) VndRclMst1 GetRcd;
0058.06 Dow Not %Eof(VndRclMst1);
0058.07 Select;
0058.08 When %NullInd(GetRcd.VrbExpDt) = *On;
0058.09
0058.10 When %NullInd(GetRcd.vreExpDt) = *Off and
0058.11 (wUsrDate>= GetRcd.VrbExpDt and
Everything proceeds fine until it hits the select statement at which time
I get a Date, Time, or Timestamp value is not valid.
The file has a field that allows for a null date, but it never seems to
get to the null indicator check.
Am I doing something wrong here?
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.