Deblanking was RE: Reason for allocating memory

["Westdorp, Tom" <Tom.Westdorp@xxxxxxxxxxxxxxxxxx>]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
I've had the following procedure in a service program for awhile, no sure of
its source and I don't think I've had a reason to use it.
      ****************************************************************
      * Remove Embedded Blanks                                       *
      *                                                              *
      * Use: Eval      #DeBlank(string)                              *
      ****************************************************************
     P #DeBlank        B                   Export
     D                 PI          3000A
     D @@string                    3000A   Value
     D apost           c                   Const(x'7D')
     D StrStr          s               N   inz(*Off)
     D Index           s              4  0 inz(0)
     D x               s                   Like(Index)

     D @@CmdLin        DS
     D  CmdLin                     3000
     D   CmdAry                       1A   Dim(3000) Overlay(CmdLin:1)

     D @@workDS        DS
     D  HldAStr                    3000A
     D   Ary                          1A   Dim(3000) Overlay(HldAStr:1)

     C                   Eval      CmdLin = @@string
     C                   Eval      Index = 1
     C                   Eval      X = 1
     C                   DoU       Index = 3000
     C                   If        CmdAry(Index) = '('
     C                   DoU       CmdAry(Index) = ')'
     C                   If        CmdAry(Index) = apost
     C                   If        StrStr <> *On
     C                   Eval      StrStr = *On
     C                   Else
     C                   Eval      StrStr = *Off
     C                   EndIF
     C                   EndIF
     C                   If        CmdAry(Index) <> ' ' or StrStr
     C                   Eval      Ary(x) = CmdAry(Index)
     C                   Eval      x = x + 1
     C                   EndIF
     C                   Eval      Index = Index + 1
     C                   EndDO
     C                   Else
     C                   Eval      Ary(x) = CmdAry(Index)
     C                   Eval      Index = Index + 1
     C                   Eval      x = x + 1
     C                   EndIF
     C                   EndDO
     C                   Eval      CmdAry = Ary
     C                   Return    CmdLin
     P #DeBlank        E

-----Original Message-----
From: Tanveer, Mohammad [mailto:mtanveer@crateandbarrel.com]
Sent: Friday, July 26, 2002 1:55 PM
To: 'rpg400-l@midrange.com'
Subject: RE: Reason for allocating memory



Is there a BIF to remove spaces b/w letters

"FIRSTNAME                   LASTNAME"

I want to print it like "FIRSTNAME LASTNAME" or in some cases like
"FIRSTNAMELASTNAME" :)

Does anyone have a piece of code to build Function Keys in the bottom of the
screens.  So that I can add/remove/hide/show/highlight/Reverse Image
Function Keys List.  I have to play with all 24 Keys for different
conditions.

F1=Help F12=Cancel F6=Fold F4=Prompt F20=Display All
F16=Delete F21=CMD F19=Break F22=More Options F24=More Keys

Thanks