Looks OK to me, seems about right
Although when you start using Macros and such the readability drops a 
little as it can take a bit of jumping around to understand it.

Cheers


--
=================================================
Peter McLarty               E-mail: [EMAIL PROTECTED]
Technical Consultant        WWW: http://www.mincom.com
APAC Technical Services     Phone: +61 (0)7 3303 3461
Brisbane,  Australia        Mobile: +61 (0)402 094 238
                            Facsimile: +61 (0)7 3303 3048
=================================================
A great pleasure in life is doing what people say you cannot do.

    - Walter Bagehot (1826-1877 British Economist)
=================================================
Mincom "The People, The Experience, The Vision"

=================================================

This transmission is for the intended addressee only and is confidential 
information. If you have received this transmission in error, please 
delete it and notify the sender. The contents of this e-mail are the 
opinion of the writer only and are not endorsed by the Mincom Group of 
companies unless expressly stated otherwise. 






Jacques Kilchoer <[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED]
15-08-2002 09:13 AM
Please respond to ORACLE-L

 
        To:     Multiple recipients of list ORACLE-L <[EMAIL PROTECTED]>
        cc: 
        Fax to: 
        Subject:        RE: RE: Dba tools on NT


> -----Original Message----- 
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] 
> 
> How many of those "non-cryptic" languages can dump a table 
> to a CSV file in 2 lines of (readable ) code? 
> 
>    while ( my $ary = $sth->fetchrow_arrayref ) { 
>       print  q{"} . join(q{","},@{$ary}) . qq{"\n}; 
"Readable" code? 
Now take COBOL, that was readable code! 
e.g. (from memory - excuse any errors) 
IDENTIFICATION DIVISION. 
PROGRAM-ID.  DUMP_VALUES. 
AUTHOR.  MOI. 
ENVIRONMENT DIVISION. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
    SELECT MYDATAFILE ASSIGN TO "SOMEFILE.DAT" 
                ORGANIZATION IS LINE SEQUENTIAL. 
DATA DIVISION. 
FILE SECTION. 
FD MYDATAFILE. 
01 MYCOLS. 
   05  ID              PIC 9(7). 
   05  NAME. 
       10 FIRST_NAME   PIC X(20). 
       10 LAST_NAME    PIC X(20). 
  
PROCEDURE DIVISION. 
BEGIN. 
   OPEN INPUT MYDATAFILE. 
   READ MYDATAFILE 
      AT END MOVE HIGH-VALUES TO MYCOLS 
   END-READ. 
   PERFORM UNTIL MYCOLS = HIGH-VALUES 
      DISPLAY 
         ID SPACE FIRSTNAME SPACE LASTNAME 
      END-DISPLAY 
      READ MYDATAFILE 
         AT END MOVE HIGH-VALUES TO MYCOLS 
      END-READ 
   END-PERFORM. 
   CLOSE MYDATAFILE. 
   STOP RUN. 


-- 
Please see the official ORACLE-L FAQ: http://www.orafaq.com
-- 
Author: 
  INET: [EMAIL PROTECTED]

Fat City Network Services    -- (858) 538-5051  FAX: (858) 538-5051
San Diego, California        -- Public Internet access / Mailing Lists
--------------------------------------------------------------------
To REMOVE yourself from this mailing list, send an E-Mail message
to: [EMAIL PROTECTED] (note EXACT spelling of 'ListGuru') and in
the message BODY, include a line containing: UNSUB ORACLE-L
(or the name of mailing list you want to be removed from).  You may
also send the HELP command for other information (like subscribing).

Reply via email to