0010/* PDELELEM
0020/* Delete empty elements in an array
0030/* Klaus-Peter Plog
0040/*
0050DEFINE DATA LOCAL
0060/*-------------------------------------------------- Array definition
00701 #ARRAY-COUNT(I2) INIT <10> 
00801 #ARRAY(A10)              
00901 REDEFINE #ARRAY
0100  2 #ELEMENT(A1/10)            
0110/*----------------------------------------- Variables for the Routine
01201 #I(I1)   
01301 #J(I1)   
0140END-DEFINE
0150/*
0160ASSIGN #ARRAY = ' 1 23 28 8'
0170PERFORM DELELEMENT
0180WRITE #ARRAY
0190/*
0200DEFINE SUBROUTINE DELELEMENT /*=======================================
0210ASSIGN #J = 1           
0220IF #ARRAY-COUNT > 1
0230  FOR #I = 2 TO #ARRAY-COUNT
0240    IF #ELEMENT(#J) NE ' '
0250      COMPUTE #J = #J + 1
0260    END-IF  
0270    IF #J < #I               
0280      ASSIGN #ELEMENT(#J) = #ELEMENT(#I) 
0290      RESET #ELEMENT(#I)           
0300    END-IF
0310  END-FOR
0320END-IF
0330END-SUBROUTINE /*=====================================================
0340END