select FileGroupID
, RegisterTime
, DSNPrio
, DSNEnv
, DSNApplQual1
, DSNApplQual2
, DSNDateQual
, DSNTimeQual
, DSNSecurity
from oa1t.TPV601A1
where FileID = ?
for read only
;
select FileGroupID
, RegisterTime
, DSNPrio
, DSNEnv
, DSNApplQual1
, DSNApplQual2
, DSNDateQual
, DSNTimeQual
, DSNSecurity
into :TPV601A1_FileGroupID
, :TPV601A1_RegisterTime
, :TPV601A1_DSNPrio
, :TPV601A1_DSNEnv
, :TPV601A1_DSNApplQual1
, :TPV601A1_DSNApplQual2
, :TPV601A1_DSNDateQual
, :TPV601A1_DSNTimeQual
, :TPV601A1_DSNSecurity
from oa1t.TPV601A1
where FileID = :TPV601A1_ParentFileID
for read only