Code400 -The Support Alternative - Forums

Problem with calling the program and passing parameters

Yanez25 — Wed, 02 Sep 2026 13:32:47 GMT

I have this programme in RPGLE (a summary)

d WkCd0001 s 3a
d WkCd0002 s 3a
d WkDe0001 s 50a
D STARTPGM1 PR
D P_PARM LIKE (P_PARM)
*
D STARTPGM1 PI
D P_PARM 5000
*
D DsQuery1 DS
D Field_1 1 10 Inz(*Blanks)
D Field_2 11 50 Inz(*Blanks)
D Field_3 51 101 Inz(*Blanks)
c ExSr SrRout01
c ExSr SrStart
/free
BegSr SrRout01;

EVAL DsQuery1 = P_PARM;
Eval WkCd0001 = %Trim(Field_1);
Eval WkCd0002 = %Trim(Field_2);
Eval WkDe0001 = %Trim(Field_3);

with a simple interactive call, passing these 3 parameters:
CALL PGM(MYLIBL/STARTPGM1) PARM(“TXT” '$$$“ 'NOT FOUND”) and when debugging

the third parameter (WKDEELEM) gives me this result

WKDEELEM = “NOT FOUND ?? ”

that is, it also returns these two characters (??) in addition to ‘NOT FOUND’.

I would like to obtain only the following result:
WkCd0001 = “TXT”
WKCd0002 = '$$$'
WkDe0001 = “NOT FOUND ”

How can I correct the code?

"Self Update" not Triggering Journal Entry

MFisher — Tue, 25 Aug 2026 18:59:21 GMT

We have a case where we want to get journal entries for "UPDATES" without actually updating the data. I thought running this would trigger a journal entry, but appears not to.

UPDATE TABLE_A
SET FIELD1 = FIELD1
WHERE STATUS = 'X'

When I run it, it says 50 records changed, but when I do DSPJRN I don't see anything.

Removing Temporary PTFs ?

MFisher — Tue, 25 Aug 2026 18:54:50 GMT

We did a PTF update past weekend, and 1 of the temporary PTFs broke some applications trying to connect. I thought Temp PTFs could be fairly easily removed and without knowing which one, thought all 100 of them could be removed for now. But a consultant said not too, that it's too risky and could cause more problems.

So, just wondering what others think.

HTTPAPI - Error parsing user/password from URL

tools400dev — Tue, 11 Aug 2026 06:15:23 GMT

HTTPAPI does not correctly parse the user and password from a URL, such as "http://userassword@10.212.66.112:8080/auth/basic/".

The problem is the '@', which is a variant character and which has a different hex code on German systems.

I am not sure whether it is the best option, but I made it working on your IBM i by updating procedure http_long_ParseURL() as shown below:

Added:

Code:

      // Define variant character @
     D AT              s              1C   inz(u'0040')

Updated:

Code:

     C* find the last @ symbol in the host name.  It's important
     C* to use the last one, in case the userid is an e-mail address.
     C* for example:
     c*  http://bob@nospam.com:bigboy@www.scottklement.com
     c                   eval      wwPos = 0
     c                   eval      wwFound = %scan(AT: peHost) // Updated
     c                   dow       wwFound > 1 and wwFound < %size(peHost)
     c                   eval      wwPos = wwFound
     c                   eval      wwFound = %scan(AT: peHost: wwFound+1) // Updated
     c                   enddo

Regards,

Thomas.