CALL PDEL
(PHOP, *, STOP, *).
DELETE ELEMENT destroys the element indicated by element pointer in the open structure and renumbers the elements in the structure that follow so that the structure numbering remains consecutive and ascending. After the element is destroyed, element pointer points to the element preceding the element destroyed.
If element pointer is equal to zero when DELETE ELEMENT is called, no action is generated.
open structure, set element pointer, empty structure, delete element range, delete element between labels