Презентация на тему Операторы управления данными

num_st = NEXT-VALUE(s1).
DISPLAY student.
END.
 

UPDATE student [NO-ERROR].
END.

address phone.
END.

1 COLUMN.
END.

WHERE student.num_st >

15:
DELETE student.
END.

course.code = NEXT-VALUE(s2).
DISPLAY course.code.
UPDATE

course.name_c course.name_t.
END.
 
/* create marks */
FOR EACH student:
FOR EACH course:
CREATE marks.
marks.num_st = student.num_st.
marks.code = course.code.
DISPLAY marks.num_st marks.code.
UPDATE marks.mark.
END.
END.

student OF marks.
FIND course OF marks.

DISPLAY name_st name_c mark.
END.

CAN-FIND(course OF marks)

EACH marks OF student:
DISPLAY name_st mark.
END.
END.

CAN-FIND(FIRST marks

OF student)
CAN-FIND(LAST marks OF sudent)

course OF marks:
DISPLAY student.name_st

course.name_t.
END.

, EACH table-name как FOR EACH table-name
, table-name как FIND table-name