RE: Boolean functions

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.