RE: Passing Parms to an RPG Program

["Joel Harvell" <joelh@xxxxxxxxxxxxxxxxx>]

On the D spec try specifing the field as Zoned.
DCUSTID         S     10S 0

See if that solves your problem.

jbh

-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of a b
Sent: Thursday, March 23, 2000 7:15 AM
To: RPG400-L@midrange.com
Subject: Passing Parms to an RPG Program


Beginners question:

I'm attempting to call an RPG application from the
command line with a parm, but I continue to get an
error indicating that I have a data decimal error.
I'm not quite sure if I'm doing this right or not but
essentially I'm doing the following:

 CALL PGM(ALIBARY/PROGRAMX) PARM(9)

I need to pass a numeric variable to my RPG program
that looks like this:


*******************************************************fafile
  UF A E K DISK
fbfile   UF A E K DISK
*******************************************************dcustid
    s      10 0

*********************************************************
Mainline

c     *entry       plist
c                  parm        custid

C     custid       chain       afile
c                  if          not %found
c          ***************************
c           ************************
c                  else                   c
      return
c                  endif


Is this right... or am I missing something that I
should have?


Any help would greatly be apprecaited.


Thanks




__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---