Re: Qcmdexc -- RPG400-L



Oh hell Rob, electrons are 100% recycleable...:)

And if, as is the case alot around here, you're working more on "legacy"systems than current state of the art, you're reminded just how true "useit or lose it" really is!

Or better yet, if you have to flip amongst coding environments/stylesdepending on which client you're at this week or today...and many timesclients don't change.

That's why I keep a bevy of handouts online, etc., and yes, I evenoccassionally have to go into the S/38 environment and recompile somestuff...some of which I've rewritten, some just easier to leave alone andrecompile if you have to change a screen field...


Don in DC

On Mon, 3 Oct 2005, rob@xxxxxxxxx wrote:

Now, see how much time, and bandwidth, was wasted because someone wouldn't
type in a measly P to indicate a packed variable?

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Mel Rothman <mel@xxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
10/03/2005 10:18 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Fax to

Subject
Re: Qcmdexc






Length and Length1 are defined as standalone numeric fields with the
data type set to blanks.

The compiler treats these fields as packed.

From the V5R3M0 reference:

Entry            Explanation
Blank            When the LIKE keyword is not specified:
                                If the decimal positions entry is blank,
then the item
                                is defined as character

                                If the decimal positions entry is not
blank, then
                                the item is defined as packed numeric if
it is a
                                standalone field or parameter; or as
zoned numeric if
                                it is a subfield.

Mel Rothman
Mel Rothman, Inc.

Joe Pluta wrote:

Length should be packed, I think.  You have it zoned.

Joe

From: murali dhar

D CMD     S   9A INZ('WRKOBJPDM')
D CMD1    S  7A INZ('DSPLIBL')
D LENGTH  S  15 5 INZ(9)
D LENGTH1 S  15 5 INZ(7)
C       CALL   'QCMDEXC'
C       PARM              CMD1
C       PARM              LENGTH1
C       CALL   'QCMDEXC'
C       PARM             CMD
C       PARM               LENGTH
C       SETON                     LR

When I tried to change decimal positions from 5  to other number (


tried

diff combinations,like 16 6 etc..)for the fields LENGTH&LENGTH1, the
program is not working  and throwing exception which says command


length

not valid..


--
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.


--
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.