Correcting...
this is "wcor" that will be used with "control" clause...
working-storage section.
01 wcor.
02 wparte1 pic x(17) value "background-color ".
02 wback pic 9 value 1.
02 wparte2 pic x(18) value " foreground-color ".
02 wfore pic 9 value 3.
01 mytela control is wcor.
02 ...
Jair M. Araujo
Cobol MS/MF
|