The following common library program: A54STUDY generates a statistical report of A54 transactions.
EX A54
DEFINE FILE A54 ADD
GENDER/A6 = DECODE A54:SEX (F FEMALE M MALE ELSE BLANK);
ETHNIC/A16=IF A54:ETHNIC EQ 'E' OR '5' THEN 'WHITE' ELSE
IF A54:ETHNIC EQ 'Z' THEN 'NON STATED' ELSE 'MINORITY';
END
TABLE FILE A54
HEADING CENTER
"THE CALIFORNIA STATE UNIVERSITY"
"REPORT OF A54 TRANSACTIONS FOR 2002 CALENDAR YEAR"
"COMMON FOCEXEC: A54STUDY"
SUM PCT.CNT.A54:SSA AS 'PERCENT'
AVE.A54:SPECPAY AS 'AVG,PAYMENT'
AVE.A54:SPECDAY1 AS 'AVG,DAYS(1)'
AVE.A54:SPECDAY2 AS 'AVG,DAYS(2)'
AVE.A54:SPECHOURS1 AS 'AVG,HOURS(1)'
AVE.A54:SPECHOURS2 AS 'AVG,HOURS(2)'
BY GENDER SUBTOTAL AS ' TOTAL'
BY ETHNIC ROWS WHITE OVER MINORITY OVER 'NON STATED'
IF A54:EFFDATE FROM 01012002 TO 12312002
IF RECORDLIMIT EQ 100
END
The following is an excerpt from the actual report.
THE CALIFORNIA STATE UNIVERSITY
REPORT OF A54 TRANSACTIONS FOR 2002 CALENDAR YEAR
COMMON FOCEXEC: A54STUDY
AVG AVG AVG AVG AVG
GENDER PERCENT PAYMENT DAYS(1) DAYS(S) HOURS(1) HOURS(2)
------ ------- ------- ------- ------- -------- --------
FEMALE WHITE 50.00 $1,946.28 1 0 .00 .00
MINORITY 5.26 $2,300.66 5 0 .00 .00
NON STATED . . . . . .
TOTAL FEMALE 55.26 $4,246.94 6 0 .00 .00
MALE WHITE 39.47 $2,788.99 1 0 .53 .00
MINORITY 5.26 $6,449.60 0 0 1.00 .00
NON STATED . . . . . .
TOTAL MALE 44.74 $9,238.59 1 0 1.53 .00
TOTAL 100.00 $13,485.53 7 0 1.53 .00
Last Updated: January 1, 2003