RE: packed numeric fields

Thanks, Rob

It was the MBROPT(*REPLACE) FMTOPT(*MAP *DROP) that I was missing and that did 
the trick very nicely.

-doug

*****************************

DOUGLAS JOHNSON                
System Administrator
University Book Store
711 State Street
Madison, WI   53703

djohnson@xxxxxxxxxxxxxxx
phone  (608)257-3784 
fax       (608)257-9479 

 -----Original Message-----
From:   midrange-l-bounces@xxxxxxxxxxxx 
[mailto:midrange-l-bounces@xxxxxxxxxxxx]  On Behalf Of rob@xxxxxxxxx
Sent:   Tuesday, February 28, 2006 9:24 AM
To:     Midrange Systems Technical Discussion
Subject:        Re: packed numeric fields

I hope you meant to type in V5R3 and not V3R3.

I - If you create the desired output file first, and query to the existing 
file, will it put it to the right format?
CREATE TABLE DOUGI(
MYKEY CHAR (1 ) NOT NULL WITH DEFAULT,
MYFLD1 DEC (5 , 2) NOT NULL WITH DEFAULT, 
MYFLD2 DEC (5 , 2) NOT NULL WITH DEFAULT)
INSERT INTO ROB/DOUGI VALUES('A', 2.3, 4.5)
CREATE TABLE ROB/DOUGO (
MYKEY CHAR (1 ) NOT NULL WITH DEFAULT, 
MYFLD1 DEC (15 , 5) NOT NULL WITH DEFAULT, 
MYFLD2 NUMERIC (7 , 3) NOT NULL  WITH DEFAULT)
WRKQRY
Output
File . . . . . . . . .   dougo
  Library  . . . . . .     ROB
Member . . . . . . . .   *FILE
Data in file . . . . .   4 
Nope, that won't work.

II - Convert your Query into SQL
INSERT INTO ROB/DOUGO
 SELECT * FROM dougi
 where ...
order by...
SELECT * FROM DOUGO
....+....1....+....2....+....3....+....
MYKEY                 FLD1        FLD2 
  A                2.30000       4.500 
********  End of data  ******** 

III - Leave your query as is.  Use CPYF from the output file to one 
formatted correctly.
WRKQRY
Output
File . . . . . . . . .   dougT
  Library  . . . . . .     ROB
Member . . . . . . . .   *FILE
Data in file . . . . .   4 
CPYF FROMFILE(DOUGT) TOFILE(DOUGO) MBROPT(*REPLACE) FMTOPT(*MAP *DROP)
SELECT * FROM DOUGO
....+....1....+....2....+....3....+....
MYKEY               MYFLD1      MYFLD2 
  A                2.30000       4.500 
********  End of data  ******** 


Rob Berendt