Description
Get shared type list
Parameters
ocSharedSetTypeList | output | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bfrwchart.p)
/**************************************************************************/
/* This method will get shared set types for the coa cross ref tab */
/**************************************************************************/
MainBlock:
do on error undo, throw:
assign ocSharedSetTypeList = {&SHAREDSETTYPE-GL-TR} + chr(2) + string ({&SHAREDSETTYPE-GL}) + chr(2) +
{&SHAREDSETTYPE-DIVISION-TR} + chr(2) + string ({&SHAREDSETTYPE-DIVISION}) + chr(2) +
{&SHAREDSETTYPE-COSTCENTRE-TR} + chr(2) + string ({&SHAREDSETTYPE-COSTCENTRE})+ chr(2) +
{&SHAREDSETTYPE-PROJECT-TR} + chr(2) + string ({&SHAREDSETTYPE-PROJECT}) + chr(2) +
trim(#T-7'Combined':15(163147120)T-7#) + chr(2) + string ({&COACROSSREFTYPE-COMBINED}).
end. /* do on error undo, throw: */