number_pos = 0; $stuobj->number_len = 7; $stuobj->name_pos = 7; $stuobj->name_len = 8; $stuobj->initials_pos = 15; $stuobj->initials_len = 2; $stuobj->year_pos = 17; $stuobj->year_len = 4; $stuobj->month_pos = 21; $stuobj->month_len = 2; $stuobj->day_pos = 23; $stuobj->day_len = 2; $stuobj->subject_pos = 25; $stuobj->subject_len = 4; $stuobj->gender_pos = 29; $stuobj->gender_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

number_pos, $stuobj->number_len ); ?>	-	name_pos, $stuobj->name_len ) ) . ', ' . substr( $student, $stuobj->initials_pos, $stuobj->initials_len ); ?>	year_pos, $stuobj->year_len ) . '/' . substr( $student, $stuobj->month_pos, $stuobj->month_len ) . '/' . 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/