176 lines
6.3 KiB
HTML
176 lines
6.3 KiB
HTML
|
<?xml version="1.0" encoding="UTF-8"?>
|
||
|
|
<!DOCTYPE html
|
||
|
|
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
||
|
|
<html lang="en-us" xml:lang="en-us">
|
||
|
|
<head>
|
||
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
|
||
|
|
<meta name="security" content="public" />
|
||
|
|
<meta name="Robots" content="index,follow" />
|
||
|
|
<meta http-equiv="PICS-Label" content='(PICS-1.1 "http://www.icra.org/ratingsv02.html" l gen true r (cz 1 lz 1 nz 1 oz 1 vz 1) "http://www.rsac.org/ratingsv01.html" l gen true r (n 0 s 0 v 0 l 0) "http://www.classify.org/safesurf/" l gen true r (SS~~000 1))' />
|
||
|
|
<meta name="DC.Type" content="reference" />
|
||
|
|
<meta name="DC.Title" content="Example: Using record-level access classes" />
|
||
|
|
<meta name="abstract" content="" />
|
||
|
|
<meta name="description" content="" />
|
||
|
|
<meta name="copyright" content="(C) Copyright IBM Corporation 2006" />
|
||
|
|
<meta name="DC.Rights.Owner" content="(C) Copyright IBM Corporation 2006" />
|
||
|
|
<meta name="DC.Format" content="XHTML" />
|
||
|
|
<meta name="DC.Identifier" content="rlsequentialaccexample" />
|
||
|
|
<meta name="DC.Language" content="en-us" />
|
||
|
|
<!-- All rights reserved. Licensed Materials Property of IBM -->
|
||
|
|
<!-- US Government Users Restricted Rights -->
|
||
|
|
<!-- Use, duplication or disclosure restricted by -->
|
||
|
|
<!-- GSA ADP Schedule Contract with IBM Corp. -->
|
||
|
|
<link rel="stylesheet" type="text/css" href="./ibmdita.css" />
|
||
|
|
<link rel="stylesheet" type="text/css" href="./ic.css" />
|
||
|
|
<title>Example: Using record-level access classes</title>
|
||
|
|
</head>
|
||
|
|
<body id="rlsequentialaccexample"><a name="rlsequentialaccexample"><!-- --></a>
|
||
|
|
<!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
|
||
|
|
<h1 class="topictitle1">Example: Using record-level access classes</h1>
|
||
|
|
<div><p></p>
|
||
|
|
<div class="section"><div class="note"><span class="notetitle">Note:</span> Read the <a href="codedisclaimer.htm#codedisclaimer">Code
|
||
|
|
example disclaimer</a> for important legal information.</div>
|
||
|
|
</div>
|
||
|
|
<div class="section"><div class="p"><pre>//////////////////////////////////////////////////////////////////////////////////
|
||
|
|
//
|
||
|
|
// Record level access example. This program will prompt the user
|
||
|
|
// for the name of the server and the file to display. The file must exist
|
||
|
|
// and contain records. Each record in the file will be displayed
|
||
|
|
// to System.out.
|
||
|
|
//
|
||
|
|
// Calling syntax: java RLSequentialAccessExample
|
||
|
|
//
|
||
|
|
// This source is an example of IBM Toolbox for Java "RecordLevelAccess"
|
||
|
|
//
|
||
|
|
//////////////////////////////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
import java.io.*;
|
||
|
|
import java.util.*;
|
||
|
|
import com.ibm.as400.access.*;
|
||
|
|
|
||
|
|
public class RLSequentialAccessExample
|
||
|
|
{
|
||
|
|
public static void main(String[] parmeters)
|
||
|
|
{
|
||
|
|
// Created a reader to get input from the user
|
||
|
|
BufferedReader inputStream = new BufferedReader(new InputStreamReader(System.in),1);
|
||
|
|
|
||
|
|
// Declare variables to hold the system name, library, file and member names
|
||
|
|
String systemName = "";
|
||
|
|
String library = "";
|
||
|
|
String file = "";
|
||
|
|
String member = "";
|
||
|
|
|
||
|
|
// Get the system name and and file to display from the user
|
||
|
|
System.out.println();
|
||
|
|
try
|
||
|
|
{
|
||
|
|
System.out.print("System name: ");
|
||
|
|
systemName = inputStream.readLine();
|
||
|
|
|
||
|
|
System.out.print("Library in which the file exists: ");
|
||
|
|
library = inputStream.readLine();
|
||
|
|
|
||
|
|
System.out.print("File name: ");
|
||
|
|
file = inputStream.readLine();
|
||
|
|
|
||
|
|
System.out.print("Member name (press enter for first member): ");
|
||
|
|
member = inputStream.readLine();
|
||
|
|
if (member.equals(""))
|
||
|
|
{
|
||
|
|
member = "*FIRST";
|
||
|
|
}
|
||
|
|
|
||
|
|
System.out.println();
|
||
|
|
}
|
||
|
|
catch (Exception e)
|
||
|
|
{
|
||
|
|
System.out.println("Error obtaining user input.");
|
||
|
|
e.printStackTrace();
|
||
|
|
System.exit(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
// Create AS400 object and connect for the record level access service.
|
||
|
|
AS400 system = new AS400(systemName);
|
||
|
|
try
|
||
|
|
{
|
||
|
|
system.connectService(AS400.RECORDACCESS);
|
||
|
|
}
|
||
|
|
catch(Exception e)
|
||
|
|
{
|
||
|
|
System.out.println("Unable to connect for record level access.");
|
||
|
|
System.out.println("Check the readme file for special instructions regarding record
|
||
|
|
level access");
|
||
|
|
e.printStackTrace();
|
||
|
|
System.exit(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
// Create a QSYSObjectPathName object to obtain the integrated file system path name form
|
||
|
|
// of the file to be displayed.
|
||
|
|
QSYSObjectPathName filePathName = new QSYSObjectPathName(library, file, member, "MBR");
|
||
|
|
|
||
|
|
// Create a SequentialFile object representing the file to be displayed
|
||
|
|
SequentialFile theFile = new SequentialFile(system, filePathName.getPath());
|
||
|
|
|
||
|
|
// Retrieve the record format for the file
|
||
|
|
AS400FileRecordDescription recordDescription =
|
||
|
|
new AS400FileRecordDescription(system, filePathName.getPath());
|
||
|
|
try
|
||
|
|
{
|
||
|
|
RecordFormat[] format = recordDescription.retrieveRecordFormat();
|
||
|
|
|
||
|
|
// Set the record format for the file
|
||
|
|
theFile.setRecordFormat(format[0]);
|
||
|
|
|
||
|
|
// Open the file for reading. Read 100 records at a time if possible.
|
||
|
|
theFile.open(AS400File.READ_ONLY, 100, AS400File.COMMIT_LOCK_LEVEL_NONE);
|
||
|
|
|
||
|
|
// Display each record in the file
|
||
|
|
System.out.println("Displaying file " + library.toUpperCase() + "/"
|
||
|
|
+ file.toUpperCase() + "(" + theFile.getMemberName().trim() + "):");
|
||
|
|
|
||
|
|
Record record = theFile.readNext();
|
||
|
|
while (record != null)
|
||
|
|
{
|
||
|
|
System.out.println(record);
|
||
|
|
record = theFile.readNext();
|
||
|
|
}
|
||
|
|
System.out.println();
|
||
|
|
|
||
|
|
// Close the file
|
||
|
|
theFile.close();
|
||
|
|
|
||
|
|
// Disconnect from the record level access service
|
||
|
|
system.disconnectService(AS400.RECORDACCESS);
|
||
|
|
}
|
||
|
|
catch (Exception e)
|
||
|
|
{
|
||
|
|
System.out.println("Error occurred attempting to display the file.");
|
||
|
|
e.printStackTrace();
|
||
|
|
|
||
|
|
try
|
||
|
|
{
|
||
|
|
// Close the file
|
||
|
|
theFile.close();
|
||
|
|
}
|
||
|
|
catch(Exception x)
|
||
|
|
{
|
||
|
|
}
|
||
|
|
|
||
|
|
// Disconnect from the record level access service
|
||
|
|
system.disconnectService(AS400.RECORDACCESS);
|
||
|
|
System.exit(0);
|
||
|
|
}
|
||
|
|
|
||
|
|
// Make sure that the application ends; see readme for details
|
||
|
|
System.exit(0);
|
||
|
|
}
|
||
|
|
}</pre>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
</body>
|
||
|
|
</html>
|