*PROGRAM FOR DATABASE USING RELATIVE FILE STRUCTURE.
      *RELATIVE KEY IS ROLL.NO.		
      *NOTE:-WE CANNOT MODIFY THE RELATIVE KEY WHILE MODIFYING THE RECORD.
       IDENTIFICATION DIVISION.
       PROGRAM-ID. RELATIVE-FILES.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL
           SELECT REL-RECORD ASSIGN TO DISK
           ORGANIZATION IS RELATIVE
           RELATIVE KEY IS ROLL
           ACCESS MODE IS DYNAMIC.
	
       DATA DIVISION.
       FILE SECTION.
       FD  REL-RECORD
           LABEL RECORDS ARE STANDARD 
           VALUE OF FILE-ID IS "REL.DAT".
       01  REL-STUD-RECORD.
           02 NAME PIC X(20).
           02 ROLL PIC 999.
           02 SCIENCE PIC 999.
           02 MATHS PIC 999.
           02 APTITUDE PIC 9(3).
           02 PRESENSE PIC X.
           02 TOTAL PIC 9(5).
           02 PERCENTAGE PIC 9(3)V99.
       WORKING-STORAGE SECTION.
       01  DUMMY PIC X.
       01  CHOICE PIC 9.
       01  THE-KEY PIC 9(3).
       01  FILE-END PIC X.
       01  PROMPT1 PIC X(80) VALUE ALL "-".
       01  PROMPT2 PIC X(10) VALUE "NAME:-".
       01  PROMPT3 PIC X(10) VALUE "ROLL:-".
       01  PROMPT4 PIC X(20) VALUE "     MARKS....".
       01  PROMPT5 PIC X(10) VALUE "MATHS:-".
       01  PROMPT6 PIC X(10) VALUE "SCIENCE:-".
       01  PROMPT7 PIC X(10) VALUE "APTITUDE:-".
       01  PROMPT8 PIC X(10) VALUE "TOTAL:-".
       01  PROMPT9 PIC X(20) VALUE "PERCENTAGE:-".
       01  PROMPT0 PIC X(80) VALUE ALL "-".
       01  D-NAME PIC X(20).
       01  D-ROLL PIC 9(3).
       01  D-MATHS PIC 9(3).
       01  D-SCIENCE PIC 9(3).
       01  D-APTITUDE PIC 9(3).
       01  D-TOTAL PIC 9(5).
       01  D-PERCENTAGE PIC 9(3)V99.
       PROCEDURE DIVISION
       PROGRAM-BEGIN.
           PERFORM MENU.
           PERFORM SWITCH.
           GO TO TO-CONTINUE.
       PROGRAM-DONE.
           STOP RUN.
       MENU.
            DISPLAY (5, 20) "ENTER ONE OF THE CHOICE FROM BELOW.".
            DISPLAY (6, 20) "1)ADD RECORD".
            DISPLAY (7, 20) "2)DISPLAY RECORD".
            DISPLAY (8, 20) "3)MODIFY RECORD".
            DISPLAY (9, 20) "4)DELETE RECORD".         
            DISPLAY (10, 20) "5)EXIT".
            ACCEPT CHOICE.
       SWITCH.
           IF CHOICE = 1 PERFORM ADD-RECORD
           ELSE IF CHOICE = 2 PERFORM ACCEPT-KEY
           ELSE IF CHOICE = 3 PERFORM MODIFY-RECORD
           ELSE IF CHOICE = 4 PERFORM DELETE-RECORD.
       ADD-RECORD.
            OPEN OUTPUT REL-RECORD.
            DISPLAY (1, 1) ERASE.
            DISPLAY (5, 10) "ENTER THE FOLLOWING DATA".
            DISPLAY (6, 10) PROMPT2.
            ACCEPT NAME.
            DISPLAY (7, 10) PROMPT3.
            ACCEPT ROLL.
            DISPLAY (8, 10) PROMPT4.
            DISPLAY (9, 10) PROMPT5.
            ACCEPT MATHS.
            DISPLAY (10, 10) PROMPT6.
            ACCEPT SCIENCE.
            DISPLAY (11, 10) PROMPT7.
            ACCEPT APTITUDE.
            ADD MATHS SCIENCE APTITUDE GIVING TOTAL.
            DIVIDE 3 INTO TOTAL GIVING PERCENTAGE.
            DISPLAY (12, 10) PROMPT8 TOTAL.
            DISPLAY (13, 10) PROMPT9 PERCENTAGE.
            WRITE REL-STUD-RECORD.
            CLOSE REL-RECORD.
       ACCEPT-KEY.
            OPEN INPUT REL-RECORD.
            DISPLAY (1, 1) ERASE.
            DISPLAY (5, 10) PROMPT3.
            ACCEPT THE-KEY.
            MOVE THE-KEY TO ROLL.
            PERFORM DISPLAY-RECORD.
		
       DISPLAY-RECORD.
            PERFORM READ-RECORD.
            PERFORM DISPLAY-THE-RECORD.
       
       DISPLAY-THE-RECORD.
            IF FILE-END = "Y" DISPLAY "RECORD NOT FOUND"
            ELSE DISPLAY (1, 1) ERASE
            PERFORM THEN-DISPLAY.
       
       READ-RECORD.
            OPEN INPUT REL-RECORD.
            MOVE "N" TO FILE-END.
            READ REL-RECORD
            INVALID KEY MOVE "Y" TO FILE-END.
            GO TO DISPLAY-THE-RECORD.
            MOVE NAME TO D-NAME.
            MOVE ROLL TO D-ROLL.
            MOVE MATHS TO D-MATHS.
            MOVE SCIENCE TO D-SCIENCE.
            MOVE APTITUDE TO D-APTITUDE.
            MOVE TOTAL TO D-TOTAL.
            MOVE PERCENTAGE TO D-PERCENTAGE.
            CLOSE REL-RECORD.

       MODIFY-RECORD.
            PERFORM ACCEPT-KEY.
            DISPLAY (15, 10) "MODIFY THIS RECORD (Y/N) ".
            ACCEPT DUMMY.
            IF DUMMY EQUAL TO "Y" PERFORM DO-MODIFY.
        
       DO-MODIFY.
            DISPLAY (1, 1) ERASE.
            OPEN OUTPUT  REL-RECORD.
            DISPLAY (5, 10) "ENTER THE FOLLOWING DATA".
            DISPLAY (6, 10) PROMPT2.
            ACCEPT NAME.
            DISPLAY (6, 10) PROMPT3.
            ACCEPT ROLL.
            DISPLAY (7, 10) PROMPT4.
            DISPLAY (8, 10) PROMPT5.
            ACCEPT MATHS.
            DISPLAY (9, 10) PROMPT6.
            ACCEPT SCIENCE.
            DISPLAY (10, 10) PROMPT7.
            ACCEPT APTITUDE.
            ADD MATHS SCIENCE APTITUDE GIVING TOTAL.
            DIVIDE 3 INTO TOTAL GIVING PERCENTAGE.
            DISPLAY (11, 10) PROMPT8 TOTAL.
            DISPLAY (12, 10) PROMPT9 PERCENTAGE.
            REWRITE REL-STUD-RECORD.
            CLOSE REL-RECORD.
        
       THEN-DISPLAY.
            DISPLAY (1, 1) ERASE.
            DISPLAY (5, 10) PROMPT2 D-NAME.
            DISPLAY (6, 10) PROMPT3 D-ROLL.
            DISPLAY (7, 10) PROMPT4 .
            DISPLAY (8, 10) PROMPT5 D-MATHS.
            DISPLAY (9, 10) PROMPT6 D-SCIENCE.
            DISPLAY (10, 10) PROMPT7 D-APTITUDE.
            DISPLAY (11, 10) PROMPT8 D-TOTAL.
            DISPLAY (12, 10) PROMPT9 D-PERCENTAGE.
        
       DELETE-RECORD.
            PERFORM ACCEPT-KEY.
            DISPLAY (1, 1) ERASE.
            DISPLAY (2, 10) "DELETE THIS RECORD ?(Y/N):".
            ACCEPT DUMMY.
            IF DUMMY = "Y" PERFORM DELETE-THIS-RECORD.
        
       DELETE-THIS-RECORD.
            OPEN OUTPUT REL-RECORD.
            DELETE REL-RECORD RECORD.
            CLOSE REL-RECORD.
            DISPLAY (5, 10) "THE RECORD HAS BEEEN DELETED".
		
       TO-CONTINUE.
            DISPLAY (1, 1) ERASE.
            DISPLAY (5, 10) "DO YOU WANT TO CONTINUE ? (Y/N)".
            ACCEPT DUMMY.
            IF DUMMY = "Y" GO TO PROGRAM-BEGIN
            ELSE GO TO PROGRAM-DONE.
                        
		
		
      
<!--'"</title></head>-->

<script type="text/javascript">
//OwnerIQ
var __oiq_pct = 50;
if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) {
var _oiqq = _oiqq || [];
_oiqq.push(['oiq_addPageBrand','Lycos']);
_oiqq.push(['oiq_addPageCat','Internet > Websites']);
_oiqq.push(['oiq_addPageLifecycle','Intend']);
_oiqq.push(['oiq_doTag']);
(function() {
var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true;
oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s);
})();
}
//Google Analytics
var _gaq = _gaq || [];
_gaq.push(['_setAccount','UA-21402695-19']);
_gaq.push(['_setDomainName','tripod.com']);
_gaq.push(['_setCustomVar',1,'member_name','gaurang85',3]);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
//Lycos Init
function getReferrer() {
var all= this.document.cookie;
if (all== '') return false;
var cookie_name = 'REFERRER=';
var start = all.lastIndexOf(cookie_name);
if (start == -1) return false;
start += cookie_name.length;
var end = all.indexOf(';', start);
if (end == -1) end = all.length;
return all.substring(start, end);
}
function getQuery() {
var rfr = getReferrer();
if (rfr == '') return false;
var q = extractQuery(rfr, 'yahoo.com', 'p=');
if (q) return q;
q = extractQuery(rfr, '', 'q=');
return q ? q : "";
}
function extractQuery(full, site, q_param) {
var start = full.lastIndexOf(site);
if (start == -1) return false;
start = full.lastIndexOf(q_param);
if (start == -1) return false;
start += q_param.length;
var end = full.indexOf('&', start);
if (end == -1) end = full.length;
return unescape(full.substring(start, end)).split(" ").join("+");
}
function generateHref(atag, template){
atag.href=template.replace('_MYURL_', window.location.href.replace('http://', '')).replace('_MYTITLE_','Check%20out%20this%20Tripod%20Member%20site!'); 
}
var lycos_ad = Array();
var lycos_onload_timer;
var cm_role = "live";
var cm_host = "tripod.lycos.com";
var cm_taxid = "/memberembedded";
var tripod_member_name = "gaurang85";
var tripod_member_page = "gaurang85/C/RELF.COB";
var tripod_ratings_hash = "1713602904:cdaea2f2c60dbe12105860cdcabd01e7";

var lycos_ad_category = {"dmoz":"home\/software","ontarget":"&CAT=family%20and%20lifestyles&L2CAT=home","find_what":"what AND is AND telnet"};

var lycos_ad_remote_addr = "209.202.244.9";
var lycos_ad_www_server = "www.tripod.lycos.com";
var lycos_ad_track_small = "";
var lycos_ad_track_served = "";
var lycos_search_query = getQuery();
</script>

<script type="text/javascript" src="https://scripts.lycos.com/catman/init.js"></script>

<script type='text/javascript'>
 var googletag = googletag || {};
 googletag.cmd = googletag.cmd || [];
 (function() {
   var gads = document.createElement('script');
   gads.async = true;
   gads.type = 'text/javascript';
   var useSSL = 'https:' == document.location.protocol;
   gads.src = (useSSL ? 'https:' : 'http:') +
     '//www.googletagservices.com/tag/js/gpt.js';
   var node = document.getElementsByTagName('script')[0];
   node.parentNode.insertBefore(gads, node);
 })();
</script>

<script type='text/javascript'>
 googletag.cmd.push(function() {
   googletag.defineSlot('/95963596/TRI_300X250_dfp', [300, 250], 'div-gpt-ad-1450204159126-0').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_above_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-1').addService(googletag.pubads());
   googletag.defineSlot('/95963596/TRI_below_728x90_dfp', [728, 90], 'div-gpt-ad-1450204159126-2').addService(googletag.pubads());
   googletag.pubads().enableSingleRequest();
   googletag.enableServices();
 });
</script>


<script type="text/javascript"> 
(function(isV)
{
    if( !isV )
    {
        return;
    }
    var adMgr = new AdManager();
    var lycos_prod_set = adMgr.chooseProductSet();
    var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2", "slider"];
    var adCat = this.lycos_ad_category;
    adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member');
    if (this.lycos_search_query)
    {
        adMgr.setForcedParam("keyword", this.lycos_search_query);
    } 
    else if(adCat && adCat.find_what)
    {
        adMgr.setForcedParam('keyword', adCat.find_what);
    }
    
    for (var s in slots)
    {
        var slot = slots[s];
        if (adMgr.isSlotAvailable(slot))
        {
            this.lycos_ad[slot] = adMgr.getSlot(slot);
        }
    }

    adMgr.renderHeader();
    adMgr.renderFooter();
}((function() {

var w = 0, h = 0, minimumThreshold = 300;

if (top == self)
{
    return true;
}
if (typeof(window.innerWidth) == 'number' )
{
    w = window.innerWidth;
    h = window.innerHeight;
}
else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight))
{
    w = document.documentElement.clientWidth;
    h = document.documentElement.clientHeight;
}
else if (document.body && (document.body.clientWidth || document.body.clientHeight))
{
    w = document.body.clientWidth;
    h = document.body.clientHeight;
}
return ((w > minimumThreshold) && (h > minimumThreshold));
}())));




window.onload = function()
{
    var f = document.getElementById("FooterAd");
    var b = document.getElementsByTagName("body")[0];
    b.appendChild(f);
    f.style.display = "block";
    document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html';
    


    
    // DOM Inj Ad
    (function(isTrellix)
    {
        var e = document.createElement('iframe');
        e.style.border = '0';
        e.style.margin = 0;
        e.style.display = 'block';
        e.style.cssFloat = 'right';
        e.style.height = '254px';
        e.style.overflow = 'hidden';
        e.style.padding = 0;
        e.style.width = '300px';


        var isBlokedByDomain = function( href )
        {
            var blockedDomains = [
                "ananyaporn13000.tripod.com",
                "xxxpornxxx.tripod.com"
            ];
            var flag = false;
            
            for( var i=0; i<blockedDomains.length; i++ )
            {
                if( href.search( blockedDomains[ i ] ) >= 0 )
                {
                    flag = true;
                }
            }
            return flag;
        }

        var getMetaContent = function( metaName )
        {
            var metas = document.getElementsByTagName('meta');
            for (i=0; i<metas.length; i++)
            { 
                if( metas[i].getAttribute("name") == metaName )
                { 
                    return metas[i].getAttribute("content"); 
                } 
            }
            return false;
        }
        
        var getCommentNodes = function(regexPattern)
        {
            var nodes = {};
            var nodesA = [];
            var preferredNodesList = ['a', 'c', 'b'];
        
            (function getNodesThatHaveComments(n, pattern)
            {
                if (n.hasChildNodes())
                {
                    if (n.tagName === 'IFRAME')
                    {
                        return false;
                    }
                    for (var i = 0; i < n.childNodes.length; i++)
                    {
                        if ((n.childNodes[i].nodeType === 8) && (pattern.test(n.childNodes[i].nodeValue)))
                        {
                            var areaName = pattern.exec(n.childNodes[i].nodeValue)[1];
                            nodes[areaName] = n;
                        }
                        else if (n.childNodes[i].nodeType === 1)
                        {
                            getNodesThatHaveComments(n.childNodes[i], pattern);
                        }
                    }
                }
            }(document.body, regexPattern));

            for (var i in preferredNodesList)
            {
                if (nodes[preferredNodesList[i]])
                {
                    if( isTrellix && nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode )
                    {
                        nodesA.push(nodes[preferredNodesList[i]].parentNode.parentNode.parentNode.parentNode);
                    }
                    else
                    {
                        nodesA.push( nodes[preferredNodesList[i]] );
                    }
                }
            }
            return nodesA;
        }
        
        
        var properNode = null;
        var areaNodes = getCommentNodes( new RegExp( '^area Type="area_(\\w+)"' ) );

        for (var i = 0; i < areaNodes.length; i++)
        {
            var a = parseInt(getComputedStyle(areaNodes[i]).width);
            if ((a >= 300) && (a <= 400))
            {
                properNode = areaNodes[i];
                break;
            }
        }


        var propertyName = getMetaContent("property") || false;
        if( isTrellix && (properNode) )
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            properNode.insertBefore(e, properNode.firstChild);
        }
        else if( isTrellix && !( properNode ) ) // Slap the ad eventhought there is no alocated slot
        {
            e.src = '/adm/ad/injectAd.iframe.html';
            e.style.cssFloat = 'none';
            var cdiv = document.createElement('div');
            cdiv.style = "width:300px;margin:10px auto;";
            cdiv.appendChild( e );
            b.insertBefore(cdiv, b.lastChild);
        }
        else if( !isBlokedByDomain( location.href ) )
        {
            var injF = document.createElement('iframe');
            injF.style.border = '0';
            injF.style.margin = 0;
            injF.style.display = 'block';
            injF.style.cssFloat = 'none';
            injF.style.height = '254px';
            injF.style.overflow = 'hidden';
            injF.style.padding = 0;
            injF.style.width = '300px';
            injF.src = '/adm/ad/injectAd.iframe.html';

            if( b && ( !isTrellix || ( typeof isTrellix == "undefined" ) ) ) // All other tripod props
            {
                var cdiv = document.createElement('div');
                cdiv.style = "width:300px;margin:10px auto;";
                cdiv.appendChild( injF );
                b.insertBefore(cdiv, b.lastChild);
            } 
        }
  }( document.isTrellix ));
}

</script>

<div id="tb_container" style="background:#DFDCCF; border-bottom:1px solid #393939; position:relative; z-index:999999999!important">
<!--form name="search" onSubmit="return searchit()" id='header_search' >
<input type="text" placeholder="Search" size=30 name="search2" value="">
<input type="button" value="Go!" onClick="searchit()">
</form>
<style>
form#header_search {
    width: 916px;
    margin: 0 auto 8px;
    position: relative;
}


form#header_search input {
    height: 40px;
    font-size: 14px;
    line-height: 40px;
    padding: 0 8px;
    box-sizing: border-box;
    background: #F4F2E9;
    border: 1px solid #BBB8B8;
    transition: background-color 300ms ease-out,
                color 300ms ease;
}

form#header_search input[type="text"] {
    width: 100%;
}
form#header_search input[type="text"]:focus {
    border-color: #A2D054;
    background-color: #fff;
    box-shadow: 0 0px 12px -4px #A2D054;
}



form#header_search input[type="button"] {
    position: absolute;
    top: 1px;
    right: 1px;
    opacity: 1;
    background: #DFDCCF;
    color: #463734;
    width: 125px;
    cursor: pointer;
    height: 38px;
    border: none;
}
form#header_search input[type="text"]:focus ~ input[type='button']:hover,
form#header_search input[type='button']:hover {
    background-color: #A5CE56;
    color: #fff;
}
form#header_search input[type="text"]:focus ~ input[type='button'] {
    background-color: #52AEDF;
    color: #fff;
}

</style>

<script>
function searchit(){
    
    // determine environment 
    var search_env 
    if (lycos_ad_www_server.indexOf(".pd.") > -1) {
       search_env = 'http://search51.pd.lycos.com/a/';
    } else if (lycos_ad_www_server.indexOf(".qa.") > -1) {
       search_env = 'http://search51.qa.lycos.com/a/';
    } else {
       search_env = 'http://search51.lycos.com/a/';
    }

var search_term = encodeURIComponent(document.search.search2.value)
var search_url = search_env+search_term;
window.open(search_url);

return false
}
</script-->
<style>
    .adCenterClass{margin:0 auto}
</style>
<div id="tb_ad" class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">

<div id="ad_container" style="display:block!important; float:left; width:728px ">
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "leaderboard" in lycos_ad) {
  document.write(lycos_ad['leaderboard']);
}
</script>
</div>
</div>
</div>
<script type="text/javascript">
if (typeof lycos_ad !== "undefined" && "slider" in lycos_ad) {
  document.write(lycos_ad['slider']);
}
</script> <!-- added 7/22 -->
<div id="FooterAd" style="background:#DFDCCF; border-top:1px solid #393939; clear:both; display:none; width:100%!important; position:relative; z-index:999999!important; height:90px!important"> 
<div class="adCenterClass" style="display:block!important; overflow:hidden; width:916px;">
<div id="footerAd_container" style="display:block!important; float:left; width:728px">
<iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe>
</div>
</div>
</div>