cat > script <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
!TEST echo comments on
!DELETE
y
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
: testing parameters passed to application
database = 'DB'
error_string = ''
error_number = '0'
got_records = ''
insert_mode = '0'
interrupt_number = '0'
record_status = ''
records_selected = '0'
screen_row = '24'
screen_column = '80'
mouse_row = '0'
mouse_column = '0'
touch_row = '0'
touch_column = '0'
parm1 = 'bob'
parm2 = '3.11000000000000e-02'
parm3 = '19890202000000000000'
parm4 = '77.998'
parm5 = '15'
:  testing integers and floats
'w1'@'int1'[1]: <Current Field>
value: 15786
'w1'@'int2'[1]:
value: -115
'w1'@'int3'[1]:
value: -1234567890
'w1'@'f1'[1]:
value: 1.23456000000000e+04
'w1'@'flong'[1]:
value: 1.23456789012345e-07
:  testing dates and times 
'w2'@'d1'[1]:
value: 25 May       1989
'w2'@'d2'[1]:
value: May       25, 1989
'w2'@'d3'[1]:
value: 05/25/89
'w2'@'d4'[1]:
value: 25/05/89
'w2'@'d5'[1]:
value: 25 May 89
'w2'@'d6'[1]:
value: May 25, 89
'w2'@'d7'[1]:
value: 05/25/1989
'w2'@'d8'[1]:
value: 25/05/1989
'w2'@'d0'[1]: <Current Field>
value: 19890525000000000000
'w2'@'t0'[1]:
value: 19891029145615
'w2'@'t1'[1]:
value: 29 October   1989 14:56:15
'w2'@'t5'[1]:
value: 29 Oct 89 14:56:15
: testing decimal and dollar types
'w3'@'dol0'[1]:
value: $199.99
'w3'@'dol1'[1]:
value: $****199.99
'w3'@'dol2'[1]:
value: 199.99
'w3'@'dec0'[1]: <Current Field>
value: 14.72
'w3'@'dec1'[1]:
value: 14.7200
'w3'@'dec2'[1]:
value: 15
'w3'@'dec3'[1]:
value: 14.7200000000
: testing char types
'w4'@'c0'[1]: <Current Field>
value:    charlie brown   
'w4'@'c1'[1]:
value: charlie brown
'w4'@'c2'[1]:
value: 
'w4'@'c3'[1]:
value:    charlie
    brown
: testing parameter passing to script
'w5'@'parm6'[1]: <Current Field>
value: 15
'w5'@'parm7'[1]:
value: bubble gum
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
MB test of all datatypes.
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
