Re: After call sub-program, dspf package filed decimal error (mch1202)

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

If you look at the dump variable W1BSDT contains spaces (hex 40) - That is not a valid packed decimal value.

Likely cause is that W1BSDT is defined in a data structure and neither the DS or W1BSDT has the INZ keyword.

Since you have not shown us the content of W1BSDT before the call we cannot tell if this bad value was in there before the call or was placed there by the called program - which for all we know defined the same parm as a character field and moved spaces to it.

In other words you have provided enough information to confirm that there was an error - but very little that would help us to determine why it happened.


On 2014-04-22, at 11:25 PM, lance@xxxxxxxxxxxxxx wrote:

> After call sub-program, dspf package filed decimal error (mch1202)
>
> Procedure Name . . . . . . . . . . . . :   DST7010
> Program Name . . . . . . . . . . . . . :   DST7010
>    Library . . . . . . . . . . . . . . :   NITTO
> Module Name. . . . . . . . . . . . . . :   DST7010
> Program Status . . . . . . . . . . . . :   00907
>              Decimal-data error occurred (C G D F).
> Previous Status  . . . . . . . . . . . :   00001
>              RNQ0001 Called program returned with LR indicator on.
> Statement in Error . . . . . . . . . . :   00000731
> RPG Routine  . . . . . . . . . . . . . :   *DETC
> Number of Parameters . . . . . . . . . :   000
> Message Type . . . . . . . . . . . . . :   MCH
> Additional Message Info  . . . . . . . :   1202
> Message Data . . . . . . . . . . . . . :
>              Decimal data error.
> Status that caused RNX9001 . . . . . . :
>
> W1BSCD                CHAR(1)              '2'              'F2'X
> W1BSDT                PACKED(6,0)          040404.          '40404040'X
> W1BSNM                CHAR(6)              '     ;'         '40404040CB5E'
> W1CHDT                PACKED(8,0)          00000000.        '000000000F'X
> W1CTCD                CHAR(1)              '1'              'F1'X
> W1CTNM                CHAR(6)              ' -  Y '         '0E60BA63E80F'
>
> Ps. Error value ==> W1BSDT, W1BSNM ???
>
>
>
> 0413.10 C                   WHEN      GMFLD='W1CTCD'
> 0413.11 C                   CALL      'SSRCOD'
> 0413.12 C                   PARM      'DB'          DB89S1
> 0413.13 C                   PARM                    W1CTCD
> 0413.17 C                   WHEN      GMFLD='W1BSCD'
> 0413.18 C                   CALL      'SSRCOD'
> 0413.19 C                   PARM      'DC'          DB89S1
> 0413.20 C                   PARM                    W1BSCD
> 0413.22 C                   OTHER
> 0413.23 C                   ENDSL
>
> PS. 0413.11 Call no error, But 0413.18 call error occurs.
>    Before Call W1BSDT=201401.
>
>     Best  Regards,
>
>
> =======================
>
> -- 
> This is the RPG programming on the IBM i (AS/400 and 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.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com