Michael, Thanks for that. I know about 88 levels. To use an 88 level I have to do: 01 w-flag pic x. 88 wc-ok value "y" false "n". call "validformat" using w-data w-flag. if wc-ok then ... Or: 01 w-flag pic x. 88 wc-ok value "y" false "n". move validformat(w-data) to w-flag. if wc-ok then ... I have to: 1) create a data item for the purpose; 2) type 2 lines. That's both more work and less clear than: if validformat(w-data) then ... Preaching to the converted I guess. Leigh.
↧