The WRITE statement releases a logical record to an output or
  input-output file.  It can also position lines vertically on a logical
  page.

  Format 1 -

   WRITE rec-name [ FROM src-item ] [ ALLOWING NO OTHERS ]

      [                      { advance-num [ LINE  ]   } ]
      [ { BEFORE }           {             [ LINES ]   } ]
      [ { AFTER  } ADVANCING { top-name                } ]
      [                      { PAGE                    } ]

      [ AT { END-OF-PAGE } stment ]
      [    { EOP         }        ]

      [ NOT AT { END-OF-PAGE } stment ]
      [        { EOP         }        ]

      [ END-WRITE ]