RECORD CCPITDTL-REC. FILE IS "CCPITDTL" KEY-SEQUENCED.
  02 CCP-KEY.
    03 CCP-PITAREA                PIC XXXX.
  02 CCP-MARKERAMT         PIC S9(9) COMP.
  02 CCP-SETSHIFT                PIC X.
  02 CCP-SHIFT                      PIC XXX.
  02 CCP-SETACTDATE        PIC 9(5).
  02 FILLER                             PIC X(5).

 
KEY IS CCP-KEY DUPLICATES NOT ALLOWED.
End