diff --git a/cfdemo/qddssrc/wrkcustd.dspf b/cfdemo/qddssrc/wrkcustd.dspf
index 887787bf..56098ee6 100644
--- a/cfdemo/qddssrc/wrkcustd.dspf
+++ b/cfdemo/qddssrc/wrkcustd.dspf
@@ -5,12 +5,13 @@
      A  50                                  DSPATR(RI)
      A  50                                  DSPATR(PC)
      A            SCUSTNO        6S 0O  9  6
-     A            SNAME         20A  O  9 15
-     A            SEMAIL        25A  O  9 37
-     A            SPHONE        15A  O  9 64
+     A            SSTATUS        1A  O  9 14
+     A            SNAME         20A  O  9 17
+     A            SEMAIL        25A  O  9 39
+     A            SPHONE        15A  O  9 66
      A                                 10  6'Address:'
      A                                      COLOR(WHT)
-     A            SADDR         64A  O 10 15
+     A            SADDR         64A  O 10 17
      A          R CUSTCTL                   SFLCTL(CUSTSFL)
      A                                      SFLSIZ(0008)
      A                                      SFLPAG(0007)
@@ -29,13 +30,15 @@
      A            SFILTER       48A  B  4 31CHECK(LC)
      A                                  8  6'Cust #'
      A                                      COLOR(WHT)
-     A                                  8 15'Name'
+     A                                  8 13'Sts'
+     A                                      COLOR(WHT)
+     A                                  8 17'Name'
      A                                      COLOR(WHT)
      A                                  8  2'Opt'
      A                                      COLOR(WHT)
-     A                                  8 37'Primary Email'
+     A                                  8 39'Primary Email'
      A                                      COLOR(WHT)
-     A                                  8 64'Phone'
+     A                                  8 66'Phone'
      A                                      COLOR(WHT)
      A            SOPTDESC      77   O  6  2COLOR(BLU)
      A          R CUSTFOOT
diff --git a/cfdemo/qrpglesrc/wrkcustr.rpgle b/cfdemo/qrpglesrc/wrkcustr.rpgle
index bbdfad15..bfdd6c0d 100644
--- a/cfdemo/qrpglesrc/wrkcustr.rpgle
+++ b/cfdemo/qrpglesrc/wrkcustr.rpgle
@@ -167,6 +167,7 @@ begsr loadSFL;
     *in51 = *off;
     sopt = '';
     scustno = customers(i).custno;
+    sstatus = customers(i).cstatus;
     sname = customers(i).cname;
     saddr = %trim(customers(i).caddr1) + ' ' + %trim(customers(i).caddr2) + ' ' +
             %trim(customers(i).ccity) + ', ' + customers(i).cstate + ' ' + customers(i).czip;