Can I put a landscape page in a portrait document?

Question

How do I rotate one page in the middle of a document and get the running header and/or footer information to rotate also?

Answer

  You have to fake it:

  1.  Define 3 rotated areas: for the running heading, the running footing,
      and one for the rest of the page.

  2.  Define running head/foot start & end tags & macros

  3.  Define rotated page start and end tags & macros

  4.  Then mark up your text like this:

         :rhead.
         .se pageno = &.
         Enter running header contents between RHEAD and ERHEAD
         .sp 3
         :erhead.
         .sp
         :rfoot.
         .se pageno = &.
         Enter running footer contents between RHEAD and ERHEAD
         .sp 3
         :erfoot.

         A zero rotation page of text

         :rpage.
         This page should be rotated 90
         :erpage.

         And another non-rotated page

  Warning: control words or tags not allowed in areas cannot be used in the
  rotated page.

      .se pageno off
      .dm bl /.*
      .da rotate 8.25i 1i page rotate 90 width 9i
      .da rotfoot 1i 1i page rotate 90 width 9i
      .aa rhead rhead erhead
      .aa rfoot rfoot erfoot
      .aa rpage rpage erpage

      .dm rhead on
      .dd dsmutwtf dsmutrh
      .wf erase
      .wf tag
      .dm off

      .dm erhead on
      .'rh on
      .im dsmutrh
      .'rh off
      .dm off

      .dm rfoot on
      .dd dsmutwtf dsmutrf
      .wf erase
      .wf tag
      .dm off

      .dm erfoot on
      .'rf on
      .im dsmutrf
      .'rf off
      .dm off

      .dm rpage on
      .pa nostart
      .rh sup
      .rf sup
      .dd dsmutwtf dsmutrf
      .ar rotfoot on
      .wf imbed
      .dd dsmutwtf dsmutrh
      .ar rotate on
      .wf imbed
      .dm off

      .dm erpage on
      .ar off
      .pa nostart
      .rh res
      .rf res
      .dm off

      :rhead.
      .se pageno = &.
      This should be running header
      .br
      what is the page number: &pageno.
      .sp 3
      :erhead.

      :rfoot.
      .se pageno = &.
      This should be running footer
      .br
      what is the page number: &pageno.
      .sp 3
      :erfoot.
      This is a non-rotated page.
      :rpage.
      A page rotated 90
      :erpage.

  This sample was set up & tested in the VM/CMS environment.

  To use this code in MVS/TSO, you MUST do the following:

  1.  change the following lines:

                .dd dsmutwtf dsmutrh
                .dd dsmutwtf dsmutrf

      to

                .dd dsmutwtf dsn dsmutrh
                .dd dsmutwtf dsn dsmutrf

  2.  change the .im control words so they both look like this:

                .im dsmutwtf

  3.  preallocate the new utility files before scripting the file that uses
      these tags. Preallocate these guys:

                 userid.dsmutrh.text
                 userid.dsmutrf.text

Last updated: 93/08/24 17:18:19