PL516
1 program
Added 2026-02-10T15:26:39Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: —
Provenance: commit 61e5ec7450 · authored 2026-02-10T16:27:22+01:00 · agent claude-code · model sonnet
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Call Setup Procedure
Provenance: commit 61e5ec7450 · authored 2026-02-10T16:27:22+01:00 · agent claude-code · model sonnet · WebSearch disabled
/* Simple PL516 example - Call processing */
PROC CALL_SETUP;
DCL STATUS FIXED;
DCL CALLING_NUM CHAR(10);
DCL CALLED_NUM CHAR(10);
/* Initialize call */
STATUS = GET_CALLING_NUM(CALLING_NUM);
IF STATUS = 0 THEN DO;
STATUS = GET_CALLED_NUM(CALLED_NUM);
IF STATUS = 0 THEN DO;
CALL ROUTE_CALL(CALLING_NUM, CALLED_NUM);
END;
ELSE DO;
CALL SEND_ERROR_TONE;
END;
END;
RETURN;
END CALL_SETUP;