E9.2 How can I display the object reservation error from a custom application

[jvet]

I do I display the object reservation error from a custom application

 

[JohnDanter2]

Look in P48013 etc

00030  |    |   -F00095ReserveObject(N0000602.F00095ReserveObject)
       |    |         "F4801" -> szNameObject [OBNM]
       |    |         SL UserID -> szUserId [USER]
       |    |         "1" -> cSuppressErrorMessage [EV01]
       |    |         VA frm_szRecordResErrorMsg_DTAI [DTAI] <- szErrorMessageID [DTAI]
       |    |         VA frm_szReserversName_ALPH [ALPH] <- szReserversNameAlpha [ALPH]
       |    |         VA frm_szGenericKey_GENKEY [GENKEY] -> szGenericKey [GENKEY]
       |    |         VA frm_szUniqueIDRecReserve_PID [PID] -> szApplication [PID]
       |    |         VA frm_szReserversAppId_PID [PID] <- szReserversApplication [PID]
       |    |         <Blank> -> cWarningError [EV01]
00031  |    |   -If VA frm_szRecordResErrorMsg_DTAI [DTAI] is greater than <Blank>
00032  |    |    |   -If FI szProgramId [PID] is not equal to "P31P001"
00033  |    |    |    |   -SetReservationError(B0000603.SetReservationError)
       |    |    |    |         VA frm_szReserversName_ALPH [ALPH] -> szReserversNameAlpha [ALPH]
       |    |    |    |         VA frm_szGenericKey_GENKEY [GENKEY] -> szGenericKey [GENKEY]
       |    |    |    |         VA frm_szReserversAppId_PID [PID] -> szApplication [PID]
       |    |    |    |         "0" -> cWarningError [EV01]
00034  |    |    |    |    Disable Control(HC &OK/&Select)
00035  |    |    |    End If
00036  |    |   -Else
00037  |    |    |   -F00095RemoveReservation(N0000602.F00095RemoveReservation)
       |    |    |         SL UserID -> szUserId [USER]
       |    |    |         "F4801" -> szNameObject [OBNM]
       |    |    |         VA frm_szGenericKey_GENKEY [GENKEY] -> szGenericKey [GENKEY]
       |    |    |         VA frm_szUniqueIDRecReserve_PID [PID] -> szApplication [PID]
00038  |    |    |    VA frm_szGenericKey_GENKEY [GENKEY] = [FI DocumentOrderInvoiceE [DOCO]]
00039  |    |    |   -F00095ReserveObject(N0000602.F00095ReserveObject)
       |    |    |         "F4801" -> szNameObject [OBNM]
       |    |    |         SL UserID -> szUserId [USER]
       |    |    |         "1" -> cSuppressErrorMessage [EV01]
       |    |    |         VA frm_szRecordResErrorMsg_DTAI [DTAI] <- szErrorMessageID [DTAI]
       |    |    |         VA frm_szReserversName_ALPH [ALPH] <- szReserversNameAlpha [ALPH]
       |    |    |         VA frm_szGenericKey_GENKEY [GENKEY] -> szGenericKey [GENKEY]
       |    |    |         VA frm_szUniqueIDRecReserve_PID [PID] -> szApplication [PID]
       |    |    |         VA frm_szReserversAppId_PID [PID] <- szReserversApplication [PID]
       |    |    |         <Blank> -> cWarningError [EV01]
00040  |    |    |   -If VA frm_szRecordResErrorMsg_DTAI [DTAI] is greater than <Blank>
00041  |    |    |    |   -If FI szProgramId [PID] is not equal to "P31P001"
00042  |    |    |    |    |   -SetReservationError(B0000603.SetReservationError)
       |    |    |    |    |         VA frm_szReserversName_ALPH [ALPH] -> szReserversNameAlpha [ALPH]
       |    |    |    |    |         VA frm_szGenericKey_GENKEY [GENKEY] -> szGenericKey [GENKEY]
       |    |    |    |    |         VA frm_szReserversAppId_PID [PID] -> szApplication [PID]
       |    |    |    |    |         "0" -> cWarningError [EV01]
00043  |    |    |    |    |    Disable Control(HC &OK/&Select)
00044  |    |    |    |    End If
00045  |    |    |    End If
00046  |    |    End If