Durable, crash-proof functions
built into Postgres

-- Goal: run 3 aggregations in parallel, then refresh a dashboard
--       — with retries and crash recovery. Here's the plumbing.

-- 1. Set up job queues and state tables
CREATE TABLE job_queue (
    id SERIAL PRIMARY KEY,
    payload JSONB NOT NULL,
    status TEXT DEFAULT 'pending',
    attempts INT DEFAULT 0,
    max_attempts INT DEFAULT 3,
    created_at TIMESTAMPTZ DEFAULT now(),
    locked_at TIMESTAMPTZ,
    locked_by TEXT
);

CREATE TABLE job_results (
    id SERIAL PRIMARY KEY,
    job_id INT REFERENCES job_queue(id),
    result JSONB,
    error TEXT,
    completed_at TIMESTAMPTZ DEFAULT now()
);

CREATE TABLE job_state (
    job_id INT PRIMARY KEY REFERENCES job_queue(id),
    current_step INT DEFAULT 0,
    step_data JSONB DEFAULT '{}',
    updated_at TIMESTAMPTZ DEFAULT now()
);

-- 2. Write a polling worker function
CREATE OR REPLACE FUNCTION poll_and_execute()
RETURNS void AS $$
DECLARE
    job RECORD;
BEGIN
    SELECT * INTO job FROM job_queue
    WHERE status = 'pending'
      AND (locked_at IS NULL
           OR locked_at < now() - interval '5 min')
    ORDER BY created_at
    LIMIT 1
    FOR UPDATE SKIP LOCKED;

    IF job IS NULL THEN RETURN; END IF;

    UPDATE job_queue
    SET status = 'running',
        locked_at = now(),
        locked_by = pg_backend_pid()::text
    WHERE id = job.id;

    -- 3. Execute with manual retry logic
    BEGIN
        PERFORM execute_step(job.id, job.payload);
        UPDATE job_queue SET status = 'completed'
        WHERE id = job.id;
    EXCEPTION WHEN OTHERS THEN
        UPDATE job_queue
        SET attempts = attempts + 1,
            status = CASE
              WHEN attempts + 1 >= max_attempts
              THEN 'failed' ELSE 'pending' END,
            locked_at = NULL
        WHERE id = job.id;
    END;
END;
$$ LANGUAGE plpgsql;

-- 4. Track step coordination manually
CREATE TABLE workflow_steps (
    id SERIAL PRIMARY KEY,
    job_id INT REFERENCES job_queue(id),
    step_order INT NOT NULL,
    step_name TEXT NOT NULL,
    step_query TEXT NOT NULL,
    status TEXT DEFAULT 'pending',
    result JSONB,
    error TEXT,
    started_at TIMESTAMPTZ,
    completed_at TIMESTAMPTZ,
    depends_on INT[]
);

CREATE OR REPLACE FUNCTION advance_workflow(p_job_id INT)
RETURNS void AS $$
DECLARE
    step RECORD;
    dep_id INT;
    all_deps_done BOOLEAN;
BEGIN
    FOR step IN
        SELECT * FROM workflow_steps
        WHERE job_id = p_job_id AND status = 'pending'
        ORDER BY step_order
    LOOP
        all_deps_done := true;
        IF step.depends_on IS NOT NULL THEN
            FOREACH dep_id IN ARRAY step.depends_on LOOP
                IF NOT EXISTS (
                    SELECT 1 FROM workflow_steps
                    WHERE id = dep_id AND status = 'completed'
                ) THEN
                    all_deps_done := false;
                    EXIT;
                END IF;
            END LOOP;
        END IF;

        IF NOT all_deps_done THEN CONTINUE; END IF;

        UPDATE workflow_steps
        SET status = 'running', started_at = now()
        WHERE id = step.id;

        BEGIN
            EXECUTE step.step_query;
            UPDATE workflow_steps
            SET status = 'completed',
                completed_at = now()
            WHERE id = step.id;
        EXCEPTION WHEN OTHERS THEN
            UPDATE workflow_steps
            SET status = 'failed',
                error = SQLERRM,
                completed_at = now()
            WHERE id = step.id;
            RETURN;
        END;
    END LOOP;
END;
$$ LANGUAGE plpgsql;

-- 5. Build crash recovery from scratch
CREATE OR REPLACE FUNCTION recover_crashed_jobs()
RETURNS void AS $$
DECLARE
    crashed RECORD;
BEGIN
    FOR crashed IN
        SELECT jq.* FROM job_queue jq
        WHERE jq.status = 'running'
          AND jq.locked_at < now() - interval '10 min'
          AND NOT EXISTS (
              SELECT 1 FROM pg_stat_activity
              WHERE pid = jq.locked_by::int
          )
    LOOP
        UPDATE job_queue
        SET status = 'pending',
            locked_at = NULL,
            locked_by = NULL,
            attempts = attempts + 1
        WHERE id = crashed.id;

        UPDATE workflow_steps
        SET status = 'pending',
            started_at = NULL,
            error = NULL
        WHERE job_id = crashed.id
          AND status = 'running';

        INSERT INTO job_results (job_id, error)
        VALUES (crashed.id,
            'Recovered from crash at step ' ||
            (SELECT step_name FROM workflow_steps
             WHERE job_id = crashed.id
               AND status = 'running'
             LIMIT 1));
    END LOOP;
END;
$$ LANGUAGE plpgsql;

-- 6. Custom status tracking and monitoring
CREATE OR REPLACE FUNCTION get_job_status(p_job_id INT)
RETURNS TABLE (
    job_status TEXT,
    total_steps INT,
    completed_steps INT,
    failed_steps INT,
    current_step TEXT,
    elapsed_time INTERVAL,
    last_error TEXT
) AS $$
BEGIN
    RETURN QUERY
    SELECT
        jq.status,
        (SELECT count(*)::int FROM workflow_steps
         WHERE job_id = p_job_id),
        (SELECT count(*)::int FROM workflow_steps
         WHERE job_id = p_job_id AND status = 'completed'),
        (SELECT count(*)::int FROM workflow_steps
         WHERE job_id = p_job_id AND status = 'failed'),
        (SELECT ws.step_name FROM workflow_steps ws
         WHERE ws.job_id = p_job_id
           AND ws.status = 'running'
         LIMIT 1),
        now() - jq.created_at,
        (SELECT ws.error FROM workflow_steps ws
         WHERE ws.job_id = p_job_id
           AND ws.status = 'failed'
         ORDER BY ws.completed_at DESC LIMIT 1)
    FROM job_queue jq
    WHERE jq.id = p_job_id;
END;
$$ LANGUAGE plpgsql;

-- 7. Parallel execution coordinator
CREATE OR REPLACE FUNCTION run_parallel_steps(
    p_job_id INT,
    p_step_ids INT[]
) RETURNS void AS $$
DECLARE
    step_id INT;
    step RECORD;
    failed BOOLEAN := false;
BEGIN
    FOREACH step_id IN ARRAY p_step_ids LOOP
        SELECT * INTO step FROM workflow_steps
        WHERE id = step_id AND job_id = p_job_id;

        UPDATE workflow_steps
        SET status = 'running', started_at = now()
        WHERE id = step_id;

        BEGIN
            EXECUTE step.step_query;
            UPDATE workflow_steps
            SET status = 'completed',
                completed_at = now()
            WHERE id = step_id;
        EXCEPTION WHEN OTHERS THEN
            UPDATE workflow_steps
            SET status = 'failed',
                error = SQLERRM,
                completed_at = now()
            WHERE id = step_id;
            failed := true;
        END;
    END LOOP;

    IF failed THEN
        UPDATE job_queue SET status = 'failed'
        WHERE id = p_job_id;
    END IF;
END;
$$ LANGUAGE plpgsql;

-- 8. Variable passing between steps
CREATE TABLE step_variables (
    job_id INT REFERENCES job_queue(id),
    var_name TEXT NOT NULL,
    var_value JSONB,
    set_by_step INT,
    created_at TIMESTAMPTZ DEFAULT now(),
    PRIMARY KEY (job_id, var_name)
);

CREATE OR REPLACE FUNCTION set_step_var(
    p_job_id INT, p_name TEXT,
    p_value JSONB, p_step INT
) RETURNS void AS $$
BEGIN
    INSERT INTO step_variables
        (job_id, var_name, var_value, set_by_step)
    VALUES (p_job_id, p_name, p_value, p_step)
    ON CONFLICT (job_id, var_name)
    DO UPDATE SET var_value = p_value,
                  set_by_step = p_step;
END;
$$ LANGUAGE plpgsql;

CREATE OR REPLACE FUNCTION substitute_vars(
    p_job_id INT, p_query TEXT
) RETURNS TEXT AS $$
DECLARE
    v RECORD;
    result TEXT := p_query;
BEGIN
    FOR v IN
        SELECT var_name, var_value
        FROM step_variables
        WHERE job_id = p_job_id
    LOOP
        result := replace(result,
            '$' || v.var_name,
            v.var_value::text);
    END LOOP;
    RETURN result;
END;
$$ LANGUAGE plpgsql;

-- 9. Scheduling and cron support
CREATE TABLE scheduled_jobs (
    id SERIAL PRIMARY KEY,
    cron_expr TEXT NOT NULL,
    job_payload JSONB NOT NULL,
    last_run TIMESTAMPTZ,
    next_run TIMESTAMPTZ,
    enabled BOOLEAN DEFAULT true
);

CREATE OR REPLACE FUNCTION check_scheduled_jobs()
RETURNS void AS $$
DECLARE
    sched RECORD;
BEGIN
    FOR sched IN
        SELECT * FROM scheduled_jobs
        WHERE enabled = true
          AND (next_run IS NULL
               OR next_run <= now())
    LOOP
        INSERT INTO job_queue (payload)
        VALUES (sched.job_payload);

        UPDATE scheduled_jobs
        SET last_run = now()
        WHERE id = sched.id;
        -- next_run calculation requires
        -- external cron parser library...
    END LOOP;
END;
$$ LANGUAGE plpgsql;

-- 10. Cleanup and maintenance
CREATE OR REPLACE FUNCTION cleanup_old_jobs(
    p_retention INTERVAL DEFAULT '30 days'
) RETURNS INT AS $$
DECLARE
    deleted INT;
BEGIN
    DELETE FROM step_variables
    WHERE job_id IN (
        SELECT id FROM job_queue
        WHERE status IN ('completed', 'failed')
          AND created_at < now() - p_retention
    );
    DELETE FROM workflow_steps
    WHERE job_id IN (
        SELECT id FROM job_queue
        WHERE status IN ('completed', 'failed')
          AND created_at < now() - p_retention
    );
    DELETE FROM job_results
    WHERE job_id IN (
        SELECT id FROM job_queue
        WHERE status IN ('completed', 'failed')
          AND created_at < now() - p_retention
    );
    WITH d AS (
        DELETE FROM job_queue
        WHERE status IN ('completed', 'failed')
          AND created_at < now() - p_retention
        RETURNING id
    ) SELECT count(*) INTO deleted FROM d;
    RETURN deleted;
END;
$$ LANGUAGE plpgsql;

-- 11. ...and only NOW can you wire up the actual workflow
WITH job AS (
    INSERT INTO job_queue (payload)
    VALUES ('{"name":"refresh-dashboard"}') RETURNING id
)
INSERT INTO workflow_steps
    (job_id, step_order, step_name, step_query, depends_on)
SELECT job.id, v.ord, v.name, v.query, v.deps FROM job, (VALUES
    (1, 'count_users',   'SELECT count(*) FROM users',          NULL),
    (1, 'count_orders',  'SELECT count(*) FROM orders',         NULL),
    (1, 'sum_revenue',   'SELECT sum(amount) FROM orders',      NULL),
    (2, 'refresh_dash',  'REFRESH MATERIALIZED VIEW metrics',   ARRAY[1,2,3])
) AS v(ord, name, query, deps);
-- ...then schedule the worker, poll, coordinate the parallel
-- steps, handle failures, recover crashes — see all of the above.