i want to know the status of my 3rd period in 2014 is locked or not

i had tried using code below

Dim mDBLinkCmpRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkCmpRW = OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)

Dim mDBLinkSysRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkSysRW = OpenDBLink(DBLINK_SYSTEM, DBLINK_FLG_READWRITE)

Dim temp As Boolean
'Dim CSCALENDARHEADER As AccpacCOMAPI.AccpacView
'Dim CSCALENDARHEADERFields As AccpacCOMAPI.AccpacViewFields
'mDBLinkCmpRW.OpenView "CS2010", CSCALENDARHEADER
'Set CSCALENDARHEADERFields = CSCALENDARHEADER.Fields

Dim CSCALENDAR1 As AccpacCOMAPI.AccpacView
Dim CSCALENDAR1Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView "CS0002", CSCALENDAR1
Set CSCALENDAR1Fields = CSCALENDAR1.Fields

Dim CSCALENDAR2 As AccpacCOMAPI.AccpacView
Dim CSCALENDAR2Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView "CS0060", CSCALENDAR2
Set CSCALENDAR2Fields = CSCALENDAR2.Fields

Dim CSCALENDAR3 As AccpacCOMAPI.AccpacView
Dim CSCALENDAR3Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView "CS0120", CSCALENDAR3
Set CSCALENDAR3Fields = CSCALENDAR3.Fields

'CSCALENDARHEADER.Compose Array(CSCALENDAR1, CSCALENDAR2)
CSCALENDAR1.Compose Array(CSCALENDAR2)

CSCALENDAR1.Process
CSCALENDAR1.Process
CSCALENDAR1.Process
CSCALENDAR1.Process
CSCALENDAR1.Process
CSCALENDAR1.Process
CSCALENDAR1.Process
CSCALENDAR1.Process
CSCALENDAR1.Process
CSCALENDAR1.Browse "", 0
temp = CSCALENDAR1.Exists
temp = CSCALENDAR1.Exists
temp = CSCALENDAR1.Exists

CSCALENDAR1Fields("FSCYEAR").Value = "2014" ' Fiscal Year
CSCALENDAR1.Read
CSCALENDAR1.Process

CSCALENDAR2.Browse "", 0
CSCALENDAR2.Process
MsgBox (CSCALENDAR1Fields("FSCYEAR").Value)
MsgBox (CSCALENDAR2Fields("FSCYEAR").Value)
MsgBox (CSCALENDAR2Fields("STATUS3").Value)

CSCALENDAR1.Update

CSCALENDAR2Fields("STATUS3").Value the result was 1 that mean in open or unlocked, but in the accpac, the status was locked

can anyone help me?