/* Demonstrates expressions and assignments in PL/I */
EXPR: PROCEDURE OPTIONS(MAIN);
   DECLARE A FIXED DECIMAL(5) INITIAL(10);
   DECLARE B FIXED DECIMAL(5) INITIAL(20);
   DECLARE RESULT FIXED DECIMAL(10);
   DECLARE STR1 CHARACTER(5) INITIAL('Hello');
   DECLARE STR2 CHARACTER(6) INITIAL(' World');
   DECLARE CONCAT CHARACTER(11) VARYING;
   DECLARE IS_GREATER BIT(1);
 
   RESULT = A + B * 2;
   CONCAT = STR1 || STR2;
   IS_GREATER = B > A;
 
   PUT SKIP LIST('Sum with multiplication:', RESULT);
   PUT SKIP LIST('Concatenated string:', CONCAT);
   PUT SKIP LIST('Is B greater than A?:', IS_GREATER);
END EXPR;

LyogRGVtb25zdHJhdGVzIGV4cHJlc3Npb25zIGFuZCBhc3NpZ25tZW50cyBpbiBQTC9JICovCkVYUFI6IFBST0NFRFVSRSBPUFRJT05TKE1BSU4pOwogICBERUNMQVJFIEEgRklYRUQgREVDSU1BTCg1KSBJTklUSUFMKDEwKTsKICAgREVDTEFSRSBCIEZJWEVEIERFQ0lNQUwoNSkgSU5JVElBTCgyMCk7CiAgIERFQ0xBUkUgUkVTVUxUIEZJWEVEIERFQ0lNQUwoMTApOwogICBERUNMQVJFIFNUUjEgQ0hBUkFDVEVSKDUpIElOSVRJQUwoJ0hlbGxvJyk7CiAgIERFQ0xBUkUgU1RSMiBDSEFSQUNURVIoNikgSU5JVElBTCgnIFdvcmxkJyk7CiAgIERFQ0xBUkUgQ09OQ0FUIENIQVJBQ1RFUigxMSkgVkFSWUlORzsKICAgREVDTEFSRSBJU19HUkVBVEVSIEJJVCgxKTsKCiAgIFJFU1VMVCA9IEEgKyBCICogMjsKICAgQ09OQ0FUID0gU1RSMSB8fCBTVFIyOwogICBJU19HUkVBVEVSID0gQiA+IEE7CgogICBQVVQgU0tJUCBMSVNUKCdTdW0gd2l0aCBtdWx0aXBsaWNhdGlvbjonLCBSRVNVTFQpOwogICBQVVQgU0tJUCBMSVNUKCdDb25jYXRlbmF0ZWQgc3RyaW5nOicsIENPTkNBVCk7CiAgIFBVVCBTS0lQIExJU1QoJ0lzIEIgZ3JlYXRlciB0aGFuIEE/OicsIElTX0dSRUFURVIpOwpFTkQgRVhQUjs=