PL/I

PL/I(IPA: [ˌpiːˌɛlˈwʌn])는 "Programming Language One"의 약어로, 과학, 공학 및 산업 응용 프로그램을 위해 설계된 명령형 프로그래밍 언어이다. IBM에서 자사의 메인프레임에서 사용하기 위해 개발했다.

예제 프로그램

문자열 검색

FINDSTRINGS: PROCEDURE OPTIONS(MAIN);
  /* READ A STRING, THEN PRINT EVERY */
  /* SUBSEQUENT LINE WITH A MATCH */

  DECLARE PAT VARYING CHARACTER(100),
          LINEBUF VARYING CHARACTER(100),
          (LINENO, NDFILE, IX) FIXED BINARY;

  NDFILE = 0;
  ON ENDFILE(SYSIN) NDFILE=1;
  GET EDIT(PAT) (A);
  LINENO = 1;
  DO WHILE (NDFILE=0);
    GET EDIT(LINEBUF) (A);
    IF LENGTH(LINEBUF) > 0 THEN DO;
      IX = INDEX(LINEBUF, PAT);
      IF IX > 0 THEN DO;
        PUT SKIP EDIT (LINENO,LINEBUF)(F(2),A);
      END;
    END;
    LINENO = LINENO + 1;
  END;
  END FINDSTRINGS;

제한이 없는 변수 이름

키워드와 동일한 이름을 변수로 쓸 수 있다.

IF IF = THEN THEN THEN = ELSE; ELSE ELSE = IF;