HP3000-L Archives

November 2000, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Small Powerhouse Quiz question
From:
Pat Shugart <[log in to unmask]>
Reply To:
Pat Shugart <[log in to unmask]>
Date:
Fri, 10 Nov 2000 07:17:40 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (56 lines) 
Here's something short and sweet I picked up a while ago:

Q U I Z   (7.29.C8)      Level 999
Copyright 1997 COGNOS INCORPORATED

> access claim
> define spaces char*20  = ' '
> define rpt-char char*1 = '-'
> define rpt-string char*20              &
>         = DECRYPT( ( ENCRYPT( spaces, rpt-char ) ), ' ')
> report rpt-string
> go


11/10/2000         AMISYS Managed Care Systems, Inc.               PAGE   1

  RPT-STRING

  --------------------
  --------------------
  --------------------
  --------------------

Hope this helps

  
How do you repeat a character for print out?
MIME-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

I want to do the following

DEF A CHAR*1 = "_"

DEF B CHAR*50 = 50 X A   or simple 50 X "_"

TO get :  B= "_________________________________________________"

I thought it could be done, but I forget how.


Sincerely,

Jean Huot
Northern Credit Bureaus Inc.

______________________________________________
互户互户互户互户互户互
                                              
Pat Shugart
Trinity Information Services
Farmington Hills, MI 48331
248.489.6123
248.488.9195 (fax)

ATOM RSS1 RSS2