15.6.3 出力文字列の書式化 |
 |
WRITE コマンドを使用すると，文字列をレコードに書き込むことができます。レコード内のカラムをそろえるには， F$FAO 関数を使用してレコード・フィールドを定義し，これらのフィールドにプロセス名とユーザ名を格納します。 F$FAO 関数を使用する場合には，制御文字列を使用してレコード内のフィールドを定義します。その後，これらのフィールドに格納する値を指定します。
レコード内のフィールドを書式化する別の方法として，文字列オーバレイを使用する方法があります。しかし，F$FAO 関数の方が文字列オーバレイより強力です。 F$FAO 関数を使用すると，広範囲にわたる出力操作を実行できます。
この例に示したコマンド・プロシージャでは，WRITE コマンドを使用して，システムのプロセスのプロセス名と PID 番号を表示します。
$ ! Initialize context symbol to get PID numbers
$ CONTEXT = ""
$ ! Write headings
$ WRITE SYS$OUTPUT "Process Name PID"
$ !
$ GET_PID:
$ PID = F$PID(CONTEXT)
$ IF PID .EQS. "" THEN EXIT
$ WRITE SYS$OUTPUT F$GETJPI(PID,"PRCNAM")," ", F$GETJPI(PID,"PID")
$ GOTO GET_PID
|
次に示すように，WRITE コマンドからの出力では，プロセス名とユーザ名の間に 5 つのスペースが挿入されますが，桁そろえは行われません。
Process Name PID
MARCHESAND 2CA0049C
TRACTMEN 2CA0043A
FALLON 2CA0043C
ODONNELL 2CA00453
PERRIN 2CA004DE
CHAMPIONS 2CA004E3
|
この例の中では，コマンド・プロシージャは，F$FAO 関数を使用して， 16 文字フィールドと 12 文字フィールドを定義しています。 F$FAO 関数は，最初のフィールドにプロセス名を収めてから，スペースはスキップして，2 番目のフィールドに PID を収めます。
$ ! Initialize context symbol to get PID numbers
$ CONTEXT = ""
$ ! Write headings
$ WRITE SYS$OUTPUT "Process Name PID"
$ !
$ GET_PID:
$ PID = F$PID(CONTEXT)
$ IF PID .EQS. "" THEN EXIT
$ LINE = F$FAO("!16AS !12AS", F$GETJPI(PID,"PRCNAM"), F$GETJPI(PID,"PID"))
$ WRITE SYS$OUTPUT LINE
$ GOTO GET_PID
|
ここで，プロシージャを実行すると，桁がそろえられます。
Process Name PID
MARCHESAND 2CA0049C
TRACTMEN 2CA0043A
FALLON 2CA0043C
ODONNELL 2CA00453
PERRIN 2CA004DE
CHAMPIONS 2CA004E3
|
次の例は，オーバレイを使用して，RECORD シンボルの最初の 16 文字 ( オフセット 0 から始まる ) にプロセス名を収め，次の 12 文字 ( オフセット 17 から始まる ) に PID を収めます。
$ ! Initialize context symbol to get PID numbers
$ CONTEXT = ""
$ ! Write headings
$ WRITE SYS$OUTPUT "Process Name PID"
$ !
$ GET_PID:
$ PID = F$PID(CONTEXT)
$ IF PID .EQS. "" THEN EXIT
$ RECORD[0,16]:= 'F$GETJPI(PID,"PRCNAM")'
$ RECORD[17,12]:= 'F$GETJPI(PID,"PID")'
$ WRITE SYS$OUTPUT RECORD
$ GOTO GET_PID
|
このプロシージャでは，F$FAO 関数で作成したのと同じ書式が生成されます。
Process Name PID
MARCHESAND 2CA0049C
TRACTMEN 2CA0043A
FALLON 2CA0043C
ODONNELL 2CA00453
PERRIN 2CA004DE
CHAMPIONS 2CA004E3
|
データを文字列から整数に，整数から文字列に変換するには，次のレキシカル関数を使用します。
| F$CVSI
|
文字列からビット・フィールドを取り出して，符号付きの値である結果を整数に変換する。
|
| F$CVUI
|
文字列からビット・フィールドを取り出して，符号なしの値である結果を整数に変換する。
|
| F$INTEGER
|
文字列式を整数に変換する。
|
| F$STRING
|
整数式を文字列に変換する。
|
| F$TYPE
|
シンボルのデータ・タイプを判別する。
|
