call mvscatpb using field-name
01 PUBCAT-AREA. copy 'mfpubcat.cpy' replacing ==()== by ==WS==.
call 'mvscatpb' using pubcat-area