
DM API OBJECTS 87
PCDPropertyList
oGlobalPropertyList.AddProperty( _
"Table Locks", vPropValue)
'If successful, then load the Pages Allocated
'metadata.
If nResult = 0 Then
vPropValue = 30
nResult = _
oGlobalPropertyList.AddProperty( _
"Pages Allocated", vPropValue)
'If successful then load the Pages Input
'metadata.
If nResult = 0 Then
vPropValue = 100
nResult = _
oGlobalPropertyList.AddProperty( _
"Pages Input", vPropValue)
If nResult <> 0 Then
MsgBox "Pages Input Property “ _
& “addition failed."
End If
Else
MsgBox "Pages Allocated Property “ _
& “addition failed"
End If
Else
MsgBox "Table Locks property “ _
& “addition failed."
End If
Else
MsgBox "Memory Property addition failed"
End If
Comentários a estes Manuais