Hi Barry and other Folks interested in QUERY tricks,
I have the following problem:
I want to transfer a large TurboImage database to a non-HP machine in
non-HP general format. I found that the siplest and easiert to maintain
format is that QUERY gives with it REPORT statement:
The ALL subparameter gives lists in the form:
ITEM_NAME1 = value
ITEM_NAME2 = value
....
(pos 1..16 ^ equal isgn pos 17)
The ALL,X subparameter gives only values, each in new line, without item
names. (I did not choose it because if one record is damaged during the
transfer process, the remainder of the data file is uninterpretable.)
The real numeric data are displayed in long exponeential
form. I can suppress page headers and empty lines with NOPAGE and LINES=0
subparameters.
The OUTPUT=LP command redirects the output to the formal designator
QSLIST. You can define the QSLIST file equation either bebore the RUN
QUERY statement, our inside the QUERY in form ":FILE QSLIST=...". Note:
the colon must be on the first position of the input record!
I have another problem with the file size:
I have more than 390,000 records, 20 item in each in a detail set.
If I made from them a single spool of disk file then the disk of our HP
would be full. On the other hand, I am afraid of blackouts and other
hiccups during the file transfer of enormous file. (The speed-determining
step is the serial port with 9600 bauds on my PC, connected to the HP 3000
GX and the DEC Alpha-s.)
I found out that I split the the CERT data according to the DATEYYMM field
which contains year amd month on four characters, and it is connected to
an automatic master. In the following example
- I make a REPORT from the DATE automatic master.
- The report is redirected to $NEWPASS, and used as an XEQ (QUERY
command) file.
- The report of the automatic master in this XEQ file contains
redirections of the QUERY output (certificates from year 70 month 01 go to
the file ALCE7001, certificates from year 70 month 02 go to the file
ALCE7002 and so on.
I found from a DBFINDER.PROG.CSL3000 run that the maximum monly production
was below 3,000 certificates consisting of 20 items, so I could define
60,000 maximal record counts. The widest item is X36, so I define the
record length with the field names to be 54.
COMMENT GOAL: GENERATING SMALLER FILES FROM A BIG DATA BASE TO BE
COMMENT TRANSFERRED TO ANOTHER COMPUTER.
COMMENT EXAMPLE OF GENERATING REPORT COMMANDS FROM A QUERY REPORT
COMMENT SAVING OF CERTIFICATES INTO ALCE<YYMM> FILES.
COMMENT FERENC NAGY, AUG 8, 1997.
:FILE QSLIST=$NEWPASS;NOCCTL
O=LP
COMMENT FIND ALL KEY VALUES IN THE AUTOMATIC MASTER
F ALL DATE.DATEYYMM
COMMENT PRELIMINARY NARROWING OF THE TEST
SUBSET DATE.DATEYYMM IB 7001, 7012
COMMENT MAKING REPORT COMMANDS FROM REPORT LIKE
COMMENT DISC > NUMBER OF QUALIFIED ENTRIES * NUMBER OF ITEMS IN THE SET
COMMENT |
COMMENT FILE QSLIST=ALCEYYMM;NOCCTL;DISC=60000,32,1; &
COMMENT REC=-54,,V,ASCII;DEV=DISC
COMMENT ^ = WIDTH OF LONGEST ITEM + 18 (RESERVED FOR "ITEM=" )
R NOPAGE;LINES=0;S1,DATEYYMM
D1,":",1;D1,"FILE QSLIST=ALCE",17;D1,DATEYYMM,21;D1,";NOCCTL",28
D1,";DISC=60000,32,1;DEV=DISC;REC=-54,,V,ASCII",70
D2,"O=LP",6
D3,"F CERT.DATEYYMM IS """,25
D3,DATEYYMM,29;D3,"""",30
D4," R NOPAGE;LINES=20;ALL;END",25
D5,"O=TERM",6
END
O=TERM
COMMENT EXECUTING OF ASSEMBLED REPORT COMMANDS
XEQ $OLDPASS
:LISTEQ ALCE@,2
The sample job is, for convenience of readers hating long atachments, is
in a separate letter.
Hope this helps
Frank
|\ /~ ~~|~~~ Family : NAGY; first name : FERENC; title : Ph. D.
| \ | | Institute of Isotopes of the Hungarian Academy of Sciences
| \ | -+- HUNGARY-1121 BUDAPEST Konkoly-Thege M. ut 29,(1525 Bp. POB 77)
| \| | [log in to unmask] (36-1)-395-9123 Fax: ~395-9002
`-' ' `-' Home: H-1214 BUDAPEST Raketa u. 29. I. 3. (36-1)-277-4229.
Now I am living among paper boxes ...
Probable change of home address: on Aug 8, 1997:
H-1102 BUDAPEST Holgy u. 8. I. 8. (36-1)-262-1198.
|
