Physical and Logical Files: QDDSSRC

File with Unique Key on CUS# (File name is SMP)

A                                      UNIQUE
A          R SMREC                     TEXT('SAMPLE FILE')     
A            SMSTS          1A         TEXT('STATUS')          
A            SMCUS#         6S 0       TEXT('CUSTOMER #')      
A            SMLNME        20A         TEXT('LAST NAME')       
A            SMFNME        15A         TEXT('FIRST NAME')      
A            SMADR         30A         TEXT('ADDRESS')         
A            SMCITY        20A         TEXT('CITY')            
A            SMST           2A         TEXT('STATE')           
A            SMZIP          9P 0       TEXT('ZIP')
A          K SMCUS#

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