LENGTH   6.2  &  LOCAL E31PAID(12)                              !
     LENGTH     5  &  LOCAL E31ENBR$                                 !
!                                                                    !
!                                                                    !
!                          Description              Type    Len  Pos !
!                          ------------------------------------------!
0531 FORMAT _                                                        !
     E31ENBR$;_          ! EMP NO                     S       5    0 !
     E31PAID(1),12*8     ! PAID MO 01-12              N     6.2    5 !



	LET SE31ENBR$ = E31ENBR$                               ! SAVE Employee NUMBER
	ClearFormat 0531
	LET E31PAID(12) = 0
	LET E31ENBR$ = SE31ENBR$                               ! RESTORE Employee NUMBER