Cobol Picture Klousule Binary Options

Lees COBOL Layouts Hierdie handleiding oor hoe om te lees 'n COBOL uitleg is spesifiek geskryf vir ons kliënte wat 'n sukses opgetree by CD-wisselaar het en 'n COBOL uitleg met die data ontvang. Dit is bedoel om jou genoeg inligting vir die meeste eenvoudige uitleg te lees. Dit dek nie alle onderwerpe of alles wat jy in 'n komplekse uitleg sal vind, en dit is bedoel om COBOL uitlegte te verduidelik net sodat jy jou bekeer data kan gebruik, nie sodat jy kan COBOL programme te skryf. Hierdie artikel begin hier: Lees COBOL Layouts waar jy ook 'n onderwerp indeks sal vind. Deel 4: Numeriese Fields Hierdie afdeling beskryf verskillende tipes numeriese data en die hantering van tekens en desimale punte. Inhoud van hierdie afdeling: Behoefte om numeriese veld omskep Dis ons besigheid COBOL het verskeie soorte numeriese velde. Hierdie datatipes sluit 'n vertoning in die veld, wat bestaan ​​uit karakters (die EBCDIC of ASCII karakters vir 0-9), binêre velde, verpak velde, en swaai-punt velde. Daar is ook opsies vir 'n afsonderlike of - teken of 'n teken overpunch, en vir die regte of stilswyende desimaal. Die datatipe is wat deur die gebruik is klousule. Die gebruik is klousule Daar is eintlik meer na die beeld verklaring as weve voorheen beskryf. Daar is 'n gebruik is klousule dat die tipe van die stoor van 'n numeriese veld spesifiseer - vertoning, binêre, of computational. Die volle sintaksis, via 'n voorbeeld, is: Dit sê die veld op te slaan in die computational-3-formaat. Die gebruik is deel is opsioneel en oor die algemeen het opgehou, en computational kan afgekort COMP, sodat jy sal meer algemeen beskou dit geskryf die tipes numeriese velde wat jy sal algemeen sien in COBOL uitlegte is: Wys (insluitend Geteken velde) Binary Computational, of comp Comp-1 Comp-2 Comp-3 Display, asook gebaretaal of gesoneerde velde, is die mees algemene, en comp-3 is die tweede mees algemene tipe numeriese veld. Sommige samestellers kan ook comp-4 en comp-5 datatipes, gewoonlik om comp navolg op 'n ander compiler. Usage is Display Display formaat is die verstek vir getalle in COBOL. Indien geen gebruik word klousule gespesifiseer, verstek is gebruik is vertoon, wat beteken dat die waarde gestoor as EBCDIC karakters (syfers), in teenstelling met binêre. Die waarde kan of mag nie 'n desimale - geïmpliseer of werklike - en mag nie onderteken wees of 'n ingeboude of 'n aparte teken - wat kan óf voorste of agterste. Die verstek onderteken vertoning formaat veld bevat 'n ingeboude sleep teken, en is algemeen bekend staan ​​as 'n getekende, of IBM Geteken, of gesoneerde gebied. Hierdie tipe data word hieronder beskryf. Onderteken Fields Daar is 'n gemeenskaplike numeriese data tipe gebruik word in COBOL op IBM hooframe genoem onderteken (ook bekend as IBM onderteken, of gesoneerde). COBOL verteenwoordig hierdie tipe veld deur 'n S in die prentjie klousule van 'n stuk grond vertoning formaat, bv PIC S9 (6). 'N getekende veld is saamgestel uit gereelde EBCDIC numeriese karakters, een karakter per byte, vir alle syfers behalwe die een wat die teken hou, óf die mees beduidende (teken leidende) of die minste betekenisvolle (teken sleep) syfer - gewoonlik die minste beduidende syfer. Die syfer wat die teken hou kombineer, of oor stoot die teken van die getal op daardie syfer. Dit spaar een greep wat die teken anders sou beset. Die waarde van daardie syfer gestoor as 'n binêre waarde, en is Ord met die teken-kode, wat is D0 blok vir negatiewe getalle, C0 blok vir positiewe waardes en F0 blok vir ongetekende waardes. As gevolg van die overpunch, sal die syfer wat die teken hou nie verskyn as 'n aantal wanneer die veld gesien in EBCDIC karakter af. As jy die veld en sien 'n waarde van 1,23 met 'n EBCDIC redakteur, sal dit 0000012C lees. ASCII COBOL opstellers ook gebruik 'n getekende datatipe met 'n overpunch, behalwe die teken stukkies is anders en nie gestandaardiseer tussen opstellers. Sien ons Tech-Talk kort Geteken Fields vir verdere besonderhede oor beide EBCDIC en ASCII Geteken velde. Teken afsonderlik COBOL onderteken velde insluit die teken in die waarde by verstek (sien onderteken velde hierbo). Maar daar is 'n bepaling in COBOL vir 'n afsonderlike teken, en dit kan óf begin of eindig wees. Die verklaring hiervoor is Dit kan gekombineer word met die voorste of agterste klousule: Hierdie stelling kan toegepas word op 'n laer item (veld) of om die hele rekord. Computational en Binary Fields Omdat rekenaars uit te voer berekeninge met binêre getalle, dit is meer doeltreffend aan dié waardes in die lêer te stoor in hul moedertaal tweeledige vorm as om hulle op te slaan in leesbare basis tien. As die getal gestoor in sy geboorteland binêre formaat wat dit kan wees insette van die lêer en direk gebruik. As sy gestoor in 'n basis tien formaat moet dit omgeskakel word na binêre voordat berekeninge daarop, dan omgeskakel terug na die basis tien vir die stoor. COBOL definieer 'n paar binêre datatipes. Ons sal 'n kort opsomming hier te lys, en jy kan meer besonderhede in COBOL Computational Fields en in COBOL Comp-3 Packed Fields vind. Voordat ons begin, daar is 'n belangrike punt om te verstaan: Die COBOL standaard laat die werklike implementering van die meeste datatipes tot die verskaffer wat die COBOL samesteller skryf. Die rede hiervoor is omdat verskillende rekenaars - CPUs - gebruik verskillende binêre voorstelling intern, en funksioneer die beste met hul eie soort binêre getalle. Hierdie benadering lei tot 'n beter en vinniger opstellers, maar veroorsaak ook verwarring, omdat 'n comp datatipe op 'n masjien is nie noodwendig dieselfde as comp op 'n ander masjien. Die tabel hieronder lys die algemene gebruike nie al opstellers sal hierdie tipe volg. Vir meer besonderhede oor woordorde en tekens op die skakel hierbo. Watter datatipe n veld gebruik vir stoor word bepaal deur die gebruik is klousule in die veld definisie, en in die meeste gevalle die aantal grepe stoorplek word bepaal deur die aantal syfers in die PIC. Drywende punt nommers volg standaard binêre formaat en as sodanig hul groottes nie bepaal word deur 'n PIC, en geen PIC word gebruik in die veld definisie. Beskrywing van hoe hierdie datatipe gestoor Packed desimale gewoonlik geïmplementeer as comp-3. Sien comp-3. Lees 'n binêre of comp veld spesifikasie, die in die PIC gelys grootte is die aantal desimale syfers na die getal omgeskakel vanaf binêre te baseer tien. In die geval van 'n gepakte veld, sy so groot soos ná pak. Real Desimale meeste PC programmeerders geneig om te dink in terme van die werklike desimale in numeriese waardes. Op 'n rekenaar, as jy 'n dollar en sent stuk grond vir, sê, totaal faktuur, in die bedrag van 123,45, die lêer sal die ses grepe 123,45 (en waarskynlik 'n teken) bevat. Met ander woorde, daar is 'n ware desimale punt in die lêer. COBOL kan dit doen, ook via die volgende: OF: Die teenwoordigheid van die. in die PIC veroorsaak 'n ware desimale in die lêer. Stilswyende desimaal egter baie meer algemeen in COBOL. Stilswyende desimaal stilswyende desimaal beteken eenvoudig daar is 'n desimale punt geïmpliseer op 'n bepaalde plek in 'n veld, maar nie eintlik gestoor in die lêer. Die ligging van die stilswyende desimaal word aangedui met 'n V in die PIC. Die gebruik van stilswyende desimaal red ruimte in die lêer. Stilswyende desimaal kan aansoek doen om enige vorm van numeriese veld, insluitend 'n gepakte, of comp-3 veld. Byvoorbeeld, is 'n stilswyende desimaal veld. Daar is 6 syfers, dan 'n stilswyende desimaal - die V - en 2 meer syfers, vir 'n totaal van 8 syfers. Die veld is 8 grepe in grootte is daar geen. in die lêer - die ligging van die desimale punt geïmpliseer word tussen die 9 (6) en die 99. As die veld bevat 00.000.123 dan die rekening balans is 1.23, want daar is 'n desimale geïmpliseer tussen die dollar en sent. Sinchronisasie en Belyning Hierdie onderwerp is 'n bietjie betrokke vir hierdie handleiding, maar jy moet bewus wees van dit. By die gebruik van binêre stoor (binêre en comp), kan 'n paar opstellers op sommige masjiene vereis dat 'n numeriese veld begin op 'n grens. Byvoorbeeld, op 'n 32 bit masjien, kan dit nodig dat 'n stuk grond comp begin op 'n 32 bit grens. As jy 'n stuk grond comp in die middel van 'n rekord spesifiseer, en dit nie die geval gebeur om te begin op 'n 32 bit (4 byte) grens, sal die samesteller dit in lyn te bring om 'n 32 bit grens om dit te sinchroniseer. Wat is eintlik gestoor in die lêer kan nie dieselfde wees as die foto's op die uitleg aan te dui. Dit is nie 'n baie algemene probleem, deels omdat binêre en comp velde is nie baie algemeen in lêers, maar jy moet bewus wees van dit. Bykomende inligting Vir meer artikels oor die sukses data, sien ons TechTalk indeks. Ons COBOL Gesprek Services CD-wisselaar Service Maatskappy kan die meeste numeriese datatipes, insluitend alle IBM hoofraam EBCDIC datatipes die, en die meeste ASCII datatipes van PC en UNIX stelsels om te skakel. Ons biblioteek van omskakeling roetines toelaat om te hanteer daardie moeilike werk wat standaard COBOL opstellers cant convert. USAGE Klousule die gebruik klousule spesifiseer die formaat van 'n data-item in die rekenaar geheue of in 'n lêer rekord. In sommige gevalle, 'n data-items in te dien rekord formaat kan verskil van die rekenaar-geheue formaat soos deur die gebruik klousule. Dit kan gebeur wanneer nie-COBOL lêerstelsels met verskillende data stoor formaat word verkry deur 'n koppelvlak. Byvoorbeeld, Acu4GL gebruik SQL om toegang te verkry nie-COBOL lêerstelsels, en in die proses 'n vertaling plaasvind op die data. Let wel: Daar is talle samesteller opsies vir wat data stoor gedrag. Sien Data Storage Options in die artikel ACUCOBOL-GT Verenigbaarheid. Die kolom aan die linkerkant toon die aanvaarde afkortings vir die terme aan die regterkant: A GEBRUIK klousule kan gebruik word in 'n data beskrywing inskrywing behalwe dié met vlak-nommers 66, 78 en 88. 'N GEBRUIK klousule mag nie gebruik word met 'n eksterne swaai-punt data item. As 'n GEBRUIK klousule is in die data beskrywing inskrywing vir 'n groep item, dan enige GEBRUIK klousules wat vir ondergeskikte inskrywings verskyn, moet van dieselfde soort wees. Die foto string van 'n COMP, COMP-1, COMP-2, COMP-3, COMP-4, COMP-5, COMP-6, kan BINêRE, of verpak-DESIMALE item net die simbole bevat 9, S, V, en P. COMP-6 items mag nie die S simbool. Die foto string van 'n COMP-X of COMP-N item kan net al 9 simbole of al X simbole bevat. Die data beskrywing inskrywing vir 'n gebruik is INDEKS data item kan nie enige van die volgende klousules bevat: OOP WANNEER nul, geregverdig is, prent, en waarde is. Vlak 88 items mag nie vereis word vir 'n gebruik is INDEKS data item. Die data beskrywing inskrywing vir 'n gebruik is wyser data item kan nie enige van die volgende klousules bevat: OOP WANNEER nul, geregverdig is, of 'n foto. 'N wyser data item kan 'n waarde klousule wat vir dit nie, maar die waarde moet die woord NULL wees. Die data beskrywing inskrywing vir 'n gebruik is vlot of 'n gebruik is dubbele data item kan nie enige van die volgende klousules bevat: OOP WANNEER nul, geregverdig is, of 'n foto. FLOAT of dubbele data items kan 'n waarde klousule het. Die waarde kan wees 'n drywende punt letterlike, 'n numeriese letterlike, of die woord nul. Hier is 'n voorbeeld van 'n werkende-berging Artikel data item: Die volgende is gesamentlik bekend as die C-styl datatipes: GETEKEN-INT, Ongetekende-INT, GETEKEN-kort Ongetekende-kort GETEKEN lange, Ongetekende lange. Hierdie datatipes is soortgelyk aan die tipe data wat gevind is in die C-programmeertaal. Die data beskrywing inskrywing vir 'n C-styl datatipe kan nie enige van die volgende klousules bevat: OOP WANNEER nul, geregverdig is, of 'n foto. Beheer-tipe is een van die grafiese beheer tipe name bekend aan die samesteller, soos etiket of intreevlak-lande of die naam van 'n ActiveX, COM, of beheer. Die data beskrywing inskrywing vir die gebruik HANDGREEP data-items mag nie enige van die volgende klousules bevat: OOP WANNEER nul, geregverdig is, of 'n foto. As dit nie 'n waarde klousule bevat, moet die gespesifiseerde waarde die woord NULL wees. Font-naam is een van die volgende ID's: Standaard-lettertipe, vaste skrif, tradisionele skrif, KLEIN-skrif, MEDIUM-skrif, groot lettertipe. Dit sal opgemerk word dat óf die opsie - Df of die opsie - Cv sal veroorsaak dat die opsteller om COMP-1 en COMP-2 behandel as FLOAT en dubbel, onderskeidelik. Vir meer inligting, sien afdeling 5.4 in oorskakel na ACUCOBOL-GT. Uitleg-naam is die naam van een van die stelsels standaard uitleg bestuurders. Tans is, kan dit net LM-grootte wees. A GEBRUIK klousule geskryf op 'n groep vlak van toepassing op elke ELEMENTARY item ondergeskik aan daardie groep item. Indien geen GEBRUIK klousule gespesifiseer, dan gebruik is vertoon is geïmpliseer. Die interne formaat van 'n gebruik is DISPLAY orde is ASCII. Die formaat van 'n indeks orde is 32-bits signed binary. Sy grootte is altyd vier, en dit het 'n reeks waardes van -2147483647 om 2147483647. By die gebruik van 'n Stel skakelaar vir verenigbaarheid met weergawes voor 6.0.0 (-Z52 byvoorbeeld) 'n indeks orde is 16-bit ongetekende binêre, grootte is altyd twee, en dit hou waardes van 0 tot 65535. Die formaat van 'n COMP-1 data item is 16-bits signed binary. Die wetlike waardes wissel van -32767 tot 32767. Die grootte van die data-item is altyd twee grepe, en die hoë-orde helfte van die data gestoor word in die linker byte. Die foto string wat die item beskryf is irrelevant. In teenstelling met ander numeriese datatipes, sal 'n groot fout voorkom op 'n COMP-1, COMP-X, of COMP-N data item net vir die waarde oorskry die fisiese bewaring van die item (met ander woorde, die aantal 9s in die items foto is geïgnoreer wanneer grootte fout bepaal). Vir COMP-2 (desimale stoor), is elke syfer gestoor in 'n greep in desimale formaat. As die waarde is onderteken, dan 'n bykomende sleep byte is toegeken vir die teken. Die stoor van COMP-2 is identies met GEBRUIK skerm met die hoë-orde vier stukkies gestroop van elke byte. Vir COMP-3 (verpak-desimale stoor), is twee syfers gestoor in elke byte. 'N Bykomende helfte byte is toegeken vir die teken, selfs al is die waarde is nie onderteken. Die teken is geplaas in die regterkantste posisie, en die waarde daarvan is 0x0D vir negatiewe alle ander waardes word as positief (maar sien reël 18 hieronder). Die grootte van 'n item (insluitend een vir die geïmpliseer teken) is gedeel deur twee te kom by die werklike grootte (afronding breuke in). Die formaat van 'n COMP-4 orde is twees-vul binêre (ter waarde sonder sy desimale punt). COMP-4 waardes gestoor word in 'n masjien-onafhanklike formaat. Hierdie formaat plaas die hoogste orde deel van die waarde in die linker posisie en volg na die lae-orde aan die regterkantste posisie. Die aantal grepe n data-item beslaan hang af van die aantal 9s in sy beeld en oor die teenwoordigheid van verskeie Stel-time opsies. Byvoorbeeld, kan jy meer as agtien 9s sluit slegs indien jou program is saamgestel vir die ondersteuning 31-syfer. Dit word opgesom in die volgende tabel: Let wel: Waar twee waardes gegee word, die kleiner waarde van toepassing op ongetekende data-items, en die groter waarde van toepassing op onderteken data-items. COMP-5 is hoofsaaklik gebruik word om te kommunikeer met eksterne programme wat verwag moedertaal data storage. The formaat van 'n COMP-5 data item is identies aan 'n COMP-4 data item, behalwe dat die data gestoor word in 'n masjien-afhanklike formaat. Dit word gestoor in 'n bevel wat natuurlik vir die gasheer masjien. Byvoorbeeld, 'n PIC S9 (9) COMP-5 data item is gelykstaande aan 'n 32-bis binêre woord op die gasheer masjien, en 'n PIC S9 (20) COMP-5 orde is gelykstaande aan 'n 64-bis woord. Let wel: Data gestoor word in 'n COMP-5 veld mag nie vervoer na ander masjiene wees omdat verskillende masjiene het verskillende natuurlike byte-rye. Op baie masjiene (68000 meeste RISC), COMP-5 is identies aan COMP-4. Op ander (80x86, VAX), dit is dieselfde met die grepe in die omgekeerde volgorde. 'N waarde klousule vir 'n COMP-5 data item word gestoor in 'n masjien-onafhanklike formaat en aangepas wanneer dit in die data-item is gelaai. Dit verseker dat die waarde is dieselfde van masjien tot masjien. Op rekenkundige en nie-rekenkundige winkels in COMP-5 items, indien afkorting vereis, by verstek ACUCOBOL-GT truncates in desimale om die aantal syfers wat in die prentjie klousule. Jy kan gebruik maak van die --TruncANSI samesteller opsie om afkorting dwing in binêre om die kapasiteit van die toegekende berging van COMP-5 items. Die - Dz en --noTruncoptions effekte ook afkorting. Sien Boek 1, afdeling 2.1.9, databerging Options, vir meer inligting. Vlak 01 en vlak 77 data-items wat COMP-5 is outomaties gesinchroniseer om 'n geskikte masjien grens, ongeag enige Stel-time instellings. Dit laat jou toe om dit veilig te slaag om C subroetines sonder om jouself te bemoei met belyning. As COMP-5 word gebruik met 'n PIC X (n) data item en 'n alfanumeriese waarde toegeken, die resultate is ongedefinieerd. Byvoorbeeld, die volgende kode fragment veroorsaak NUM om 'n ongedefinieerde aantal en die gevolglike waarde vir die laaste linie sal 100 wees: 'n PIC X (n) data item gebruik word met COMP-5 kan nie onderteken. Die formaat van 'n COMP-6 orde is identies aan 'n COMP-3 item behalwe dat dit nie onderteken en geen ruimte is toegeken vir die teken. As die nommer van syfers is vreemd, is 'n nul by die linkerkant van die aantal voordat dit verpak. So is daar twee desimale syfers per byte, en die werklike grootte van die item word bepaal deur die foto grootte te deel deur twee en afronding. A COMP-X data item moet beskryf met 'n foto string bestaande uit slegs 9 of net X simbole. In beide gevalle, is die data-item word as 'n ongetekende binary integriteit, met interne stoor soortgelyk aan dié van 'n COMP-4 data item. As X simbole word gebruik om die item te beskryf, dan is die aantal grepe om die item toegeken is dieselfde as die aantal X simbole in die prentjie string. As 9 simbole in plaas gebruik word, dan is die aantal grepe toegeken is die minste aantal grepe wat nodig is om 'n aantal van daardie grootte te hou. Byvoorbeeld, sal 'n PIC 99 data item toegeken word 1 byte n PIC 9 (9) data item toegeken word 4 bytes. Regardless van die aantal 9 simbole in die items foto string, die maksimum waarde wat kan gestoor word in 'n COMP - X item word bepaal deur die aantal grepe aan hom toegewys (tot 'n maksimum van 18 syfers, of 'n maksimum van 31 syfers as ondersteuning 31-syfer is in effek). Byvoorbeeld, kan 'n COMP-X item bestaan ​​uit 1 byte 'n reeks getalle van 0 tot 255. 'n 2-byte COMP-X nommer kan hou van 0 tot 65535. hou 'n groot fout begaan oor 'n COMP-X item net vir die waarde is groter as die data-item kan fisies hou. Wanneer COMP-X gebruik met 'n PIC (X) data item, die maksimum is PIC X (8). (Hierdie maksimum verhoog om PIC X (16) wanneer ondersteuning 31-syfer is in effek.) 'N COMP-N data item is identies aan 'n COMP-X data item, behalwe dat die data gestoor word in die gasheer masjiene oorspronklike formaat, in plaas van die masjien-onafhanklike formaat. Data-items beskryf as GEPAK-DESIMALE is identies aan COMP-3. Jy kan veroorsaak ongetekende verpak-DESIMALE as COMP-6 behandel word deur die gebruik van 'n Stel-time opsie. By verstek, 'n binêre data item is identies aan 'n COMP-4 data item. Die saamstel-time opsie - D5 behandel binêre data items soos COMP-5 in plaas items. In VAX / COBOL verenigbaarheid af, 'n COMP data item is dieselfde as COMP-4 en word beskou as binêre data. In RM / COBOL verenigbaarheid modus, COMP is dieselfde as COMP-2. Jy kan saamstel-time opsies gebruik om die verstek gedrag te verander. A wyser data item word beskou as 'n ongetekende numeriese data item. Die interne formaat verskil vir elke masjien. Wyser data-items is bedoel om adresse van ander data-items (sien die verklaring uiteengesit.) 'N wyser data item kan 'n waarde klousule wat vir dit nie, maar die gespesifiseerde waarde moet die woord NULL wees hou. Dit dui daarop dat die wyser nie op die oomblik wys om enige item. As 'n wyser 'n aanvanklike waarde nie uitdruklik gegee, dan is sy aanvanklike waarde is arbitrary. Pointer data items beset 8 grepe. Dit bied genoeg ruimte om 'n adres te hou op 'n 64-bis masjien. As jy op 'n kleiner masjien, die runtime gebruik slegs die eerste 4 grepe van wyser data-items (die sleep 4 grepe bly in die geheue, hulle net links ongebruikte). Jy kan gebruik maak van die - Dw stel-time opsie om die ruimte te wyser data items toegeken aan te pas. Jy kan dit doen om die stoor te bewaar as jy weet jy sal nie uitgevoer word op 'n 64-bis masjien. Wysers gebruik kan word in voorwaardelike uitdrukking, waar hulle kan vergelyk word met mekaar of ter waarde NULL. 'N Vergelyking met 'n wyser moet wees óf gelyk of nie gelykes (groter en minder as vergelykings word nie toegelaat). Vlak 01 en vlak 77 data-items wat wyser items word outomaties gesinchroniseer om 'n geskikte masjien grens, ongeag enige Stel-time instellings. Dit laat jou toe om dit veilig te slaag om C subroetines sonder om jouself te bemoei met belyning. Behalwe vir die outomatiese sinchronisasie, is GEBRUIK wyser data items behandel in alle opsigte soos GEBRUIK Ongetekende lange data-items. Dit hanteer alle huidige masjiene korrek. Hierdie gedrag kan verander om aan die vereistes van 'n toekomstige masjien te ontmoet. Swaai-punt data-items word gestoor in 'n masjien-afhanklike formaat. GEBRUIK FLOAT items 4 grepe aan hulle toegeken is. GEBRUIK DOUBLE items beset 8 bytes. Level 01 en vlak 77 data-items wat GEBRUIK FLOAT of dubbel word outomaties gesinchroniseer om gepaste masjien grense, ongeag enige Stel-time instellings. Dit laat jou toe om dit veilig te slaag om C subroetines sonder om jouself te bemoei met belyning. Die ANSI definisie van COBOL nie sê hoe tekens moet gestoor word in numeriese velde (behalwe vir die geval van teken AFSONDERLIKE). ACUCOBOL-GT kan jy alternatiewe teken-berging konvensies kies deur gebruik te maak van die Stel-time opsies - Dca, - Dcb, - Dci, - Dcm, - Dcn, - Dcr, en - Dcv. Spesifiseer van 'n teken-berging konvensie is soms nuttig wanneer jy die uitvoer en invoer van data. Vir meer inligting, sien die gebruikers handleiding, artikel 2.2.10, databerging Options. The stoor konvensie beïnvloed hoe data verskyn in GEBRUIK vertoon, COMP-2, en tipes COMP-3 data. In GEBRUIK vertoon, standaard ASCII stoor, indien die teken in 'n syfer posisie is opgeneem, die syfer is gekodeer volgens die volgende tabel: Tabel inskrywings gemerk met 'n asterisk dui vaste-grootte items. 'N Vaste-grootte orde is dieselfde grootte, ongeag van die teiken masjien. Inskrywings sonder 'n asterisk is veranderlike in grootte. Hierdie items sal ruimte beset tot die aantal in die tabel gelys grepe. Let wel: Die in die tabel hierbo dekking alle huidige en verwagte masjiene wat ACUCOBOL-GT hardloop groottes. Toekomstige argitekture mag veranderinge aan die maksimum grootte aan hierdie items benodig. In die uitvoering omgewing, hierdie items te tree in alle opsigte asof hulle vaste-grootte data-items van die toepaslike grootte. Byvoorbeeld, die volgende kode fragment: sal druk 4 wanneer loop op 'n 32-bis masjien, maar dit sal 8 druk toe loop op 'n 64-bis masjien. In die volgende voorbeelde word elke byte verteenwoordig deur twee heksadesimale syfers of deur 'n enkele aangehaal karakter. Elke waarde word in die verskillende formate. Ook getoon is GEBRUIK vertoning met die verskillende TEKEN opsies. Die volgende voorbeelde gebruik die verstek ACUCOBOL-GT teken-berging konvensies. HANDGREEP data-items te maak om hul eie data klas en kategorie in COBOL. Intern hulle gestoor as heelgetalwaardes en optree soos getalle wanneer dit gebruik word. 'N handvatsel data item word gewoonlik gebruik om die handvatsel van 'n dinamiese geskep voorwerp te slaan soos 'n drywende venster of 'n grafiese control. HANDLE data-items kom in twee vorme: getik en generiese. Jy skep 'n generiese handvatsel wanneer jy laat die VAN frase. Jy skep 'n getikte handvatsel wanneer jy sluit die VAN frase. Jy kan HANDGREEP data-items gebruik net vir uitdruklik toegelaat, of as deel van 'n skuif verklaring, 'n oproep verklaring (as 'n parameter), of in 'n Boole-uitdrukking. Generiese handvatsels kan gebruik word in 'n situasie waar handvatsels word toegelaat nie. As jy 'n generiese handvatsel as die bron van Modify verklaring te gebruik, sal jy nie in staat wees om enige beheer-spesifieke eiendom of styl name gebruik in daardie verklaring. Dit is omdat die generiese handvatsel kan geassosieer word met 'n tipe van beheer. In hierdie geval, kan die samesteller nie bepaal watter stel styl en eiendom name is geldig. Getikte handvatsels kan gebruik word in state waar enige handvatsel is toegelaat, of wanneer jy verwys na 'n voorwerp van 'n bypassende tipe. Byvoorbeeld, kan 'n handvatsel van die venster nie gebruik word as die handvatsel in 'n vertoning ETIKET verklaring. In plaas daarvan, moet jy óf 'n generiese handvatsel of 'n handvatsel van Label gebruik. Getikte handvatsels toelaat dat die opsteller om geassosieer styl en eiendom name erken wanneer toepaslik. Getikte handvatsels verbeter ook die leesbaarheid van jou program deur die verskaffing van meer inligting oor die beoogde gebruik van die handvatsel, bykomend tot die verskaffing stel-time nagaan om te verseker dat jy die handvatsels in gepaste situasies. Handvatsels kan gebruik word in vergelykings. Daar is net twee sinvolle vergelykings: nagaan vir gelykheid of ongelykheid te NULL, en vergelyking met ander handvatsel data item. 'N handvatsel waarde van NULL dui altyd 'n ongeldige handvatsel. Handvatsels word intern gestoor as 4-byte binêre heelgetalle. Hierdie inligting kan nuttig wees wanneer jy debugging 'n program (jy kan die waardes van handvatsels in die debugger ondersoek). Jy moet nie staatmaak op hierdie definisie in jou program, maar omdat dit is onderhewig aan verandering in die toekoms. Hanteer data items outomaties gesynchroniseerd op 'n 4-byte grens. Let daarop dat dit gebeur, ongeag die instelling van die - Dl stel-time opsie (wat die bedrag van die sinchronisasie beperk). Die runtime stelsel vereis hierdie vlak van die aanpassing om te verhoed dat die opwekking bus foute op sommige masjiene. As font-naam is vermeld, dan is die data-item beskryf word deur die gebruik klousule is geïnisialiseer by program begin met die ooreenstemmende font handvatsel. Dit tree identies aan die plasing van die stelling: aan die begin van jou program, waar data-item is die data-item beskryf word deur die gebruik klousule en font-naam is dieselfde as font-naam in die gebruik clause. Q1) Noem die afdelings in 'n COBOL program. A1) IDENTIFIKASIE afdeling, OMGEWING afdeling, DATA afdeling, PROSEDURE DIVISION. Q2) Wat is die verskillende datatipes in COBOL A2) Alpha-numeriese (X), alfabetiese (A) en numeriese (9). Q3) Wat beteken die inisialiseer werkwoord doen - GS A3) Alfabetiese, Alfa velde amp alfanumeriese geredigeer items is ingestel om ruimtes. Numeriese, numeriese geredigeer items aan nul. Toevoeg. VOORKOM AFHANGENDE VAN items onaangeraak gelaat. Q4) Wat is 77 vlak gebruik word. A4) Elementêre vlak item. Kan nie onderafdelings van ander items (kan nie gekwalifiseer wees) wees, of kan hulle hulself onderverdeel. V5) Wat is 88 vlak gebruik word. A5) Vir toestand name. V6) Wat is vlak 66 gebruik word. A6) Vir herbenoem klousule. Q7) Wat beteken die IS NUMERIC klousule vestig. A7) IS NUMERIC kan gebruik word op alfanumeriese items, onderteken numeriese amp verpak desimale items en ongetekende numeriese amp verpak desimale items. IS NUMERIC terug WAAR indien die item slegs bestaan ​​uit 0-9. Maar, as die item getoets is 'n getekende item, dan is dit kan bevat 0-9, en -. Q8) Hoe kan jy 'n tafel / opgestel in COBOL 05 array1 PIC X (9) definieer VOORKOM 10 keer. 05 array2 PIC X (6) kom 20 keer deursoek met WS-indeks. V9) Kan die VOORKOM klousule wees aan die 01 vlak Q10) Wat is die verskil tussen indeks en subscript - GS A10) voetskrif verwys na die verskeidenheid voorkoms, terwyl die indeks is die verplasing (in geen grepe) van die begin van die skikking. 'N indeks kan net verander word met behulp van VERRIG, soek amp STEL. Nodig het om die indeks vir 'n tafel te deursoek gebruik, al soek. V11) Wat is die verskil tussen soektog en ALLE - GS A11) Soek - is 'n reeks search. Soek alle - is 'n binêre soek amp die tabel moet gesorteer (stygende / dalende KEY klousule te gebruik amp data in hierdie volgorde gelaai) voordat die gebruik van search all. GS A12) Dit kan óf stygende of dalende - Q12) Wat moet die sorteer orde vir die soektog almal. ASCENDING is standaard. As jy wil hê dat die soektog te gedoen word op 'n verskeidenheid gesorteer in dalende orde, dan terwyl die definisie van die skikking, moet jy gee neerdaal KEY klousule. (Jy moet die tabel in die gespesifiseerde bevel laai). Q13) Wat is binêre soek A13) Soek op 'n gesorteerde skikking. Vergelyk die item te deursoek met die item by die sentrum. As dit ooreenstem, fyn anders herhaal die proses met die linker helfte of die regter helfte afhangende van waar die item lê. Q14) My program het 'n verskeidenheid gedefinieer tot 10 items het. As gevolg van 'n fout, vind ek dat selfs indien die program toegang tot die 11de item in hierdie reeks, die program nie Abend. Wat is verkeerd met dit A14) Moet gebruik samesteller opsie SSRANGE as jy wil verskeidenheid grense nagaan. Standaard is NOSSRANGE. Vraag 15.) Hoe doen jy soort in 'n COBOL program gun soort lêer definisie, soort verklaring sintaksis en betekenis. - GS A15) Sintaksis: SORT lêer-1 OP stygende / dalende KEY sleutel. GEBRUIK lêer-2 GEE lêer-3. GEBRUIK kan vervang word deur INSET prosedure para-1 THRU para-2 Skenking kan vervang word deur UITSET prosedure para-1 THRU para-2. lêer-1 is die soort (werk) lêer en moet beskryf met behulp van SD inskrywing in die lêer AFDELING. lêer-2 is die insette lêer vir die sorteer en moet beskryf met behulp van 'n FD inskrywing in die lêer AFDELING en kies klousule in die lêer BEHEER. lêer-3 is die buite-lêer van die sorteer en moet beskryf met behulp van 'n FD inskrywing in die lêer AFDELING en kies klousule in die lêer BEHEER. lêer-1, lêer-2 amp lêer-3 moet nie uitdruklik geopen. INSET prosedure uitgevoer word voordat die soort en rekords moet vrygelaat word om die soort werk lêer van die insette prosedure. UITSET prosedure uitgevoer na alle rekords is gesorteer. Rekords van die soort werk lêer moet teruggestuur word een op 'n tyd om die uitset prosedure. Q16) Hoe kan jy 'n soort lêer in JCL dat die COBOL program A16 loop) Gebruik die SORTWK01, SORTWK02 definieer. dd name in die stap. Aantal soort datastelle hang af van die volume van die data wat gesorteer, maar 'n minimum van 3 word vereis. V17) Wat is die verskil tussen die uitvoering van 'n gedeelte en 'n paragraaf - GS A17) Uitvoering van 'n afdeling sal al die paragrawe wat deel is van die artikel veroorsaak, wat uitgevoer moet word. Die uitvoer van 'n paragraaf sal veroorsaak net dat paragraaf wat uitgevoer moet word. Vraag 18.) Wat is die gebruik van EVALUEER verklaring - GS A18) Evalueer is soos 'n case-stelling en gebruik kan word om geneste Ifs vervang. Die verskil tussen EVALUEER en geval is dat daar geen onderbreking nodig is vir EVALUEER dws beheer kom uit die EVALUEER sodra een wedstryd is Vraag 19) Wat is die verskillende vorme van EVALUEER verklaring te evalueer SQLCODE OOK file-STATUS WANNEER AB en CD WANNEER 100 OOK 00 noodsaaklik stmt noodsaaklik stmt WANNEER (DX) / Y 4 WANNEER -305 OOK 32 noodsaaklik stmt noodsaaklik stmt wanneer ander wanneer ander noodsaaklik stmt noodsaaklik stmt EVALUEER SQLCODE OOK AB EVALUEER SQLCODE ook waar wanneer 100 ook waar wanneer 100 OOK AB noodsaaklik stmt noodsaaklik stmt wANNEER -305 valse wANNEER -305 OOK (A / C4) noodsaaklik stmt noodsaaklik stmt Q20) Hoe kan jy uit 'n EVALUEER verklaring kom - GS A20) na die uitvoering van een van die toe klousules, is die beheer outomaties oorgedra word na die volgende sin na die EVALUEER verklaring. Daar is geen rede vir enige ekstra kode. Vraag 21) In 'n EVALUEER verklaring, kan ek gee 'n komplekse toestand op 'n toe klousule Vraag 22) Wat is 'n omvang Terminator Gee voorbeelde. A22) Omvang Terminator word gebruik om die einde van 'n werkwoord bv merk EVALUEER, end-evalueer of, end-AS. V23) Hoe doen jy in-line uit te voer - GS A23) uit te voer. ltUNTILgt. Q24) Wanneer sal jy in-lyn gebruik uit te voer A24) Wanneer die liggaam van die voer sal nie gebruik word in ander paragrawe. bv II. III. IV. VI. VII. Alle regte voorbehou.