PL/I(/piː ɛl wʌn/),源自編程語言一號(Programming Language One)的縮寫,一種過程式、指令式程式語言。由IBM公司在1960年代發明的第三代高級程式語言,用於IBM的MVS、或迪吉多的VAX/VMS等作業系統中。 在系統軟件,圖像,仿真,文字處理,網絡,商業軟件等領域均可應用。
樣例代碼
Hello2: proc options(main);
put list ('Hello, world!');
end Hello2;
/* Read in a line, which contains a string,
/* and then print every subsequent line that contains that string. */
find_strings: procedure options (main);
declare pattern character (100) varying;
declare line character (100) varying;
declare line_no fixed binary;
on endfile (sysin) stop;
get edit (pattern) (L);
line_no = 1;
do forever;
get edit (line) (L);
if index(line, pattern) > 0 then
put skip list (line_no, line);
line_no = line_no + 1;
end;
end find_strings;