From cae6ee8d5d02066f435aaff00cef5e50b504c61c Mon Sep 17 00:00:00 2001
From: Samuel Ytterbrink <neppord@gmail.com>
Date: Fri, 16 Sep 2022 15:43:39 +0200
Subject: [PATCH] Add add programm to add item to the in-items file

---
 COBOL/Gnu/Add.cbl | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 COBOL/Gnu/Add.cbl

diff --git a/COBOL/Gnu/Add.cbl b/COBOL/Gnu/Add.cbl
new file mode 100644
index 00000000..46436285
--- /dev/null
+++ b/COBOL/Gnu/Add.cbl
@@ -0,0 +1,38 @@
+program-id. Add as "Add".
+
+environment division.
+
+input-output section.
+
+file-control.
+    select in-items assign 'in-items'.
+
+data division.
+file section.
+    fd in-items.
+    01 item.
+        02 sell-in pic s9(2).
+        02 quality pic s9(2).
+        02 name pic x(50).
+
+working-storage section.
+    01 accept-item.
+        02 sell-in pic s9(2).
+        02 quality pic s9(2).
+        02 name pic x(50).
+
+
+procedure division.
+    open extend in-items.
+    display "name"
+    accept name in accept-item.
+    display "sell-in"
+    accept sell-in in accept-item.
+    display "quality"
+    accept quality in accept-item.
+    move accept-item to item.
+    write item.
+    close in-items.
+goback.
+
+end program Add.