, vi medtager dl /jeg kalder ind cobol application program til at kommunikere med inis - databasen.vi bruger følgende dl /jeg erklæringer på cobol - databasen:,, indrejse erklæring tilbage erklæring, ring til udtalelse, indrejse redegørelse, kan den bruges til at bestå den kontrol af dl - til cobol - program.her er syntaks af angivelsen erklæring:, punktet dlitcbl "ved hjælp af pcb-name1 [pcb-name2] ovennævnte erklæring er kodet i procedure division af cobol - program.lad os gå i detaljer med angivelsen erklæring i cobol - programmet:,,, det parti, initialization modul udløser anvendelsen program og udføres under dens kontrol,.,,, dl /jeg belastninger, den nødvendige kontrol, blokke og moduler og anvendelsen - program, og kontrol af anvendelsen af programmet. dlitcbl,,, står for, dl /- til cobol.punktet erklæring, der anvendes til at definere det punkt i programmet.,,, når vi kalder en sub - program i cobol, sin adresse er også til rådighed.på samme måde, når jeg giver kontrol dl /anvendelse program, det er også den adresse på hvert enkelt pcb defineret i programmet er pto.,,, pcb, der anvendes i ansøgningen program skal defineres i afsnit, sammenkædning af cobol - program for pcb er bosat uden for anvendelsen af programmet.,,, pcb - definition i forbindelse afsnit hedder, pcb - maske,.,,,, forholdet mellem pcb masker og faktiske pcb i oplagring er skabt ved angivelse af pcb i punktet erklæring.rækkefølgen for opførelse på listen i punktet erklæring bør være det samme, som de ser ud i psbgen.,,, blive erklæring, er det, der anvendes til at bestå kontrollen til ims - control.følgende er syntaks af tilbage:, tilbage, der er nævnt nedenfor, er de grundlæggende punkter om tilbage:,,, tilbage, indkodes i slutningen af anvendelsen af programmet.det vender tilbage, at styringen dl /i af programmet.,,, bør vi ikke anvende stoppe løbe det afkast, kontrol med styresystemet.hvis vi stopper, dl /, jeg aldrig får chancen for at udføre dets afslutning af funktioner.det er derfor, i dl /i applikationsprogrammer, blive erklæring anvendes.,,, før de udsteder et tilbage erklæring, alle de ikke - dl - datasæt, der anvendes i cobol application program skal være afsluttet, ellers vil programmet bringe unormalt.,,, ring til erklæring til erklæring anvendes til anmodning om dl /jeg tjenester såsom at udføre visse operationer på ims - databasen.her er syntaks af call - erklæring:, kalder cbltdli "ved hjælp af dli funktion kode pcb maske segment i /o område [segment søge argumenter], syntaks fremgår af ovenstående parametre, som du kan bruge til den erklæring.vi vil drøfte hver af dem i følgende tabel:,, s.no., parametre med beskrivelse, 1, dli funktion kode, som identificerer de dl /- funktion skal udføres.dette argument er navnet på de fire områder, der beskriver karakter i /o operation., 2, pcb - maske, pcb - definition i forbindelse afsnit hedder pcb - maske.de anvendes i punktet erklæring.nr. vælge, udpege, åbne eller lukke udtalelser er påkrævet., 3, segment i /o område, der hedder en input /output - arbejdsområde.dette er et område af anvendelsen - program, som jeg har anmodet om dl /segment., 4, segment søge argumenter, er disse fakultative parametre afhængigt af typen af opfordringen.de bruges til at søge efter data, segmenter i ims - database.,, er angivet nedenfor, er de punkter om den ringe erklæring:,,, cbltdli står for   cobol til dl /i. det er navnet på en grænseflade modul, der er link redigeret med dit program er objekt modul.,,, efter hver dl /jeg ringer, dli butikker status kode i pcb.programmet kan anvende denne kodeks for at afgøre, om den ringe lykkedes eller svigtet.,,, f.eks. større forståelse af cobol, kan du gå gennem vores cobol tutorielle   her.følgende eksempel viser strukturen i en cobol - program, der anvender ims - databasen og dl /jeg kalder.vi vil gå i detaljer med hvert af de parametre, der anvendes i f.eks. den kommende kapitler. identifikation division.program-id. test1.data - afdelingen.working-storage afdeling.01 dli-functions.05 dli-gu pic - x (4) værdi "gu".05 dli-ghu pic - x (4) værdi ghu ".05 dli-gn pic - x (4) værdi "gn".05 dli-ghn pic - x (4) værdi ghn ".05 dli-gnp pic - x (4) samlede bni.05 dli-ghnp pic - x (4) værdi ghnp ".05 dli-isrt pic - x (4) værdi isrt ".05 dli-dlet pic - x (4) værdi dlet ".05 dli-repl pic - x (4) værdi repl ".05 dli-chkp pic - x (4) værdi chkp ".05 dli-xrst pic - x (4) værdi xrst ".05 dli-pcb pic - x (4) værdi "pcb '.01 segment-i-o-area pic - x (150).sammenkobling afdeling.01 student-pcb-mask.05 std-dbd-name pic - x (8).05 std-segment-level pic - xx.05 std-status-code pic - xx.05 std-proc-options pic - x (4).05 fyldstof pic - s9 (5) fft i.05 std-segment-name pic - x (8).05 std-key-length pic - s9 (5) fft i.05 std-numb-sens-segs pic - s9 (5) fft i.05 std-key pic - x (11).procedure division.punktet dlitcbl "ved hjælp af student-pcb-mask.a000-read-para.110-get-inventory-segment.kalder cbltdli "ved hjælp af dli-gn student-pcb-mask segment-i-o-area.tilbage.,