#!/bin/bash
#<pre><b>
# Script     : checktitles
# Version    : 2.1
# Author     : Roland Rashleigh-Berry
# Date       : 02-Mar-2007
# Purpose    : Production script to check the titles in the titles dataset
#              (uses SAS).
# SubScripts : checktitles_win
# SubMacros  : %allocr
# Notes      : Output is written to Standard Error.
# Usage      : checktitles 
#================================================================================
# PARAMETERS:
#-pos- -------------------------------description--------------------------------
# N/A  Do not supply any parameters
#================================================================================
# AMENDMENT HISTORY:
# init --date-- mod-id ----------------------description-------------------------
# rrb  24Nov05         -stdio used for sas invocation
# rrb  11Feb07         Call checktitles_win for Windows configurations
# rrb  20Feb07         Call %allocr
# rrb  02Mar07         Use "&_ptlibref_.." instead of "der."
#================================================================================
# This is public domain software. No guarantee as to suitability or accuracy is
# given or implied. User uses this code entirely at their own risk.
#================================================================================

# No parameters allowed
if [ $# -gt 0 ] ; then
  echo "Error: (checktitles) Do not supply any parameters" 1>&2
  exit 1
fi

# if a Windows config then call checktitles_win and exit on return
if [ -n "$CYGWIN" ] ; then
  checktitles_win "$@"
  exit $?
fi

# Feed SAS code into standard input
sas -stdio -sasuser work 2>/dev/null << -----FINISH-----
%allocr
options validvarname=v7 nofmterr noovp nodate nonumber;

data _noprog(keep=program text);
  set &_ptlibref_..titles(where=(type='T' and number=1 and program=" "));
run;

data _notitle1(keep=program text);
  set &_ptlibref_..titles(where=(type='T' and number=1 and text=" "));
run;

data _badtitle1(keep=program text);
  set &_ptlibref_..titles(where=(type='T' and number=1 
  and (upcase(text) NE: "TABLE " and upcase(text) NE: "APPENDIX" and
upcase(text) NE: "FIGURE")
  ));
run;

proc sort data=&_ptlibref_..titles(where=(type='T' and number=1))
           out=_dups(keep=program label);
  by program label;
run;
data _dups;
  set _dups;
  by program label;
  if first.label and not last.label;
run;

data _dupref(keep=program ref);
  length ref $ 20;
  set &_ptlibref_..titles(where=(type='T' and number=1 and text NE " "));
  ref=upcase(scan(text,2,' '));
run;
proc sort data=_dupref;
  by ref program;
run;
data _dupref;
  length holdprog $ 32 text $ 200;
  retain holdprog ' ';
  set _dupref;
  by ref;
  if not first.ref then do;
    text="Same table/appendix reference "||trim(ref)||" is used for programs
"||trim(holdprog)|| " and "||program;
    output;
  end;
  holdprog=program;
run;

data _null_;
  file stdout;
  set _noprog(in=_noprog) _notitle1(in=_notitle1) _dups(in=_dups) 
      _dupref(in=_dupref) _badtitle1(in=_badtitle1);
  if _noprog then put "Error: (checktitles) No program name corresponding the first title " text;
  if _notitle1 then put "Error: (checktitles) No first title found for program " program;
  if _badtitle1 then put "Error: (checktitles) The first title should start with 'table', 'appendix' or 'figure' for " program = text=;
  if _dups then do;
    if label ne " " then put "Error: (checktitles) Duplicate entries for program " program "label " label;
    else put "Error: (checktitles) Duplicate entries for program " program;
  end;
  if _dupref then put "Error: (checktitles) " text;
run;
-----FINISH-----