If I have this defined:
05 DAY-OF-WEEK PIC 9.
88 DAY-RANGE VALUES 1 THRU 7.
88 SUNDAY VALUE 1.
88 MONDAY VALUE 2.
88 TUESDAY VALUE 3.
88 WEDNESDAY VALUE 4.
88 THURSDAY VALUE 5.
88...
Thank you very much. You are a great help. I was not moving my the start date to the right field before transferring it. One more question. I want to call the subprogram and just return the current date without executing the rest of the program. It is for the header of a report and the...
I changed the program to this and it compiles correctly. When I execute the main program it has the error message:
'function integer-of-date error, argument value is invalid pgm=currdate'
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CUR-DATE PIC 9(8).
01 WS-START-DATE...
I am getting the error message 'ARGUMENT OF FUNCTION INTEGER-OF-DATE MUST BE TYPE INTEGER' when I compile my subprogram. I am trying to find the number of days difference between two dates. Here is my subprogram:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CUR-DATE.
05 WS-CUR-YEAR...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.