+----------------------------------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

+------------------------------End of IBM 拡張-------------------------------+

IBM Copyright 2003