This routine returns a new string holding a copy of the supplied string within single quotes. Any single quotes within the supplied string are escaped using a backslash.

CALL KPG1_QUOTE( IN, OUT, STATUS )

IN = CHARACTER$\ast$($\ast$) (Given)

OUT = CHARACTER$\ast$($\ast$) (Returned)

STATUS = INTEGER (Given and Returned)

• An error is reported if the output string is not large enough to hold the quoted string.