Este exemplo mostra um programa COBOL que usa os serviços de Ambiente de Linguagem CEEDAYS e CEEDATE para formatar e exibir uma data a partir dos resultados de uma instrução COBOL ACCEPT.

Usar CEEDAYS e CEEDATE reduz a codificação que seria necessária sem o Ambiente de linguagem.

 ID DIVISION.
 PROGRAM-ID. HOHOHO.
************************************************************
* FUNCTION:  DISPLAY TODAY'S DATE IN THE FOLLOWING FORMAT: *
*            WWWWWWWWW, MMMMMMMM DD, YYYY                  *
*                                                          *
*            For example: TUESDAY, SEPTEMBER 15, 2009      *
*                                                          *
************************************************************
 ENVIRONMENT DIVISION.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 01   CHRDATE.
     05 CHRDATE-LENGTH     PIC S9(4) COMP VALUE 10.
     05 CHRDATE-STRING     PIC X(10).
 01   PICSTR.
     05 PICSTR-LENGTH      PIC  S9(4) COMP.
     05 PICSTR-STRING      PIC  X(80).
*
 77   LILIAN PIC           S9(9) COMP.
 77   FORMATTED-DATE       PIC X(80).
*
 PROCEDURE DIVISION.
***************************************************************
*    USE LANGUAGE ENVIRONMENT CALLABLE SERVICES TO PRINT OUT  *
*    TODAY'S DATE FROM COBOL ACCEPT STATEMENT.                *
***************************************************************
     ACCEPT CHRDATE-STRING FROM DATE.
*
     MOVE "YYMMDD" TO PICSTR-STRING.
     MOVE 6 TO PICSTR-LENGTH.
     CALL "CEEDAYS" USING CHRDATE PICSTR LILIAN OMITTED.
*
     MOVE " WWWWWWWWWZ, MMMMMMMMMZ DD, YYYY " TO PICSTR-STRING.
     MOVE 50 TO PICSTR-LENGTH.
     CALL "CEEDATE" USING LILIAN PICSTR FORMATTED-DATE OMITTED.
*
     DISPLAY "******************************".
     DISPLAY FORMATTED-DATE.
     DISPLAY "******************************".
*
     STOP RUN.