I had old tests where I was playing with sprintf. Looking through production I don't see where we used it. Might have been a conversion that has been archived. I have a note in the old source that numbers are too hard to do. Old was fixed from 15 years ago, this is it q&d converted to free.
https://code.midrange.com/a24a1a7289.html
1. **Free
2.
3. // Testing Sprintf
4.
5. Dcl-Pr Sprintf int(10) Extproc(*Cwiden:'sprintf');
6. ReturnValue Pointer Value Options(*String);
7. FormatString Pointer Value Options(*String);
8. Sub1 Pointer Value Options(*String:*Nopass);
9. Sub2 Pointer Value Options(*String:*Nopass);
10. Sub3 Pointer Value Options(*String:*Nopass);
11. Sub4 Pointer Value Options(*String:*Nopass);
12. End-Pr;
13.
14. Dcl-S Result Char(50);
15. Dcl-S Sample Char(50);
16. Dcl-S MyString Char(20);
17. Dcl-S Mystring2 Char(10);
18. Dcl-S Mystring3 Char(60);
19. Dcl-S Rc Int(10);
20.
21. Sample = '#1 is %s';
22. Mystring = '12';
23. Rc = Sprintf(%addr(Result):Sample:Mystring);
24. If Rc > 0;
25. Dsply Result;
26. Else;
27. Dsply 'Failed';
28. EndIf;
29.
30.
31. Sample = '#1 is %s and #2 is %s';
32. Mystring2 = ' 1 3 ';
33. Rc = Sprintf(%addr(Result)
34. :Sample
35. :%Trim(Mystring)
36. :%Trim(Mystring2));
37. If Rc > 0;
38. Dsply Result;
39. Else;
40. Dsply 'Failed';
41. EndIf;
42. Sample = '#1 is %s and #2 is %s and #3 is %s';
43. Mystring3 = 'Abcde';
44. Rc = Sprintf(%addr(Result)
45. :Sample
46. :%Trim(Mystring)
47. :%Trim(Mystring2)
48. :%Trim(Mystring3));
49. If Rc > 0;
50. Dsply Result;
51. Else;
52. Dsply 'Failed';
53. EndIf;
54.
55. *Inlr = *On;
56. Return;
On Wed, 2021-10-20 at 14:38 -0400, Jon Paris wrote:
printf works fine Vern. You have to decide how many parms you want to accommodate as RPG has no notion of a repeating parameter ...
sprintf too.
Jon Paris
On Oct 20, 2021, at 12:34 PM, Vern Hamberg <vhamberg@xxxxxxxxxxxxxxx<mailto:vhamberg@xxxxxxxxxxxxxxx>> wrote:
I don't remember whether the 3rd parameter of %scanrpl has to be a variable, or can it be an expression. If the latter, one can always nest the BIFs = not pretty but all in one, right?
But an interesting RFE, let's see how many votes and what the comments are. This looks kind of like C's printf function, conceptually, anyhow. Hey, you CAN maybe call that! Should see if I can put that in my presentation!
Vern
On 10/20/2021 11:00 AM, Peter Dow wrote:
Not exactly. This does it all in one statement; with %scanrpl you would have to do it once for each variable you want to replace, then print the resulting string.
myString = 'I have {apples} apples and {bananas} bananas';
myString = %scanrpl('{apples}' : %char(apples) : myString);
myString = %scanrpl('{bananas}' : %char(bananas) : myString);
print myString;
On 10/20/2021 8:53 AM, Alan Campin wrote:
Isn't that exactly what %ScanRpl does?
On Wed, Oct 20, 2021 at 8:27 AM Justin Taylor<jtaylor.0ab@xxxxxxxxx<mailto:jtaylor.0ab@xxxxxxxxx>> wrote:
Description:
Add string interpolation support so variables can be inserted into string
literals without having to use concatenation with + symbols and multiple
literals.
For example:
apples = 4
bananas = 3
print(f"I have {apples} apples and {bananas} bananas")
http://www.ibm.com/developerworks/rfe/execute?use_case=viewRfe&CR_ID=152890
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email:RPG400-L@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx>
To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email:RPG400-L-request@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives
at
https://archive.midrange.com/rpg400-l.
Please contactsupport@xxxxxxxxxxxxxxxxxxxx<mailto:contactsupport@xxxxxxxxxxxxxxxxxxxx> for any subscription related
questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link:
https://amazon.midrange.com
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx>
To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives
at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
[
https://www.medtronsoftware.com/img/MedtronMinilogo.bmp]
Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550<tel:985-893-2550>
Toll Free: 877-893-2550<tel:877-893-2550>
https://www.medtronsoftware.com
CONFIDENTIALITY NOTICE
This document and any accompanying this email transmission contain confidential information, belonging to the sender that is legally privileged. This information is intended only for the use of the individual or entity named above. The authorized recipient of this information is prohibited from disclosing this information to any other party and is required to destroy the information after its stated need has been fulfilled. If you are not the intended recipient, or the employee of agent responsible to deliver it to the intended recipient, you are hereby notified that any disclosure, copying, distribution or action taken in reliance on the contents of these documents is STRICTLY PROHIBITED. If you have received this email in error, please notify the sender immediately to arrange for return or destruction of these documents.
midrange.com
