Re: Qcmdexc

[Mel Rothman <mel@xxxxxxxxxxxxxx>]

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