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 ); $student_file = "STUDENTS.DAT"; if ( filesize( $student_file ) <> 0 ) { $file = fopen( $student_file, "r" ); while( !feof( $file ) ) { $student = fgets( $file ); if ( strlen( $student ) > 2 ) { ?>

COBOL Students

ID	Name	Date of birth	Sexe	Class
id->pos, $stuobj->id->len ); ?>	name->pos, $stuobj->name->len ) ) ) ); echo ', '; echo substr( $student, $stuobj->initials->pos, $stuobj->initials->len ); ?>	year->pos, $stuobj->year->len ); echo '/'; echo substr( $student, $stuobj->month->pos, $stuobj->month->len ); echo '/'; echo substr( $student, $stuobj->day->pos, $stuobj->day->len ); ?>	gender->pos, $stuobj->gender->len ); ?>	subject->pos, $stuobj->subject->len ); ?>
http://www.csis.ul.ie/cobol/examples/