IMPRIMIR EJECT

PRINT EJECT muestra información especificada en la parte superior de una nueva página de la salida. Cada vez que se ejecuta, PRINT EJECT provoca una expulsión de página.

PRINT EJECT [OUTFILE='file'] [ENCODING='encoding specification']
  [RECORDS={1}] [{NOTABLE}] 
           {n}   {TABLE  }

  /{1    } varlist [{col location [(format)]}] [varlist...] 
   {rec #}          {(format list)          }
                    {*                      }

 [/{2    }...] 
   {rec #}

Este mandato no lee el conjunto de datos activo. Se almacena, pendiente de ejecución con el siguiente mandato que lee el conjunto de datos. Consulte el tema Orden de mandatos para obtener más información.

Historial de versiones

Release 16.0

• Se ha añadido el submandato ENCODING para el soporte Unicode.

Ejemplo

DO IF $CASENUM EQ 1.
PRINT EJECT /'   NAME ' 1 'DEPT' 25 'HIRED' 30 '  SALARY' 35.
END IF.
PRINT / NAME DEPT *
        MOHIRED(T30,F2) '/' YRHIRED *
        SALARY (T35,DOLLAR8).
EXECUTE.