Better Grid Tables

''run1g.spx
&makehtml.spx
>PURGE_SAME
>ALLOW_INDENT
>PUT_CHARACTERS=-0B
~SET VARIABLE_LENGTH_CASEID=OK
>LANGUAGE CHARACTER_SET=EXTENDED_ASCII
>DEFINE @STUDY1 189997
>DEFINE @STUDY2 18-9997
>DEFINE @TABLES 189997G1
''>USE_DB       J@STUDY1
>CREATE_DB      CD@STUDY1, SIZES=LARGE
~INPUT          CD@STUDY1, DOT=50
>PRINT_FILE     @TABLES,PAGE_WIDTH=199,LASER_CONTROL=LJTABLES
~SET AUTOMATIC_TABLES,VARIABLE_NAMES,STACK_2=55000,DROP_LOCAL_EDIT,DROP_BASE
~SPEC_FILE      G@TABLES

~DEFINE
&def.spx
>DEFINE @RANKIT ''RANK_IF_INDICATED
&runbody.spx


TABSET={BANNER1:
BANNER=: MAKE_BANNER JUSTIFY_LEVEL(1)=RIGHT FILL_TO_LEVEL=4
''[LEVEL=3] MARKETVISION RESEARCH - MVR# 18-9997 TIPPING BEHAVIOR
[LEVEL=2] SERVICE
[LEVEL=1] ONLINE GROCERY DELIVERY
[LEVEL=1] CASUAL DINING
[LEVEL=1] FINE DINING
[LEVEL=1] DIRECT FOOD DELIVERY
[LEVEL=1] INDIRECT FOOD DELIVERY
[LEVEL=1] RIDE SHARE
}
COLUMN=:TOTAL
STATISTICS=:ABCDEF
EDIT={BAN01_EDIT: -COLUMN_TNA, COLUMN_WIDTH=9,STAT_MARKING="ABCDEFGHJKMNPQRSTVWXYZ"
      }
}


TABSET={ TS_Q8:
TITLE=:Q.8  Why would you give the smallest tip amount for a/an [SPECIFIC SERVICE]? }
STUB_PREFACE=NOBASE_NORANK
STUB=:
[BASE,FREQ,FREQ_ONLY,-SIGMA,PRTBASE,-COLSTAT,VPER=*] Base:  Assigned the smallest tip amount for [specific service]
                           [SUP,-SIGMA,-COLSTAT] No Answer   (Don't Show)
                                           [COM]
        There is not a lot of work/effort involved for the service employee
        There is minimal interaction between me and the service employee
        The service employee's wage is not dependent on my tip
        I tip every service the same regardless of the type of service
        I do not value this service more than others
        [R=L]Other
}
ROW=:&
>REPEAT $A=1,...,6;STRIP="$[BREAK] &"
$[FILTER_BASE] [Q7_$A*F#6] $[] [Q8*F#1/2/3/4/5/998] $[BREAK] &
>END_REPEAT
}

TABSET={ TS_Q9:
TITLE=:Q.9  Why would you give the largest tip amount for a/an [SPECIFIC SERVICE]? }
STUB_PREFACE=NOBASE_NORANK
STUB=:
[BASE,FREQ,FREQ_ONLY,-SIGMA,PRTBASE,-COLSTAT,VPER=*] Base:  Assigned the largest tip amount for [specific service]
                           [SUP,-SIGMA,-COLSTAT] No Answer   (Don't Show)
                                           [COM]
        There is a lot of work/effort involved for the service employee
        There is a lot of interaction between me and the service employee
        The service employee's wage is dependent on my tip
        I tip every service the same regardless of the type of service
        I value this service more than others
        [R=L]Other
}
ROW=:&
>REPEAT $A=1,...,6;STRIP="$[BREAK] &"
$[FILTER_BASE] [Q7_$A*F#1] $[] [Q9*F#1/2/3/4/5/998] $[BREAK] &
>END_REPEAT
}

'' *******************************************************
~SET PRINT_TABLE_NAME=T1, PAGE_NUMBER=1
~EXECUTE
   MAKE_TABLES
~END