Writing an Add/Change/Delete/Inquiry maintenance program

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


Back to Source Code Page   |   Basic 400 Skills   |   Main Page