/* Demonstrates conditionals in PL/I */
COND: PROCEDURE OPTIONS(MAIN);
   DECLARE NUM FIXED DECIMAL(5);
   DECLARE MSG CHARACTER(20) VARYING;
 
   PUT SKIP LIST('Enter a number:');
   GET LIST(NUM);
 
   IF NUM > 0 THEN
      DO;
         MSG = 'Positive';
         PUT SKIP LIST('The number is positive.');
      END;
   ELSE IF NUM < 0 THEN
      MSG = 'Negative';
   ELSE
      MSG = 'Zero';
 
   PUT SKIP LIST('Classification:', MSG);
END COND;

Ci8qIERlbW9uc3RyYXRlcyBjb25kaXRpb25hbHMgaW4gUEwvSSAqLwpDT05EOiBQUk9DRURVUkUgT1BUSU9OUyhNQUlOKTsKICAgREVDTEFSRSBOVU0gRklYRUQgREVDSU1BTCg1KTsKICAgREVDTEFSRSBNU0cgQ0hBUkFDVEVSKDIwKSBWQVJZSU5HOwoKICAgUFVUIFNLSVAgTElTVCgnRW50ZXIgYSBudW1iZXI6Jyk7CiAgIEdFVCBMSVNUKE5VTSk7CgogICBJRiBOVU0gPiAwIFRIRU4KICAgICAgRE87CiAgICAgICAgIE1TRyA9ICdQb3NpdGl2ZSc7CiAgICAgICAgIFBVVCBTS0lQIExJU1QoJ1RoZSBudW1iZXIgaXMgcG9zaXRpdmUuJyk7CiAgICAgIEVORDsKICAgRUxTRSBJRiBOVU0gPCAwIFRIRU4KICAgICAgTVNHID0gJ05lZ2F0aXZlJzsKICAgRUxTRQogICAgICBNU0cgPSAnWmVybyc7CgogICBQVVQgU0tJUCBMSVNUKCdDbGFzc2lmaWNhdGlvbjonLCBNU0cpOwpFTkQgQ09ORDs=