Home | Cobol Home | Students 2 | Students 3 | Students 4 | Students 5 | Cobol

---

FILE SECTION.
FD StudentFile.
01 StudentDetails.
   02  StudentId       PIC 9(7).
   02  StudentName.
       03 Surname      PIC X(8).
       03 Initials     PIC XX.
   02  DateOfBirth.
       03 YOBirth      PIC 9(4).
       03 MOBirth      PIC 9(2).
       03 DOBirth      PIC 9(2).
   02  CourseCode      PIC X(4).
   02  Gender          PIC X.

0123456|78901234|56|7890|12|34|5678|9|
8712351|SMITH   |MS|1967|10|12|LM51|F|

Source : http://www.csis.ul.ie/cobol/examples/

stdClass Object
(
    [id] => stdClass Object
        (
            [pos] => 0
            [len] => 7
        )

    [name] => stdClass Object
        (
            [pos] => 7
            [len] => 8
        )

    [initials] => stdClass Object
        (
            [pos] => 15
            [len] => 2
        )

    [year] => stdClass Object
        (
            [pos] => 17
            [len] => 4
        )

    [month] => stdClass Object
        (
            [pos] => 21
            [len] => 2
        )

    [day] => stdClass Object
        (
            [pos] => 23
            [len] => 2
        )

    [subject] => stdClass Object
        (
            [pos] => 25
            [len] => 4
        )

    [gender] => stdClass Object
        (
            [pos] => 29
            [len] => 1
        )

)

COBOL Students

Field	Position	Length	Value
id	0	7	8712351
name	7	8	SMITH
initials	15	2	MS
year	17	4	1967
month	21	2	10
day	23	2	12
subject	25	4	LM51
gender	29	1	F