X"91" function 48

Enables insertion of tab characters 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 48
`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:

On input all tab characters are expanded to the correct number of spaces, while on output to disk, multiple spaces before a tab stop position are contracted to a tab character. This function lets you enable tab insertion for individual files regardless of the setting of the run-time tab compression switch T.