        IDENTIFICATION DIVISION.
            PROGRAM-ID. StudentRecord.
            AUTHOR. Joey Cluett.

        DATA DIVISION.
            WORKING-STORAGE SECTION.
                01 StudentDetails.
                    02 StudentId  PIC 9(7).
                    02 StudentName.
                        03 Surname  PIC x(8).
                        03 Initials PIC X(2).
                    02 CourseCode PIC X(4).
                    02 Gender     PIC IS  X(1).
                01 CurrentDate.
                    02 CurrentYear  PIC 9(4).
                    02 CurrentMonth PIC 99.
                    02 CurrentDay   PIC 99.       
                01 DayOfYear.
                    02 FILLER PIC 9(4).
                    02 YearDay PIC 9(3).
                01 CurrentTime.
                    02 CurrentHour PIC 99.
                    02 CurrentMinute PIC 99.
                    02 FILLER PIC 9(4).
                             
       PROCEDURE DIVISION.
           Begin.
               DISPLAY "Enter student details using template below...".
               DISPLAY "Enter - ID,Surname,Initials,CourseCode,Gener".
               DISPLAY "SSSSSSSNNNNNNNNIICCCCG".
               
               *> read the data in
               ACCEPT StudentDetails.
               
               *> read remaining data from other sources
               ACCEPT CurrentDate FROM DATE YYYYMMDD.
               ACCEPT DayOfYear   FROM DAY  YYYYDDD.
               ACCEPT CurrentTime FROM TIME.
               
               DISPLAY "Name is ", Initials SPACE Surname.
               DISPLAY "Date is ", CurrentDay, SPACE, CurrentMonth, 
      -        SPACE, CurrentYear.
               DISPLAY "Today is day " YearDay " of the year".
               DISPLAY "The time is " CurrentHour ":" CurrentMinute.
                   
       STOP RUN.
       
       