Geeting Current Date in a COBOL program.

[Shahid]

Hello,

To get the current-date from system date and to display it, I am using below code:

Code: Select all

PROCEDURE DIVISION. 
01-DATE-PARA.            
    ACCEPT WS-DATE FROM DATE.        
    DISPLAY 'THE DATE: ' WS-DATE. 
 

It displays the date as "150921" but I want it to be displyed like: "20150921". What change do I need to get it? Please help.

Thanks.

[zprogrammer]

Quoting the syntax from Enterprise cobol manual

Code: Select all

   ___ Format 2: system information transfer ________________________________________________________  
  |                                                                                                  |
  | >>__ACCEPT__identifier-2__FROM__ _DATE__ __________ _ ________________________________________>< | 
  |                                 |       |_YYYYMMDD_| |                                           | 
  |                                 |_DAY__ _________ ___|                                           | 
  |                                 |      |_YYYYDDD_|   |                                           | 
  |                                 |_DAY-OF-WEEK________|                                           | 
  |                                 |_TIME_______________|                                           | 
  |                                                                                                  |
  |__________________________________________________________________________________________________|
 

[William Collins]

There is also an intrinsic function, CURRENT-DATE, which you may want to look at, which has more extensive information than is returned by ACCEPT DATE YYYYMMDD.

[Shahid]

Thanks both. I have made use of CURRENT-DATE.