+----------------------------------IBM 拡張----------------------------------+
目的
コマンドをオペレーティング・システムに渡して実行させます。 コマンドが完了して、制御がオペレーティング・システムから戻るまで、 現行プロセスは停止します。 このサブルーチンにオプションの引き数を追加すると、オペレーティング・システム からの戻りコード情報に対して回復を実行させることができます。
クラス
サブルーチン
引き数の型と属性
例
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 拡張-------------------------------+