SOURCE Directive

The SOURCE directive sets the format of the source code.

>> SOURCE FORMAT IS { FREE     }                     { FIXED    }                     { TERMINAL }                     { PREVIOUS }

Syntax:

1.	FREE is Free format.

2.	FIXED is ANSI format.

3.	TERMINAL is Terminal format.

4.	PREVIOUS restores the format that was set before the last SOURCE directive.

General rules:

1.

The SOURCE FORMAT directive indicates that the source text or library text following the directive and continuing through a subsequent SOURCE FORMAT directive shall be treated as fixed form if FIXED is specified, as terminal form is TERMINAL is specified or as free form if FREE is specified. See Source Formats for more information about the different source formats.

2.	The default reference format of a compilation group is fixed form.

3.	The default reference format of library text is the reference format that was in effect for the COPY statement that resulted in processing of this library text.

4.

If a SOURCE FORMAT directive is specified in library text, the specified format shall be in effect until another SOURCE FORMAT directive is encountered or the end of the library text is reached. When the processing of that library text is completed, the reference format shall revert to the reference format that was in effect for the COPY statement that resulted in processing of that library text.

Example

The source code of the following program will be treated according to the FREE format rules:

>>SOURCE FORMAT FREE        program-id. eg001.         ...