The problem is in the length of WK-NBR. If you define it to match the
definition of LK-NBR (S9(11)V9(4)) it should then have the correct
value. The system passes a buffer, not a pair of variables. If the
definitions are not the same, results are unstable.
John Arnold
(301) 354-2939
-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Riyadi, Agus
Sent: Monday, May 05, 2008 6:01 AM
To: COBOL Programming on the iSeries/AS400
Subject: [COBOL400-L] Unmatch variable
Hi All,
I don't now how AS/400 work, anybody can share with me ?
I have a program let say program A and this program will call sub
program B,
01 LK-OPT PIC X VALUE '1'.
01 LK-NBR PIC S9(11)V9(4) VALUE ZERO.
....
CALL PGM "B" USING LK-OPT LK-NBR.
But in program B
LINKAGE SECTION.
01 WK-OPT PIC X VALUE '1'.
01 WK-NBR PIC S9(9)V9(4) VALUE ZERO.
..
..
MOVE 1 TO WK-NBR.
My question is why LK-NBR become 100 ? Shoud be 1. Is this error due to
different variable definition in A and B ?
rgds
Agus R
IMPORTANT NOTICE:
The information in this email (and any attachments) is confidential. If
you are not the intended recipient, you must not use or disseminate the
information. If you have received this email in error, please
immediately notify me by "Reply" command and permanently delete the
original and any copies or printouts thereof. Although this email and
any attachments are believed to be free of any virus or other defect
that might affect any computer system into which it is received and
opened, it is the responsibility of the recipient to ensure that it is
virus free and no responsibility is accepted by American International
Group, Inc. or its subsidiaries or affiliates either jointly or
severally, for any loss or damage arising in any way from its use.
--
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
http://archive.midrange.com/cobol400-l.
midrange.com
