#!/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."