`目的
  `全フィールドを操作する

C_LONGINT($i_TableNum;$i_TablePos)
C_LONGINT($i_RecordNum;$i_RecordPos)
C_LONGINT($i_FieldNum;$i_FieldPos)
C_POINTER($pt_Tarble;$pt_Field)

$i_TableNum:=Count tables  `テーブルの数を取得
For ($i_TablePos;1;$i_TableNum)  `全てのテーブルを処理する
	$i_FieldNum:=Count fields($i_TablePos)  `テーブルに含まれるフィールドの数を取得
	$pt_Tarble:=Table($i_TablePos)  `テーブル番号からテーブルのポインタを取得
	ALL RECORDS($pt_Tarble->)  `テーブルに登録された全レコードをセレクションにする
	$i_RecordNum:=Records in selection($pt_Tarble->)  `レコード数を取得
	For ($i_RecordPos;1;$i_RecordNum)  `全てのレコードを処理する
		For ($i_FieldPos;1;$i_FieldNum)  `全てのフィールドを処理する
			$pt_Field:=Field($i_TablePos;$i_FieldPos)  `操作用にフィールドのポインタを取得
			  `-----
			  `-----ここにフィールドを操作するプログラムを書く
			  `-----例：$pt_Field->:=xxxx
			  `-----フィールドのタイプには要注意
			  `-----
		End for 
		SAVE RECORD($pt_Tarble->)  `修正したレコードを保存
		NEXT RECORD($pt_Tarble->)  `次のレコードに移動
	End for 
End for