icSubType | input | character |
assign vcSubType = "":U. assign vcDOCUMENTSUBTYPES ={&DOCUMENTSUBTYPES}. do viA = num-entries(vcDOCUMENTSUBTYPES, chr(2)) to 1 by -2: if entry(viA, vcDOCUMENTSUBTYPES, chr(2)) = icSubType then do: assign vcSubType = entry(viA - 1, vcDOCUMENTSUBTYPES, chr(2)). leave. end. end. return vcSubType.