+----------------------------------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
関連情報
下層のインプリメンテーションに関する詳細は、「AIX Technical Reference: Base Operating System and Extensions Volume 2」の『system subroutine』を参照してください。
+--------------------------------IBM 拡張の終り-------------------------------+