Nice! These are very useful!
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Barbara Morris
Sent: Friday, November 21, 2025 7:57 AM
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: [EXTERNAL] Most of the fall 2025 enhancements for RPG are available now
The following enhancements are available with PTFs:
- New date formats *DMYY, *MDYY, *YYMD, similar to *EUR, *USA, *ISO, but
the new formats allow all the usual separators. They can't be used for
definitions; they can only be used with %CHAR, %DATE, %DEC, MOVE, MOVEL,
TEST.
- Implicit CCSID conversion for the string built-in functions.
dcl-s name varchar(25) ccsid(*utf8);
p = %scan('.' : name); // Formerly not allowed (different CCSIDs)
- Diagnostic messages in the compiler give the whole name (up to 100
characters)
For this line:
5 if medication_dose > max_dose(medication_type);
Before, the error message would be
RNF7030 The name or indicator MEDICAT... is not defined.
Now, the error message is
RNF7030 The name or indicator MEDICATION_DOSE is not defined.
PTFs:
7.5 TGTRLS(*CURRENT): 5770WDS SJ08064
7.6 TGTRLS(*CURRENT): 5770WDS SJ08065
7.6 TGTRLS(V7R5M0): 5770WDS SJ08092
The enhancement to define a variable like an enum is not available yet.
There will be later PTFs.
See the announcement in the RPG Cafe:
https://protect.checkpoint.com/v2/r01/___https://www.ibm.com/support/pages/node/1106229%23announcement___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzplZTVjZmVhNTYwZTU3N2FmNDA0MmY4MzllMjE3ZTViNjo3Ojk0OWE6ZmJhMmMxZTc5OTAxZGRjNDA1Y2Y2MDAyZGM1OTJhMWE4OTI4ZmMzNWQzYzcxOTQ4ODQyMDdiMDdiNDU2MmQ2NjpwOlQ6Rg
--
Barbara
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:
https://protect.checkpoint.com/v2/r01/___https://lists.midrange.com/mailman/listinfo/rpg400-l___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzplZTVjZmVhNTYwZTU3N2FmNDA0MmY4MzllMjE3ZTViNjo3OjExNjM6OTIwM2IyM2QyZTM0MDdmZDQxYTRmMTEwYjBlMzcyZjJmYjZiYzAzZGJjNjhjMjdmM2Y1MzczZDVkYjM2ODhhZDpwOlQ6Rg
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at
https://protect.checkpoint.com/v2/r01/___https://archive.midrange.com/rpg400-l___.YzJ1OnRvdGFsYml6ZnVsZmlsbG1lbnQxOmM6bzplZTVjZmVhNTYwZTU3N2FmNDA0MmY4MzllMjE3ZTViNjo3Ojg0NDE6MTdhZGFhY2Y5ZjllYjgyMzE2ZjA0MjQxNzAxNWZjZThlOWI3NTIxNWQ2YTQyODI4MDlhMzk4MTIyODhmZDFkNDpwOlQ6Rg.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
[CAUTION! This email originated outside of the organization. Please do not open attachments or click links from an unknown or suspicious origin.]
Greg Wilburn
Director of IT
301.895.3792 ext. 1231
midrange.com
