Created
April 30, 2026 01:15
-
-
Save Sgeo/69297a0f0084b2e65aea29231a25a1b0 to your computer and use it in GitHub Desktop.
PL/I test
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| type fortune pli a | |
| FORTUNE: PROC OPTIONS(MAIN); | |
| DECLARE RESULT FLOAT DECIMAL; | |
| DECLARE CHARS CHARACTER(50); | |
| DECLARE BITSTRING BIT(50); | |
| /* | |
| PUT LIST(' Enter a character string (max length 50):'); | |
| GET LIST(CHARS); | |
| PUT LIST(' Enter a bitstring (max length 50):'); | |
| GET LIST(BITSTRING); | |
| RESULT = CHARS * BITSTRING; | |
| */ | |
| RESULT = 'HI' * '101'B; | |
| PUT LIST(' Result: ', RESULT); | |
| END FORTUNE; | |
| Ready; T=0.01/0.01 01:13:16 | |
| pliopt fortune | |
| PL/I OPTIMIZER V1 R5.1 TIME: 01.14.06 DATE: 30 APR 26 | |
| COMPILER DIAGNOSTIC MESSAGES OF SEVERITY W AND ABOVE | |
| ERROR ID L NUMBER MESSAGE DESCRIPTION | |
| SEVERE AND ERROR DIAGNOSTIC MESSAGES | |
| IEL0927I S 130 'CONVERSION' CONDITION RAISED WHEN CONVERTING CONSTANT. | |
| RESULT OF CONVERSION UNDEFINED. | |
| WARNING DIAGNOSTIC MESSAGES | |
| IEL0239I W 40 COMMENTS IN OR FOLLOWING STATEMENT CONTAIN ONE OR MORE SEMI | |
| COLONS. | |
| MESSAGES SUPPRESSED BY THE FLAG OPTION: 1 I. | |
| END OF COMPILER DIAGNOSTIC MESSAGES | |
| COMPILE TIME 0.00 MINS SPILL FILE: 0 RECORDS, SIZE 4051 | |
| Ready(00012); T=0.04/0.09 01:14:06 | |
| global txtlib plilib | |
| Ready; T=0.01/0.01 01:14:31 | |
| load fortune | |
| Ready; T=0.01/0.02 01:14:37 | |
| start * | |
| Execution begins... | |
| Result: 0.00000E+00 | |
| Ready; T=0.01/0.03 01:14:51 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment