puedes hacer lo siguiente prueba con esto
*-----------------------------------------------------------------------
*Start of selection
*-----------------------------------------------------------------------
Start-of-selection.
perform.. tus performs...
*----------------------------------------------------------------------*
* END-OF-SELECTION *
*----------------------------------------------------------------------*
END-OF-SELECTION.
write: /1 'DATO ', 11 VARIABLE,
70 VARIABLE1 ,
197 'DATO2:',
204 VARIABLE 2 .