× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.