Step 1 Create Physical FIle

This is the DDS for the Physical File named CUST.

     A          R CSREC                        TEXT('CUSTOMER')
     A            CSNBR          6S 0        TEXT('CUST #')
     A            CSNAME        30A        TEXT('NAME')
     A            CSADR1        30A         TEXT('ADDRESS 1')
     A            CUSCTY        20A         TEXT('CITY')          
     A            CUSSTA         2A          TEXT('STATE')         
     A            CUSZIP        10A          TEXT('ZIP')
     A          K CSNBR

RPG/400 Step by Step

Agenda

1. Create Physical File.
2. Create Display File.
3. Create RPG/400 Source Code.
4. Create RPG ILE Source Code.