× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  • Subject: RE: Procedure Problem
  • From: "Ron Hawkins" <hwarangron@xxxxxxxx>
  • Date: Thu, 30 Dec 1999 15:33:15 -0800
  • Importance: Normal

this is the way I did it:

P  Centerfld      B                   export
d  CenterFld      PI         32766    opdesc
d  FieldToCtr                32766    options(*varsize)

 *-----------------------------------------------------------------*
 * Prototype for CEEDOD (Retrieve operational descriptor)
 *-----------------------------------------------------------------
D CEEDOD          PR
D ParmNum                       10I 0 CONST
D                               10I 0
D                               10I 0
D                               10I 0
D                               10I 0
D                               10I 0
D                               12A   OPTIONS(*OMIT)
C                   CALLP     CEEDOD(1         :DescType:DataType:
C                               DescInfo1 : DescInfo2: Inlen:
C                               *OMIT)
c                   eval      X = InLen

the calling program could do this:

c                   eval      Field40 = CenterFld(Field40)

HTH
Ron

-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of Wayne Achenbaum
Sent: Thursday, December 30, 1999 1:11 PM
To: MIDRANGE-L@midrange.com
Subject: Procedure Problem


I have been watching the debate on the correct way to code the centering
procedure. I also can't seem to get it to work the way that I want to. What
I would like to accomplish is, to allow a caller to use the following code.

*--------------------------------------------------------------------*
* Calling Module
*
*--------------------------------------------------------------------*
C                   eval      Ctrfld = $Center(Entryfld)

The problem I am trying to overcome is that I want the calling module to be
oblivious to size and not have to know about defining a varying size
variable to center. I tried all the permeatations that I could conceive of.
My module does not compile with Entryfld defined as 50a.

Can Anyone help with the definition of the field as parameter 1? I tried
Const (*varsize) that didn't work. How can I overcome the parameter type
mismatch if at all. TIA


The Following is a snip from a string utility service Program that works as
long as the parameter is some variable of any size up to and icluding size
256 that is of type varying.

 *--------------------------------------------------------------------*
 * Prototype for $Center procedure
*
 *--------------------------------------------------------------------*
d $Center        PR           256a   varying

d InputData                       256a   Varying Options(*Varsize)

 *--------------------------------------------------------------------*
 * $Center procedure
*
 *--------------------------------------------------------------------*
p $Center        B                    Export
 *
d $Center        PI          256a   Varying
d Field_In                      256a   Varying Options(*Varsize)
*
d Half                s              3s 0
d Len                 s              3s 0
d Size_In           s              3s 0
d Start               s              3s 0
d Field_Out     s            256a
 *
c     ' '           Checkr(E) Field_In      Len
c                   Eval      Size_In = %Len(Field_In)
 *
c                   If        %Found
c                   Eval      Half = %Div(Len:2)
c                   Eval      Start = (((Size_In) /2)
c                                      +1) - Half
c                   eval      %Subst(Field_Out : Start : Len) =
c                             %subst(Field_In : 1 : Len)
c                   Return    Field_Out
 *
c                   Else
 *
c                   Return    Field_In
c                   EndIf
 *
p $Center        E

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.