If you are into kewl, crazy short cuts (and other clever devices)

For those who are lazy to write fancy routines to create CSV files, I've
created two dict items, namely COMMA and QUOTE, as follows:

COMMA
001:  I
002:  ","
003:
004:  ,
005:  1T


QUOTE
001:  I
002:  '"'
003:
004:  "
005:    1T


To create a CSV file of _ANY_ file data, these dict items either need to be
in the DICT of every file, OR once off in the DICT.DICT (I think - correct
me anyone?) 



>> csv imports don't mind excessive spaces...

LIST DFQ COMMA DFQ.ID COMMA ACCOUNT COMMA DATEOP COMMA 21:47:38  07-02-08 

DFQUOTE.FILE.  ,  QUOTE NO.....  ,  ACCOUNT...  ,  DATEOP....  ,
208-015646-01  ,  208-015646-01  ,  208-015646  ,  04/05/2007  ,
205-011887-AH  ,  205-011887-AH  ,  205-011887  ,  10/11/2000  ,
202-012637-AH  ,  202-012637-AH  ,  202-012637  ,  16/02/2005  ,




>> to handle numeric fields simply quote them

LIST DFQ COMMA QUOTE DFQ.ID QUOTE COMMA QUOTE ACCOUNT QUOTE 21:50:36  07-02

DFQUOTE.FILE.     ,    '    QUOTE NO.....    '    ,    '    ACCOUNT...  '  
'208-015646-01    ,    '    208-015646-01    '    ,    '    208-015646  '
'205-011887-AH    ,    '    205-011887-AH    '    ,    '    205-011887  '
'202-012637-AH    ,    '    202-012637-AH    '    ,    '    202-012637  '
'202-014954-01    ,    '    202-014954-01    '    ,    '    202-014954  '




And here is where I used it

0001: PA
0002: DISPLAY Saving output as AAQ
0003: SP-ASSIGN HS
0004: SETPTR 0,300,,0,0,3,BRIEF,NFMT, BANNER AAQ
0005: SORT DFQ _
0006:  WITH INVOICE <> "" _
0007:  BY ACCOUNT _
0008:  BY DATEOP _
0009:  COMMA DFQ.ID _
0010:  COMMA ACCOUNT _
0011:  COMMA DATEOP _
0012:  COMMA _
0013:  COMMA DFQ.HPHONE _
0014:  COMMA HPM.HOMEPHONE _
0015:  COMMA _
0016:  COMMA DFQ.WPHONE _
0017:  COMMA HPM.WORKPHONE _
0018:  COMMA _
0019:  COMMA DFQ.CELL _
0020:  COMMA HPM.CELLPHONE _
0021:  COMMA _
0022:  COMMA DFQ.SPWORKNO _
0023:  COMMA HPM.SPWORKPHONE _
0024:  COMMA _
0025:  COMMA DFQ.SPCELL _
0026:  COMMA HPM.SPCELLPHONE _
0027:  LPTR NOPAGE HDR.SUP ID.SUP
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to