Logical File with Key on State, Last Name, First Name Omitting Status = 'D'(File Name is SMP03)
A* NOTE THAT RECORD NAME AGREES WITH PHYSICAL FILE
A R SMREC PFILE(SMP)
A K SMST
A K SMLNME
A K SMFNME
A* Omit records with status = "D"
A O SMSTS COMP(EQ 'D')