XL Fortran for AIX V8.1.1

ランゲージ・リファレンス

+----------------------------------IBM 拡張----------------------------------+

SYSTEM (CMD, RESULT)

コマンドをオペレーティング・システムに渡して実行させます。コマンドが完了して、制御がオペレーティング・システムから戻るまで、現行プロセスは停止します。このサブルーチンにオプションの引き数を追加すると、オペレーティング・システムからの戻りコード情報に対して回復を実行させることができます。

引き数タイプおよび属性

CMD
スカラーで、タイプは文字でなければなりません。これは、実行するコマンドおよび任意のコマンド行引き数を指定します。これは、INTENT(IN) 引き数です。

RESULT
タイプが INTEGER(4) のスカラー変数でなければなりません。引き数が INTEGER(4) 変数でない場合は、コンパイラーは (S) レベルのエラー・メッセージを生成します。これは、オプションの INTENT(OUT) 引き数です。 RESULT 内に戻される情報の形式は、WAIT システム呼び出しから戻される形式と同じです。

クラス

サブルーチン

      INTEGER        ULIMIT
      CHARACTER(32)  CMD
      ...
! Check the system ulimit.
      CMD = 'ulimit > ./fort.99'
      CALL SYSTEM(CMD)
      READ(99, *) ULIMIT
      IF (ULIMIT .LT. 2097151) THEN
         ...
     INTEGER RC
     RC=99
     CALL SYSTEM("/bin/test 1 -EQ 2",RC)
     IF (IAND(RC,'ff'z) .EQ. 0) then
       RC = IAND( ISHFT(RC,-8), 'ff'z )
     ELSE
       RC = -1
     ENDIF

関連情報

下層のインプリメンテーションに関する詳細は、「AIX Technical Reference: Base Operating System and Extensions Volume 2」の『system subroutine』を参照してください。

+--------------------------------IBM 拡張の終り-------------------------------+


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]