Hi Billy
have you tried running using debug?
Alan Shore
Programmer/Analyst, Distribution
E:AShore@xxxxxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
"Billy Waters"
<bwaters@mtolivep
ickles.com> To
Sent by: <RPG400-L@xxxxxxxxxxxx>
rpg400-l-bounces@ cc
midrange.com
Subject
RE: CALLP
11/25/2009 02:46
PM
Please respond to
RPG programming
on the IBM i /
System i
<rpg400-l@midrang
e.com>
The subroutine is called 2 times.
D**************************************************************
D* Description Date *
D* Copy Module for SQL Message File Update 11/14/2009 *
D* *
D**************************************************************
DUPDMSG PR EXTPGM('SQLMSG01')
D P1 10
D P2 20
D P3 8 0
D P4 6 0
D P5 5 0
D P6 70
D*
D UPGMID S 10
D UPSTEP S 20
D UPDTE S 8 0
D UMSGID S 6 0
D URCNT S 5 0
D UMTXT S 70
_____________________________________________
From: Billy Waters
Sent: Wednesday, November 25, 2009 2:10 PM
To: 'RPG400-L@xxxxxxxxxxxx'
Subject: CALLP
I am in the process of refreshing my RPG skills using the OJT method. I
have a program that makes 2 calls (CALLP) to another program. The first
call works great. The second call does nothing. Any help will be
appreciated. The code:
C******************************************************
C* Add Record to SQLMSG file *
C******************************************************
C ADDMSG BEGSR
/FREE
DSPLY UPSTEP;
UPDTE = %DEC(%CHAR(%DATE(UDATE:*MDY):*ISO0):8:0);
URCNT = SQLER3;
UMSGID = SQLCODE;
UMTXT = SQLERM;
UPGMID = 'CKWEEK01';
CALLP UPDMSG(UPGMID:UPSTEP:UPDTE:UMSGID:URCNT:UMTXT);
/END-FREE
C ENDSR
Thanks,
Billy Waters
Mount Olive Pickle Company
--
This is the RPG programming on the IBM i / System i (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.
midrange.com
