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