RE: prototype data

Frank,

Your parameter definitions must be different in Program2, since start should
only be one byte (according to the prototype you sent).  I don't understand
why you're initializing your parms to blank, unless you expect the called
program to pass back this information.....  

Anyway, the data (the first nine bytes anyway) appear to be exactly what you
intended (which is blanks), and your $Start variable is just defined wrong
in program 2.

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863



-----Original Message-----
From: fkany@xxxxxxxxxxxxxxxxxx [mailto:fkany@xxxxxxxxxxxxxxxxxx]
Sent: Monday, July 12, 2004 1:12 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: prototype data



Hello,

PROGRAM_1 calls PROGRAM_2.  PROGRAM_2 is receiving data that shouldn't be
there.  Can anyone see why?

Thanks,

Frank

==========================
PROGRAM_1(A user has the cursor on #1CUST field and presses F4 to call
another program that will allow them to search for customers):
       *
       * -----------------------
       * Get Customer Prototype:
       * -----------------------
      D  $START         S              1
      D  $CUST          S              7
      D  $CTL           S              1
      D GETCUSTOMER     PR                  EXTPGM('ARR744')
      D  $START1                       1
      D  $CUST1                        7
      D  $CTL1                         1
       *
      C                   EVAL      $START = *BLANKS
      C                   EVAL      $CUST = *BLANKS
      C                   EVAL      $CTL = *BLANKS
      C                   CALLP     GETCUSTOMER($START:
      C                                         $CUST:
      C                                         $CTL)


PROGRAM_2(In debug this is the value received as soon as it is called.
#1CUST is a screen field for PROGRAM_1.):
$START = '                 #1CUST        '


--
This is the RPG programming on the AS400 / 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.