subroutine PSZ2EslString(integer: PSZ, string: EslString) is

 

integer Length

integer Result

 

    copy OS_EslPtrStrLen(PSZ) to Length

 

    if (Length > 0) then

        copy OS_EslSetStringValue(EslString, PSZ, Length) to Result

    else

        copy "" to EslString

    end if