Calling error

Program A calls program B with invoice# ( 10S 0) as a parameter.

Program B receives Invoice# as a incoming parameter ( Invoive# is a file field).

But when program b is called i get a runtime error " PGMB 400 decimal-data error in field (C G S D F)"

Help me to fix this error.

Code goes as follows:

PGMA
______
IDS DS
I I 123456789 1 90INV
C CALL 'PGMB'
C PARM 3 INV 90
C SETON LR

PGMB
________

FINVOICEPF IF E DISK
C *ENTRY PLIST
C PARM INV#
C INV# DSPLY
C SETON LR

___________

Thanks.
Raj