AFTER POSITIONING Clause

IBM DOS/VS COBOL has a Format 2 WRITE statement that is similar to the ACUCOBOL-GT Format 1 WRITE statement, except that the ADVANCING clause is replaced by a POSITIONING clause:

ACUCOBOL-GT:

     {BEFORE} ADVANCING {number [LINE ]}
     {AFTER }           {       [LINES]}
                        {PAGE          }
IBM DOS/VS COBOL:
     AFTER POSITIONING {identifier} LINES
                       {integer   }

If the line count in the IBM form is an identifier, it must be a one-character alphanumeric item, interpreted as follows:

Character	ACUCOBOL-GT Equivalent
' '	AFTER ADVANCING 1
'0'	AFTER ADVANCING 2
'-'	AFTER ADVANCING 3
'+'	AFTER ADVANCING 0
'1'	AFTER PAGE
others	invalid or not supported in ACUCOBOL-GT (implemented as AFTER ADVANCING 1)

If the line count in the IBM form is an integer literal, it is interpreted as follows:

Value	ACUCOBOL-GT Equivalent
0	AFTER PAGE
1	AFTER ADVANCING 1
2	AFTER ADVANCING 2
3	AFTER ADVANCING 3
others	invalid or not supported in ACUCOBOL-GT (implemented as AFTER ADVANCING 1)

ACUCOBOL-GT accepts the IBM form (along with its own form, even in the same file) if the "-Cv" option is in effect. ACUCOBOL-GT does not enforce the one-character limit on the line count and uses only the first character or digit if there are two or more.

Note: In the absence of either an ADVANCING or POSITIONING clause, a WRITE statement for a sequential PRINT file advances one line BEFORE printing for ACUCOBOL-GT without the "-Cv" option, and one line AFTER printing for IBM DOS/VS COBOL or ACUCOBOL-GT with the "-Cv" option.