A PHP Error was encountered

Severity: 8192

Message: Function create_function() is deprecated

Filename: geshi/geshi.php

Line Number: 4698

Backtrace:

File: /home/things/domains/anna.fyi/public_html/application/libraries/geshi/geshi.php
Line: 4698
Function: _error_handler

File: /home/things/domains/anna.fyi/public_html/application/libraries/geshi/geshi.php
Line: 4621
Function: _optimize_regexp_list_tokens_to_string

File: /home/things/domains/anna.fyi/public_html/application/libraries/geshi/geshi.php
Line: 1655
Function: optimize_regexp_list

File: /home/things/domains/anna.fyi/public_html/application/libraries/geshi/geshi.php
Line: 2029
Function: optimize_keyword_group

File: /home/things/domains/anna.fyi/public_html/application/libraries/geshi/geshi.php
Line: 2168
Function: build_parse_cache

File: /home/things/domains/anna.fyi/public_html/application/libraries/Process.php
Line: 45
Function: parse_code

File: /home/things/domains/anna.fyi/public_html/application/models/Pastes.php
Line: 517
Function: syntax

File: /home/things/domains/anna.fyi/public_html/application/controllers/Main.php
Line: 551
Function: getPaste

File: /home/things/domains/anna.fyi/public_html/index.php
Line: 315
Function: require_once

$ SET SOURCEFORMAT"FREE" IDENTIFICATION DIVISION. PROGRAM-ID. SeqWrite. AUTHOR. Michael Coughlan. * Example program showing how to create a sequential file * using the ACCEPT and the WRITE verbs. * Note: In this version of COBOL pressing the Carriage Return (CR) * without entering any data results in StudentDetails being filled * with spaces. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT StudentFile ASSIGN TO "STUDENTS.DAT" ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. 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. PROCEDURE DIVISION. Begin. OPEN OUTPUT StudentFile DISPLAY "Enter student details using template below. Enter no data to end." PERFORM GetStudentDetails PERFORM UNTIL StudentDetails = SPACES WRITE StudentDetails PERFORM GetStudentDetails END-PERFORM CLOSE StudentFile STOP RUN. GetStudentDetails. DISPLAY "Enter - StudId, Surname, Initials, YOB, MOB, DOB, Course, Gender" DISPLAY "NNNNNNNSSSSSSSSIIYYYYMMDDCCCCG" ACCEPT StudentDetails.