RE: FW: record-level access

thank you for the answer to my problem. it worked and i was so happy and
amazed!!


> -----Original Message-----
> From: dawall@us.ibm.com [SMTP:dawall@us.ibm.com]
> Sent: Wednesday, May 17, 2000 10:57 AM
> To:   JAVA400-L@midrange.com
> Subject:      Re: FW: record-level access
> 
> >> CLASSPATH=/QIBM/ProdData/Java400/lib/jdkptf.zip:
> >> /QIBM/ProdData/Java400/lib/java.zip:
> >> /QIBM/ProdData/Java400/lib/sun.zip:
> >> /QIBM/ProdData/Java400/com/ibm/db2/jdbc/app/db2_classes.zip:
> >> /QIBM/ProdData/Java400/:
> >> /myjava
> 
> Your classpath does not include the Toolbox access classes.  Add
> "/QIBM/ProdData/HTTP/Public/jt400/lib/jt400.jar" to your classpath
> and you should be set.  There are a couple of ways to do this.  In
> your example you use the -classpath parm of the Java command.  You
> can change that to
>    "java -classpath /myjava:/QIBM/ProdData/HTTP/Public/jt400/lib/jt400.jar
> ShowMeClas"
> or setup up the CLASSPATH environment variable once in QSHELL by entering
> command
> "export -s CLASSPATH=
> /myjava:/QIBM/ProdData/HTTP/Public/jt400/lib/jt400.jar"
> 
> 
> Since you talk about QSHELL you must be running on the AS/400.  Make sure
> the Toolbox container you use (jt400.jar or jt400Access.zip) has an
> associated
> Java program.
> 
> David Wall
> AS/400 Toolbox for Java
> 
> 
> "Cummings, Wanda" <Cummings@AE.com> on 05/17/2000 08:29:37 AM
> 
> Please respond to JAVA400-L@midrange.com
> 
> To:   "'java400-l@midrange.com'" <java400-l@midrange.com>
> cc:
> Subject:  FW: record-level access
> 
> 
> 
> 
> 
> 
> > -----Original Message-----
> > From:   Cummings, Wanda
> > Sent:   Tuesday, May 16, 2000 4:22 PM
> > To:     'java-l@midrange.com'
> > Subject:     record-level access
> >
> > i have tried,for days, solving this myself, but i am convinced i need
> > help.
> >
> > i am trying to learn java on the as400. our manager wants us to read an
> > as400 PF and write a simple listing.
> > he wants us to try with record-level first (DDM), than move up to JDBC
> >
> > classpath shown in QSH
> >
> >
> > $
> >
> > java -classpath /myjava ShowMeClas
> >
> >
> CLASSPATH=/QIBM/ProdData/Java400/lib/jdkptf.zip:/QIBM/ProdData/Java400/lib
> > /j
> > ava.zip:/QIBM/ProdData/Java400/lib/sun.zip:/QIBM/Prod
> >
> Data/Java400/com/ibm/db2/jdbc/app/db2_classes.zip:/QIBM/ProdData/Java400/:
> > /m
> > yjava
> > $
> >
> >
> > my simple program:
> >
> >
> >  import java.io.*;
> >  import java.util.*;
> >  import java.math.*;
> >  import java.lang.*;
> >  import com.ibm.as400.access.*;
> >
> >  public class ListCust {
> >
> >     public ListCust() {
> >     // Step 1:
> >     // Connect to an AS/400
> >     AS400 as400 = new AS400();
> >
> >    // Step 2:
> >    // Specify file location
> >    KeyedFile myFile =
> >       new KeyedFile(as400,
> >           "/qsys.lib/examples.lib/custmst.file");
> >
> >
> >  // Step 3:
> >  // Retrieve a record format
> >  AS400FileRecordDescription myFileDesc =
> >     new AS400FileRecordDescription(as400,
> >         "/qsys.lib/examples.lib/custmst.file");
> >
> >  try
> >  {
> >
> >  RecordFormat recFormats[] = myFileDesc.retrieveRecordFormat();
> >  myFile.setRecordFormat(recFormats[0]);
> >
> >  // Step 4:
> >  // open the file
> >  myFile.open(AS400File.READ_ONLY,
> >              0,
> >              AS400File.COMMIT_LOCK_LEVEL_NONE);
> >
> >   // Step 5:
> >   // Read a record
> >   for (Record record = myFile.readNext();
> >          record != null;
> >          record = myFile.readNext()) {
> >
> >   // Step 6:
> >   // Retrieve the field values of that record
> >   BigDecimal CustnoField =
> >          (BigDecimal) record.getField( "CUSNUM" );
> >   String NameField =
> >          (String) record.getField( "LSTNAM" );
> >   System.out.println(NameField + CustnoField);
> >   }
> >
> >   // Close the file
> >   myFile.close();
> >
> >  } catch (Exception e) {
> >    System.out.println(
> >           "Error occurred listing the file.");
> >
> >     try
> >     {
> >       myFile.close();
> >     } catch(Exception x) {
> >       System.out.println(
> >           "Error occurred closing the file.");
> >     }
> >       System.exit(0);
> >     }
> >   System.exit(0);
> >   }
> >
> >   public static void main(String[] args)  {
> >       ListCust ListCust = new ListCust();
> >
> >    }
> >  }
> >
> > errors from QSH execution:
> >
> >
> >
> >   Loading class java/lang/ThreadDeath.class
> >
> >   Loading class java/lang/NoSuchMethodError.class
> >
> >   Loading class java/lang/IncompatibleClassChangeError.class
> >
> >   Loading class java/lang/LinkageError.class
> >
> >   Loading class java/lang/OutOfMemoryError.class
> >
> >   Loading class ListCust.class
> >
> >   Loading class com/ibm/as400/access/AS400File.class
> >
> >   Failed to load class file: com/ibm/as400/access/AS400File.class
> >
> >   Loading class java/lang/NoClassDefFoundError.class
> >
> >   Loading class java/math/BigDecimal.class
> >
> >   Loading class com/ibm/as400/access/AS400.class
> >
> >   Failed to load class file: com/ibm/as400/access/AS400.class
> >
> >   java.lang.NoClassDefFoundError: com/ibm/as400/access/AS400
> >
> >         ListCust.<init>()V+4 (ListCust.java:13)
> >
> >         ListCust.main([Ljava/lang/String;)V+1 (ListCust.java:73)
> >
> >   $
> >
> >
> >
> > Thank you in advance for any help. I am having trouble understanding
> > classpath, do i need to change my autoexec.bat to reflect
> > QIBM/ProdData/HTTP/Public/jt400?
> >
> >
> +---
> | This is the JAVA/400 Mailing List!
> | To submit a new message, send your mail to JAVA400-L@midrange.com.
> | To subscribe to this list send email to JAVA400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> JAVA400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner: joe@zappie.net
> +---
> 
> 
> 
> +---
> | This is the JAVA/400 Mailing List!
> | To submit a new message, send your mail to JAVA400-L@midrange.com.
> | To subscribe to this list send email to JAVA400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> JAVA400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner: joe@zappie.net
> +---
+---
| This is the JAVA/400 Mailing List!
| To submit a new message, send your mail to JAVA400-L@midrange.com.
| To subscribe to this list send email to JAVA400-L-SUB@midrange.com.
| To unsubscribe from this list send email to JAVA400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner: joe@zappie.net
+---