Re: Qcmdexc

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