Sage X3 Create a new CLOB Text

Here how to create a CLOB text


Funprog F_CRELOB(YABRFIC,YTEXTE)
Value Char YABRFIC
Value Char YTEXTE

    Local Char XXRTFTXT(250)(3)
    XXRTFTXT(0) = "{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fprq2\fcharset0 MS Sans Serif;}}\viewkind4\uc1\pard\f0\fs17 "
    XXRTFTXT(1) = YTEXTE
    XXRTFTXT(2) = "\par}"

    Local Char X_RET
    Local Integer XXOK
    Local Char XCHAMPLIEN : XCHAMPLIEN = "YYYY"
    Global Char YYYY : YYYY =  YABRFIC
    Local Clbfile WWCLOB
    Local Mask ACLOB [M:ACL]
    Setlob   WWCLOB  With XXRTFTXT
    [M:ACL]CLOB = WWCLOB
    Call CRE_CLOB_ACL(XCHAMPLIEN,XXOK) From TRTX3TEX
    Close Local Mask [M:ACL]
    X_RET = YYYY
    Kill YYYY


End X_RET

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s