카니아스(CANIS) 날짜 관련 처리

DB에서 날짜가 올라오는 경우는 아래와 같이 처리하면 된다.

STRING값인 경우는 PARSEDATE 또는 FORMATDATE 로 형변환 후에 진행한다.

DB에 DATA가 NULL인경우는 '01.01.1975 00:00:00' 인 값이 올라온다.

GLOBAL:
 STRING V1,
 DATE V2, 
 DATE V3 ;

IF STRLEN(GETMONTH(TMPTABLE_DATE)) == 1 THEN
    V1= '0' + GETMONTH(TMPTABLE_DATE);
ELSE
    V1= GETMONTH(TMPTABLE_DATE);
ENDIF;

V2=  '01.' + V1 + '.' + GETYEAR(TMPTABLE_DATE);
V3= GETDATE(CONTROL_DATE);

IF TMPTABLE_DATE == '01.01.1975 00:00:00' THEN
     MESSAGE SYS I998 WITH 'DB DATA가 없습니다.';
     RETURN 0 ;
ELSE
    IF V2> V3 THEN
        MESSAGE SYS I998 WITH 'DB DATE가 CONTROL DATE보다 큽니다.';
        RETURN 0 ;
    ENDIF; 
ENDIF;

RETURN 1;