google apps script remove nulls array
To remove null values from an array using Google Apps Script in Cobol, you can use the following code snippet:
IDENTIFICATION DIVISION.
PROGRAM-ID. REMOVE-NULLS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ARRAY-SIZE PIC S9(4) COMP.
01 ARRAY OCCURS 100 TIMES.
05 VALUE PIC X(10).
PROCEDURE DIVISION.
MAIN-LOGIC.
MOVE 0 TO ARRAY-SIZE
PERFORM INITIALIZE-ARRAY
PERFORM REMOVE-NULL-VALUES
PERFORM DISPLAY-ARRAY
STOP RUN.
INITIALIZE-ARRAY.
MOVE SPACE TO VALUE
PERFORM VARYING INDEX FROM 1 BY 1 UNTIL INDEX > ARRAY-SIZE
MOVE VALUE TO ARRAY(INDEX)
END-PERFORM.
REMOVE-NULL-VALUES.
PERFORM VARYING INDEX FROM ARRAY-SIZE BY -1 UNTIL INDEX < 1
IF ARRAY(INDEX) = SPACE
MOVE ARRAY(ARRAY-SIZE) TO ARRAY(INDEX)
MOVE SPACE TO ARRAY(ARRAY-SIZE)
SUBTRACT 1 FROM ARRAY-SIZE
END-IF
END-PERFORM.
DISPLAY-ARRAY.
PERFORM VARYING INDEX FROM 1 BY 1 UNTIL INDEX > ARRAY-SIZE
DISPLAY "Value: " ARRAY(INDEX)
END-PERFORM.
This code defines an array called ARRAY
with a maximum size of 100 elements. It initializes the array with empty values and then removes any null values by shifting non-null values to the left and decreasing the array size. Finally, it displays the values in the array.
Please note that this code is written in Cobol, and it assumes you have a basic understanding of the Cobol programming language.