HP3000-L Archives

August 1999, Week 4

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: ci programming question
From:
Tim Ericson <[log in to unmask]>
Reply To:
Tim Ericson <[log in to unmask]>
Date:
Tue, 24 Aug 1999 16:43:09 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (40 lines) 
> Barry Lake wrote:
>
> > How about this...  <really good example snipped>  ...
> >
> > You can "take the 'word' route" as long as you're on an MPE
> > release that has the wordcnt function.

Then Donna replied:
>
> <sigh>  i can't do 'wordcnt' as i'm only on 5.5pp6 <sigh>

Hi Donna!

Well, maybe not as effeceint as possible, but:

PARM PACK_IN
SETVAR PACK_OUT, PACK_IN
WHILE SETVAR(PACK_POS, POS('  ', '!PACK_OUT')) <> 0 DO
  SETVAR PACK_LEN, LEN('!PACK_OUT')
  SETVAR PACK_OUT, &
    LFT('!PACK_OUT', PACK_POS) + &
    STR('!PACK_OUT', PACK_POS+2, PACK_LEN)
ECHO !PACK_OUT !PACK_POS !PACK_LEN
ENDWHILE
ECHO !PACK_OUT

HTH!

 +-------------------------------------------------------------------+
  My mind is my own, as are my ideas and opinions.
  My heart, body, and soul, however, all belong to others.       Tim.
 +-------------------------------------------------------------------+
  Tim Ericson            tericson      DenKor Dental Management Corp.
  Sr. Systems Analyst     at denkor    503-526-4440 (my direct number)
    (& Systems Manager)     dot com         http://www.denkor.com
  Programming HP3000s since 1983!      Quality dental care since 1970!
 +-------------------------------------------------------------------+
  UDCs and Command Files:  http://www.denkor.com/hp3000/command_files
 +-------------------------------------------------------------------+

ATOM RSS1 RSS2