COBCH1258 Must be declared in LINKAGE, WORKING-STORAGE or LOCAL-STORAGE SECTION