<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	xmlns:georss="http://www.georss.org/georss" xmlns:geo="http://www.w3.org/2003/01/geo/wgs84_pos#" xmlns:media="http://search.yahoo.com/mrss/"
	>

<channel>
	<title>Torkisnasution's Weblog</title>
	<atom:link href="http://torkisnasution.wordpress.com/feed/" rel="self" type="application/rss+xml" />
	<link>http://torkisnasution.wordpress.com</link>
	<description>Just another WordPress.com weblog</description>
	<lastBuildDate>Sun, 01 Jun 2008 03:30:21 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.com/</generator>
<cloud domain='torkisnasution.wordpress.com' port='80' path='/?rsscloud=notify' registerProcedure='' protocol='http-post' />
<image>
		<url>http://s2.wp.com/i/buttonw-com.png</url>
		<title>Torkisnasution's Weblog</title>
		<link>http://torkisnasution.wordpress.com</link>
	</image>
	<atom:link rel="search" type="application/opensearchdescription+xml" href="http://torkisnasution.wordpress.com/osd.xml" title="Torkisnasution&#039;s Weblog" />
	<atom:link rel='hub' href='http://torkisnasution.wordpress.com/?pushpress=hub'/>
		<item>
		<title>Ne tugas tuk mhs ngambil TOS</title>
		<link>http://torkisnasution.wordpress.com/2008/05/30/ne-tugas-tuk-mhs-ngambil-tos/</link>
		<comments>http://torkisnasution.wordpress.com/2008/05/30/ne-tugas-tuk-mhs-ngambil-tos/#comments</comments>
		<pubDate>Fri, 30 May 2008 15:53:16 +0000</pubDate>
		<dc:creator>torkisnasution</dc:creator>
				<category><![CDATA[Teknologi Open Source]]></category>

		<guid isPermaLink="false">http://torkisnasution.wordpress.com/?p=8</guid>
		<description><![CDATA[Free Source Code Version or Revision Control Management Software TortoiseSVN Tugas untuk nomor Absen 1 dan 2 TortoiseSVN is a Windows Subversion client (see elsewhere on this page for Subversion), implemented as a Windows explorer shell control. As such, it has all the usual features of a source code control system, as well as the [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=torkisnasution.wordpress.com&amp;blog=3582916&amp;post=8&amp;subd=torkisnasution&amp;ref=&amp;feed=1" width="1" height="1" />]]></description>
			<content:encoded><![CDATA[<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Free Source Code Version or Revision Control Management Software</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">TortoiseSVN <span> </span>Tugas untuk nomor Absen<span> </span>1<span> </span>dan<span> </span>2</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">TortoiseSVN is a Windows Subversion client (see elsewhere on this page for Subversion), implemented as a Windows explorer shell control. As such, it has all the usual features of a source code control system, as well as the ability to version folders, rename and delete files, etc. You can check in/out files and folders via the right-click menu, delete files from the revision control system, revert to an old version, check the logs, merge files, check the difference between the current version and an older version, etc, directly from the Windows explorer shell. TortoiseSVN works on Windows 95, 98, 98SE, ME, 2000, XP (although you need IE 5.5 or later installed on the earlier systems). There is limited support for Windows Vista as well. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Bazaar-NG<span> </span>Tugas untuk nomor Absen<span> </span>3<span> </span>dan 4</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Bazaar-NG is a decentralized revision control system that allows users to commit their own branches of the source code for particular software without requiring special permissions. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">CodeVille <span> </span>Tugas untuk nomor Absen 5 dan 6</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">CodeVille is a distributed version control system. Platforms supported include Linux, Windows and Mac OS X. It is written in Python. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Darcs <span> </span>Tugas untuk nomor Absen<span> </span>7<span> </span>dan<span> </span>8</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Darcs is a revision control system released under the GNU GPL. Platforms supported include Linux, Windows, MacOS X, FreeBSD, OpenBSD, NetBSD, DragonFlyBSD, Solaris, and AIX. It also comes with a CGI script that allows you to browse through your source code repository via the web. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Monotone <span> </span>Tugas untuk nomor Absen<span> </span>9 dan<span> </span>10</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Monotone is a free distributed version control system. Its features include a single-file transactional version store, fully disconnected operation, history-sensitive merging, lightweight branches, integrated code review, third-party testing, cryptographic version naming, client-side RSA certificates, internalization support, and no external dependencies. Supported platforms include Linux, Solaris, Mac OSX, Windows and other Unix systems. It is licensed under the GNU GPL. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Perforce SCM System<span> </span><span> </span>Tugas untuk nomor Absen 11 dan<span> </span>12</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">The Perforce SCM System is a software configuration management system that works over TCP/IP. Both the client and server are available free of charge, although the Server only supports two users and two client workspaces in the free version. Numerous operating systems are supported, including Windows, Digital Unix V4.0 (OSF1), FreeBSD, HP-UX, IBM AIX, NetBSD, OpenBSD, QNX, SGI Irix, Solaris, SunOS, Linux (x86, ALPHA, PPC, MIPS, ARM, ia64, AMD64, Darwin, MacOS X, BeOS, IBM AS400, OS/2, Alpha VMS, etc. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">TortoiseCVS <span> </span>Tugas untuk nomor Absen<span> </span>13 dan<span> </span>14<span> </span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">TortoiseCVS is an easy-to-use version control for Windows that allows you to work with CVS files (whether local or on a CVS server). It integrates directly into Windows explorer, and yet allows you to limit the amount of integration so that your system does not become sluggish. You can simply right click on the files or folders you want to manage using version control, select the necessary procedure to apply, and Tortoise CVS will do the necessary. It shares its features for source code management (SCM) with CVS. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">GNU Revision Control System (GNU RCS)<span> </span>Tugas untuk nomor Absen<span> </span>15 dan<span> </span>16 </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">GNU RCS is a revision control system that allows you to manage multiple versions of your source code in a space efficient manner. Instead of storing multiple versions of your sources in entirety, RCS stores only the differences between the versions. You can then use RCS to retrieve different versions of your source code. Although the software is command line driven, you can easily integrate them into the menus of many modern editors for automatic checking in and out. Note that the link above leads to the source code archive. You will have to compile it yourself for your operating system. Precompiled binaries for MSDOS and Windows 95/98/ME can be found in the DJGPP archive (see the Free C/C++ compilers page). If you need help on using this package, there&#8217;s even a book on this: Applying RCS and SCCS: From Source Control to Project Control (an O&#8217;Reilly Nutshell book). </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Times New Roman;font-size:small;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">OpenCM <span> </span>Tugas untuk nomor Absen<span> </span>17 dan<span> </span>18</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">To quote from their website, &#8220;OpenCM is designed as a secure, high-integrity replacement for CVS&#8221; (another open source version control system). It does not have the same feature set as CVS, with some omissions as well as some additions. It supports renames, configuration, cryptographic authentication and access control, branches, etc. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Vesta Configuration Management System <span> </span>Tugas untuk nomor Absen<span> </span>19 dan<span> </span>20<span> </span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Vesta is a portable SCM system that is able to handle both small and large software projects (eg 10 million source lines). Originally developed at the Compaq/Digital Systems Research Center, and later used by the Compaq Alpha microprocessing group, it was later released by Compaq under the GNU LGPL. It runs on Linux and the Compaq Tru64 Unix on Alpha. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">JEDI Version Control System (formerly FreeVCS) <span> </span>Tugas untuk nomor Absen 21 dan<span> </span>22</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">This version control and project management system can be used on a local computer, across a LAN, WAN, the Internet as well as in mixed environments. It uses a &#8220;scalable, TCP/IP based client/server architecture&#8221;. It offers secure data transfer for transfers over a network or the Internet using a 128 bit Blowfish encryption algorithm. Data is stored in SQL database tables, and may be accessed with other database tools as well. It has an IDE, context sensitive help, Zip compression for the archived files, etc. It is a Windows program, and requires Windows 9x, ME, NT 4.0, 2000. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">GNU Arch Revision Control System <span> </span>Tugas untuk nomor Absen<span> </span>23 dan 24</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">GNU Arch is a revision control system that supports distributed and private repositories, history-sensitive branch merging, the ability to host repositories using HTTP, FTP, SFTP and WebDAV, renames, etc. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">/BriefCase 3 Toolkit <span> </span>Tugas untuk nomor Absen<span> </span>25 dan<span> </span>26</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Like other revision control systems, /BriefCase allows you to manage multiple versions of your software. It runs on Unix and Linux systems with the Korn Shell and awk. It uses a client/server model, with a RCS-based central repository. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">CvsGui, WinCVS, MacCVS, gCVS &#8211; GUI Front-end for CVS <span> </span>Tugas untuk nomor Absen<span> </span>27 dan<span> </span>28</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">WinCVS is a frontend for the CVS package (see elsewhere on this page) for Windows, while MacCVS runs on the Macintosh and gCVS on Unix systems. It has a native system look-and-feel, realtime sandbox view with a visual indication of the local state of files, filters to monitor any folder in a flat view, file revision history graphs, support for text, binary and Unicode files, etc. It is distributed under LGPL. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">SourceJammer Tugas untuk nomor Absen<span> </span>29 dan<span> </span>30</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">This is a source control and versioning system that is written in Java, and as such should be able to run on any system that has a Java virtual machine. You can (of course) check in/check out your sources, managed text and binary files, have multiple users accessing your sources, etc. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Subversion Version Control <span> </span>Tugas untuk nomor Absen<span> </span>31 dan<span> </span>32</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Subversion is a version control system designed to be a &#8220;compelling replacement of CVS&#8221;. Like CVS, it is open source. It includes all of CVS&#8217; features, with support for &#8220;versioning&#8221; directories, file renames, permission changes, and other file meta-data. It supports symbolic links, hard links, internationalization, multi-lingual support, atomic commits, cheap branching and tagging operations, plug-in client-side diff programs, etc. It is natively client/server, unlike CVS. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">PRCS Tugas untuk nomor Absen<span> </span>33 dan<span> </span>34</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">This is a front end to a set of revision control tools that is supposed to be simpler to use than RCS, SCCS and CVS. At the time of this writing, it relies on GNU RCS to do certain tasks. It is portable to most Unix systems (and clones) including FreeBSD, Linux, SunOS 4, Solaris, HP-UX, IRIX, Ultrix 4, Digital Unix, AIX, Dynix/PTX, and Unixware. Source code is provided. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Aegis <span> </span>Tugas untuk nomor Absen<span> </span>35 dan 36</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Aegis supports multiple developers on a project, and includes an intranet web interface. It is designed for repository security, and supports distributed and multiple repositories. It runs on &#8220;almost any flavour of Unix.&#8221; Source code is provided. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">CVS (Concurrent Version System)<span> </span>Tugas untuk nomor Absen<span> </span>37 dan<span> </span>38 </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">CVS provides version control on entire directory trees. It supports client/server operations where developers may be scattered all over the globe. CVS is supported on most Unices and clones, Windows NT/95, OS/2, and VMS. It is probably one of the most widely used free version control systems around and has the advantage that it is not only free, but is open source. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">CSSC<span> </span>Tugas untuk nomor Absen <span> </span>39 dan <span> </span>40</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">This is another SCCS clone, which provides version control compatible with those managed by SCCS on a number of Unix systems. It is useful if you have source code currently managed under SCCS and need to move it to a system without SCCS. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">ComponentSoftware CS-RCS Tugas untuk nomor Absen 41 dan<span> </span>42</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">This package provides a GUI interface to GNU RCS. It allows you to manage multiple versions of your source code in a space efficient manner. You can access the various commands in the package via either a user-friendly user interface, or the command line (useful for makefiles and other automated systems). It can also be integrated into your IDEs and editors. The program is free for personal use and open source projects. The GNU RCS system is included. This program runs on Win32 systems only. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;"><span> </span>Related Pages</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>How to Register Your Own Domain Name &#8211; get one for your software </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>The Beginner&#8217;s A-Z Guide to Starting/Creating Your Own Website </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Frequently Recommended Windows Programming Books </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free C/C++ Libraries &#8211; don&#8217;t reinvent the wheel; get tested code </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free Database Libraries, ODBC Drivers, SQL servers &amp; Tools </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free Sockets and Winsock (Internet) Libraries &#8211; add email, ftp, HTTP, etc </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free Encryption Source Code and Libraries </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Which Web Host Do You Recommend? (FAQ) </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Newest Pages</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>The Pros and Cons of Using an Online Blog Software or a Content Management System (CMS) </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>How to Insert Raw HTML Code in Dreamweaver </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free Apple II Emulators </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>How to Install and Configure Apache 2 on Windows </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free Logo Compilers and Interpreters </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>How to Create a Bootable &#8220;Live&#8221; Windows Rescue CD </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>How to Make Your WordPress Blog Search-Engine-Friendly </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>How to Create a Search Engine Friendly Website </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free Video Editors (Free Video Editing Software) </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Dreamweaver Tutorial: How to Create a Website with Dreamweaver CS3 </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Popular Pages</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>How to Create/Start Your Own Website: The Beginner&#8217;s A-Z Guide </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>How to Register Your Own Domain Name &#8211; how to get your own domain name </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>How to Create a Bootable Windows XP Setup CD/DVD on a Preinstalled Windows System </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free Partitioning Software &#8211; Copy, Create, Move, Resize, Convert, Undelete Partitions </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free Data Recovery, File and Partition Recovery, Undelete and Unformat Software </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free Antivirus Software and Free Online Virus Scans </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free Spyware/Adware/Trojans/Keyloggers/Hijackers Removal, Detection and Prevention Tools and Sites </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free DVD Authoring and Creation Software </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free CD and DVD Burners and Copying Software </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">•<span> </span>Free Hard Disk Backup and Restore, Hard Disk Image and Cloning Utilities </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">How to Link to This Page</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">To link to this page from your website, simply cut and paste the following code to your web page. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;"><span> </span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">It will appear on your page as: </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Free Source Code Version Control Software </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;"><span> </span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Copyright © 1999-2007 by Christopher Heng. All rights reserved.</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">thesitewizard™, thefreecountry™ and HowToHaven™ are trademarks of Christopher Heng.</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Last Updated: 9 September 2007. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Times New Roman;font-size:small;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Times New Roman;font-size:small;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Times New Roman;font-size:small;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">Tugas Mandiri</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">1.<span> </span>Setiap mahasiswa berrtugas membuat artikel dengan topik OSS Control Version Revision yang telah disebutkan diatas yang telah diberi nomor, kemudian nomor tersebut disesuaiakan dengan absensi masing-masing</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">2.<span> </span>Tugas berbentuk artikel pembahasan atas software yang bersesuaian dengan tugas masing-masing. Penulisan artikel harus disusun dalam format:</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">a.<span> </span>Sampul (cover) lengkap dengan logo STMIK-AMIK Riau</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">b.<span> </span>Kata Pengantar</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">c.<span> </span>Daftar isi</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">d.<span> </span>Legal term, yang memuat seluruh sebutan yang berhubungan dengan hak cipta dalam penulisan artikel</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">e.<span> </span>Pendahuluan</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">f.<span> </span>Pembahasan (isi)</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">g.<span> </span>Penutup yang memuat Kesimpulan dan Saran</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">h.<span> </span>Daftar pustaka</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">i.<span> </span>Daftar istilah. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">3.<span> </span>Setiap mahasiswa hanya dapat dibahas maksimal oleh dua orang mahasiswa, jika ada topik yang dibahas lebih dari dua orang maka mahasiswa yang membahas topik akan dibatalkan.</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">4.<span> </span>Disamping software diatas, mahasiswa dapat juga membahas software lain yang tidak didaftar diatas.</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Times New Roman;font-size:small;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">5.<span> </span>Tugas diselesaikan selama tiga minggu pertemua sejak tugas disampaikan pada saat pertemuan.</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Times New Roman;font-size:small;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span style="font-family:Times New Roman;">6.<span> </span>Akhirnya selamat bekerja, please open www.torkisnasution.com or www.torkisnasution.wordpress.com or please call 08127536689 for direct advise.</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Times New Roman;font-size:small;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Times New Roman;font-size:small;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Times New Roman;font-size:small;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Times New Roman;font-size:small;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Times New Roman;font-size:small;"> </span></p>
<br /><img alt="" border="0" src="http://feeds.wordpress.com/1.0/categories/torkisnasution.wordpress.com/8/" /> <img alt="" border="0" src="http://feeds.wordpress.com/1.0/tags/torkisnasution.wordpress.com/8/" /> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gocomments/torkisnasution.wordpress.com/8/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/comments/torkisnasution.wordpress.com/8/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godelicious/torkisnasution.wordpress.com/8/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/delicious/torkisnasution.wordpress.com/8/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gofacebook/torkisnasution.wordpress.com/8/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/facebook/torkisnasution.wordpress.com/8/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gotwitter/torkisnasution.wordpress.com/8/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/twitter/torkisnasution.wordpress.com/8/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gostumble/torkisnasution.wordpress.com/8/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/stumble/torkisnasution.wordpress.com/8/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godigg/torkisnasution.wordpress.com/8/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/digg/torkisnasution.wordpress.com/8/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/goreddit/torkisnasution.wordpress.com/8/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/reddit/torkisnasution.wordpress.com/8/" /></a> <img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=torkisnasution.wordpress.com&amp;blog=3582916&amp;post=8&amp;subd=torkisnasution&amp;ref=&amp;feed=1" width="1" height="1" />]]></content:encoded>
			<wfw:commentRss>http://torkisnasution.wordpress.com/2008/05/30/ne-tugas-tuk-mhs-ngambil-tos/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/47da4bf07056e58a4119a56e135187e0?s=96&#38;d=identicon&#38;r=G" medium="image">
			<media:title type="html">torkisnasution</media:title>
		</media:content>
	</item>
		<item>
		<title>Tugas COBOL</title>
		<link>http://torkisnasution.wordpress.com/2008/04/28/tugas-cobol/</link>
		<comments>http://torkisnasution.wordpress.com/2008/04/28/tugas-cobol/#comments</comments>
		<pubDate>Mon, 28 Apr 2008 09:50:44 +0000</pubDate>
		<dc:creator>torkisnasution</dc:creator>
				<category><![CDATA[COBOL]]></category>

		<guid isPermaLink="false">http://torkisnasution.wordpress.com/?p=6</guid>
		<description><![CDATA[Pertemuan X Program Inventori Software Dalam program ini akan dibuat Entri data yang lebih baik dari sisi tampilan maupun dari sisi pengelolaan. Sebelum Anda membuat program create terlebih dahulu sebuah file dengan nama Soft.dat. selanjutnya buatlah program berikut : *Pertemuan X *Program berikut membaca data pada Soft.dat *digunakan untuk kelas A, B, C, D *Nama [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=torkisnasution.wordpress.com&amp;blog=3582916&amp;post=6&amp;subd=torkisnasution&amp;ref=&amp;feed=1" width="1" height="1" />]]></description>
			<content:encoded><![CDATA[<p class="MsoNormal" style="text-align:center;margin:0;" align="center"><strong><span style="font-size:13pt;"><span style="font-family:Times New Roman;">Pertemuan X Program Inventori Software</span></span></strong></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-family:Times New Roman;font-size:small;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-family:Times New Roman;font-size:small;"> </span></span></p>
<p class="MsoNormal" style="text-align:justify;margin:0;"><span><span style="font-family:Times New Roman;font-size:small;">Dalam program ini akan dibuat Entri data yang lebih baik dari sisi tampilan maupun dari sisi pengelolaan. Sebelum Anda membuat program <em>create</em> terlebih dahulu sebuah file dengan nama Soft.dat. selanjutnya buatlah program berikut :</span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-family:Times New Roman;font-size:small;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*Pertemuan X</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>*Program berikut membaca data pada Soft.dat</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*digunakan untuk kelas A, B, C, D</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*Nama file Lat101.cbl</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*Nama : fulan</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*NIM<span> </span>: ?????</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>IDENTIFICATION DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>PROGRAM-ID. Rekam-Data.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>ENVIRONMENT DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>CONFIGURATION SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>SOURCE-COMPUTER. IBM-PC.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>INPUT-OUTPUT SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>FILE-CONTROL.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>SELECT INVENTORY-FILE<span> </span>ASSIGN TO DISK FILE-NAME</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>ORGANIZATION IS LINE SEQUENTIAL.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DATA DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>FILE SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>FD<span> </span>INVENTORY-FILE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>01<span> </span>INVENTORY-RECORD.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>IR-STOCK-NUMBER<span> </span>PIC X(5).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>IR-SOFTWARE-NAME<span> </span>PIC X(30).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>IR-VENDOR-NAME<span> </span>PIC X(20).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>IR-QUANT-ON-HAND<span> </span>PIC 9(3).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>IR-REORDER-LEVEL<span> </span>PIC 9(3).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>IR-PRICE<span> </span>PIC 9(3)V9(2).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>WORKING-STORAGE SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>01<span> </span>CONSTANT-VALUES.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>10<span> </span>FILE-NAME<span> </span>PIC X(14) VALUE &#8220;Soft1.dat&#8221;.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>01<span> </span>PROGRAMMED-SWITCHES.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>RECORD-COMPLETED<span> </span>PIC X.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>ADD-ANOTHER-RECORD<span> </span>PIC X.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>01<span> </span>OTHER-VARIABLES.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>DESIRED-OPTION<span> </span>PIC 9.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>WAIT<span> </span>PIC X<span> </span>VALUE SPACE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>YES-NO<span> </span>PIC X(3).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>SCREEN SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>01<span> </span>ADD-ANOTHER-RECORD-SCREEN.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>VALUE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>&#8220;Apakah akan menambah rekaman lagi &lt;Y/N&gt;? &#8220;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>LINE 18<span> </span>COL<span> </span>1<span> </span>HIGHLIGHT.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>PIC X<span> </span>USING ADD-ANOTHER-RECORD</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE 18<span> </span>COL PLUS 1 REVERSE AUTO.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>01<span> </span>INTRODUCTION-SCREEN.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>05<span> </span>VALUE &#8220;Program ini akan menambah isi rekaman Anda&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>BLANK SCREEN<span> </span>LINE<span> </span>6<span> </span>HIGHLIGHT.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>05<span> </span>VALUE<span> </span>&#8220;Software persediaan&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE PLUS 1<span> </span>HIGHLIGHT.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>05<span> </span>PIC X(14)<span> </span>FROM FILE-NAME</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE PLUS 2 COL 8 HIGHLIGHT.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>05<span> </span>VALUE &#8220;Apakah Anda akan melanjutkan &lt;Y/N&gt;? &#8220;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>BELL<span> </span>LINE PLUS 2<span> </span>HIGHLIGHT.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>05<span> </span>PIC X<span> </span>USING ADD-ANOTHER-RECORD</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>COL PLUS 0</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>REVERSE AUTO.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>01<span> </span>INVENTORY-RECORD-SCREEN.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>VALUE<span> </span>&#8220;TAMBAH DATA PERSEDIAAN&#8221; BLANK SCREEN</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>LINE<span> </span>2<span> </span>COL 11.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>VALUE<span> </span>&#8220;ID Persediaan&#8221;<span> </span>LINE PLUS 2<span> </span>COL<span> </span>1.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>PIC X(5)<span> </span>USING IR-STOCK-NUMBER</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE PLUS 0<span> </span>COL 16<span> </span>REVERSE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>VALUE<span> </span>&#8220;Nama Software&#8221;<span> </span>LINE PLUS 2<span> </span>COL<span> </span>1.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>PIC X(30)<span> </span>USING IR-SOFTWARE-NAME</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE PLUS 0<span> </span>COL 16<span> </span>REVERSE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>VALUE<span> </span>&#8220;Vendor&#8221;<span> </span>LINE PLUS 2<span> </span>COL<span> </span>1.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>PIC X(20)<span> </span>USING IR-VENDOR-NAME</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>LINE PLUS 0<span> </span>COL 16<span> </span>REVERSE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>VALUE<span> </span>&#8220;Stock akhir&#8221;<span> </span>LINE PLUS 2<span> </span>COL<span> </span>1.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>PIC ZZ9<span> </span>USING IR-QUANT-ON-HAND</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE PLUS 0<span> </span>COL 16<span> </span>REVERSE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>VALUE<span> </span>&#8220;Harga U$$&#8221;<span> </span>LINE PLUS 0<span> </span>COL 26.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>PIC ZZZ.99<span> </span>USING IR-PRICE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE PLUS 0<span> </span>COL 34<span> </span>REVERSE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>VALUE<span> </span>&#8220;Nomor Rekam&#8221;<span> </span>LINE PLUS 1<span> </span>COL<span> </span>1.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>PIC ZZ9<span> </span>USING IR-REORDER-LEVEL</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE PLUS 0<span> </span>COL 16<span> </span>REVERSE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>01<span> </span>SELECT-OPTION-SCREEN.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>VALUE<span> </span>&#8220;Options:&#8221;<span> </span>LINE 18<span> </span>COL<span> </span>1.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>VALUE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>&#8220;<span> </span>1<span> </span>data sudah benar.<span> </span>Rekam ke dalam file.&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>LINE PLUS 1<span> </span>COL<span> </span>1.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>VALUE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>&#8220;<span> </span>2<span> </span>Data ini harus diperbaiki lagi.&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE PLUS 1<span> </span>COL<span> </span>1.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>VALUE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>&#8220;<span> </span>3<span> </span>Hapus data diatas; tidak jadi direkam.&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE PLUS 1<span> </span>COL<span> </span>1.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>VALUE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>&#8220;Silakan pilih 1, 2, atau 3 pada keyboard &#8220;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE PLUS 2<span> </span>COL<span> </span>1<span> </span>HIGHLIGHT.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*<span> </span>Lihat tombol yang ditekan</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>10<span> </span>PIC X<span> </span>TO DESIRED-OPTION</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE 23<span> </span>COL 45<span> </span>REVERSE<span> </span>AUTO.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>PROCEDURE DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>000-EXTEND-INVENTORY-FILE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>PERFORM 100-INITIALIZE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>IF ADD-ANOTHER-RECORD = &#8220;Y&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>PERFORM 110-ADD-INVENTORY-RECORD</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>UNTIL ADD-ANOTHER-RECORD NOT = &#8220;Y&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>PERFORM 120-FINALIZE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>END-IF</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>STOP RUN.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>100-INITIALIZE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>MOVE &#8220;Y&#8221; TO ADD-ANOTHER-RECORD</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY INTRODUCTION-SCREEN</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>ACCEPT<span> </span>INTRODUCTION-SCREEN</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>IF ADD-ANOTHER-RECORD = &#8220;Y&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>OPEN EXTEND INVENTORY-FILE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>END-IF.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>110-ADD-INVENTORY-RECORD.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>INITIALIZE INVENTORY-RECORD</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>MOVE &#8220;N&#8221; TO RECORD-COMPLETED</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>PERFORM 300-ENTER-1-SOFTWARE-ITEM</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>UNTIL RECORD-COMPLETED = &#8220;Y&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY ADD-ANOTHER-RECORD-SCREEN</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>ACCEPT<span> </span>ADD-ANOTHER-RECORD-SCREEN.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>120-FINALIZE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY FILE-NAME<span> </span>LINE 21</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY<span> </span>&#8221; telah di update&#8230;.&#8221;<span> </span>POSITION 0</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>CLOSE INVENTORY-FILE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>300-ENTER-1-SOFTWARE-ITEM.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY INVENTORY-RECORD-SCREEN</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>ACCEPT<span> </span>INVENTORY-RECORD-SCREEN</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY SELECT-OPTION-SCREEN</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>ACCEPT<span> </span>SELECT-OPTION-SCREEN</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>IF DESIRED-OPTION = 1</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>WRITE INVENTORY-RECORD</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>MOVE &#8220;Y&#8221; TO RECORD-COMPLETED</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY &#8220;Data ini direkam ke dalam fle&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE 16<span> </span>ERASE EOS</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>END-IF</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>IF DESIRED-OPTION = 3</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>MOVE &#8220;Y&#8221; TO RECORD-COMPLETED</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY &#8220;Rekaman ini tidak ditambahkan ke dalam file&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>LINE 16<span> </span>ERASE EOS</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>END-IF.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*End of file</span><span><span style="font-size:small;"><span style="font-family:Times New Roman;"><span> </span><span> </span></span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-family:Times New Roman;font-size:small;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">Program berikut digunakan untuk menampilkan data yang telah di insert pada program sebelumnya.</span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-family:Times New Roman;font-size:small;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;"><span> </span><span> </span></span></span></span><span style="font-size:9pt;">*Pertemuan X</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*Program berikut membaca data pada Soft.dat</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*digunakan untuk kelas A, B, C, D</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*Nama file Lat102.cbl</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*Nama : fulan</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*NIM<span> </span>: ?????</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;-</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>IDENTIFICATION DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>PROGRAM-ID.<span> </span>Lihat-data.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>ENVIRONMENT DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>CONFIGURATION SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>SOURCE-COMPUTER.<span> </span>IBM-PC.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>INPUT-OUTPUT SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>FILE-CONTROL.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>SELECT INVENTORY-FILE<span> </span>ASSIGN TO DISK &#8220;Soft1.dat&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>ORGANIZATION IS LINE SEQUENTIAL.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DATA DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>FILE SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>FD<span> </span>INVENTORY-FILE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>01<span> </span>INVENTORY-RECORD.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>IR-STOCK-NUMBER<span> </span>PIC X(5).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>IR-SOFTWARE-NAME<span> </span>PIC X(30).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>IR-VENDOR-NAME<span> </span>PIC X(20).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>IR-QUANT-ON-HAND<span> </span>PIC 9(3).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>IR-REORDER-LEVEL<span> </span><span> </span>PIC 9(3).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>IR-PRICE<span> </span>PIC 9(3)V9(2).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>WORKING-STORAGE SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>01<span> </span>PROGRAMMED-SWITCHES.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>10<span> </span>END-OF-PROCESSING<span> </span>PIC X(1)<span> </span>VALUE &#8220;N&#8221;.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>PROCEDURE DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>000-DISPLAY-INVENTORY-RECORD.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>PERFORM 100-INITIALIZE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>PERFORM 110-DISPLAY-RECORD</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>UNTIL END-OF-PROCESSING = &#8220;Y&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>PERFORM 120-FINALIZE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>STOP RUN.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>100-INITIALIZE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>OPEN INPUT INVENTORY-FILE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>READ INVENTORY-FILE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>AT END </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>MOVE &#8220;Y&#8221; TO END-OF-PROCESSING</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>END-READ.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>110-DISPLAY-RECORD.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY &#8221; &#8221; ERASE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY &#8220;ID Stock<span> </span>:<span> </span>&#8221; IR-STOCK-NUMBER</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY &#8220;Nama Software<span> </span>: <span> </span>&#8221; IR-SOFTWARE-NAME</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY &#8220;Vendor adalah<span> </span>:<span> </span>&#8221; IR-VENDOR-NAME</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>DISPLAY &#8220;Stok akhir<span> </span>:<span> </span>&#8221; IR-QUANT-ON-HAND</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>DISPLAY &#8220;Nomor Rekaman<span> </span>:<span> </span>&#8221; IR-REORDER-LEVEL</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>DISPLAY &#8220;Harga beli US$<span> </span>:<span> </span>&#8221; IR-PRICE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY &#8221; &#8220;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>READ INVENTORY-FILE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>AT END</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY &#8220;Last record. Strike Enter to terminate.&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>ACCEPT END-OF-PROCESSING<span> </span>PROMPT, NO BEEP</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>MOVE &#8220;Y&#8221; TO END-OF-PROCESSING</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>NOT AT END</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span><span> </span>DISPLAY &#8220;Do you want to terminate processing?&#8221;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>DISPLAY &#8220;&lt;Type an upper-case Y or N&gt; &#8220;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>ACCEPT END-OF-PROCESSING<span> </span>PROMPT, NO BEEP</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>END-READ.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>120-FINALIZE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>CLOSE INVENTORY-FILE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:9pt;"><span> </span>*End of file</span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-family:Times New Roman;font-size:small;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">Setelah program diatas selesai, buatlah program parkir dengan field sebagai berikut :</span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-family:Times New Roman;font-size:small;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">No Parkir</span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">No Plat</span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">Jumlah Roda</span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">Jenis kenderaan</span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">Tanggal-masuk-parkir</span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">Jam-masuk-parkir</span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">Tanggal-keluar-parkir</span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">Jam-keluar-parkir</span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-family:Times New Roman;font-size:small;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">Program yang dibuat adalah untuk entri dengan tampilan pada Latih101.cbl, dan laporan (display) seperti tampilan pada Latih102.cbl</span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-family:Times New Roman;font-size:small;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">Program latihan dan tugas dibuat dan di cetak diantar pada saat perkulihan ke 11</span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-family:Times New Roman;font-size:small;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">makasih</span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-family:Times New Roman;font-size:small;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-family:Times New Roman;font-size:small;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-family:Times New Roman;font-size:small;"> </span></span></p>
<br /><img alt="" border="0" src="http://feeds.wordpress.com/1.0/categories/torkisnasution.wordpress.com/6/" /> <img alt="" border="0" src="http://feeds.wordpress.com/1.0/tags/torkisnasution.wordpress.com/6/" /> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gocomments/torkisnasution.wordpress.com/6/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/comments/torkisnasution.wordpress.com/6/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godelicious/torkisnasution.wordpress.com/6/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/delicious/torkisnasution.wordpress.com/6/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gofacebook/torkisnasution.wordpress.com/6/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/facebook/torkisnasution.wordpress.com/6/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gotwitter/torkisnasution.wordpress.com/6/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/twitter/torkisnasution.wordpress.com/6/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gostumble/torkisnasution.wordpress.com/6/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/stumble/torkisnasution.wordpress.com/6/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godigg/torkisnasution.wordpress.com/6/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/digg/torkisnasution.wordpress.com/6/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/goreddit/torkisnasution.wordpress.com/6/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/reddit/torkisnasution.wordpress.com/6/" /></a> <img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=torkisnasution.wordpress.com&amp;blog=3582916&amp;post=6&amp;subd=torkisnasution&amp;ref=&amp;feed=1" width="1" height="1" />]]></content:encoded>
			<wfw:commentRss>http://torkisnasution.wordpress.com/2008/04/28/tugas-cobol/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/47da4bf07056e58a4119a56e135187e0?s=96&#38;d=identicon&#38;r=G" medium="image">
			<media:title type="html">torkisnasution</media:title>
		</media:content>
	</item>
		<item>
		<title>Modul COBOL</title>
		<link>http://torkisnasution.wordpress.com/2008/04/28/modul-cobol/</link>
		<comments>http://torkisnasution.wordpress.com/2008/04/28/modul-cobol/#comments</comments>
		<pubDate>Mon, 28 Apr 2008 09:43:50 +0000</pubDate>
		<dc:creator>torkisnasution</dc:creator>
				<category><![CDATA[COBOL]]></category>

		<guid isPermaLink="false">http://torkisnasution.wordpress.com/?p=5</guid>
		<description><![CDATA[ne para mahasiswa yang mengambil matakliah cobol ne modul ne 7. File Handling                  7.1 Reading and writing                  7.2 REWRITE, DELETE and EXTEND                  7.3 File organization                  7.4 SORT and MERGE                  7.5 Input and output procedures                  7.6 File Status (error handling)This section outlines how data can read from and written to [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=torkisnasution.wordpress.com&amp;blog=3582916&amp;post=5&amp;subd=torkisnasution&amp;ref=&amp;feed=1" width="1" height="1" />]]></description>
			<content:encoded><![CDATA[<p>ne para mahasiswa yang mengambil matakliah cobol ne modul ne</p>
<p><a name="REA"><strong><span style="font-size:13.5pt;"><span style="font-family:Times New Roman;">7. File Handling </span></span></strong></a></p>
<p style="margin-bottom:12pt;"><span><span><span style="font-size:small;font-family:Times New Roman;">                 </span></span></span><a href="http://cobol.404i.com/fil-a.html"><span style="color:#ff4600;"><span style="font-size:small;"><span style="font-family:Times New Roman;"><span><span>7.1 Reading and writing</span></span></span></span></span></a><span><span><span style="font-size:small;font-family:Times New Roman;"><br />
                 </span></span></span><a href="http://cobol.404i.com/fil-b.html"><span style="color:#ff4600;"><span style="font-size:small;"><span style="font-family:Times New Roman;"><span><span>7.2 REWRITE, DELETE and EXTEND</span></span></span></span></span></a><span><span><span style="font-size:small;font-family:Times New Roman;"><br />
                 </span></span></span><a href="http://cobol.404i.com/fil-c.html"><span style="color:#ff4600;"><span style="font-size:small;"><span style="font-family:Times New Roman;"><span><span>7.3 File organization</span></span></span></span></span></a><span><span><span style="font-size:small;font-family:Times New Roman;"><br />
                 </span></span></span><a href="http://cobol.404i.com/fil-d.html"><span style="color:#ff4600;"><span style="font-size:small;"><span style="font-family:Times New Roman;"><span><span>7.4 SORT and MERGE</span></span></span></span></span></a><span><span><span style="font-size:small;font-family:Times New Roman;"><br />
                 </span></span></span><a href="http://cobol.404i.com/fil-e.html"><span style="color:#ff4600;"><span style="font-size:small;"><span style="font-family:Times New Roman;"><span><span>7.5 Input and output procedures</span></span></span></span></span></a><span><span><span style="font-size:small;font-family:Times New Roman;"><br />
                 </span></span></span><a href="http://cobol.404i.com/fil-f.html"><span style="color:#ff4600;"><span style="font-size:small;"><span style="font-family:Times New Roman;"><span><span>7.6 File Status (error handling)</span></span></span></span></span></a><span><span><span style="font-size:small;font-family:Times New Roman;"><span><span><span style="font-size:small;font-family:Times New Roman;">This section outlines how data can read from and written to files, how records are organized within a file and how records can be manipulated (e.g. sorting, merging).</p>
<p></span></span></span></span></span></span></p>
<p> </p>
<p class="MsoNormal" style="margin:0;"><span><strong><span style="font-size:13.5pt;font-family:Arial;"> </span></strong></span></p>
<p class="MsoNormal" style="margin:0;"><span><strong><span style="font-size:13.5pt;font-family:Arial;">7.1 Reading and Writing </span></strong></span></p>
<p style="margin-bottom:12pt;"><span><span style="font-size:small;font-family:Times New Roman;">In order to either read, alter or create a new file, we must first open it (even if it doesn&#8217;t even exist yet). In doing so, a open mode must be defined. To simply read data from an existing file it would be opened in INPUT mode. In this mode, the file is read-only and cannot be altered in any way.<br />
If writing to new file, i.e. creating one (or overwriting an existing file so be careful) the new file would be opened in OUTPUT mode. You cannot read data from a file opened in OUTPUT mode.<br />
EXTEND mode allows for records to be added to the end of an existing file.<br />
I-O mode is for input and output access to the file, such as when you wish to update a record, or delete a record.<span><span style="font-size:small;font-family:Times New Roman;">When a file is no longer required, the file needs to be closed again (using CLOSE). You can open and close a file as often as you like during a program run, although bear in mind that each time you open a file the computer will read from the first record onwards (in INPUT and I-O mode) or will overwrite in OUTPUT mode.</p>
<p></span></span></span></span></p>
<p> </p>
<table class="MsoNormalTable" border="0" cellpadding="0">
<tbody>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:0.75pt;">
<p class="MsoNormal" style="margin:0;"><strong><span><span style="font-size:small;font-family:Times New Roman;">OPEN {INPUT or OUTPUT or I-O or EXTEND} {filename-1}&#8230;<br />
           {INPUT or OUTPUT or I-O or EXTEND} {filename-2}&#8230; </span></span></strong></p>
</td>
</tr>
</tbody>
</table>
<p><span></span><strong></strong></p>
<p><span style="font-size:small;font-family:Times New Roman;">e.g. </span></p>
<pre><strong><span><span style="font-size:x-small;"><span>     </span>OPEN INPUT DATA-1-FILE DATA-2-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>          </span>OUTPUT NEW-DATA-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>               </span>:</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>               </span>:</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>     </span>CLOSE DATA-1-FILE DATA-2-FILE NEW-DATA-FILE</span></span></strong></pre>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Arial;"><span style="font-size:small;"> </span></span></p>
<p><a name="READ"><span><span style="font-size:small;font-family:Times New Roman;"> </span></span></a><span><span style="font-size:small;font-family:Times New Roman;"> <em>READ</em><span><span style="font-size:small;font-family:Times New Roman;">The READ statement will read the data from a file, taking precisely the data that is defined in the file descriptor (FD) in the data division (file section) (see</p>
<p></span><a href="http://cobol.404i.com/4div-c.html#DAT"><span style="font-size:small;color:#ff4600;font-family:Times New Roman;">The Four Divisions</span></a><span style="font-size:small;font-family:Times New Roman;"> section).<br />
The format is: </span></span></span></span></p>
<p><a href="http://cobol.404i.com/4div-c.html#DAT"><span style="font-size:small;color:#ff4600;font-family:Times New Roman;">The Four Divisions</span></a><span style="font-size:small;font-family:Times New Roman;"> section).<br />
The format is: </span></p>
<table class="MsoNormalTable" border="0" cellpadding="0">
<tbody>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:0.75pt;">
<pre><strong><span><span style="font-size:x-small;">READ {FD filename}</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>      </span>AT END {statements}</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>      </span>NOT AT END {statements}</span></span></strong>
<strong><span><span style="font-size:x-small;">END-READ</span></span></strong></pre>
</td>
</tr>
</tbody>
</table>
<p><span><span style="font-size:small;font-family:Times New Roman;">Since a file would likely contain more than one record, the READ statement is often contained within a PERFORM loop: </span></span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>IDENTIFICATION DIVISION.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>PROGRAM-ID.<span>      </span>READ-EXAMPLE.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>AUTHOR<span>           </span>ZINGMATTER.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>ENVIRONMENT DIVISION.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>INPUT-OUTPUT SECTION.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>FILE-CONTROL.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span> </span></span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>      </span>ASSIGN IN-FILE TO &#8216;A:CUSTOMER.DAT&#8217;</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>          </span>ORGANIZATION IS LINE SEQUENTIAL.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>      </span>ASSIGN PRINT-FILE TO PRINTER.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>      </span>:</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>DATA DIVISION.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>FILE SECTION.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>FD IN-FILE.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>01 CUSTOMER-DETAILS.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>      </span>03 CUS-NAME<span>      </span>PIC X(20).</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>      </span>03 CUS-NUM<span>       </span>PIC 9(6).</span></p>
<p style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>FD PRINT-FILE.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>01 PRINT-REC<span>         </span>PIC X(60).</span></p>
<p style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>WORKING-STORAGE SECTION.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>01 EOF-FLAG PIC X.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>      </span>88 END-OF-IN-FILE VALUE &#8216;Y&#8217;.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>01 P-CUS-DETAILS</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>      </span>03<span>               </span>PIC X(5) VALUE SPACES.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>      </span>03 P-NAME<span>        </span>PIC X(25).</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>      </span>03 P-NUM<span>         </span>PIC Z(5)9.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>      </span>:</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>PROCEDURE DIVISION.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>MAIN-PARAGRAPH.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>     </span>OPEN INPUT IN-FILE</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span> </span>*&#8221;Prime&#8221; read</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>     </span>READ IN-FILE</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>       </span>AT END MOVE &#8216;Y&#8217; TO EOF-FLAG</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>       </span>NOT AT END PERFORM PRINT-DETAILS</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>     </span>END-READ</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>     </span></span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span> </span>*Main reading loop</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>     </span>PERFORM UNTIL END-OF-IN-FILE</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>        </span>READ IN-FILE</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>           </span>AT END MOVE &#8216;Y&#8217; TO EOF-FLAG</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>           </span>NOT AT END PERFORM PRINT-DETAILS</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>        </span>END-READ</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>     </span>END-PERFORM</span></p>
<p style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>     </span>STOP RUN.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>  </span>PRINT-DETAILS.</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>     </span>MOVE CUS-NAME TO P-NAME</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>     </span>MOVE CUS-NUM TO P-NUM</span></p>
<p style="margin:0;"><span style="font-size:10pt;"><span>     </span>WRITE PRINT-REC FROM P-CUS-DETAILS AFTER 1 LINE.</span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;"> </span></span></p>
<ul type="disc">
<li class="MsoNormal"><span style="font-family:Arial;"><span style="font-size:small;">A record containing a customer name (CUS-NAME) and the customer number (CUS-NUM) are read from a file <em>customer.dat</em> assign to IN-FILE. </span></span></li>
<li class="MsoNormal"><span style="font-family:Arial;"><span style="font-size:small;">The file is opened for INPUT (i.e. read-only). </span></span></li>
<li class="MsoNormal"><span style="font-family:Arial;"><span style="font-size:small;">The &#8220;prime read&#8221; refered to in the comment is the initial read of IN-FILE that allows for the possibility that the file contains no records. </span></span></li>
<li class="MsoNormal"><span style="font-family:Arial;"><span style="font-size:small;">The AT END clause tests for the end of file condition. When true, a series of statements can then be executed. Likewise, the NOT AT END clause allows for a series of statements to be executed when this condition is true. In the above example, when the file contains no more records (i.e. is at the end of the file) &#8216;Y&#8217; is moved to EOF-FLAG, thereby making the condition name condition (END-OF-IN-FILE) true. When not at the end of the file, a record is read into memory and the paragraph PRINT-DETAILS is executed. </span></span></li>
<li class="MsoNormal"><span style="font-family:Arial;"><span style="font-size:small;">The statements between PERFORM UNTIL&#8230; and END-PERFORM are executed until the END-OF-IN-FILE condition is true (when the AT END of the read statement is true). </span></span></li>
</ul>
<p><span><span style="font-size:small;"><span style="font-family:Times New Roman;">If you want to place data from a record into an item in WORKING-STORAGE (in addition to the memory space already allocated to the same data defined in the data division &#8211; so not much call for it), then use <strong>READ &#8230; INTO</strong>. i.e:<strong></strong></span></span></span></p>
<pre><strong><span><span style="font-size:x-small;"><span>    </span>READ IN-FILE INTO W-RECORD-IN</span></span></strong></pre>
<p class="MsoNormal" style="margin:0;"><strong><span style="font-size:13.5pt;font-family:Arial;"> </span></strong></p>
<p class="MsoNormal" style="margin:0;"><strong><span style="font-size:13.5pt;font-family:Arial;">7.2 REWRITE, DELETE, and EXTEND</span></strong><span><span style="font-size:small;font-family:Times New Roman;"> </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">In order to ammend a record in a file, such as to update data (see </span><a href="http://cobol.404i.com/sam.html#LEA"><span style="font-size:small;color:#ff4600;font-family:Times New Roman;">League Table Program</span></a><span style="font-size:small;font-family:Times New Roman;"> in sample programs section), to delete a record altogther, or to add a record to the end of a file, you can use <strong>REWRITE</strong>, <strong>DELETE</strong> or <strong>EXTEND</strong>, respectively. However, to use REWRITE or DELETE you must open the file using I-O mode. Also, DELETE can only be used on files with RELATIVE or INDEXED organization (see  example below). </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">RELATIVE and INDEXED files are discussed in the following section (</span><a href="http://cobol.404i.com/fil-c.html"><span style="font-size:small;color:#ff4600;font-family:Times New Roman;">File Organization</span></a><span style="font-size:small;font-family:Times New Roman;">).<br />
  </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">The format of the DELETE statement is: </span></span></p>
<p><strong><span><span style="font-size:small;font-family:Times New Roman;">DELETE filename</span></span></strong><span><span style="font-size:small;font-family:Times New Roman;"><br />
<strong>     ON INVALID KEY </strong><br />
<strong>          {statements}</strong><br />
<strong>     NOT ON INVALID KEY</strong><br />
<strong>           {statements}</strong><br />
<strong>END-DELETE</strong><br />
  </span></span></p>
<p><strong><span><span style="font-size:small;font-family:Times New Roman;">ON INVALID KEY</span></span></strong><span><span style="font-size:small;font-family:Times New Roman;"> means the record was not found, so you might want to display an error message<br />
e.g. DISPLAY &#8216;RECORD NOT FOUND&#8217; </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">To REWRITE you can refer to the level 01 name to change the record with the ammended field: <br />
  </span></span></p>
<pre><span><span style="font-size:x-small;"> \FD IN-FILE</span></span>
<span><span style="font-size:x-small;"> 01 RECORD-IN.    </span></span>
<span><span style="font-size:x-small;">      03 IN-NAME    PIC X(20).</span></span>
<span><span style="font-size:x-small;">      03 IN-ADDRESS PIC X(60).</span></span>
<span><span style="font-size:x-small;"> </span></span>
<span><span style="font-size:x-small;"> PROCEDURE DIVISION.</span></span>
<span><span style="font-size:x-small;"> MAIN-PARAGRAPH.</span></span>
<span><span style="font-size:x-small;">       :</span></span>
<span><span style="font-size:x-small;"> </span></span>
<span><span style="font-size:x-small;">     OPEN I-O IN-FILE</span></span>
<span><span style="font-size:x-small;">       :</span></span>
<span><span style="font-size:x-small;"> </span></span>
<span><span style="font-size:x-small;">     READ IN-FILE</span></span>
<span><span style="font-size:x-small;">  </span></span>
<span><span style="font-size:x-small;">        IF IN-NAME = 'BILLY NOMATES' THEN </span></span>
<span><span style="font-size:x-small;">          MOVE 'JIMMY MOREPALS' TO IN-NAME</span></span>
<span><span style="font-size:x-small;">          <strong>REWRITE RECORD-IN</strong></span></span>
<span><span style="font-size:x-small;">        ELSE</span></span>
<span><span style="font-size:x-small;">          DISPLAY IN-NAME</span></span>
<span><span style="font-size:x-small;">        END-IF</span></span>
<span><span style="font-size:x-small;">       :</span></span>
<span><span style="font-size:x-small;"> </span></span></pre>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;"> <br />
  </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">To EXTEND you must open the file in EXTEND mode:  </span></span></p>
<pre><span><span style="font-size:x-small;">     OPEN EXTEND IN-FILE</span></span>
<span><span style="font-size:x-small;">       :</span></span>
<span><span style="font-size:x-small;"> </span></span>
<span><span style="font-size:x-small;">  </span></span>
<span><span style="font-size:x-small;">       DISPLAY 'Type in new name'</span></span>
<span><span style="font-size:x-small;">       ACCEPT NEW-NAME</span></span>
<span><span style="font-size:x-small;">       MOVE NEW-NAME TO IN-NAME</span></span>
<span><span style="font-size:x-small;">       EXTEND IN-FILE</span></span>
<span><span style="font-size:x-small;"> </span></span>
<span><span style="font-size:x-small;">       DISPLAY 'Type in new address'</span></span>
<span><span style="font-size:x-small;">       ACCEPT NEW-ADDRESS</span></span>
<span><span style="font-size:x-small;">       MOVE NEW-ADDRESS TO IN-ADDRESS</span></span>
<span><span style="font-size:x-small;">       EXTEND IN-FILE</span></span>
<span><span style="font-size:x-small;">       :</span></span></pre>
<p class="MsoNormal" style="margin:0;"><span style="font-size:small;"><span><span style="font-family:Times New Roman;">  </span></span><span style="font-family:Arial;">Here is a sample program that deletes a record from an INDEXED file using the DELETE statement, followed by deletion of a record that does not use the DELETE statement but writes the whole file (less the record to be deleted) to a temporary file. The program asks for a six digit code that identifies the record to be removed from the file. If you want to try this program then you&#8217;ll need to create a couple of test files: TESTDATA1.DAT and TESTDATA2.TXT. </span><span><span style="font-family:Times New Roman;"> </span></span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">TESTDATA1.DAT needs to be an indexed file. To create this you&#8217;ll need to compile and run the </span><a href="http://cobol.404i.com/sam.html#CIN"><span style="font-size:small;color:#ff4600;font-family:Times New Roman;">Create INDEXED file program</span></a><span style="font-size:small;font-family:Times New Roman;"> and </span><a href="http://cobol.404i.com/sam.html#RIN"><span style="font-size:small;color:#ff4600;font-family:Times New Roman;">Read INDEXED file program</span></a><span style="font-size:small;font-family:Times New Roman;"> (both in the Sample Code section). </span></span></p>
<p><span style="font-size:small;"><span><span style="font-family:Times New Roman;"> TESTDATA2.TXT should be LINE SEQUENTIAL and of the form: <span style="font-size:small;"><span><span style="font-family:Times New Roman;"> </p>
<p></span></span><span style="text-decoration:underline;"><span>CODE&#8211;SOME ENTRY OF 43 CHARACTERS</span></span></span></span></span><span style="text-decoration:underline;"><span>CODE&#8211;SOME ENTRY OF 43 CHARACTERS</span></span></p>
<p></span></p>
<p><span style="font-size:small;"><span><span style="font-family:Times New Roman;"><br />
</span></span><span>123456abc&#8212;&#8212;&#8212;-**********&#8212;&#8212;&#8212;-**********</span></span><span style="font-size:small;"><span><span style="font-family:Times New Roman;"><br />
</span></span><span>:</span></span><span style="font-size:small;"><span><span style="font-family:Times New Roman;"><br />
</span></span><span>:</span><span><span style="font-family:Times New Roman;"> </span></span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000010 IDENTIFICATION DIVISION.<span>       </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000020 PROGRAM-ID.<span>  </span>DELETION-EXAMPLE.<span>        </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000030 AUTHOR. TIM-R-P-BROWN.<span>         </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000040* Program that deletes a record from a<span>               </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000050* file where the specified record ID code is entered </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000060* by the user. 2 differing methods are used.<span>         </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000070<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000080 ENVIRONMENT DIVISION.<span>          </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000090<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000100 INPUT-OUTPUT SECTION.<span>          </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000110 FILE-CONTROL.<span>                  </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000120<span>                      </span><span>          </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000130<span>       </span>SELECT IN-FILE-1 ASSIGN TO &#8216;TESTDATA1.DAT&#8217;<span>    </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000140<span>         </span>ORGANIZATION IS INDEXED<span>                     </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000150<span>         </span>ACCESS MODE IS DYNAMIC </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000160<span>         </span>RECORD KEY IS RECORD-CODE-1.<span>                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000170<span>       </span>SELECT IN-FILE-2 ASSIGN TO &#8216;TESTDATA2.TXT&#8217;<span>    </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000180<span>         </span>ORGANIZATION IS LINE SEQUENTIAL.<span>            </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000190<span>       </span>SELECT TEMP-FILE ASSIGN TO &#8216;TEMP.TXT&#8217;<span>         </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000200<span>         </span>ORGANIZATION IS LINE SEQUENTIAL.<span>            </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000210<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000220 DATA DIVISION.<span>                 </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000230 FILE SECTION.<span>                  </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000240<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000250 FD IN-FILE-1.<span>                  </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000260 01 RECORD-1.<span>                   </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000270<span>      </span>03 RECORD-CODE-1<span>    </span>PIC X(6).<span>                  </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000280<span>      </span>03 RECORD-DETAILS-1 PIC X(43).<span>                 </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000290<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000300 FD IN-FILE-2.<span>                  </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000310 01 RECORD-2.<span>                   </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000320<span>      </span>03 RECORD-CODE-2<span>    </span>PIC X(6).<span>                  </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000330<span>      </span>03 RECORD-DETAILS-2 PIC X(43).<span>                 </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000340<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000350 FD TEMP-FILE.<span>                  </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000360 01 TEMP-RECORD.<span>                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000370<span>      </span>03 TEMP-CODE<span>        </span>PIC X(6).<span>                  </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000380<span>      </span>03 TEMP-DETAILS<span>     </span>PIC X(43).<span>                 </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000390<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000400<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000410<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000420 WORKING-STORAGE SECTION.<span>       </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000430<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000440 01 END-OF-FILE-FLAG PIC X VALUE &#8216;N&#8217;.<span>                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000450<span>      </span>88 EOF<span>  </span>VALUE &#8216;Y&#8217;.<span>        </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000460<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000470 01 REC-DELETE-FLAG<span>  </span>PIC X VALUE &#8216;N&#8217;.<span>                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000480<span>      </span>88 RECORD-DELETED VALUE &#8216;Y&#8217;.<span>                   </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000490<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000500 01 DEL-CODE<span>  </span>PIC X(6) VALUE SPACES.<span>                 </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000510<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000520<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000530<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000540 PROCEDURE DIVISION.<span>            </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000550<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000560 MAIN-PARAGRAPH.<span>                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000570<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000580<span>     </span>PERFORM FIRST-METHOD<span>       </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000590<span>     </span>MOVE &#8216;Y&#8217; TO END-OF-FILE-FLAG<span>                    </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000600<span>     </span>PERFORM SECOND-METHOD<span>      </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000610<span>     </span>STOP RUN.<span>                  </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000620<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000630***********************************************************</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000640<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000650 FIRST-METHOD.<span>                  </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000660* Paragraph that uses the DELETE to remove a record<span>  </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000670<span>           </span><span>                     </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000680<span>      </span>DISPLAY &#8216;Enter 6 digit code of record to be deleted&#8217;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000690<span>      </span>ACCEPT RECORD-CODE-1<span>      </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000700<span>      </span>OPEN I-O IN-FILE-1<span>        </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000710<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000720<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000730<span>       </span><span>  </span>DELETE IN-FILE-1<span>       </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000740<span>           </span>INVALID KEY DISPLAY &#8216;RECORD NOT FOUND&#8217;<span>    </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000750<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000760<span>         </span>END-DELETE<span>             </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000770<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000780<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000790<span>      </span>CLOSE IN-FILE-1.<span>          </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000800<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000810*********************************************************** </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000820<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000830 SECOND-METHOD.<span>                 </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000840* Paragraph that writes to a temporary file without<span>  </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000850* including the record to be deleted<span>                 </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000860<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000870<span>      </span>DISPLAY &#8216;Enter 6 digit code of record to be deleted&#8217; </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000880<span>      </span>ACCEPT DEL-CODE<span>           </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000890<span>      </span>OPEN INPUT IN-FILE-2<span>      </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000900<span>           </span>OUTPUT TEMP-FILE<span>     </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000910<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000920<span>      </span>MOVE &#8216;N&#8217; TO REC-DELETE-FLAG<span>                    </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000930<span>      </span>MOVE &#8216;N&#8217; TO END-OF-FILE-FLAG<span>                   </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000940<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000950*&#8212;-first write all records (except the selected one) to </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000960*&#8212;-the temporary file<span>         </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000970<span>      </span>PERFORM UNTIL EOF<span>         </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000980<span>         </span>READ IN-FILE-2<span>         </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">000990<span>           </span>AT END SET EOF TO TRUE<span>                    </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001000<span>           </span>NOT AT END<span>      </span><span>     </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001010<span>              </span>IF RECORD-CODE-2 = DEL-CODE THEN<span>       </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001020<span>                   </span>SET RECORD-DELETED TO TRUE<span>        </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001030<span>              </span>ELSE<span>              </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001040<span>                   </span>WRITE TEMP-RECORD FROM RECORD-2<span>   </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001050<span>              </span>END-IF<span>     </span><span>       </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001060<span>         </span>END-READ<span>               </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001070<span>      </span>END-PERFORM<span>               </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001080<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001090<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001100<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001110<span>      </span>IF NOT RECORD-DELETED THEN<span>               </span><span>      </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001120<span>         </span>DISPLAY &#8216;Record not found&#8217;<span>                  </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001130<span>      </span>END-IF<span>                    </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001140<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001150<span>      </span>CLOSE IN-FILE-2 TEMP-FILE </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001160<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001170<span>      </span>MOVE &#8216;N&#8217; TO END-OF-FILE-FLAG<span>                   </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001180<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001190*&#8212;-now read all records from temp-file to a new &#8216;TESTDATA-2.TXT&#8217;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001200*&#8212;-This is virtually the same as just renaming the temporary file</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001210*&#8212;-when you think about it, just done the COBOL way!<span>   </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001220<span>      </span>OPEN INPUT TEMP-FILE<span>      </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001230<span>           </span>OUTPUT IN-FILE-2<span>     </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001240*&#8212;&#8212;&#8212;the original &#8216;TESTDATA-2.TXT&#8217; will be overwritten&#8212;&#8211;*</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001250<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001260<span>      </span>PERFORM UNTIL EOF<span>         </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001270 <span>        </span>READ TEMP-FILE<span>         </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001280<span>           </span>AT END SET EOF TO TRUE<span>                    </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001290<span>           </span>NOT AT END<span>           </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001300<span>              </span>WRITE RECORD-2 FROM TEMP-RECORD<span>        </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001310<span>         </span>END-READ<span>               </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001320<span>      </span>END-PERFORM<span>   </span><span>            </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001330<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001340<span>      </span>CLOSE TEMP-FILE IN-FILE-2.<span>                     </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001350<span>                                </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001360*********************************************************** </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">001370*********************************************************** </span></p>
<p class="MsoNormal" style="margin:0;"><span><span><span style="font-size:small;font-family:Times New Roman;">   </span></span></span></p>
<p class="MsoNormal" style="margin:0;"><a name="ORG"><strong><span style="font-size:13.5pt;font-family:Arial;">7.3 File Organization </span></strong></a></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">There are at least four ways in which the records on a file may be organised: SEQUENTIAL, LINE SEQUENTIAL, RELATIVE, AND INDEXED. When a file contains several records (hundreds or even thousands) if you only wanted to access one or two of them, it would waste processor time having to search an entire file in order to read them if stored in sequential or line sequential formats. Hence, relative and indexed files are of particular advantage. </span><a name="RELA"><span style="font-size:small;font-family:Times New Roman;"> </span></a><span style="font-size:small;font-family:Times New Roman;"> </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">       <em>Relative files</em> </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">These files are organised so that a record can be accessed by referring to its position within the file, i.e. relative to other records. This is acheived by calculating the size (in characters, defined in the FD description) of each record and multiplying it by the required nth record&#8230;.eh?? you ask. Consider the following program: </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">IDENTIFICATION DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>PROGRAM-ID.<span>      </span>RELATIVE-EXAMPLE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>AUTHOR<span>           </span>TRP BROWN.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>ENVIRONMENT DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>INPUT-OUTPUT SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>FILE-CONTROL.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>   </span><span>   </span>ASSIGN IN-FILE TO &#8216;A:CUSTOMER.DAT&#8217;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>          </span>ORGANIZATION IS RELATIVE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>          </span>ACCESS MODE IS DYNAMIC</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>          </span>RELATIVE KEY IS ENTER-NUM.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>      </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>DATA DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>FILE SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>FD IN-FILE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>01 CUSTOMER-DETAILS.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>      </span>03 CUS-NAME<span>      </span>PIC X(20).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>      </span>03 CUS-CODE<span>      </span>PIC X(6).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>WORKING-STORAGE SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>01 ENTER-NUM<span>         </span>PIC 9(4).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>PROCEDURE DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>MAIN-PARAGRAPH.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>OPEN INPUT IN-FILE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>DISPLAY &#8216;ENTER CUSTOMER NUMBER&#8217;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>ACCEPT ENTER-NUM</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>READ IN-FILE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>        </span>INVALID KEY DISPLAY &#8216;RECORD NOT FOUND&#8217;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>        </span>NOT INVALID KEY</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>           </span>DISPLAY &#8216;CUSTOMER NAME: &#8216; CUS-NAME</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>           </span>DISPLAY &#8216;CODE:<span>          </span>&#8216; CUS-CODE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>END-READ</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>CLOSE IN-FILE<span>     </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>STOP RUN.</span></p>
<ul type="disc">
<li class="MsoNormal"><span style="font-family:Arial;"><span style="font-size:small;">In the environment division, the assign clause contains a number of extra words. The organization is RELATIVE. This is followed by <strong>ACCESS MODE IS DYNAMIC</strong>. This means that the file can be read sequentially or RANDOMLY, i.e. direct access whereby the computer can calculate where to look for the required record. You alternatively use <strong>ACCESS MODE IS RANDOM</strong> but this doesn&#8217;t allow for a sequential access option (so what&#8217;s the point using it&#8230;?). </span></span></li>
<li class="MsoNormal"><span style="font-family:Arial;"><span style="font-size:small;">The next line <strong>RELATIVE KEY IS ENTER-NUM</strong> refers to this item defined in working storage that will contain the record number required. When the number is entered into the keyboard (ACCEPT ENTER-NUM), the computer will multiply this number (minus 1) by the size of the record (CUSTOMER-DETAILS containing 26 characters):<br />
e.g.<br />
   (102-1) * 26 = 2626 characters into the file will be immediately followed by the 102nd record.</span></span></li>
<li class="MsoNormal"><span style="font-family:Arial;"><span style="font-size:small;">The read statement, rather than using AT END and NOT AT END, uses <strong>INVALID KEY</strong> and <strong>NOT INVALID KEY</strong>. Here these depend on whether the file has been found or not. </span></span></li>
<li class="MsoNormal"><span style="font-family:Arial;"><span style="font-size:small;">The PIC size of ENTER-NUM is 9(4), which limits the file to 9,999 records but you could increase this if you wanted. </span></span></li>
<li class="MsoNormal"><span style="font-family:Arial;"><span style="font-size:small;">It should be noted that you are not allowed to use an item defined in the FD as a relative key. </span></span></li>
</ul>
<p class="MsoNormal" style="margin:0;"><a name="INDE"><span style="font-family:Arial;"><span style="font-size:small;"> </span></span></a><span style="font-family:Arial;"><span style="font-size:small;"> </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">       <em>Indexed files</em> </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">An indexed file contains records that, unlike relative files, do not require the key to be numeric. Look at the following code (similar to the above code): </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;">IDENTIFICATION DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>PROGRAM-ID.<span>      </span>INDEXED-EXAMPLE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>AUTHOR<span>           </span>TRP BROWN.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>ENVIRONMENT DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>INPUT-OUTPUT SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>FILE-CONTROL.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>      </span>ASSIGN IN-FILE TO &#8216;A:CUSTOMER.DAT&#8217;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>          </span>ORGANIZATION IS INDEXED</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>          </span>ACCESS MODE IS DYNAMIC</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>          </span>RECORD KEY IS CUS-CODE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>      </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>DATA DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>FILE SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>FD IN-FILE.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>01 CUSTOMER-DETAILS.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>      </span>03 CUS-CODE<span>      </span>PIC X(6).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>      </span>03 CUS-NAME<span>      </span>PIC X(20).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>WORKING-STORAGE SECTION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>01 ENTER-NUM<span>         </span>PIC 9(4).</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>PROCEDURE DIVISION.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>  </span>MAIN-PARAGRAPH.</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>OPEN INPUT IN-FILE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>DISPLAY &#8216;ENTER CUSTOMER NUMBER&#8217;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>ACCEPT ENTER-NUM</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>READ IN-FILE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>        </span>INVALID KEY DISPLAY &#8216;RECORD NOT FOUND&#8217;</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>        </span>NOT INVALID KEY</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>           </span>DISPLAY &#8216;CUSTOMER NAME: &#8216; CUS-NAME</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>           </span>DISPLAY &#8216;CODE:<span>          </span>&#8216; CUS-CODE</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>END-READ</span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"> </span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>CLOSE IN-FILE<span>     </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-size:10pt;"><span>     </span>STOP RUN.</span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Arial;"><span style="font-size:small;">The main differences between this example and the relative file example are that (1) the term RECORD KEY is used, rather than RELATIVE KEY; (2) any field can be used from the record. However, the field must be unique otherwise a <em>duplicate key</em> error would occur. Rather than directly access the file, as in relative file access, the computer searches a separate index file that contains pointers to the position of the actual record on the indexed (data) file. The field in the index, whether numeric or alphanumeric, must be in strict ascending order (ASCII characters are ordered according to their ASCII value, e.g. A &lt; B etc&#8230;). </span></span></p>
<p class="MsoNormal" style="margin:0;"><a name="STAR"><span style="font-family:Arial;"><span style="font-size:small;"> </span></span></a><span style="font-family:Arial;"><span style="font-size:small;"> </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">In order to read the indexed file sequentially, but in ascending order on the key field, the verb <strong>START</strong> is used. For the above example: </span></span></p>
<pre><span>

<strong></strong></span>
<strong><span><span style="font-size:x-small;"><span>    </span>OPEN INPUT IN-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>    </span>START IN-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>    </span>KEY GREATER THAN 'D23301'</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>      </span>INVALID KEY </span></span></strong>
<strong><span><span style="font-size:x-small;"><span>         </span>DISPLAY 'NO MORE RECORDS BEYOND THIS POINT'</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>      </span>NOT INVALID KEY</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>         </span>....statements to process rest of file e.g. READ within a loop</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>    </span>END-START</span></span></strong></pre>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Arial;"><span style="font-size:small;"> </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">To differentiate between a sequential READ and a random READ when using DYNAMIC access mode, you would use the statements READ (with INVALID KEY) for random read, and <strong>READ&#8230;NEXT</strong> for sequential read (with AT END) e.g. : </span></span></p>
<pre><span>

<strong></strong></span>
<strong><span><span style="font-size:x-small;"><span>   </span>*Random read</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>MOVE 'E11323' TO CODE-NUM</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>READ IN-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>           </span>INVALID KEY DISPLAY 'CODE NOT FOUND'</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>END-READ</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>   </span>*Sequential read</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>READ IN-FILE NEXT</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>           </span>AT END MOVE 'Y' TO EOF-FLAG</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>END-READ</span></span></strong></pre>
<p class="MsoNormal" style="margin:0;"><span><span><span style="font-size:small;font-family:Times New Roman;">                     </span></span></span></p>
<p class="MsoNormal" style="margin:0;"><a name="SOR"><strong><span style="font-size:13.5pt;font-family:Arial;">7.4 SORT and MERGE </span></strong></a></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">If you wished to take a file of unordered records and produce a new file of these records sorted into ascending or descending order of a field you would use <strong>SORT</strong>. The </span><a href="http://cobol.404i.com/sam.html#LEA"><span style="font-size:small;color:#ff4600;font-family:Times New Roman;">League table program</span></a><span style="font-size:small;font-family:Times New Roman;"> in the Sample code section uses this utility to generate a league table from updated records from a data file, sorted principally by descending points. </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">Consider this segment of code from this program: </span></span></p>
<pre><span>

<strong></strong></span>
<span><span style="font-size:x-small;">000050 ENVIRONMENT DIVISION.<span>                                       </span></span></span>
<span><span style="font-size:x-small;">000060 INPUT-OUTPUT SECTION.<span>                                       </span></span></span>
<span><span style="font-size:x-small;">000070 FILE-CONTROL.<span>                                               </span></span></span>
<span><span style="font-size:x-small;">000080<span>     </span>SELECT TEAM-REC-IN ASSIGN TO "INPUT.REC"<span>                </span></span></span>
<span><span style="font-size:x-small;">000090<span>     </span>ORGANIZATION IS SEQUENTIAL.<span>                             </span></span></span>
<span><span style="font-size:x-small;">000100<span>     </span>SELECT WORK-FILE ASSIGN TO SORTWK01.<span>              </span><span>      </span></span></span>
<span><span style="font-size:x-small;">000110<span>     </span>SELECT SORT-OUT ASSIGN TO "SORTED.REC"<span>                  </span></span></span>
<span><span style="font-size:x-small;">000120<span>     </span>ORGANIZATION IS SEQUENTIAL.<span>                             </span></span></span>
<span><span style="font-size:x-small;">000130<span>     </span>SELECT PRINT-FILE ASSIGN TO "PRINTOUT.TXT".<span>             </span></span></span>
<span><span style="font-size:x-small;">000140<span>                                       </span><span>                      </span></span></span>
<span><span style="font-size:x-small;">000150<span>                                                             </span></span></span>
<span><span style="font-size:x-small;">000160 DATA DIVISION.<span>                                              </span></span></span>
<span><span style="font-size:x-small;">000170 FILE SECTION.<span>                                               </span></span></span>
<span><span style="font-size:x-small;">000180 FD TEAM-REC-IN.<span>       </span><span>                                      </span></span></span>
<span><span style="font-size:x-small;">000190 01 TEAM-REC.<span>                                                </span></span></span>
<span><span style="font-size:x-small;">000200<span>     </span>03<span>  </span>TEAM-CODE<span>   </span>PIC XXX.<span>                                </span></span></span>
<span><span style="font-size:x-small;">000210<span>     </span>03<span>  </span>TEAM-NAME<span>   </span>PIC X(20).<span>                              </span></span></span>
<span><span style="font-size:x-small;">000220<span>     </span>03<span>  </span>PLAYED<span>  </span>PIC 99.<span>                                     </span></span></span>
<span><span style="font-size:x-small;">000230<span>     </span>03<span>  </span>GOALS-FOR<span>   </span>PIC 99.<span>                                 </span></span></span>
<span><span style="font-size:x-small;">000240<span>     </span>03<span>  </span>GOALS-AGST<span>  </span>PIC 99.<span>                                 </span></span></span>
<span><span style="font-size:x-small;">000250<span>     </span>03<span>  </span>G-WON<span>   </span>PIC 99.<span>                                   </span><span>  </span></span></span>
<span><span style="font-size:x-small;">000260<span>     </span>03<span>  </span>G-LOST<span>  </span>PIC 99.<span>                                     </span></span></span>
<span><span style="font-size:x-small;">000270<span>     </span>03<span>  </span>G-DRAWN PIC 99.<span>                                     </span></span></span>
<span><span style="font-size:x-small;">000280<span>     </span>03<span>  </span>GOAL-DIFF<span>   </span>PIC S99 SIGN LEADING SEPARATE.<span>          </span></span></span>
<span><span style="font-size:x-small;">000290<span>     </span>03<span>  </span>POINTS<span>  </span>PIC 99.<span>                   </span><span>                  </span></span></span>
<span><span style="font-size:x-small;">000300<span>                                                             </span></span></span>
<span><span style="font-size:x-small;">000310 SD WORK-FILE.<span>                                               </span></span></span>
<span><span style="font-size:x-small;">000320 01 WORK-REC.<span>                                                </span></span></span>
<span><span style="font-size:x-small;">000330<span>     </span>03<span>  </span>TEAM-CODE-KEY PIC XXX.<span>                              </span></span></span>
<span><span style="font-size:x-small;">000340<span>     </span>03<span>                </span>PIC X(22).<span>                            </span></span></span>
<span><span style="font-size:x-small;">000350<span>     </span>03<span>  </span>GF-KEY<span>        </span>PIC 99.<span>                               </span></span></span>
<span><span style="font-size:x-small;">000360<span>     </span>03<span>                </span>PIC X(8).<span>                             </span></span></span>
<span><span style="font-size:x-small;">000370<span>     </span>03<span>  </span>GD-KEY<span>        </span>PIC S99<span>  </span>SIGN LEADING SEPARATE.<span>       </span></span></span>
<span><span style="font-size:x-small;">000380<span>     </span>03<span>  </span>POINTS-KEY<span>    </span>PIC 99.<span>                               </span></span></span>
<span><span style="font-size:x-small;">000390<strong><span>                                           </span></strong></span></span></pre>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Arial;"><span style="font-size:small;"> </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">In addition to the FD for the TEAM-REC-IN (the main data file) there is also a WORK-FILE that the computer uses for sorting. Here it is assigned to SORTWK01, required for the Fujitsu COBOL compiler, but for MicroFocus you might code ASSIGN TO DISK or even ASSIGN TO &#8220;B:TEMPFILE&#8221;. </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">The WORK-FILE does not have a FD descriptor, but rather, has a sort descriptor <strong>SD</strong>. </span></span></p>
<pre><span>

<strong></strong></span>
<strong><span><span style="font-size:x-small;">003310 SORT-TABLE.<span>                                                 </span></span></span></strong>
<strong><span><span style="font-size:x-small;">003320<span>     </span>SORT WORK-FILE<span>                                          </span></span></span></strong>
<strong><span><span style="font-size:x-small;">003330<span>         </span>ON DESCENDING KEY POINTS-KEY GD-KEY GF-KEY<span>          </span></span></span></strong>
<strong><span><span style="font-size:x-small;">003340<span>         </span>USING TEAM-REC-IN<span>                                   </span></span></span></strong>
<strong><span><span style="font-size:x-small;">003350<span>         </span>GIVING SORT-OUT.<span>    </span></span></span></strong></pre>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Arial;"><span style="font-size:small;"> </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">The SORT-TABLE paragraph then sorts the data file TEAM-REC-IN as shown above. Note that the SORT verb is followed by WORK-FILE and that TEAM-REC-IN is refered to with USING&#8230; </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">Since it is common for two teams to have the same number of points then, the DESCENDING KEY first attempts to sort by points (POINTS-KEY) but if these match then they are than sorted by goal difference (GD-KEY) and then by goals scored (GF-KEY). If these all match then the teams will be placed as the appear from the data file (for TEAM-REC-IN I placed them in alphabetical order). </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">SORT-OUT is the destination of the sorted data where the new league table would appear.</span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">Note, a file that is to be sorted if already open, must be closed prior to sorting. THE SORT STATEMENT WILL AUTOMATICALLY OPEN THE UNSORTED FILE WHEN EXECUTED.</span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Arial;"><br />
<a name="MERG"><span style="font-size:small;"> </span></a><span style="font-size:small;"> </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">       <em>Merge</em> </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">To merge two sorted files into a single sorted file, the <strong>MERGE</strong> statement is used: </span></span></p>
<pre><span>

<strong></strong></span>
<strong><span><span style="font-size:x-small;"><span>     </span>MERGE WORK-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>ON ASCENDING KEY CUS-CODE-KEY </span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>USING FILE-A</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>              </span>FILE-B</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>GIVING MERGED-FILE</span></span></strong></pre>
<p><span><span style="font-size:small;font-family:Times New Roman;">You can merge more than 2 files if you wish. An <strong>SD</strong> would be required as used with a SORT. </span></span></p>
<p class="MsoNormal" style="margin:0;"><a name="INP"><strong><span style="font-size:13.5pt;font-family:Arial;">7.5 INPUT and OUTPUT PROCEDURE </span></strong></a></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">The SORT statement above sorted all the records in the file into a new file. But if you wanted to produce a sorted file that only contained, for example, product numbers which begin with a &#8217;1&#8242;, you would use an <strong>INPUT PROCEDURE</strong>. </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">The record FD might be: </span></span></p>
<pre><span>

<strong></strong></span>
<strong><span><span style="font-size:x-small;"><span>   </span>FD UNSORTED-FILE.</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>   </span>01 UNSORTED-RECORD.</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>03 1ST-DIGIT-OF-CODE<span>  </span>PIC 9.</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>03<span>                    </span>PIC X(20).</span></span></strong></pre>
<p><span><span style="font-size:small;font-family:Times New Roman;">The description gives the minimum detail required. Now some procedure division: </span></span></p>
<pre><span>

<strong></strong></span>
<strong><span><span style="font-size:x-small;"><span>   </span>PROCEDURE DIVISION.</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>   </span>SORT-SELECT.</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>SORT WORK-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>            </span>ON DESCENDING KEY PRODUCT-NO</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>            </span>INPUT PROCEDURE SELECT-PROD-CODE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>            </span>GIVING SORTED-CODES-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>STOP RUN.</span></span></strong></pre>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Arial;"><span style="font-size:small;">The INPUT PROCEDURE clause acts like a PERFORM, indicating the logic to go to a different paragraph (i.e. procedure). </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">So the paragraph SELECT-PROD-CODE might be like this: </span></span></p>
<pre><span>

<strong></strong></span>
<strong><span><span style="font-size:x-small;"><span>     </span>SELECT-PROD-CODE.</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>         </span>OPEN INPUT UNSORTED-DATA-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>         </span>PERFORM UNTIL END-OF-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>           </span>READ UNSORTED-DATA-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>             </span>AT END MOVE 'Y' TO EOF-FLAG</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>             </span>NOT AT END</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>               </span>IF 1ST-DIGIT-OF-CODE = 1 THEN</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>                 </span>MOVE UNSORTED-RECORD TO WORK-REC</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>                 </span>RELEASE WORK-REC</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>               </span>END-IF</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>           </span>END-READ</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>         </span>END-PERFORM</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>         </span>CLOSE UNSORTED-DATA-FILE</span></span></strong></pre>
<p><span><span style="font-size:small;font-family:Times New Roman;">When the if condition is true, the record is moved to the work-file (WORK-REC is the level 01 name) by the RELEASE verb, even though the MOVE verb appears first (I dunno why..!). Unlike a simple SORT, you DO have to OPEN the unsorted file prior to an input procedure.<span><span style="font-size:small;font-family:Times New Roman;"> </p>
<p></span><a name="OUTP"><span style="font-size:small;font-family:Times New Roman;"> </span></a><span style="font-size:small;font-family:Times New Roman;"> </span></span></span></span></p>
<p><a name="OUTP"><span style="font-size:small;font-family:Times New Roman;"> </span></a><span style="font-size:small;font-family:Times New Roman;"> </span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">  <em>OUTPUT PROCEDURE</em> </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">If you just want to print specific sorted fields you would use an <strong>OUTPUT PROCEDURE</strong>. Based on the above example:</span></span></p>
<pre><span>

<strong></strong></span>
<strong><span><span style="font-size:x-small;"><span>   </span>PROCEDURE DIVISION.</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>   </span>PRINT-SORT-REC.</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>SORT WORK-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>            </span>ON DESCENDING KEY PRODUCT-NO</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>            </span>USING UNSORTED-RECORD</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>            </span>OUTPUT PROCEDURE PRINT-SELECT-PROD-CODE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>        </span>STOP RUN.</span></span></strong>
<strong><span><span style="font-size:x-small;"> </span></span></strong></pre>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Arial;"><span style="font-size:small;">The INPUT PROCEDURE clause acts like a PERFORM, indicating the logic to go to a different paragraph (i.e. procedure). </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">So the paragraph SELECT-PROD-CODE might be like this: </span></span></p>
<pre><span>

<strong></strong></span>
<strong><span><span style="font-size:x-small;"><span>     </span>SELECT-PROD-CODE.</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>      </span><span>   </span>OPEN OUTPUT PRINT-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>         </span>PERFORM UNTIL END-OF-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>           </span>RETURN UNSORTED-DATA-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>             </span>AT END MOVE 'Y' TO EOF-FLAG</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>             </span>NOT AT END</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>               </span>{move fields in SD sort group to print fields}...</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>               </span>WRITE PRINT-RECORD FROM {print group}</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>           </span>END-RETURN</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>         </span>END-PERFORM</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>         </span>CLOSE PRINT-FILE.</span></span></strong></pre>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Arial;"><span style="font-family:Arial;"><span style="font-size:small;">Instead of READ you use RETURN and then WRITE the record to the printer rather than RELEASE the record to a file. </span></p>
<p></span></span></p>
<p> </p>
<p><span><span style="font-size:small;font-family:Times New Roman;">You can combine INPUT and OUTPUT procedures into the same sort statement by replacing both the USING and GIVING statements:</span></span></p>
<pre><span>

<strong></strong></span>
<strong><span><span style="font-size:x-small;"><span>       </span>SORT WORK-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>          </span>ON DESCENDING KEY PRODUCT-NO</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>          </span>INPUT PROCEDURE SELECT-PROD-CODE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>          </span>OUTPUT PROCEDURE PRINT-SELECT-PROD-CODE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>       </span>STOP RUN.</span></span></strong>
<strong><span><span style="font-size:x-small;"> </span></span></strong></pre>
<p class="MsoNormal" style="margin:0;"><a name="STAT"><strong><span style="font-size:13.5pt;font-family:Arial;">7.6 FILE STATUS (error handling) </span></strong></a></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">A number of errors can occur that result from file input/output that programmer may wish to be able to deal with in order to avoid unexpected program termination. </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">Run time errors can arise quite easily from a file not being available to open, or if present the data is corrupted. Furthermore, what if there is no more disk space available or not enough space has been allocated to allow for addtition of new data. Other errors, such as attempting to close a file that isn&#8217;t open, or to read a file opened for output only, may well derive from logical errors (that is, programming mistakes) but can be dealt with nonetheless when debugging. These kinds of errors will normally result in termination of the program run, whereas using File Status can allow the programmer to deal with any such problems without the program run stopping and returning to the operating system. </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">File Status Codes are made of two digits, the first indicates one one of 5 classes: </span></span></p>
<div>
<table class="MsoNormalTable" style="width:0;" border="0" cellspacing="0" cellpadding="0" width="0">
<tbody>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:3.75pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">0 </span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:3.75pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Input/output operation successful </span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:3.75pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">1 </span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:3.75pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">File &#8220;at end&#8221; condition </span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:3.75pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">2 </span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:3.75pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Invalid key </span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:3.75pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">3 </span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:3.75pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Permanent I/O error</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:3.75pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">4 </span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:3.75pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Logic error </span></span></p>
</td>
</tr>
</tbody>
</table>
</div>
<p><span><span style="font-size:small;font-family:Times New Roman;">The second digit refers to the particular case within the class. Here are examples common to both Microfocus and Fujitsu compilers (although there are more besides). I would check your compiler documentation. </span></span></p>
<div>
<table class="MsoNormalTable" style="width:0;" border="0" cellspacing="0" cellpadding="0" width="0">
<tbody>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="text-align:center;margin:0;" align="center"><strong><span><span style="font-size:small;"><span style="font-family:Times New Roman;">Code</span></span></span></strong></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="text-align:center;margin:0;" align="center"><strong><span><span style="font-size:small;"><span style="font-family:Times New Roman;">Meaning</span></span></span></strong></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">00</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Input/output operation successful</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">02</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Duplicate record key found (READ ok)</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">04</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Length of record too large (READ ok)</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">10</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">File AT END</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">14</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">&#8220;The valid digits of a read relative record<br />
number are greater than the size of the relative<br />
key item of the file.&#8221; </span><em><span style="font-size:small;font-family:Times New Roman;">from Fujitsu manual -<br />
I&#8217;m not sure I what that means!</span></em></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">16</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">Program tries to read file already AT END<br />
<em>note: Fujitsu compiler returns code &#8220;46&#8243; in this case</em></span></span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">22</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Program attempts to write a record<br />
with a key that already exists</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">23</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Record not found</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">24</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Program attempts to write record to a disk that is full</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">30</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Input/output operation unsuccessful,<br />
no further information available</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">34</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Program attempts to write record to a disk that is full</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">35</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Program tries to open non-existant file<br />
for INPUT, I-O or EXTEND</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">37</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Program tries to open line sequential file in I-O mode</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">41</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Program tries to open file that is already open</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">42</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Program tries to close file that is not open</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">43</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Program tries to delete or rewrite a record<br />
that has not been read</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">44</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Program tries to write or rewrite a record of incorrect length</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">46</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Program tries to read a record where the previous read or<br />
START has failed or the AT END condition has occurred</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">47</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Program tries to read a record from a file opened<br />
in the incorrect mode</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">48</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Program tries to write a record from a file opened<br />
in the incorrect mode</span></span></p>
</td>
</tr>
<tr>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">49</span></span></p>
</td>
<td style="background-color:transparent;border:#ece9d8 1pt inset;padding:7.5pt;">
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;">Program tries to delete or rewrite a record from a file opened<br />
in the incorrect mode</span></span></p>
</td>
</tr>
</tbody>
</table>
</div>
<p style="margin-bottom:12pt;"><span style="font-size:small;"><span style="font-family:Times New Roman;"><span>To use these codes you need to include the FILE STATUS clause in the SELECT statement of the environment division:</span><strong></strong></span></span></p>
<pre><strong><span><span style="font-size:x-small;"><span>     </span>SELECT TEST-FILE ASSIGN TO 'TEST-DATA.DAT'</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>       </span>ORGANIZATION IS SEQUENTIAL</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>       </span>FILE STATUS IS W-STATUS.</span></span></strong></pre>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Arial;"><br />
<span style="font-size:small;">Of course W-STATUS could any user name you like. It <em><span style="font-family:Arial;">must</span></em> however be defined in working storage as <strong>PIC XX</strong>, i.e. as alpha numeric and not numeric. So, if during a program run a certain input/output error occurs, rather than the program terminate, the program will simply produce an error status.<br />
You might code: </span></span><strong></strong></p>
<pre><strong><span><span style="font-size:x-small;">* Here a possible danger of too big a record being moved into W-RECORD</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>     </span>READ RECORD-IN INTO W-RECORD</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>       </span>IF W-STATUS = "04" THEN</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>          </span>DISPLAY "Over-sized record has been read"</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>          </span>SET REC-XS-FLAG TO TRUE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>       </span>END-IF</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>     </span></span></span></strong></pre>
<p class="MsoNormal" style="margin:0 0 12pt;"><span style="font-family:Arial;"><br />
<span style="font-size:small;">Another example might be, when reading from an indexed file:</span></span><strong></strong></p>
<pre><strong><span><span style="font-size:x-small;"><span>     </span>READ IN-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>       </span>IF W-STATUS = "23" THEN</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>          </span>DISPLAY "Record not found"</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>       </span>ELSE PERFORM MAIN-PROCESS</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>     </span></span></span></strong></pre>
<p class="MsoNormal" style="margin:0 0 12pt;"><span style="font-family:Arial;"><br />
<span style="font-size:small;">You could have easily have written:</span></span><strong></strong></p>
<pre><strong><span><span style="font-size:x-small;"><span>     </span>READ IN-FILE</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>       </span>INVALID KEY</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>          </span>DISPLAY "Record not found"</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>       </span>NOT INVALID KEY PERFORM MAIN-PROCESS</span></span></strong>
<strong><span><span style="font-size:x-small;"><span>     </span>END-READ</span></span></strong></pre>
<p class="MsoNormal" style="margin:0;"><span style="font-family:Arial;"><br />
<span style="font-size:small;">So consider which is the best option and remember not to try and do both. </span></span></p>
<p><span><span style="font-size:small;font-family:Times New Roman;">For Fujitsu compilers at least, although the program run is not terminated, the Fujitsu WINEXE enviroment will still produce a prompt indicating the error (with more detailed error codes). I&#8217;m not sure, but I suspect that this facility can be disabled. Check the user manual. </span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span><span style="font-size:small;font-family:Times New Roman;"> </span></span></p>
<p> </p>
<br /><img alt="" border="0" src="http://feeds.wordpress.com/1.0/categories/torkisnasution.wordpress.com/5/" /> <img alt="" border="0" src="http://feeds.wordpress.com/1.0/tags/torkisnasution.wordpress.com/5/" /> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gocomments/torkisnasution.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/comments/torkisnasution.wordpress.com/5/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godelicious/torkisnasution.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/delicious/torkisnasution.wordpress.com/5/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gofacebook/torkisnasution.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/facebook/torkisnasution.wordpress.com/5/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gotwitter/torkisnasution.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/twitter/torkisnasution.wordpress.com/5/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gostumble/torkisnasution.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/stumble/torkisnasution.wordpress.com/5/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godigg/torkisnasution.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/digg/torkisnasution.wordpress.com/5/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/goreddit/torkisnasution.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/reddit/torkisnasution.wordpress.com/5/" /></a> <img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=torkisnasution.wordpress.com&amp;blog=3582916&amp;post=5&amp;subd=torkisnasution&amp;ref=&amp;feed=1" width="1" height="1" />]]></content:encoded>
			<wfw:commentRss>http://torkisnasution.wordpress.com/2008/04/28/modul-cobol/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/47da4bf07056e58a4119a56e135187e0?s=96&#38;d=identicon&#38;r=G" medium="image">
			<media:title type="html">torkisnasution</media:title>
		</media:content>
	</item>
		<item>
		<title>Translate &#8211; TOS</title>
		<link>http://torkisnasution.wordpress.com/2008/04/26/translate-tos/</link>
		<comments>http://torkisnasution.wordpress.com/2008/04/26/translate-tos/#comments</comments>
		<pubDate>Sat, 26 Apr 2008 16:15:31 +0000</pubDate>
		<dc:creator>torkisnasution</dc:creator>
				<category><![CDATA[Teknologi Open Source]]></category>

		<guid isPermaLink="false">http://torkisnasution.wordpress.com/?p=4</guid>
		<description><![CDATA[Dibawah ini adalah aspek lega dalam dunia teknologi informasi, translate ke bahasa indonenis diserhakan pada pertemuan selanjuutnya.. Glossary of legal terms in computer technology From Wikipedia, the free encyclopedia     The legal aspects of technology involve many different terms. This page attempts to provide short and accurate definitions of these terms, as they pertain [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=torkisnasution.wordpress.com&amp;blog=3582916&amp;post=4&amp;subd=torkisnasution&amp;ref=&amp;feed=1" width="1" height="1" />]]></description>
			<content:encoded><![CDATA[<p>Dibawah ini adalah aspek lega dalam dunia teknologi informasi, translate ke bahasa indonenis diserhakan pada pertemuan selanjuutnya..</p>
<h1 style="margin:auto 0;"><span><span style="font-size:x-large;"><span style="font-family:Times New Roman;">Glossary of legal terms in computer technology</span></span></span></h1>
<h3 style="margin:36pt 0 5pt 146.4pt;"><span style="font-weight:normal;font-size:11pt;"><span style="font-family:Times New Roman;">From Wikipedia, the free encyclopedia</span></span></h3>
<p class="MsoNormal" style="margin:0;"><span style="display:none;"><span style="font-size:small;font-family:Times New Roman;"> </span></span></p>
<p class="MsoNormal" style="margin:0;"><span style="display:none;"><span style="font-size:small;font-family:Times New Roman;"> </span></span></p>
<p><span><span style="font-size:small;"><span style="font-family:Times New Roman;">The legal aspects of technology involve many different terms. This page attempts to provide short and accurate definitions of these terms, as they pertain to technology, with links to more information in Wikipedia.</span></span></span></p>
<ul type="disc">
<li class="MsoNormal"><span><a title="Abandonware" href="http://en.wikipedia.org/wiki/Abandonware"><span style="font-size:small;font-family:Times New Roman;">abandonware</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — Software no longer being maintained, released or supported by the manufacturer </span></span></span></li>
<li class="MsoNormal"><span><a title="Author" href="http://en.wikipedia.org/wiki/Author"><span style="font-size:small;font-family:Times New Roman;">author</span></a><span style="font-size:small;font-family:Times New Roman;"> — In the case of a software program not created for an employer, the creator(s) of the program. Where the person creates a program as a </span><a title="Work for hire" href="http://en.wikipedia.org/wiki/Work_for_hire"><span style="font-size:small;font-family:Times New Roman;">work for hire</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;">, their employer is considered the author. </span></span></span></li>
<li class="MsoNormal"><span><a title="Binary file" href="http://en.wikipedia.org/wiki/Binary_file"><span style="font-size:small;font-family:Times New Roman;">binary</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — An executable program or a data file used by a program. </span></span></span></li>
<li class="MsoNormal"><span><a title="BSD license" href="http://en.wikipedia.org/wiki/BSD_license"><span style="font-size:small;font-family:Times New Roman;">BSD-style</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A type of software license which, while claiming copyright, essentially waives almost all of the copyright restrictions. </span></span></span></li>
<li class="MsoNormal"><span><a title="Clickwrap" href="http://en.wikipedia.org/wiki/Clickwrap"><span style="font-size:small;font-family:Times New Roman;">Clickwrap</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A license agreement which is read and accepted typically by clicking &#8216;I agree&#8217; after being shown the agreement, usually as part of the process of installing the software </span></span></span></li>
<li class="MsoNormal"><span><a title="Closed source" href="http://en.wikipedia.org/wiki/Closed_source"><span style="font-size:small;font-family:Times New Roman;">closed source</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — Software for which the source code is not normally available to the end users of the program. </span></span></span></li>
<li class="MsoNormal"><span><span style="font-size:small;font-family:Times New Roman;">compatible — Mostly commonly, a type of software that will work similar to another software package (such as one word processor accepting the word processing files of a different word processor). Can also mean </span><a title="License compatibility" href="http://en.wikipedia.org/wiki/License_compatibility"><span style="font-size:small;font-family:Times New Roman;">license compatibility</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;">. </span></span></span></li>
<li class="MsoNormal"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">concurrent user license — A style of software license in which the number of licenses granted (and typically, the number of fees paid) depends on the number of individuals actually accessing the software at any given time, rather than the total number of individuals who potentially may access it (distinguished from a named user license) </span></span></span></li>
<li class="MsoNormal"><span><a title="Copycenter" href="http://en.wikipedia.org/wiki/Copycenter"><span style="font-size:small;font-family:Times New Roman;">copycenter</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — See BSD-style. </span></span></span></li>
<li class="MsoNormal"><span><a title="Copyleft" href="http://en.wikipedia.org/wiki/Copyleft"><span style="font-size:small;font-family:Times New Roman;">copyleft</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A type of copyright which uses the protections of copyright to ensure the freedom of users of a program </span></span></span></li>
<li class="MsoNormal"><span><a title="Copyright" href="http://en.wikipedia.org/wiki/Copyright"><span style="font-size:small;font-family:Times New Roman;">copyright</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — An exclusive right of reproduction or certain other uses of a literary, pictorial, audio or visual work. </span></span></span></li>
<li class="MsoNormal"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">distribute — To transfer copies of a work to others. </span></span></span></li>
<li class="MsoNormal"><span><a title="DMCA" href="http://en.wikipedia.org/wiki/DMCA"><span style="font-size:small;font-family:Times New Roman;">DMCA: Digital Millennium Copyright Act</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A United States statute prohibiting certain types of activities on copyrighted work, such as breaking encryption. </span></span></span></li>
<li class="MsoNormal"><span><a title="Digital Rights Management" href="http://en.wikipedia.org/wiki/Digital_Rights_Management"><span style="font-size:small;font-family:Times New Roman;">DRM: digital rights management</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A system which prohibits in whole or part, copying or use of a work protected by the system </span></span></span></li>
<li class="MsoNormal"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">end user — The party who operates a computer program to accomplish the performance of a specific task or tasks </span></span></span></li>
<li class="MsoNormal"><span><a title="EULA" href="http://en.wikipedia.org/wiki/EULA"><span style="font-size:small;font-family:Times New Roman;">EULA: end user license agreement</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A provision to require an end user of a computer program to agree to certain restrictions on use of a program that the user normally would have absent agreement to the terms of the EULA. </span></span></span></li>
<li class="MsoNormal"><span><a title="Fair dealing" href="http://en.wikipedia.org/wiki/Fair_dealing"><span style="font-size:small;font-family:Times New Roman;">fair dealing</span></a><span style="font-size:small;font-family:Times New Roman;"> — The right to use a copyrighted work in part even against the permission of the copyright holder. Referred to as </span><a title="Fair use" href="http://en.wikipedia.org/wiki/Fair_use"><span style="font-size:small;font-family:Times New Roman;">fair use</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> in the United States. </span></span></span></li>
<li class="MsoNormal"><span><a title="Fair use" href="http://en.wikipedia.org/wiki/Fair_use"><span style="font-size:small;font-family:Times New Roman;">fair use</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — Same as fair dealing. </span></span></span></li>
<li class="MsoNormal"><span><a title="FOSS" href="http://en.wikipedia.org/wiki/FOSS"><span style="font-size:small;font-family:Times New Roman;">FOSS: Free/open source software</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> or FLOSS (Free/libre/open source software) — Software for which the source code is normally available to the end users of the program. </span></span></span></li>
<li class="MsoNormal"><span><a title="Free software" href="http://en.wikipedia.org/wiki/Free_software"><span style="font-size:small;font-family:Times New Roman;">Free</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — Software which is either available without charge, or which is available without the usual restrictions of proprietary software. </span></span></span></li>
<li class="MsoNormal"><span><a title="Freely redistributable software" href="http://en.wikipedia.org/wiki/Freely_redistributable_software"><span style="font-size:small;font-family:Times New Roman;">freely redistributable</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — Software which the copyright holder waives the right to exclude others from making copies. </span></span></span></li>
<li class="MsoNormal"><span><a title="Freeware" href="http://en.wikipedia.org/wiki/Freeware"><span style="font-size:small;font-family:Times New Roman;">freeware</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — Software which the copyright holder allows persons to make copies, usually without allowing access to the source code. </span></span></span></li>
<li class="MsoNormal"><span><a title="GPL" href="http://en.wikipedia.org/wiki/GPL"><span style="font-size:small;font-family:Times New Roman;">GPL: GNU General Public License</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A special type of license designed to protect the rights of end users. </span></span></span></li>
<li class="MsoNormal"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">incompatible — Software which does not normally work in a similar fashion to other competing applications </span></span></span></li>
<li class="MsoNormal"><span><a title="Intellectual property" href="http://en.wikipedia.org/wiki/Intellectual_property"><span style="font-size:small;font-family:Times New Roman;">IP: intellectual property</span></a><span style="font-size:small;font-family:Times New Roman;"> — </span><a title="Copyright" href="http://en.wikipedia.org/wiki/Copyright"><span style="font-size:small;font-family:Times New Roman;">copyrights</span></a><span style="font-size:small;font-family:Times New Roman;">, </span><a title="Patent" href="http://en.wikipedia.org/wiki/Patent"><span style="font-size:small;font-family:Times New Roman;">patents</span></a><span style="font-size:small;font-family:Times New Roman;">, </span><a title="Trademark" href="http://en.wikipedia.org/wiki/Trademark"><span style="font-size:small;font-family:Times New Roman;">trademarks</span></a><span style="font-size:small;font-family:Times New Roman;"> and </span><a title="Trade secret" href="http://en.wikipedia.org/wiki/Trade_secret"><span style="font-size:small;font-family:Times New Roman;">trade secrets</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> </span></span></span></li>
<li class="MsoNormal"><span><a title="Software license agreement" href="http://en.wikipedia.org/wiki/Software_license_agreement"><span style="font-size:small;font-family:Times New Roman;">license</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> &#8211; A privilege to use or copy a program </span></span></span></li>
<li class="MsoNormal"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">MIT-style — A type of license which waives almost all of the restrictions imposed by copyright. </span></span></span></li>
<li class="MsoNormal"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">modify — To change a computer program. </span></span></span></li>
<li class="MsoNormal"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">named user license — A style of software license in which there must be a license granted (typically with a fee paid) for every individual who is to have access to the software (distinguished from a concurrent user license) </span></span></span></li>
<li class="MsoNormal"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">non-Free — To be restricted in some fashion. </span></span></span></li>
<li class="MsoNormal"><span><a title="Non-disclosure agreement" href="http://en.wikipedia.org/wiki/Non-disclosure_agreement"><span style="font-size:small;font-family:Times New Roman;">NDA: non-disclosure agreement</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — An agreement not to give certain information to others. </span></span></span></li>
<li class="MsoNormal"><span><a title="Open source" href="http://en.wikipedia.org/wiki/Open_source"><span style="font-size:small;font-family:Times New Roman;">open source</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A type of software which grants the end user the privilege of copying, distribution and/or modification. </span></span></span></li>
<li class="MsoNormal"><span><a title="Patent" href="http://en.wikipedia.org/wiki/Patent"><span style="font-size:small;font-family:Times New Roman;">patent</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A right granted by the government to allow the owner of the patent to prevent others from making, using or selling an invention. </span></span></span></li>
<li class="MsoNormal"><span><a title="Phishing" href="http://en.wikipedia.org/wiki/Phishing"><span style="font-size:small;font-family:Times New Roman;">phishing</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — Fraudulent attempts to acquire sensitive information such as credit card details by masquerading as a bank or other trustworthy organization. </span></span></span></li>
<li class="MsoNormal"><span><a title="Plagiarism" href="http://en.wikipedia.org/wiki/Plagiarism"><span style="font-size:small;font-family:Times New Roman;">plagiarism</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — Presenting someone else&#8217;s writing as your own. </span></span></span></li>
<li class="MsoNormal"><span><a title="Proprietary" href="http://en.wikipedia.org/wiki/Proprietary"><span style="font-size:small;font-family:Times New Roman;">proprietary</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — Software which is property of a specific company for which the source code is usually not available for inspection by end users. </span></span></span></li>
<li class="MsoNormal"><span><a title="Public domain" href="http://en.wikipedia.org/wiki/Public_domain"><span style="font-size:small;font-family:Times New Roman;">public domain</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A work which is not subject to copyright. </span></span></span></li>
<li class="MsoNormal"><span><a title="Source code" href="http://en.wikipedia.org/wiki/Source_code"><span style="font-size:small;font-family:Times New Roman;">source code</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — The exact specifications of a computer program. </span></span></span></li>
<li class="MsoNormal"><span><a title="Shared source" href="http://en.wikipedia.org/wiki/Shared_source"><span style="font-size:small;font-family:Times New Roman;">shared source</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A type of license where the source code of a proprietary program may be available to certain parties. </span></span></span></li>
<li class="MsoNormal"><span><a title="Shareware" href="http://en.wikipedia.org/wiki/Shareware"><span style="font-size:small;font-family:Times New Roman;">shareware</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> &#8211; Software which a limited license to copy is granted for a short period to allow the end user to try it before purchasing. </span></span></span></li>
<li class="MsoNormal"><span><a title="Shrink wrap contract" href="http://en.wikipedia.org/wiki/Shrink_wrap_contract"><span style="font-size:small;font-family:Times New Roman;">shrink wrap contract</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> &#8211; A license agreement which can only be read and accepted by the user after opening the product. </span></span></span></li>
<li class="MsoNormal"><span><a title="Trade secret" href="http://en.wikipedia.org/wiki/Trade_secret"><span style="font-size:small;font-family:Times New Roman;">trade secret</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A particular piece of information not generally known by the public which is protected against disclosure by the owner of the secret, usually by non-disclosure agreement, contract or other requirements. </span></span></span></li>
<li class="MsoNormal"><span><a title="Trademark" href="http://en.wikipedia.org/wiki/Trademark"><span style="font-size:small;font-family:Times New Roman;">trademark</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A word, symbol, color or sound used to identify the origin of certain goods. </span></span></span></li>
<li class="MsoNormal"><span><a title="Treacherous computing" href="http://en.wikipedia.org/wiki/Treacherous_computing"><span style="font-size:small;font-family:Times New Roman;">TC: treacherous computing</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A somewhat pejorative term used to describe the development of computer hardware in which the makers of software loaded on the computer have the right to prohibit the owner of the computer from using it in certain ways. </span></span></span></li>
<li class="MsoNormal"><span><a title="Trusted computing" href="http://en.wikipedia.org/wiki/Trusted_computing"><span style="font-size:small;font-family:Times New Roman;">TC: trusted computing</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — A relatively neutral term used to describe the development of computer hardware in which the makers of software loaded on the computer have the right to prohibit the owner of the computer from using it in certain ways. </span></span></span></li>
<li class="MsoNormal"><span><a title="Trustworthy Computing" href="http://en.wikipedia.org/wiki/Trustworthy_Computing"><span style="font-size:small;font-family:Times New Roman;">TwC: trustworthy computing</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> </span></span></span></li>
<li class="MsoNormal"><span><a title="United States Patent and Trademark Office" href="http://en.wikipedia.org/wiki/United_States_Patent_and_Trademark_Office"><span style="font-size:small;font-family:Times New Roman;">USPTO: United States Patent and Trademark Office</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — The government agency which accepts registrations of trademarks and issues patents. </span></span></span></li>
<li class="MsoNormal"><span><span style="font-size:small;"><span style="font-family:Times New Roman;">vendor — A seller of computer hardware and/or software. </span></span></span></li>
<li class="MsoNormal"><span><a title="Vendor lock-in" href="http://en.wikipedia.org/wiki/Vendor_lock-in"><span style="font-size:small;font-family:Times New Roman;">vendor lock-in</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — Condition where a person or organization has become dependent upon specific hardware and/or software, and where it would be impossible or prohibitively expensive to change to something else. </span></span></span></li>
<li class="MsoNormal"><span><a title="Warez" href="http://en.wikipedia.org/wiki/Warez"><span style="font-size:small;font-family:Times New Roman;">warez</span></a><span style="font-size:small;"><span style="font-family:Times New Roman;"> — An expression used by software pirates typically referring to a cracked (stripped) copyrighted game, application, or file. </span></span></span></li>
</ul>
<br /><img alt="" border="0" src="http://feeds.wordpress.com/1.0/categories/torkisnasution.wordpress.com/4/" /> <img alt="" border="0" src="http://feeds.wordpress.com/1.0/tags/torkisnasution.wordpress.com/4/" /> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gocomments/torkisnasution.wordpress.com/4/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/comments/torkisnasution.wordpress.com/4/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godelicious/torkisnasution.wordpress.com/4/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/delicious/torkisnasution.wordpress.com/4/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gofacebook/torkisnasution.wordpress.com/4/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/facebook/torkisnasution.wordpress.com/4/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gotwitter/torkisnasution.wordpress.com/4/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/twitter/torkisnasution.wordpress.com/4/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gostumble/torkisnasution.wordpress.com/4/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/stumble/torkisnasution.wordpress.com/4/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godigg/torkisnasution.wordpress.com/4/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/digg/torkisnasution.wordpress.com/4/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/goreddit/torkisnasution.wordpress.com/4/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/reddit/torkisnasution.wordpress.com/4/" /></a> <img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=torkisnasution.wordpress.com&amp;blog=3582916&amp;post=4&amp;subd=torkisnasution&amp;ref=&amp;feed=1" width="1" height="1" />]]></content:encoded>
			<wfw:commentRss>http://torkisnasution.wordpress.com/2008/04/26/translate-tos/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/47da4bf07056e58a4119a56e135187e0?s=96&#38;d=identicon&#38;r=G" medium="image">
			<media:title type="html">torkisnasution</media:title>
		</media:content>
	</item>
		<item>
		<title>Tugas Proposal Bisnis &#8211; TOS</title>
		<link>http://torkisnasution.wordpress.com/2008/04/26/tugas-proposal-bisnis-tos/</link>
		<comments>http://torkisnasution.wordpress.com/2008/04/26/tugas-proposal-bisnis-tos/#comments</comments>
		<pubDate>Sat, 26 Apr 2008 16:00:35 +0000</pubDate>
		<dc:creator>torkisnasution</dc:creator>
				<category><![CDATA[Teknologi Open Source]]></category>

		<guid isPermaLink="false">http://torkisnasution.wordpress.com/?p=3</guid>
		<description><![CDATA[Model bisnis dalam dunia open source dikenal 5 jenis, yaitu Sell Support Service, Run (or build) hardware, Propreatary Component, Dual Licensing, Advertising. Mahasiswa memilih topik diantara lima model bisnis diatas untk dibuat proposal. Tugas tersebut dibuat dan diserahkan 2 minggu setelah diumumkan dalam kelas pertemuan. pls call my phone if sth wrong&#8230;<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=torkisnasution.wordpress.com&amp;blog=3582916&amp;post=3&amp;subd=torkisnasution&amp;ref=&amp;feed=1" width="1" height="1" />]]></description>
			<content:encoded><![CDATA[<p>Model bisnis dalam dunia open source dikenal 5 jenis, yaitu Sell Support Service,  Run (or build) hardware, Propreatary Component, Dual Licensing, Advertising. Mahasiswa memilih topik diantara lima model bisnis diatas untk dibuat proposal. Tugas tersebut dibuat dan diserahkan 2 minggu setelah diumumkan dalam kelas pertemuan. pls call my phone if sth wrong&#8230;</p>
<br /><img alt="" border="0" src="http://feeds.wordpress.com/1.0/categories/torkisnasution.wordpress.com/3/" /> <img alt="" border="0" src="http://feeds.wordpress.com/1.0/tags/torkisnasution.wordpress.com/3/" /> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gocomments/torkisnasution.wordpress.com/3/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/comments/torkisnasution.wordpress.com/3/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godelicious/torkisnasution.wordpress.com/3/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/delicious/torkisnasution.wordpress.com/3/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gofacebook/torkisnasution.wordpress.com/3/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/facebook/torkisnasution.wordpress.com/3/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gotwitter/torkisnasution.wordpress.com/3/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/twitter/torkisnasution.wordpress.com/3/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gostumble/torkisnasution.wordpress.com/3/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/stumble/torkisnasution.wordpress.com/3/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godigg/torkisnasution.wordpress.com/3/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/digg/torkisnasution.wordpress.com/3/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/goreddit/torkisnasution.wordpress.com/3/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/reddit/torkisnasution.wordpress.com/3/" /></a> <img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=torkisnasution.wordpress.com&amp;blog=3582916&amp;post=3&amp;subd=torkisnasution&amp;ref=&amp;feed=1" width="1" height="1" />]]></content:encoded>
			<wfw:commentRss>http://torkisnasution.wordpress.com/2008/04/26/tugas-proposal-bisnis-tos/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/47da4bf07056e58a4119a56e135187e0?s=96&#38;d=identicon&#38;r=G" medium="image">
			<media:title type="html">torkisnasution</media:title>
		</media:content>
	</item>
		<item>
		<title>Hello world!</title>
		<link>http://torkisnasution.wordpress.com/2008/04/26/hello-world/</link>
		<comments>http://torkisnasution.wordpress.com/2008/04/26/hello-world/#comments</comments>
		<pubDate>Sat, 26 Apr 2008 08:58:42 +0000</pubDate>
		<dc:creator>torkisnasution</dc:creator>
				<category><![CDATA[Lembar Nilai]]></category>

		<guid isPermaLink="false"></guid>
		<description><![CDATA[Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=torkisnasution.wordpress.com&amp;blog=3582916&amp;post=1&amp;subd=torkisnasution&amp;ref=&amp;feed=1" width="1" height="1" />]]></description>
			<content:encoded><![CDATA[<p>Welcome to <a href="http://wordpress.com/">WordPress.com</a>. This is your first post. Edit or delete it and start blogging!</p>
<br /><img alt="" border="0" src="http://feeds.wordpress.com/1.0/categories/torkisnasution.wordpress.com/1/" /> <img alt="" border="0" src="http://feeds.wordpress.com/1.0/tags/torkisnasution.wordpress.com/1/" /> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gocomments/torkisnasution.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/comments/torkisnasution.wordpress.com/1/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godelicious/torkisnasution.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/delicious/torkisnasution.wordpress.com/1/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gofacebook/torkisnasution.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/facebook/torkisnasution.wordpress.com/1/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gotwitter/torkisnasution.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/twitter/torkisnasution.wordpress.com/1/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gostumble/torkisnasution.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/stumble/torkisnasution.wordpress.com/1/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godigg/torkisnasution.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/digg/torkisnasution.wordpress.com/1/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/goreddit/torkisnasution.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/reddit/torkisnasution.wordpress.com/1/" /></a> <img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=torkisnasution.wordpress.com&amp;blog=3582916&amp;post=1&amp;subd=torkisnasution&amp;ref=&amp;feed=1" width="1" height="1" />]]></content:encoded>
			<wfw:commentRss>http://torkisnasution.wordpress.com/2008/04/26/hello-world/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/47da4bf07056e58a4119a56e135187e0?s=96&#38;d=identicon&#38;r=G" medium="image">
			<media:title type="html">torkisnasution</media:title>
		</media:content>
	</item>
	</channel>
</rss>
