Sync

Task/Memory-allocation/COBOL/memory-allocation.cobol

@@ -0,0 +1,15 @@
+       PROGRAM-ID. memory-allocation.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+       01  based-data              PIC X(20) VALUE "Hello, World!"
+                                   BASED.
+
+       PROCEDURE DIVISION.
+           *> INITIALIZED sets the data item to the VALUE.
+           ALLOCATE based-data INITIALIZED
+           DISPLAY based-data
+           FREE based-data
+
+           GOBACK
+           .

Task/Memory-allocation/Icon/memory-allocation.icon

@@ -0,0 +1,3 @@
+    t := table() # The table's memory is allocated
+                 #... do things with t
+    t := &null   # The table's memory can be reclaimed