zOs/SQL/PROC1C

SET CURRENT SQLID = 'S100447' @
CALL A540769.PR1('AHA', 'OOO')