Re: printing long datatypes

["Kulshrestha, Alok" <ALOKKULSHRESTHA@IMF.ORG>]

Clark,

You could use the following example, which converts the STRIP characters (
embedded carriage returns) to Spaces. You don't want to wrap your text, so
keep the "line_length_lit" more than the length of the entire string.

        Print $remarks (1,1)  bold wrap 200 10 strip=/\^@<13>

Hope it helps.
Alok Kulshrestha


On Tuesday, September 22, 1998 2:19 PM, C. Willis III
[SMTP:ceprn@HOTMAIL.COM] wrote:
: OS : W-95/NT/Unix(Solaris system V rel 4)
: DB : Oracle
: DB Version : 7.3
: Sqribe Product : sqrw
: Sqribe Prod Version : 3.0.1.18
: Application : PSoft 7.0
: Question / Comment : I have a select of a long datatype field.  The data
: is in the database like this :
: sentencesentencesentencesentencesentencesentencesentence(^M)
: (^M)
: (^M)
: sentencesentencesentencesentencesentence(^M)
: (^M)
: sentencesentencesentencesentencesentencesentencesentence(^M)
:
: where (^M) is a line feed/return.
:
: What I need to do is strip out all of the (^M) line feeds, concat the
: senetences together and then cut them up into bits for printing in the
: footer.  I figure I can use the substr fxn to cut the finished string
: into bits, and probably use the translate function to get rid of the
: (^M) line feeds (if I knew what the ascii sequence was for this), but I
: am experiencing some difficulties in applying the theory to practice.
: Has anyone had any experience doing this?
:
: Code Example :
:
: begin-procedure Select-RKA-Comments
:
: #debug show 'comment typ = ' $Comment_Type
:
: begin-SELECT
:
: COM.DESCR                         &comm_descr
: COM.COMMENTS_2000                 &print_comment
:
:    #debug show 'description = ' &comm_descr
:    #debug show 'comment     = ' &print_comment
:    let #comm_len = length(&print_comment)
:    let $comm_desc = rtrim(&comm_descr, ' ')
:    let #pos_b    = length($comm_desc)
:    #debug show 'length is   = ' #comm_len
:    #debug show 'no space is = ' #pos_b
:
:    do Print-RKA-Comments ! this will do the stripping,
:                          ! concatting and printing
:                          ! haven't written it yet
:
:  FROM PS_STD_COMM_TBL_PO COM
: WHERE COM.SETID            =  &PO.BUSINESS_UNIT
: AND   COM.STD_COMMENT_TYPE =  $Comment_Type
: AND   COM.EFFDT    <= (select max(EFFDT)
:                        from  PS_STD_COMM_TBL_PO
:                        WHERE COM.SETID            = &PO.BUSINESS_UNIT
:                        AND   COM.STD_COMMENT_TYPE =  $Comment_Type
:                        AND   EFFDT                <= SYSDATE)
: AND   COM.EFF_STATUS       =  'A'
:
: end-select
:
: end-procedure ! Select-RKA-Comments
:
:
: As always, TIA and 'Live Long and Prosper'
: clark
:
: ______________________________________________________
: Get Your Private, Free Email at http://www.hotmail.com