/* 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;
 

LyogUEwvMSBQcm9ncmFtIHRvIGFkZCAxMjMgYW5kIDQ1NiAqLwoKQURERVI6IFBST0NFRFVSRSBPUFRJT05TKE1BSU4pOwoKICBERUNMQVJFIE5VTTEgRklYRUQgREVDSU1BTCgzKTsgIC8qIERlY2xhcmUgTlVNMSBhcyBhIDMtZGlnaXQgZGVjaW1hbCAqLwogIERFQ0xBUkUgTlVNMiBGSVhFRCBERUNJTUFMKDMpOyAgLyogRGVjbGFyZSBOVU0yIGFzIGEgMy1kaWdpdCBkZWNpbWFsICovCiAgREVDTEFSRSBTVU0gIEZJWEVEIERFQ0lNQUwoNCk7ICAvKiBEZWNsYXJlIFNVTSBhcyBhIDQtZGlnaXQgZGVjaW1hbCB0byBob2xkIHRoZSByZXN1bHQgKi8KCiAgLyogSW5pdGlhbGl6ZSB0aGUgbnVtYmVycyAqLwogIE5VTTEgPSAxMjM7CiAgTlVNMiA9IDQ1NjsKCiAgLyogQ2FsY3VsYXRlIHRoZSBzdW0gKi8KICBTVU0gPSBOVU0xICsgTlVNMjsKCiAgLyogRGlzcGxheSB0aGUgcmVzdWx0ICovCiAgUFVUIFNLSVAgTElTVCgnVGhlIHN1bSBvZiAnLCBOVU0xLCAnIGFuZCAnLCBOVU0yLCAnIGlzICcsIFNVTSk7CgpFTkQgQURERVI7Cg==