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.