X"91" function 46

Enables insertion of a null character x"00" before data characters whose value is less than x"20" in line sequential files.

Note: This function is not supported in JVM COBOL.

Syntax:

call x"91" using result
                 function-code
                 parameter

Parameters:

	Using call prototype (see Key)	Picture
`result`	cblt-x1-compx	pic x comp-x.
`function-code`	cblt-x1-compx	pic x comp-x.
`parameter`	FD name of file

On Entry:

`function-code`	Value 46
`parameter`	The file-identifier specified in the File Description (FD). Must refer to a line sequential file which is currently open.

On Exit:

result

Set to zero if the call was successful, nonzero otherwise.

Comments:

If you want to include non-ASCII data in a file then you must enable null insertion. This function lets you enable null insertion for individual files regardless of the setting of the run-time switch N.

Example:

 fd payroll-file
      ...
     call x"91" using result
                      function-code
                      payroll-file