× 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.



My object is to store SQL status information in a file. I had an SQL
error, that I have corrected and now the second call is working. Problem
is, I did not get the status of SQL statement in error added to my
status file.
Thanks for your quick response. This is my first post.



-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Billy Waters
Sent: Wednesday, November 25, 2009 2:34 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: RE: CALLP

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

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.