RE: why are my parameters sharing same memory?

["Dennis Lovelady" <iseries@xxxxxxxxxxxx>]

In this case, as I see it, a key advantage to DS is that a meaningful name
may be associated with the subparts (ERPGM, ERCODE, ERTEXT maybe), while
%subst() requires that the maintainer understand the layout you just
described, and maintain without meaning.

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
There is a foolish corner
in the brain of the wisest man.
        -- Aristotle 


> > Why %subst() on error?  Why isn't error a data structure?
> Dunno. It's just a procedure wrapper so that it can be called by an
> RPGIII. The first guy to write a wrapper wrote it that way and the rest
> of us just copy without asking questions. Is there an advantage with a
> DS?
>
> > And why are you only pulling 6 bytes for what is a 10 byte value?
> > ErrorPgm  = %SUBST ( error : 1 : 6 );
>
> Error will always be returned formatted so :
> PGM001(0001) This is the message text.
>
> It needs to be redecomposed for the RPGIII caller so :
> ErrorPgm        = 'PGM001    '
> ErrorCode       = '0001'
> ErrorMsg	    = 'This is the message text.
> 	'
>
>
> > > P Main            B
> > > D                 PI
> > > D ErrorCode                           LIKE ( ERRCD ) D
> > ErrorPgm
> > > LIKE ( ERRPG ) D ErrorMsg                            LIKE ( ERRLB )
> > >
> > > D error           S                   LIKE( ERRMG )
> > >
> > > IF NOT MySP ( error );
> > >
> > >   ErrorCode = %SUBST ( error : 8 : 4 );
> > >   ErrorMsg  = %SUBST ( error : 14 );
> > >   ErrorPgm  = %SUBST ( error : 1 : 6 );
> > >
> > > ENDIF;
> > >
> > >
> > > Debugging, if I change ErrorPgm, then positions 11 to 20 in
> > ErrorMsg change.
> > > error   = 79A
> > > ErrorCode       =  4A
> > > ErrorMsg        = 73A
> > > ErrorPgm        = 10A
> > >
> > >
> > > Thanks.
> > > --
> > > This is the RPG programming on the IBM i / System i
> > (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.
> > >
> > --
> > This is the RPG programming on the IBM i / System i
> > (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.
> --
> This is the RPG programming on the IBM i / System i (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.