How to program an Application

Getting started on programming the AS/400 isn't hard. According to Frank Soltis, the most effective way to get a machine sold is to actually bring an AS/400 along to the future customer, and show an CxO in an one hour crash course how to code a simple business application.
Well, something an arbitrary business buffoon can do, you can do, too. Since the usual Hello World is just too lame, let's start with an actually usable example: A simple address book application.

Components of a typical Program

Since we're talking about a database machine, the first we need to now is how to create Database Tables.

Editing Database Content is usually done in forms. These are called Display Files. So, let's learn how to create Display Files.

Finally, there must be a program for handling key presses from the user and coping with the handling of database- and display files.

Programming Languages

Available on a full install of an older OS/400 are compilers for

• C/C++,
• COBOL,
• CL, the equivalent of batch/shell scripts,
• Java,
• RPG,

and interpreters for

• REXX, a scripting language derived from the mainframe world.

RPG and COBOL are available in two flavors: ILE and OPM. See linked explanations for details.

It makes no sense to utilize OPM compilers anymore. It's best you save space and deinstall these as well as the *PRV variants, which generate code for the immediately previous OS release. We'll solely focus on ILE since it has the advantage of linking (binding) compiled object code from different languages together to form a program.

A Word on Editors

If you are familiar with vi or vim on Unix-like platforms, learning SEU will be an easy task. You may alternatively also utilize an editor of your choice on the platform of your choice. To help you chose, we'll take a closer look on the pros and cons of each solution.

Editor	Pro	Con
SEU on OS/400	Built-in contextual support for many file types and kind of lines. Editing is done in an array of blanks in overwrite mode for easier placement of characters in proper position.	Can display only a few lines of code, which reduces clarity.
Other on other platforms	Familiar operation and UI. Easy content duplication with clearly visible text range selection, and copy-paste. Possibility to create custom rules for syntax highlighting.	Cumbersome handling: After every change which should result in a compile run, files have to be transferred in some way.

The Killer-Feature of SEU is the contextual support it provides. For beginners, it's much easier to utilize this helpful function often until some knowledge and routine has been established.

Preparation

As you probably know from your experience with common systems, it's considered bad habit to work with administrative rights all of the time. I recommend Creating an User Account for you to properly work without accidentally doing harm to the system. Sign in as this user now. This gives you a subset of menu items in the main menu and makes your own Library your current library. For now, consider this almost the same thing as using the cd command of a shell to make a directory your current one.

As outlined in File Types, we'll need to create a file to hold source code. Let's do that and make the maximum line length a bit larger for more flexibility.

CRTSRCPF FILE(SOURCES) RCDLEN(112)

The white text in the status line will show you that the file has been created.

Working with Members in Files

The easiest way to edit members of source files is to utilize part of the Program Development Manager.

WRKMBRPDM FILE(SOURCES)

You'll be presented with a screen form to handle members. Press F6 to show the Start SEU screen. Fill out the two first fields:

• SRCMBR is addrpf (for addresses physical file),
• TYPE is pf for physical file.

Press Enter to start SEU and present an empty file.

Coding the Database Table

We're going to code the description of a database file, which is the traditional way to create database files in OS/400. The language for the statements is called DDS which is not a line oriented description like HTML. The position of statements within one line are also important.

For an address book, let's assume the following fields are of primary interest:

• Name,
• First Name,
• Birthday,
• Street and Number,
• ZIP Code and City Name,
• Phone Number,
• Cellular Phone Number,
• E-Mail Address.

Plain DDS Code looks like this:

     A          R ADDRTBL
     A            NAME          48A
     A            FIRSTNAME     48A
     A            BIRTHDAY        L
     A            STREETNUM     48A
     A            ZIPCITY       48A
     A            PHONE         48A         ALWNULL
     A            CELLPHONE     48A         ALWNULL
     A            EMAIL         48A         ALWNULL
     A          K NAME
     A          K FIRSTNAME
     A          K BIRTHDAY

To understand a bit better, I'll elaborate.

As you can see, everything is written in upper case. To be honest, I don't know if a file with lower case characters in any place but comments is compilable.

Every line starts with an A in the 6th place of a line. The first five once were reserved for optional line numbering but I've seen no examples where this is actually done.

The first line denotes that this file may not have duplicate values in key fields (coded later).

The second line names this record format. This should be different from the file name. If not, you'll earn compiler warnings: In the actual program, when working with that file, it's ambiguous if you refer to the file name or the record format. For that reason, I name record formats for physical files with the suffix tbl.
Physical Files must have exactly one record format.

The next few lines define the fields of the database file. I don't want getting unnecessary initial complexity, so I defined all fields as character with static 48 places. The Birthday-field is the only exception, which is defined as a date field.

Some fields may be left empty. To save space, these may be NULL, which is not the same as empty. Therefore they are defined with an additional parameter alwnull.
NULL fields permit fields of records to utilize no space at all, but need special attention in the code. This isn't as clumsy as coping with varlen strings, though.

The last three lines denote key fields. When reading records, they'll be retrieved in key order (ascending by default). According to the first line, entries must be unique over all key fields. So you may not have more than one entry named Fred Flintstone born on 1989-08-20. This is a somewhat crude way to prevent duplicates.

After saving the member, one may type 14 into the field of the wrkmbrpdm members list to instruct it to compile the file with default values to the default location which is your current library.

A Word about the Compilation of Objects

Compilation per default takes place as background (batch) job which is more friendly to other tasks running in interactive mode but it's a bit clumsy to handle. One needs to look into the session's message queue to see if the compilation succeeded or failed, to be followed by a look into the spooled file, searching the verbose compiler output for possible culprits.
One may press F18 in the wrkmbrpdm screen to access another screen with user based defaults. The third option must be set to N.