RE: CALLP

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