Identification Division.
Program-ID. ABC081A.

Data Division.
Working-Storage Section.
77 s Pic x(3).
77 c Pic 9.

Procedure Division.
Accept s.
Inspect s Tallying c for all '1'.
Display c.
Stop Run.
