× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Hello Jon,

You wrote:
>Anybody got any ideas?

The problem is with one or more of the other fields in the host data
structure.  I say that because I took your excerpt and make it compile by
doing little more than adding the COBOL overhead...

       IDENTIFICATION DIVISION.
       PROGRAM-ID. JON.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. IBM-AS400.
       OBJECT-COMPUTER. IBM-AS400.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           EXEC SQL
               INCLUDE SQLCA
           END-EXEC.
       01 VendorRecordWS.
          05 VendR.
          10 VENDORID              PIC X(6).
          10 VENDORNAME            PIC X(30).
          10 ADDRESSLINE1          PIC X(30).
       PROCEDURE DIVISION.
       MAIN SECTION.
      *    Write VendorRecord
           Exec SQL
                Insert into VendP
                Values( :VendR)
           End-exec.
           STOP RUN.
           EXIT.

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists
   http://www.flybynight.com.au/

   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.