MVSFORUMS.com

[nadh]

Hi,

I want to compare single date with range in week date mm/dd/yy format in COBOL

ex 01/01/05 with 01/01/05 to 01/07/05 in cobol code

How to do it in cobol. If possible pls. provide code.

Thanks in advance
Nadh.

I searched for this topic, but i could not find sol.

[kolusu]

Nadh,

You can add 7 days to your beginning date to get the ending date. Check this link which discusses about adding and subtracting days to gregorian date.

http://www.mvsforums.com/helpboards/viewtopic.php?t=2261&highlight=date

Hope this helps...

Cheers

kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[BruceG]

In WORKING-STORAGE:

01 WS-FROM-YYMMDD.
05 WS-FROM-YY PIC X(02).
05 WS-FROM-MM PIC X(02).
05 WS-FROM-DD PIC X(02).

01 WS-TO-YYMMDD.
05 WS-TO-YY PIC X(02).
05 WS-TO-MM PIC X(02).
05 WS-TO-DD PIC X(02).

01 WS-TEST-YYMMDD.
05 WS-TEST-YY PIC X(02).
05 WS-TEST-MM PIC X(02).
05 WS-TEST-DD PIC X(02).

In PROCEDURE DIV:

*** MOVE the appropriate parts of the dates in question
*** (i.e., the FROM and TO dates of the week range
*** as well as date to be tested) to the structures above.
*** Compare as follows:

IF WS-TEST-YYMMDD >= WS-FROM-YYMMDD
AND WS-TEST-YYMMDD <= WS-TO-YYMMDD
DISPLAY 'DATE IS WITHIN RANGE'
ELSE
DISPLAY 'DATE IS NOT WITHIN RANGE'
END-IF

[nadh]

Thanks a lot.

nadh