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/

id = (object) array( 'pos' => 0, 'len' => 7 ); // position in string, length $stuobj->name = (object) array( 'pos' => 7, 'len' => 8 ); $stuobj->initials = (object) array( 'pos' => 15, 'len' => 2 ); $stuobj->year = (object) array( 'pos' => 17, 'len' => 4 ); $stuobj->month = (object) array( 'pos' => 21, 'len' => 2 ); $stuobj->day = (object) array( 'pos' => 23, 'len' => 2 ); $stuobj->subject = (object) array( 'pos' => 25, 'len' => 4 ); $stuobj->gender = (object) array( 'pos' => 29, 'len' => 1 ); echo '

' . print_r( $stuobj, TRUE ) . '

'; ?> $value ) { echo ''; echo ''; echo ''; } ?>

COBOL Students
' . $key . '	' . $value->pos . '	' . $value->len . '	' . trim( substr( $student, $value->pos, $value->len ) ) . '