Re: Why am I getting this message? - RNF5343

Hans,

This work's very good , but could you tell me how do i use only the
non-blank part of
the NAMELIST ?

I just want the full list of libraries to pass to the command SAVCHGOBJ to
the
parameter OMITLIB !

Thank You Very Much !

Luis Martins




Please respond to RPG programming on the AS400 / iSeries
       <rpg400-l@xxxxxxxxxxxx>

Sent by:    rpg400-l-bounces+lnmartins=finibanco.pt@xxxxxxxxxxxx


To:    rpg400-l@xxxxxxxxxxxx
cc:
Subject:    Re: Why am I getting this message? - RNF5343


Luis Martins wrote:

> Dear sir,
>
> How do i define the variables :
>
> NameList and i ?
>
>
> Thank You !

=============================================
D namelist        s           3300a   varying
D i               s             10i 0
=============================================

Clearly, NAMELIST has to be big enough to hold up to 300 10
character names with one space between the names. So you need a
length of 3300. With VARYING, you don't have to continually %TRIM
the string when you want to use only the non-blank part of it.

I can be any numeric with zero decimal places. Usually, I declare
such index variables as 10I0.

Cheers! Hans


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



__________________________________________________

Esta mensagem e quaisquer ficheiros anexos são confidenciais, destinando-se
ao uso exclusivo da pessoa e/ou entidade a que se dirigem. Caso não se lhe
destine, ou não seja responsável pelo seu encaminhamento ao destinatário,
informamos que a recebeu por engano. Qualquer utilização, distribuição,
reencaminhamento ou outra forma de revelação a terceiros, impressão ou
cópia são expressamente proibidos; sendo que agradecemos que destrua a
mensagem de imediato, informando o seu emissor ou o Finibanco do sucedido.
Não obstante o Finibanco utilizar software anti-vírus como precaução, não é
possível garantir que a presente mensagem e eventuais ficheiros anexos não
contêm vírus, pelo que não consideramos da responsabilidade desta
instituição eventuais consequências inerentes. Alerta-se, ainda, que as
mensagens transmitidas por este meio podem ser interceptadas, corrompidas,
perdidas, destruídas ou entregues com atraso ao destinatário.