WebDec 21, 2024 · In RPGLE (and in CLLE sorta kinda) we have the following conditional opcodes available: The If-EndIf block The If – Else- EndIf block The If – ElseIf – Elseif – EndIf block The Select Block Let’s look at them one by one. The If-EndIf Programming Condition If we want some code Statement (s) to be executed conditionally. WebFeb 12, 2014 · Joe, the new fully free RPG is exactly the same as the /free RPG you are already using. The same source member type, the same compiler commands, everything. The only difference is that you don't need to write /free any more, and if you want to, you can use DCL-F and friends instead of F specs et al.
Fully free-form statements - IBM
WebJun 1, 2024 · Very simple, just loops 10 times C DO 10 C* code C ENDDO In order to use for loop in free syntax, a variable needs to be created. For example: FOR I = 1 TO 10; // code … RPGLE – also known as RPG /FreeFormat For x = 1 to SAVRRN by 1; Thing += Plop; If x > 10; Result = Field1 + Field2; Endif; EndFor; /me loves some RPG Free format. It makes this lovely old RPG language readable and slinky That was fun! RPG Modernization in more detail The GOLDERN rules when … See more Whenever I find myself editing some old RPG3 or RPG400 code, I try to spend a coffee*cleaning the code up to a more modern and readable form. See more RPG3 RPG400 RPGLE – also known as RPG /FreeFormat /me loves some RPG Free format. It makes this lovely old RPG language readable and slinky That was fun! See more The GOLDERN rules when modernizing old RPG programs is be careful! 1. Take Backups before you start 2. Take regular backups while you are working 3. Consider obvious logic changes 4. Consider the “what if” scenarios 5. … See more breckenridge to crested butte
Accessing external (DSPF) fields using arrays in RPGLE free
WebApr 7, 2024 · I would like to use the 'setWidthPercentage' method to adjust the table size but I can not get it to work in my RPGLE program. I have found the Java code to set the width of the table. table.setWidthPercentage (90); The problem I am having is translating that code to RPG. I am able to create a two column table using: newTable = new_pdfptable (2 ... WebSep 13, 2024 · RPGLE free form: if (type = 6 or type = 7 or type = 9) and not (seq = 224 or seq=249); I had to rewrite it to: if (type = 6 or type = 7 or type = 9) and seq <> 224 and seq <> 249; but why? I am guessing it has something to do with the NOT operator. ibm-midrange rpgle Share Follow asked Sep 13, 2024 at 20:23 Peter 370 1 13 1 WebMay 4, 2024 · If your version of RPG does not have the %parms () built-in, you can use the field in the Program Status Data Structure to determine the number of parameters. This is really going back to the past as %parms () was introduced in the second release of RPG IV in the mid 1990's. Share Improve this answer Follow edited May 4, 2024 at 17:21 cottonwood music