RE: Qcmdexc

The lengths are defined as 15p5... 


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth Martin
Sent: Monday, October 03, 2005 9:59 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Qcmdexc

Because QCmdExc requires a 15/5 length.  Thats just the way it is.  Its
the
rule.   It can't be changed. 

 

---------------------------------

Booth Martin

http://www.martinvt.com

---------------------------------

-------Original Message-------

 

From: RPG programming on the AS400 / iSeries

Date: 10/03/05 09:53:23

To: RPG programming on the AS400 / iSeries

Subject: Qcmdexc

 

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

Can some one let me know whats wrong?

 

 

 

---------------------------------

Yahoo! for Good

  Click here to donate to the Hurricane Katrina relief effort.

--

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.