method GetCodeForLabel

Description

Get the component code for a given component label.

Parameters

icBusComponentLabel	input	character
ocBusComponentCode	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/beventconfig.p)

assign oiReturnStatus = -98.

if icBusComponentLabel <> ? and
   icBusComponentLabel <> ''
then do:
    <Q-1 run BusComponentByLabelCodeID (all) (Read) (NoCache)
       (input ?, (BusComponentID)
        input ?, (BusComponentCode)
        input icBusComponentLabel, (BusComponentLabel)
        output dataset tqBusComponentByLabelCodeID) in BBusinessComponent >
    find tqBusComponentByLabelCodeID where 
         tqBusComponentByLabelCodeID.tcBusComponentLabel = icBusComponentLabel no-error.
    if available tqBusComponentByLabelCodeID
    then assign ocBusComponentCode = tqBusComponentByLabelCodeID.tcBusComponentCode.
    else do:
        assign vcMessage = trim(#T-3'This business component does not exist or is not unique.':255(8981)T-3#)
               oiReturnStatus = -1.
        <M-2 run SetMessage
           (input  vcMessage (icMessage), 
            input  '' (icArguments), 
            input  'tEventConfig.tcBusComponentLabel':U (icFieldName), 
            input  icBusComponentLabel (icFieldValue), 
            input  'E':U (icType), 
            input  3 (iiSeverity), 
            input  '' (icRowid), 
            input  'BLF-82':U (icFcMsgNumber), 
            input  '' (icFcExplanation), 
            input  '' (icFcIdentification), 
            input  '' (icFcContext), 
            output viFcReturnSuper (oiReturnStatus)) in BEventConfig>
    end.
end.

if oiReturnStatus = -98
then assign oiReturnStatus = 0.