qrp_report

****************************************************************************************************

*                                           PROGRAM OVERVIEW

****************************************************************************************************

*

* PROGRAM: figure_axes.sas  

* Created (mm/dd/yyyy): 09/08/2021

*

*--------------------------------------------------------------------------------------------------

* PURPOSE: The macro computes X and Y axis tick marks

* 

*  Program inputs:                                                                                   

*   - N/A

* 

*  Program outputs:                                                                                                                                       

*   - N/A

*

*  PARAMETERS:    

*   - data: figure data

*   - figure: figure #

*   - figuresub: figuresub from figurefile

*   - where: where clause to restrict figure data 

*   - xtickmarks: macro variable name for x tick mark list

*   - ytickmarks: macro variable name for y tick mark list

*            

*  Programming Notes:                                                                                

*                                                                           

*

*--------------------------------------------------------------------------------------------------

* CONTACT INFO: 

*  Sentinel Coordinating Center

*  info@sentinelsystem.org

*

***************************************************************************************************;

​

%macro figure_axes(data=, figure=, figuresub=, where=, xtickmarks=, ytickmarks=);

  %put =====> MACRO CALLED: figure_axes;

​

    %let xmax = ;

    %let xtick = ;

    %let ymin = ;

    %let ymax = ;

    %let ytick = ;

    %let datamin= ;

    %let datamax = ;

    %let fxtickmarks = ;

    %let fytickmarks = ;

​

  /*select min and max day from input dataset*/

   proc sql noprint;

       select min(day), max(day) into :datamin, :datamax

       from &data(where=(&where.));

   quit;

​

  /*Extract axis parameters from figurefile*/

    data _null_;

        set figurefile(where=(figure="&figure." and figuresub="&figuresub"));

​

        /*set min/max defaults if missing*/

        if missing(xmin) then xmin = &datamin.;

        if missing(xmax) then xmax = &datamax.;

​

        if missing(ymin) then ymin = 0;