Как я могу удалить отдельную запись, используя кобол?

Question

Пример вывода:

Идентификатор продукта: XXXXXX

Описание продукта:

Кол-во продуктов

Цена продукта

Вы хотите удалить эту запись?

Просто введя идентификатор, я могу получить доступ к информации о нем и спросить, собираюсь ли я удалить запись.

Кто-нибудь может мне помочь? Я немного новичок в Коболе. Я использую 1985 cobol и запускаю его в ОС Windows Vista.

Answer 1

Если файл открывается последовательно, выполните инструкцию DELETE после прочтения этой записи в программу.

Если файл открывается случайным или динамическим образом, используйте инструкцию DELETE с RELATIVE KEY или RECORD KEY, установленной для записи, подлежащей удалению (нет необходимости читать запись перед удалением).

В обоих случаях минимальная кодировка для оператора будет:

УДАЛИТЬ имя файла.

Answer 2

Если вы хотите удалить текущую запись, вам нужно что-то вроде этого:

DELETE file
     ON INVALID KEY 
          what to do 
     NOT ON INVALID KEY
          what to do
END-DELETE 

Чтобы удалить сам файл, вы хотите быть в JCL или локальном эквиваленте (например, ОС).