cat > nullok <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 nullok
cat > script <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
parameters
	char	dbname;
end

let database = dbname;
let pagelength = 10

select from salaries;
for each record
	print "'", name width 10, "'  '", salary, "'", newline
end
end
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 755 script
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
'Mosca     '  '25000'
Output warning - page 1, line 2, col 15
	Attempt to print null value
'Jones     '  '*****'
Output warning - page 1, line 3, col 1
	Attempt to print null value
'**********'  '30000'
Output warning - page 1, line 4, col 15
	Attempt to print null value
'Wladislow '  '*****'






+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Attempt to print null values with MWNULLOK as false
Empty string data type has width format specification.
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
cat > stdout.jp_euc <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
'Mosca     '  '25000'
Ϸٹ - 1 ڡ, 2 , 15 
        NULL ͤϤޤ
'Jones     '  '*****'
Ϸٹ - 1 ڡ, 3 , 1 
        NULL ͤϤޤ
'**********'  '30000'
Ϸٹ - 1 ڡ, 4 , 15 
        NULL ͤϤޤ
'Wladislow '  '*****'






+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout.jp_euc
