ML 

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mark Johnson
Sent: Saturday, June 18, 2005 7:56 AM
To: [email protected]
Subject: Re: [U2] OCONV of no affect.

I'm not looking for a programming alternate or suggestions. Just a
null conversion.

I didn't invent this situation. It's just one of the zillions of
examples that I inherit with my client's systems.

Under certain circumstances, a single data field contains multiple
types of data. This may be dependent on another field.

Thus, code like this exists:

IF REC<5>="N" THEN
    PRINT OCONV(REC<6>,"MD2")
END ELSE
    PRINT REC<6>
END

Sometimes both have a conversion and I do this to save typing lines:
IF REC<5>="N" THEN CONV="MD2" ELSE CONV="D2/"
PRINT OCONV(REC<6>,CONV)

So I was wondering if this 2 line example could apply to the first
example.

Thanks in advance.
(P.S. I wonder how off-topic or deviated this thread will go. I'm just
looking for a null conversion)

----- Original Message -----
From: "Stevenson, Charles" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Saturday, June 18, 2005 2:43 AM
Subject: RE: [U2] OCONV of no affect.


> OK, I'll bite.
> How does one find a situation where one wants this?
> From: Mark Johnson
> > Is there an OCONV method that does nothing, ie IF
> > X=OCONV(X,CONV) THEN TRUE.
> >
> > I've had a situation where I could use this before and one crept
up 
> > today.
>
> How does one find MORE THAN ONE situation where one wants this?
>
>
> How about if YOUR CONV variable is an empty string?
> I *think* that for all X,  ( X EQ OCONV( X, '' ) ) will evaluate to 
> true.
>
>
> If that isn't the case, you could write your own "user exit":
>
>    SUB DONOTHING( STR.OUT, STATUS.OUT, STR.IN, I.OR.O.IGNORE )
>    STATUS.OUT = 0
>    STR.OUT = STR.IN
>    RETURN
>
> CATALOG BP $DONOTHING  (ideal-flavor cataloguing, not pick-flavor)
>
> ( X EQ OCONV( X, 'UDONOTHING' ) )  will always be true.
> -------
> u2-users mailing list
> [email protected]
> To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/

--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.7.7/20 - Release Date:
6/16/2005
 

-- 
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.7.7/20 - Release Date:
6/16/2005
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to