How do you define COMP-1 / COMP-2?
DEFINE WS-VAR PIC(9) COMP-1
01 WS-VAR PIC(9) COMP-1
01 WS-VAR USAGE COMP-1
Author should learn COBOL