No, that’s hasn’t changed for a year:
It might change if they implement [ENHANCEMENT] Array initializer · Issue #294 · openmainframeproject/cobol-check · GitHub
Having reverted to the earlier version of the compiler, these almost work
WORKING-STORAGE SECTION.
01 WS-SCORE USAGE BINARY-CHAR UNSIGNED.
01 WS-ITEM PIC X(12).
01 WS-RESULT PIC X.
88 IS-ALLERGIC VALUE 'Y'.
88 NOT-ALLERGIC VALUE 'N'.
01 WS-RESULT-LIST PIC X(108).
01 ALLERGEN-NAMES PIC X(96)
VALUE 'eggs peanuts shellfish
- 'strawberriestomatoes chocolate
- 'pollen cats '.
01 ALLERGENS-ARRAY REDEFINES ALLERGEN-NAMES.
03 ALLERGENS PIC A(12)
OCCURS 8 TIMES
INDEXED BY INDEX-1, INDEX-2.
01 ALLERGEN-VALUE PIC 999.
01 SHIFTED PIC 999.
01 LIST-SEPARATOR PIC X.
tests
Tests for Allergies
PASS: 1. eggs: not allergic to anything
PASS: 2. eggs: allergic only to eggs
PASS: 3. eggs: allergic to eggs and something else
PASS: 4. eggs: allergic to something, but not eggs
PASS: 5. eggs: allergic to everything
PASS: 6. peanuts: not allergic to anything
PASS: 7. peanuts: allergic only to peanuts
PASS: 8. peanuts: allergic to peanuts and something else
PASS: 9. peanuts: allergic to something, but not peanuts
PASS: 10. peanuts: allergic to everything
PASS: 11. shellfish: not allergic to anything
PASS: 12. shellfish: allergic only to shellfish
PASS: 13. shellfish: allergic to shellfish and something else
PASS: 14. shellfish: allergic to something, but not shellfish
PASS: 15. shellfish: allergic to everything
PASS: 16. strawberries: not allergic to anything
**** FAIL: 17. strawberries: allergic only to strawberries
EXPECTED <Y>, WAS <N>
**** FAIL: 18. strawberries: allergic to strawberries and something else
EXPECTED <Y>, WAS <N>
PASS: 19. strawberries: allergic to something, but not strawberries
**** FAIL: 20. strawberries: allergic to everything
EXPECTED <Y>, WAS <N>
PASS: 21. tomatoes: not allergic to anything
**** FAIL: 22. tomatoes: allergic only to tomatoes
EXPECTED <Y>, WAS <N>
**** FAIL: 23. tomatoes: allergic to tomatoes and something else
EXPECTED <Y>, WAS <N>
PASS: 24. tomatoes: allergic to something, but not tomatoes
**** FAIL: 25. tomatoes: allergic to everything
EXPECTED <Y>, WAS <N>
PASS: 26. chocolate: not allergic to anything
**** FAIL: 27. chocolate: allergic only to chocolate
EXPECTED <Y>, WAS <N>
**** FAIL: 28. chocolate: allergic to chocolate and something else
EXPECTED <Y>, WAS <N>
PASS: 29. chocolate: allergic to something, but not chocolate
**** FAIL: 30. chocolate: allergic to everything
EXPECTED <Y>, WAS <N>
PASS: 31. pollen: not allergic to anything
**** FAIL: 32. pollen: allergic only to pollen
EXPECTED <Y>, WAS <N>
**** FAIL: 33. pollen: allergic to pollen and something else
EXPECTED <Y>, WAS <N>
PASS: 34. pollen: allergic to something, but not pollen
**** FAIL: 35. pollen: allergic to everything
EXPECTED <Y>, WAS <N>
PASS: 36. cats: not allergic to anything
**** FAIL: 37. cats: allergic only to cats
EXPECTED <Y>, WAS <N>
**** FAIL: 38. cats: allergic to cats and something else
EXPECTED <Y>, WAS <N>
PASS: 39. cats: allergic to something, but not cats
**** FAIL: 40. cats: allergic to everything
EXPECTED <Y>, WAS <N>
PASS: 41. list when: no allergies
PASS: 42. list when: just eggs
PASS: 43. list when: just peanuts
**** FAIL: 44. list when: just strawberries
EXPECTED <strawberries>, WAS <>
PASS: 45. list when: eggs and peanuts
PASS: 46. list when: more than eggs but not peanuts
**** FAIL: 47. list when: lots of stuff
EXPECTED <strawberries,tomatoes,chocolate,pollen,cats>, WAS <,,berriestomat,oes,late>
**** FAIL: 48. list when: everything
EXPECTED <eggs,peanuts,shellfish,strawberries,tomatoes,chocolate,pollen,cats>, WAS <eggs,peanuts,shellfish,,,berriestomat,oes,late>
**** FAIL: 49. list when: no allergen score parts
EXPECTED <eggs,shellfish,strawberries,tomatoes,chocolate,pollen,cats>, WAS <eggs,shellfish,,,berriestomat,oes,late>
PASS: 50. list when: no allergen score parts without highest value
50 TEST CASES WERE EXECUTED
31 PASSED
19 FAILED
=================================================
I’ve run out of time to go further
Should I take it that you’ve got HIGH-SCORES figured out?
Yep. PR is ready for review.
Is Armstrong numbers still an issue?
yep, it is still an issue. Looking at it now.
I can’t figure it out other that to suggest the CI is wrong. See punctuation, indentation and a missing fullstop? by axtens · Pull Request #101 · exercism/cobol · GitHub