*get:
     EXEC TAA GET BLOB 000-pg-blob1 IN pgformt
        LENGTH INTO mylen
        DATA INTO mypointer 
    END-EXEC
    SET ADDRESS OF FOREIGNDATA TO MYPOINTER
*put:
    SET MYPOINTER TO ADDRESS OF FOREIGNDATA
    MOVE LENGTH OF FOREIGNDATA TO MYLEN
    EXEC TAA PUT BLOB 000-pg-blob1 IN pgformt 
        LENGTH FROM mylen
        DATA FROM mypointer 
     END-EXEC