/* PL/1 Program to add 123 and 456 */

ADDER: PROCEDURE OPTIONS(MAIN);

  DECLARE NUM1 FIXED DECIMAL(3);  /* Declare NUM1 as a 3-digit decimal */
  DECLARE NUM2 FIXED DECIMAL(3);  /* Declare NUM2 as a 3-digit decimal */
  DECLARE SUM  FIXED DECIMAL(4);  /* Declare SUM as a 4-digit decimal to hold the result */

  /* Initialize the numbers */
  NUM1 = 123;
  NUM2 = 456;

  /* Calculate the sum */
  SUM = NUM1 + NUM2;

  /* Display the result */
  PUT SKIP LIST('The sum of ', NUM1, ' and ', NUM2, ' is ', SUM);

END ADDER;