RPG

Hello iSeries-AS/400 RPG Programmers

October 24, 2010
By
Hello iSeries-AS/400 RPG Programmers

This category is dedicated to all RPG programmers trying to write clear structured code We have free source code, free samples, free tips and techniques, free utilities, free sample test questions and answers, free downloads, free books and manuals, free examples. You do not have to “register” or anything else to see it. Enjoy. This started as a place to put my RPG code,...

Read more »

RPG ILE Books and Links

October 24, 2010
By
RPG ILE Books and Links

I have seen pdf formatted IBM (RPG-ILE) manuals where you could only see (or download) one item at a time. here is IBM’s reference manuals source where you can see and download the whole book in either html or pdf format; (#3. below is the best) One drawback, in the html book (#1), the “internal” links to the topics in the table of contents...

Read more »

SDA and RDA is now “RDS” or “RDPi”?, A.K.A. Eclipse

April 30, 2010
By
SDA and RDA is now “RDS” or “RDPi”?, A.K.A. Eclipse

April 2010 IBM Rational Developer for i (renamed in 2008 from WDSc), has been withdrawn from market and is replaced by the Rational Developer for Power Systems Software – RPG and COBOL Development Tools for IBM i. The latest release of Rational Developer for Power includes all of the features of Rational Developer for i (RDi / WDSc) plus exciting new features such as:...

Read more »

RPG-ILE FREE (format) subfile pgm (2)

April 25, 2010
By
RPG-ILE FREE (format) subfile pgm (2)

In February of 2010 I asked my friend Ken Killian to update the RPG program RPG-ILE subfile pgm (1) to FREE FORMAT. (the DSPF and etc. are at “RPG-ILE subfile pgm (1)”) Now, things are even better. the EVAL opcode is no longer needed. MOVE is not needed. Z-ADD is not needed. You simply write statements, like If *In26 = *Off; Count +=1; ......

Read more »

RPG-ILE subfile pgm (1)

March 20, 2010
By
RPG-ILE subfile pgm (1)

I got this code and pieced it together from IBM’s book RPG USERS GUIDE, book 26 in 1991 and, in about 1994 I enhanced it to toggle more columns. Later, 1998 I expanded it to the wider ILE format and changed a few of the if’s and do’s to show the new, easier-to-read format … if *in55 = *on is easier to read than...

Read more »

object listing

March 17, 2010
By

valuable for discovering old objects that have never been used, or not in the last X years – etc. As the administrator of the system, the QSECOFR, this was a handy utility for finding and removing old objects off the hard disk. PRTOBJT (PRTOBJText) enhanced from Nov.’91 Midrange Computing pg.26 At KDHE, the Kansas Dept. of Health and Environment, Topeka, Kan. by Greg Smith,...

Read more »

WDSC tracks TODO/Tasks

March 11, 2010
By
WDSC tracks TODO/Tasks

Using IBM’s WDSC/Rdi, (“WebSphere Development Studio Client”) you can use your Task View Window to mark places that you need to update code. This is a very handy Feature! You create create a “Task” as a reminder, or you can mark a line of code that you want to re-visit and complete code. First open your “View” window inside WDSC/RDi using Menu: Window>Show View…>Task…...

Read more »

more details on the power of Visual Explain

March 11, 2010
By
more details on the power of Visual Explain

I have mentioned Visual Explain before, but thought I would show more details… Recently, I had several people ask me for more details on the power of “Visual Explain” I *think* this option has been around since V4R4… J I have used it since 2000… J J J Here is the IBM-Link: publib.boulder.ibm.com/infocenter/…/topics/tvisualexpln.html This only “Scratches the surface”, but it gives you a glimpse...

Read more »

IBM Bringing MySQL to the iSeries, to DB2

March 11, 2010
By
IBM Bringing MySQL to the iSeries, to DB2

What a Lifelong DB2 Fanatic Sees in MySQL Published: February 3, 2010 by Susan Gantner In my mind, you can’t beat our database. It’s not only integrated into the operating system, it’s also incredibly flexible. You can use SQL to create and access data just like databases on other systems but you can also use the native DDS, RPG, COBOL and other languages with...

Read more »

RPG-ILE : 35 Question quiz

March 8, 2010
By

RPG-ILE – RPG-IV Quiz offered in 2007 to co’s and agencies for technical testing of their RPG programmer job applicants. If you have been in an interview recently and were asked a question that you thought was good and worth mentioning to others, here, to be aware of, offer it to us in a comment below, along with the answer. We don’t think these...

Read more »

Passing Variable-Length Parameters to Subprocedures

March 7, 2010
By

In RPG, there is a subtle but important difference between the VARYING keyword that is used to assign a variable-length attribute to a character field and the OPTIONS(*VARSIZE) keyword that is used to permit a variable of any length to be passed as a parameter to a subprocedure or program. Often these two different features are referred to as variable-length field or variable-length parameter....

Read more »

Activation Groups

March 5, 2010
By

Activation Groups Creating RPG programs out of modules, is a two-step process:  This includes  CRTRPGMOD (Create RPG Module) and then CRTPGM (Create Program).   For single-module programs, these steps can be consolidated into one command: CRTBNDRPG (Create Bound RPG Program). In PDM, this is the old stand by option 14, and the result is a *PGM object: The interim *MODULE object is not created....

Read more »

Binding – Linking; Directories

March 5, 2010
By

Binding ( or Linking ) “service programs” (*SRVPGM). The CRTPGM command is used to combine one or more *MODULEs into a *PGM, while CRTSRVPGM is used to combine one or more *MODULEs into a *SRVPGM. Both of these commands, are part of the “binder” or linker of OS/400. UPDPGM can be used to replace one or more *MODULEs in a *PGM (perhaps with a...

Read more »

SubProcedures

March 5, 2010
By

SubProcedures can return a value like a function, and they support recursion. A program with a subprocedure will not run in the default activation group, so include an H-spec to force it to run in a named activation group. ex: QILE H dftactgrp(*no) actgrp('QILE') F*-------- := - - --- - ------- (sub)Procedures follow the O-specs, if you have any. Since most RPG programs these...

Read more »

RPG IV Free-format MOVEA

March 5, 2010
By

The MOVEA (move with array) operation code may not be supported in Free Format, but that doesn’t stop Bob Cozzi, or us, from making it work anyway – in his Jan 12th, “Tuesday Tip” Cozzi takes a page from his upcoming book on free-format programming and illustrates two alternatives to MOVEA in free-format RPG IV. H Debug(*Yes) H Option(*SrcStmt:*NoDebugIO) H DftActGrp(*No) H ActGrp('QILE') H...

Read more »