• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

Re: CL che chiama un srvpgm in varying

"MarcoF" <marco@mr-srl.it> wrote in message
news:662d302f-560e-41ac-9694-73833cb52c5e@a70g2000hsh.googlegroups.com...
On 14 Mag, 08:27, "Massimiliano Toninelli" <noema...@please.it> wrote:
> "Danilo Cussini" <c...@inwind.it> wrote in message
>
> news:3dc4dee1-3339-43ea-8b89-48f83a42bf73@x41g2000hsb.googlegroups.com...
> On 13 Mag, 18:12, "Massimiliano Toninelli" <noema...@please.it>
wrote:
>
> > Come faccio a trasformare un char in varying in un clp, mettendo la
> > lunghezza, visto che, mi sembra, non esista la possibilitùà di
mettere
> > la
> > lenght?
>
> Con %BINARY imposti la lughezza della variabile nei primi 2 bytes.
> Quindi se il parametro è di 100 bytes VARYING devi passare un
> parametro di 102 bytes e con %BINARY impostare 100 nei primi 2 bytes.
> Guarda sul manuale.
>
> http://publib.boulder.ibm.com/infocenter/iseries/v5r4/topic/rbam6/bin...
> =
> Grazie a te e a Stefano, ma quello che chiedevo è come calcolare la
> lunghezza di un char per un varchar.
> dcl &msgerrrore *char 100
>
> chgvar &msgerrore 'Ciao'
>
> La lunghezza che mi interessa è 5, ovvero la lunghezza della word
>
> Poi nell'esempio mio non avevo messo la keyword %bin che conosco ed uso; è
> come calcolare il 5
>
> Tia
>
> --
> Massimiliano
> ----------------------------------------
> La prova più forte contro una teoria, è la sua applicabilità
pratica.
>
> http://www.toninelli.it

Penso che la soluzione più rapida sia una piccola funzione RPG che si
occupi della conversione da CHAR a VARYING.
=
L'avevo fatta:

*===================================================================*
* pr_cvtvalue_in_varyng                                             *
*-------------------------------------------------------------------*
*  SCOPO                                                            *
*   Converte un valore ricevuto in un varying. Usato per i Clp      *
*                                                                   *
*===================================================================*
p pr_cvtvalue_in_varyng...
p                 b                   Export

d pr_cvtvalue_in_varyng...
d                 pi         32767    varying
d  String                    32767    const

/free

Return %trim(String);

/end-free
p                 e


Ma picche!



--
Massimiliano
----------------------------------------
La prova più forte contro una teoria,  è la sua applicabilità
pratica.

http://www.toninelli.it

Antworten