diff --git a/exercises/practice/binary-search/src/binary-search.cob b/exercises/practice/binary-search/src/binary-search.cob index c86c19c5..07b500ee 100644 --- a/exercises/practice/binary-search/src/binary-search.cob +++ b/exercises/practice/binary-search/src/binary-search.cob @@ -7,9 +7,7 @@ 01 WS-RESULT PIC 99. 01 WS-ERROR PIC X(40). 01 WS-COUNT PIC 99. - 01 WS-ARRAY-TABLE. - 02 WS-ARRAY OCCURS 1 TO 20 DEPENDING ON WS-COUNT. - 05 ROWELEM PIC 9(4). + 01 WS-ARRAY PIC X(60). PROCEDURE DIVISION.