.PIE SET SECT POSITION

This subroutine sets the position (Normal or Exploded) of the "current" or specified sector specs.

Usage:

      PASS         <sector_pos>               FIELD            SHARE? N
      PASS         <beg_sector_no>            FIELD            SHARE? N
      PASS         <end_sector_no>            FIELD            SHARE? N
      GOSUB    0CD .PIE SET SECT POSITION
      *        Check for error
      IF       0CD .PIE SET SECT POSITION     NE

Description:

This subroutine sets the postion of the sector for the "current" or specified sector(s) to either Normal or Exploded

If <sector_pos> is not received or if the value received is blank, then the position of the sector spec is set to Normal. Valid values are: normal or explode/exploded.

If <beg_sect_no> and <end_sect_no> are both received and are both numeric integers, then the position applies to the range of pie sectors from <beg_sect_no> thru <end_sect_no> and is stored in the corresponding pie sector specs.

If <beg_sect_no> is received and is a numeric integer and <end_sect_no> is not received or is blank, then the position applies only to the <beg_sect_no> pie sector.

If <beg_sect_no> and <end_sect_no> are both not received or are blank, then the position applies to the "current" pie sector and is stored in the "current" pie sector spec.

Any pie sector specs that are referenced but which do not exist are automatically created and initialized so that the position can be stored.

You can use .PIE SET SECT EXP DIST to control the distances between the exploded sectors.

The last pie sector spec updated becomes the "current" pie sector spec.

Comments:

Read what other users have said about this page or add your own comments.

-- JeanNeron - 2011-10-04