*****************************************
      * CobolScript program name: cal.cbl
      * This program provides examples
      * of CALENDAR statement usage.
      *
      * Copyright 2000 Deskware, Inc.
      *****************************************
       1 month     PIC 9(02).
       1 year      PIC 9(04).

       DISPLAY `This program demonstrates the use of the `.
       DISPLAY `CALENDAR command. `.
       DISPLAY LINEFEED.
       CALENDAR USING 2001 02.
       DISPLAY LINEFEED.
       MOVE 2001 TO year.
       MOVE 02   TO month.
       CALENDAR USING year
                      month.