Mask the string with # using cobol

[Pujitha Reddy]

MASK the string with #

WS01-NAME PIX CHAR(18)
WS02-NAME-CNT PIX 9(2)

EG:
WS01-NAME="UNIVER SE"
In middle of the name string contain space ,Here i need to mask the entire string with "#"
INSPECT WS01-NAME TALLYING WS02-NAME-CNT
FOR CHARACTERS
REPLACING CHARACTERS by "#" BEFORE INITIAL ' '.
OUTPUT:###### SE
EXPECTED output :#########

is any alternative way using INSPECT verb or other logic ?

 

[k5tm]

My usual 'trick' is to use multiple spaces in the BEFORE INITIAL clause

... BEFORE INITIAL '  '

or

... BEFORE INITIAL '   '

Tom Morrison
Consultant