AS/400 Chapter 9: Subfiles

With subfiles you can create a display file with lists of items. Let's see how that's done.

A subfile is a display file where you can place a listing of values and process changes on the list. The list of members that you can see in the PDM is an example of a subfile.

In this chapter we'll create a subfile which will show all the cards from a client given its ID. To make the manipulation of several tables easier, we'll create a view with the fields we'll use on the subfile. In STRSQL insert this code:

CREATE VIEW CLICARD AS SELECT CL.ID_CLI, CR.ID_CRD, SH.NAME_SHP, CR.SHOP_CRD 
FROM DEMO/CLIENTS CL, DEMO/SHOP SH, DEMO/CARDS CR 
WHERE CL.ID_CLI = CR.CLIENT_CRD AND CR.SHOP_CRD = SH.ID_SHP

Open SDA (STRSDA) and create a new member:

Creating a new member
Creating a new member

Create a BOTTOM record that should look like this:

Bottom record
Bottom record

And the TOP record like this:

TOP record
TOP record

Let's create the subfile now. Create a new record, name it LIST, the record type is SFL:

Creating the subfile record
Creating the subfile record

When you press Enter a new record appears. Write SFLCTL on it:

Creating the subfile control
Creating the subfile control

This field creates a subfile control record, which works like the heading on the list.

You have to activate some options now:

Options
Options

On the General Keywords menu insert the data you see below:

Options
Options

These indicators allow us to manipulate the status of the subfile from the RPG code. Press Enter to go back to the previous screen. Select Subfile display layout.

Options
Options

On subfile maximum size type 9999 and on the number of records for page type 9:

Options
Options

Press enter to go back. Select the option Select Record Keyword:

Options
Options

Choose Overlay keywords:

Options
Options

Select Overlay without erasing:

Options
Options

Press Enter until you're back on this screen:

Options
Finish Options

Open the SFLCTL record. By default the record list is already visible on the design screen. Select to visualize the other 2 records, TOM and BOTTOM (F9).

Open records
Open records

Back to the design screen, write at the top “Client Nr.”. Select the fields from CLICARD view for input/output (F10) and select the ID_CLI field:

Selecting fields
Selecting fields

Type the titles of the subfile's columns and a separating line:

Columns description
Columns description

Let's add some proprieties to the Client ID field. Place an * before to the left of the field.

dding proprieties to the field
dding proprieties to the field

We're going to add an indicator to this field, which will be activated when no record is found for an ID inserted (either the ID doesn't exist or it doesn't have any associated cards). Option Error Messages:

Error Messages
Error Messages

Insert the following information:

Adding an indicator
Adding an indicator

Close this record and open the LIST record. Select the TOP and BOTTOM records for display (F9):

Selecting records for display
Selecting records for display

To create an input field, where the user will type the options, type '+i' on the same position as in the following image and press Enter.

Creating an input field
Creating an input field

Notice how the field spread across the 9 line you previously defined as the subfile page size.

Resulting input field
Resulting input field

Select the records from CLICARD view for output.

Selecting a table
Selecting a table

The fields will probably be listed twice, because the SDA will show you the field that had been previously loaded from I/O in the SFLCTL record. You should select the fields further to the right, because they are the last ones loaded. You must be careful selecting the fields.

If there are more fields than the ones that can fit the message line, a plus (+) sign will appear at the end of the line. Press Page Down to see the remaining fields.

Selected fields
Selected fields

Place the fields on their positions:

Adding the selected fields to the record
Adding the selected fields to the record

The final result:

Final Result
Final Result

Don't forget to activate the indicator 03 at file-level so that “F3=Exit” can work and add the keyword INDARA to the code. Check out the Display file chapter if you don't remember how to do this.

You must add the red line to the SFLCTL record:

A R SFLCTL SFLCTL(LIST)
A SFLSIZ(9999)
A SFLPAG(0009)
A OVERLAY
A 30 SFLDSP
A 31 SFLDSPCTL
A 35 SFLCLR
A 33 SFLEND(*MORE)
A 4 8'Client Nr.'
A ID_CLI R B 4 19REFFLD(CLICARD/ID_CLI DEMO/CLICARD)
A 90 ERRMSG('No Data Found')
A 6 4'Op.'
A 6 12'Card Nr.'
A 6 27'Shop Nr.'
A 6 42'Shop Name'
A 7 2'__________________________________-
A ___________________________________-
A __________'
A RRN 4S 0H SFLRCDNBR(CURSOR)

In the LIST record change the name of the input field to OPTION. By default it must be named FLD001, or something like it.

A R LIST SFL
A OPTION 1A I 9 5
(...)

Executing the subfile

To run the subfile you must create an RPGLE member. Check out the file QRPGLESRC.SHW_SFL for more details on how to write this member.

When you run the RPGLE code:

Executing the subfile
Executing the subfile

Share this

Did you like this article? Share it!

Keep up to date

Our monthly newsletter. See previous editions.

Related articles