Mainframe is Back » PL/1 http://www.ibmmainframe.cn Everything about Mainframe: 中文大型机资讯网 Wed, 28 Jul 2010 11:40:23 +0000 en hourly 1 http://wordpress.org/?v=3.0 PL/1中的冒泡排序(How to write Bubble Sort with PL/1) http://www.ibmmainframe.cn/2008/12/pl1%e4%b8%ad%e7%9a%84%e5%86%92%e6%b3%a1%e6%8e%92%e5%ba%8fhow-to-write-bubble-sort-with-pl1/ http://www.ibmmainframe.cn/2008/12/pl1%e4%b8%ad%e7%9a%84%e5%86%92%e6%b3%a1%e6%8e%92%e5%ba%8fhow-to-write-bubble-sort-with-pl1/#comments Thu, 04 Dec 2008 10:11:46 +0000 Raymond http://www.ibmmainframe.cn/2008/12/pl1%e4%b8%ad%e7%9a%84%e5%86%92%e6%b3%a1%e6%8e%92%e5%ba%8fhow-to-write-bubble-sort-with-pl1/ SHELL:   PROCEDURE OPTIONS (MAIN);
         DECLARE
           ARRAY(50) FIXED BIN(15),
           (K,N) FIXED BIN(15);

         GET LIST(N);
         GET EDIT((ARRAY(K) DO K = 1 TO N));
         PUT EDIT((ARRAY(K) DO K = 1 TO N));
         CALL BUBBLE(ARRAY,N);
END BUBBLE;

BUBBLE:   PROCEDURE(ARRAY,N); /* BUBBLE SORT*/
          DECLARE (I,J) FIXED BIN(15);
          DECLARE S BIT(1);        /* SWITCH */
          DECLARE Y FIXED BIN(15); /* TEMPO */
          DO I = N-1 BY -1 TO 1;
            S = ’1′B;
            DO J = 1 TO I;
              IF X(J)>X(J+1) THEN DO;
                S = ’0′B;
                Y = X(J);
                X(J) = X(J+1);
                X(J+1) = Y;
                END;
              END;
            IF S THEN RETURN;
            END;
          RETURN;
          END SRT;

]]> http://www.ibmmainframe.cn/2008/12/pl1%e4%b8%ad%e7%9a%84%e5%86%92%e6%b3%a1%e6%8e%92%e5%ba%8fhow-to-write-bubble-sort-with-pl1/feed/ 0 PL/1中的Hello World(How to write Hello World with PL/1) http://www.ibmmainframe.cn/2008/12/pl1%e7%9a%84hello-worldhow-to-write-hello-world-with-pl1/ http://www.ibmmainframe.cn/2008/12/pl1%e7%9a%84hello-worldhow-to-write-hello-world-with-pl1/#comments Thu, 04 Dec 2008 10:10:17 +0000 Raymond http://www.ibmmainframe.cn/2008/12/pl1%e7%9a%84hello-worldhow-to-write-hello-world-with-pl1/ HELLO: PROCEDURE OPTIONS (MAIN); /* A PROGRAM TO OUTPUT HELLO WORLD */ FLAG = 0; LOOP: DO WHILE (FLAG = 0); PUT SKIP DATA('HELLO WORLD!'); END LOOP; END HELLO; ]]> http://www.ibmmainframe.cn/2008/12/pl1%e7%9a%84hello-worldhow-to-write-hello-world-with-pl1/feed/ 0