Rational Developer for System z
PL/I for Windows, Version 7.6, プログラミング・ガイド

意味のある名前が付けられていない最適なコードの例

   dcl  x  bit(8) aligned;

   select( x );
     when( '01'b4 )
         .
         .
         .
     when( '02'b4 )
         .
         .
         .
     when( '03'b4 )
         .
         .
         .
   end;
意味のある名前が付けられた最適でないコードの例
   dcl (  a1  init( '01'b4)
         ,a2  init( '02'b4)
         ,a3  init( '03'b4)
         ,a4  init( '04'b4)
         ,a5  init( '05'b4)
       ) bit(8) aligned static nonassignable;

   dcl  x  bit(8) aligned;

   select( x );
     when( a1 )
         .
         .
         .
     when( a2 )
         .
         .
         .
     when( a3 )
         .
         .
         .
   end;
意味のある名前が付けられた最適なコードの例
   dcl (  a1  value( '01'b4)
         ,a2  value( '02'b4)
         ,a3  value( '03'b4)
         ,a4  value( '04'b4)
         ,a5  value( '05'b4)
       ) bit(8);

   dcl  x  bit(8) aligned;

   select( x );
     when( a1 )
         .
         .
         .
     when( a2 )
         .
         .
         .
     when( a3 )
         .
         .
         .
   end;

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)