FWD » Core Development » Runtime Infrastructure

#!/bin/bash

# Create a progress abl file with 100 dummy procedures

ABL_FILE="p100.p"

NUM_PROCS=500

NUM_PROCS_VAR=20

NUM_FUNCS=500

NUM_FUNCS_VAR=20

if [ -f "$ABL_FILE" ]; then

    rm "$ABL_FILE"

    echo "Existing file $ABL_FILE removed."

fi

echo "Creating $ABL_FILE with 100 dummy procedures..."

for i in $(seq 1 $NUM_PROCS); do

    echo "PROCEDURE p$i:" >> "$ABL_FILE"

    for j in $(seq 1 $NUM_PROCS_VAR); do

        echo "    DEFINE INPUT PARAMETER p${j} AS CHARACTER NO-UNDO." >> "$ABL_FILE"

    done

    echo "END PROCEDURE." >> "$ABL_FILE"

done

echo "Creating $ABL_FILE with 100 dummy functions..."

for i in $(seq 1 $NUM_FUNCS); do

    echo "FUNCTION f${i} RETURNS CHARACTER(" >> "$ABL_FILE"

    for j in $(seq 1 $NUM_FUNCS_VAR); do

        if [ $j -eq $NUM_FUNCS_VAR ]; then

            echo "    INPUT fp${j} AS CHARACTER" >> "$ABL_FILE"

        else

            echo "    INPUT fp${j} AS CHARACTER," >> "$ABL_FILE"

        fi

    done

    echo "):" >> "$ABL_FILE"

    echo "    RETURN ''." >> "$ABL_FILE"

    echo "END." >> "$ABL_FILE"

done

echo "MESSAGE 'Hi'." >> "$ABL_FILE"

echo "File $ABL_FILE created successfully."