method GetSharedSetDescription

Description

Get shared set description by shared set code.

Parameters

icSharedSetCode	input	character
ocSahredSetDesc	output	character
oiSharedSetId	output	integer
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bfrwchart.p)

/****************************************************************************************************/
/* This method will get shared set description by shared set code */
/****************************************************************************************************/
MainBlock:
do on error undo, throw:
    assign ocSahredSetDesc = '':U
           oiSharedSetId = 0.
    if icSharedSetCode = ? or icSharedSetCode = "":U
    then return.
    
    <Q-13 run SharedSetByCode (all) (Read) (NoCache)
       (input icSharedSetCode, (SharedSetCode)
        output dataset tqSharedSetByCode) in BSharedSet>    
    find first tqSharedSetByCode no-error.
    if available tqSharedSetByCode
    then do:
        assign ocSahredSetDesc = tqSharedSetByCode.tcSharedSetDescription
               oiSharedSetId = tqSharedSetByCode.tiSharedSet_ID.
    end.       
        
end. /* do on error undo, throw: */