Baixe o app para aproveitar ainda mais
Prévia do material em texto
'It. t i j I"' FACUID :tÊ . ïEthpLsct t!Ë $Ão Pât t-o .-FATEC " $F * ' i i t . DrsctPLtNA I DE PTo. i , , . PROFESSOR: . . : - . i - . , f . . ; . t . : . l , " . t :a.* : ; - ANO f$E OA APOËTtLA t$Pnrsso , ïÁ caÃrrct àE FÁrÉË - 5P ' - : r . . . .','r i snïRÀs ct AUsuIÀs DB DËFIlftçÀQ DE DâDOS 03 o? OE 00 Ìq te r| trt le- It 30 ,? a*pÍr$ro re l. $ERODUçÍQ I r,rseüeeEË Cüffi. l. Í. tgr#mRlço f,.'. Ëo&trÍÀ Dg eG*rã'tcâçso eoEoL caetflÍIÉ a I 2. sDEn$ErÍgArgOH DgVtrSrO!Í cÀpÍEuLo ãs I, B!íVIRO!{SË}ãB üïVrgXOtf , t.f,. GOilFXËItRihTXOH gBdrrür $, I n& r êOURGE*COI{PUÍER s, 1. 8. $BJECt-COI{PUtER ã"1.ã, SPscI*&-NAlrEs &, g " 3.I . DECII,IAL-IDIìIII' Ig @ltrlÀ 3. l. SllFtÍF-üUTPgf gg(!|nOil 3.I. iL. FTI"E-CONTROL 3. A.1.1. U&eenO DO grSTBtÀ â"e. 1, âo cÍ,AgsrFlcAçfo .E, g. f .3 n HÚnÍgno Do PBnrFÉnlcç $. ?. I o.4. SODO DE ÀCEsSO cÂBÍrulxl cr .I " EAtrà DIVITITOTI:' ;;; rüN'õÕEs DÀ DArA Drvrsro$ 4 . T. Ë$TR$M'RA GERAI. DA 'DATÀ DXVISTOII{-3. FILE gËCTrOfi i$ .3.l. 3rtcfi eoffiT*rlíg 4'3n3. RECORDS CONTAIilÍl ô. t. B , ÍÂtsEL RECCRDS . i,3.êo pÃge REËoRDg ô'StS' VÀLttg ü$ o 'o 4.4. RECORD PEggRÏPryEOil . 4'õ.& PgefïtRE EE DàDO$ ì-r{ i l . { .8 1 ,á " USÀGg{.S.t" ggÃGE gF P:sPr,*V$.8.8. rrsÀGE r8 CüllPrr8ÀcroËfàL{g " s. s. ug*69 rs cotP-3 4n$" ca.su$rr.A occ[tRs 4 . ?; ËsÁusltLs nEDEFrlrEs tt CÀPÍTUI"O .- v,L6.r Drspl.Àg El,Í TELÀS.' , ,: ï 5. l; : ÍÍexs rN?-eFEryDENTES Dl íonrlxc-srollbË: d5-;2.. 31ls pÂRà coNrrr{uaçÃo pn iirnãÃi3 . ,..5.3. HOI{ES CONDrcroNÀrs :-. : '. .. , '...'Ì b.{r. prentRE oÉ gõiói iõ- . ' . . . . ' ' ' ' . , ,u ; - . ' , ' l l - , . i . .1. ' ' ; - t i , , r . : ' . ; 7.19. CURSOR :; ' , ' 'r ' ì" ' ...7.20. FrtE STÀTUS ,' ".,. 7,.?L. TECT.AS DE fultçAo . ?. PROCEDURE DTVISION 7.L. SUBDIVTSÕES DÀ .: 7.2. OPEN ' ' t ' .' 7.3. CLOSE ; ' . : , . . ' , , 7'r7. nEr,ATroN-CoÌ{DIbfo.l,l 7.;q. clÀgs ".cgNDITrú 7..9. SIGNÀL EONDITION '7. lO ; COI{POUND -CONDfTIOH .. i l . t Í - . UOVE . , : , , ' : ' ' " ' ' - - - _- ' : ' _ j - - . : . 3. DETIXTçÃO DE rrlt ARQUM INDEI(ÀDO 9,4 . CoüÀlfDOg DB ÀnQUIV9S INDEXADQS 9.4 ,1. OPEÌ{ I .4 ,.2.' READ'' 9.{ ,3. ïRrrE 9..4.,4. REI|RITE 9.4.5. .DELËTE :Í14 g. {..6,. STÀRT CAPÍTï'I,o 10 S : : -10. urltrzAllDo o' tüIcRogoFTn 10,x. usAlfDo o llsoFmAREn VERSÀO {rã - rPIfB ' , : . i ' 65 ' . : 10.1. t , ; EDIEÀI. iDQ TExTo ' r , , , i - , . , 10. 1. E. COI{PIT.AÌIDO PROGRAIIA ,1o. i, 1. ãncorrnurnpo/nnoncúrsÀttDo Íxolces ItrO;2 " ITSCREBNST! t rO. 2. I. DEFIil'TNDO UT{A TEIÀ 10.2.T.I. DESENHÀIIDO À I|oIDURA I. ' 10.!..1.2. DEFTXTNDO CÀI{FOS 10,2. l .3, . .PrNTN|DOCÀI|POS' : : ' . 10 , 2. 1 .4 . pEFrNrt{DO cRUpOs (oeonRarcÍâg) 10, e. t. 5, . ÌíovENDor/copIAIDO CÀüPOS 10.2i 1..6. ÀLrERÀ}|DO À onDEu DO âCgFgn10.e,L.7. FEIìN|DO O COBOL ". 10.2.1 .9.. SÀLVANDO A TEIÀ 10. E. 1. 9 . DELETÀIIDO ATR,IBT'IOS DE CAIIFOS 10" 3.1.10. DETETÀ}IDO ATRIBTEQS DE GRUKNI 10. ?. 1. 11. .. DELETÀìIDO LllfttAs1.O"2.1;12. 'r l tSERrI, tDOLItfHÀg ' : 10.e.1.13. gÀrNDO D.À iSCREEIIST . iÀRQUTVO-S GERADOS ,, 4TsrBurr-oggEçNTPOF ' , . . . ' : : " i r : " ' 9ÀPITIIOl l l , ; ' , , . ' , , , . , , , - : : 1. . Ì . 11" EXETPTSS DE PROGRÃ}íAS : 11. 1; 'PROGRÀIÍA I tÊiGRÀVA +1.A" PROçRÃüÀ 3'LÊ*IHPRII'IE ' oe 67 e9- çe ïB. j . . : j . - : a .- o c€Bot (cornrnon,Buslnesq_ ori,eiiÈed Í,anguagê)':é unaIinguagem' de progranaçâd de arr-o=;iËI , =ËãËËáa=pll" aplicações cclrnerõials. , :i i, - o objetivo do coBol, é oferecêr uüa Llngu.g"n.c".l,progranaçËlo que atenda aos segulnr., iÃqur;ía;Ë;:.i:-; ' , - ' . . ' , ',,,1, ,i. I :::?í?.pendêncía, de -!lpg'd" equÍpàpentg ,. ', ;J',: . : . Ç.Facl l idade de aprenaizâdo ' ' iBoadocumentaçãó.dosprogrËi l [ l l8. . . . . . Ex-fsten euatl-o DENTIFTEATTON EÌ{VIRO!ú!,IEÌ{T DATA '. ' ,,, . ' , PROCEDURË grandes ,div.i"sõês. DIVTSION DTVISION DIVtrsïolr DIVTSION' en ur.programa. ÇgBOLt i.... EXET,TFÏ.C DE PROGRÀI{A H{.COBOL: . . : ' . . : . IPryII_FrcÀrroN DrvrsroN iPROGRÀ!{-ID. 8X01,. : EHVIRON}.TEilT DTVISION. ' :ggIFrc{aÀTrroil sEcTrol{. , _ SOURCE-COI{PITTER. UNTSYS . QBJECT-COII{pUIER. UI'ÍISYS; ,' : IT{PTIT-OUTP{JT SESITON. ' . FTLE*CONTiìOL. EEi,ECr ARQ-ENT AssrcN ro TÀPE. : . ,, SELEqf RELàT ÀSSIGN fO PRINTER. " ' , , ' . r ' : . : DÀTÀ DIV.ISION. , , : "FTLSSEC?IõH,. , ' . . . . . , ' . FD ARQ-EI{T I,ABEL RECORD ARE STANDÀRD : . BLocK coNTAIHs 1260 cúínacrgR,s . ,: , ,:.' .,, VÂLUE OF TrTLE r'S flCÀDÀSTRO,I- :.REG-EÌ{T, . : 95 coDrco Prc e(o5) 9I ilolrE Prc xi:oiüËFIt tEB prc xtagi . . " ' . ' ' , REI"AT I I . . j o1 !rD : t . T"ABEL hECOiì,O ÀRE OHTTTtsD. REG;REL PIc x(132). -.t. [ ,t , - l r " 1 ' 02 F'ILLER PIC X(33) VÀLUE:SPACES. : Prc x(6s)v3 r l l r . r r t ( r t tJ ã(o3, .YALUU i l 'X ! ; " L + G 4,( l , . D.p. : - : ;i ; , 'bs, ' DA EupR,bsA' , ,ó l l r , ' 7 ' . , ; . . . . iOZ FIL"LER PIc x{ 34 ) VÀLUE ISPÀCpS; ;, . , '1, '' ' : . . : ' " t PERFORü 4O-I.íOVE-I}íPRT}TE; . , . , . ' . . . . . . : . ' . . . ' . ' ' : . ; . ' . ' : , tÍovE coDIco To coDrco-REL. :-} lovElío}tEro$ol . lE-RELi ' . ' . . . . . ! ffiã*" IEG-REI,[ão" |ffi$ï ÀrrEB Aevlrfcltttl iiüI,tü1, otr l IEITE EEG-REL FRot{ cÀB-01 AETER ÀúVAnëÌüc ptcBr .: .' t {O{E ZEnOAS:. ÍO Çf:LI11l . . , ' t . ' . ; ' j , , . . . : ' . ' - . . - . ; ' , ' i , , ' .: ' ' . i . ,d ' i l . ' . i ' " ' , ' , , r : jL; ; . ' ' : , ' ' ' : '. , Os progranadores d,e ptogramas en fornulários üe Codificação que ten a colunas ì p?r* a,, I Às. col-unaç compreendldas êntre z3 ? Bo sãg aà,stlnadoe1f;11?l_t.!ficagio rg? -pïoErana. À$ dernat.s_ çoiunÀs. õ"ãüËD ãÇ. :.,: ; i : - . le9uint :es Èinal iaãaeé: ' r : Ì . rcgl,ulrA 7 i i , : , É usada. , 'I lteraiê não conentárlos; r . . . i r . . ' : O? T'II.ÊER OT{FÀÌI ' ' ì l . . " i : . ,PIe Ë(63)H. r, A ït,."3 rBr ; EãPT{UE8 2 2,. EDBr{TrFrcà8totr t}IvtslotÍ ao tnvéq dlgso lnsl.ete ite PROGRAIT-ID" &uH{oR. âITFIIOR. lfeme ôo. prognüê. Ifoue do autor. HÂnCO. INSTÀIJÂ8IOüÍ, Local de ueo: DÀTE-ÜRIfIEH" p"!õ €E que fol escrfto o grograúa.DAfE-cot{PrLED, gÊta gq gue f_ol conpriaaõ o pnogFana..SECLIRf?Ï - Conantárlo eobre-a Éegurança-.REllÀRxs- conentÉrlos gerals soËre o prograrË. Por ser o no&e'de rrsã dlvlsão, a rDEHTrFrcÀTrotlOIvfsIoH ,é codj.fiaada na üarçÍên l. -ge noDes aos, paiâgretooÈanbén são codlflcadoe na naúger À, e cada ú ã"ïãã-ã- . segutdo de up ponto f{nal,. i À Énlca :ttrl"g_9bytser,órta na rDBtrTrIISnïoq - Drvrsror.é g_FnocRàsr-lo, o rronÊ quë ee règruÊ ã úüffigAËiõ-ãeúã ssr i.codlflcEds Râ Fargèr-Q, _uste nonã derre cilü€; ;õ ;ãii!o-ãó :::r:!=Ige {le!raa, c{gtt9ç_s hÍfensi, Das oe e pirnãiro=-sãc os gue realuenie lóenËlftcan o prograua ao cãnputador. EXE!{PÍS NO UNISYS: TDENTIFICATTO$ DIVTSIO$. PROGRru{-TD" IDEIIT. ÍI{STÀIJÀTIOIÍ. SATEC-8P. DAIÍE-línIfEglI. 08-10-gl . DÂ8B-COüPTLED. .; ' sBcuRïr[" atrslilcf,o sgqFlrB NtBOnl4C,rÉi m AIrrloR.raËËÀa$s" pRoGÊÀffA i[oDErÍt. .- --'--5.---'- r- oBSs tfão ê necessário colocar a data no piráEqafo DAÍE-ctlíPrLED, goÍs o utüsts cotocará a dara ão sídiãua---- operacíonal. nÉ colunâ ? ,áo 1nq$qrçfa AEF|ânfE pra o en$ilsdor. ' ,'' É a uenorrjËrt etapres ô rêne taportcnte dlvtelo deulE progrena coB6'I,. Ë Esada patB ldenÈtàLear o prograi!Ê. Ela não poesul eegões,grarágraf,oa. FOruíÀSO ,^ IDEI{TTTTCATIOil DIVTSIOil. Ae funçtee dà Ëtytgão üb EqulpÊüÉnto Bão üeecrevêË üs aêract€EÍetlcae 6o conlnrtedor a -seËutllkaao ã-cegrnt* õargulvoe ueados no prçA,Eaila, pogãnoo-tãnnea cçËciãúei, .. ,:tácnlcas e entroiae eepectalg para entsada ou eaÍda ôedadoe. Bsta êlvlEão é coqnsta de dusa s€Çãee r eonf,lEuração r COHFICttRÀTfOtü SEgtIOil ." EnÈrada'e {e aaÍda: ItfpIr8?qffHnf ggryfigt 3.1.col lFIË[tRAtfOÌfSECnIOÌ{ . : , - , .' a qeç{to rfe ciónf{grraçio fornece lnfornaç,üsg "ou*. o corputaôor.e É dlvl,dlda en'trâs,:parágrafosi - i SOURCE-CtfFUfpn OBüEdf-eO!{PfItEn 9PECfâL-ilÀltES . . I ' 3r:1 | l. :ÍFIIRCE-CEIIFUSEÍI o paráqrafo ÍtoltReE-ccïlufEa üescre-ng cr lltrer.. coruputador o prograna-fonte eerá conpilador'-ô ú apenaq 'ügculeataÉional, Fendo trataôo coÍro conenrárig gelo cqçprlaüof cpàórr. I 'Àpresenta O Beguinte fornatoa ': ' ' . r : , : , . : ; ' ' ' ' i ! f l. t. O&tECfJeOUpUffn 'l : . : . . : : " - . : C FáréEsalo OEï8Clf'eOXpUfER üÊgareve o conputadòr no :: ' ' guax ô Frogrqna objeto eerÉ Ërecutado, .ftr-reaent-â o, aggÍulnti ,fornatgl , . . . . ' : ' : : - üËüECE-óOÈíPIÍIER. tsone-do-coruputadgr. . . : : r - . . ' . : ' ' , : . ' . . ; . i . . . ì ì - .L la lroJhe, seeerrr*dc perâ anoÈa$ee) . , o parágrafo FrtE:CoNTRpL-t9.:-9"tecer '' desnecegsãJÍanent. "onãíãi.:'-fft enãuanto' âs entraìdae eão' Ì;:i: i.: gradronizâêaF .en cadq fnstafáção" 9 !1i"O ternq fornecldo ,., . ,ãetr" :p 'ogiái iaàor.é?no.!0e.doarq9ivoi ] , : . . r : o #;ï;-ãtã"i"ã-ããaã ,a cáda dls-posttlvo deve ' 'concordatr con as regra"=ããçõt ãção tle nqAes atrLbuÍüos pç*9 "" pqôgrernadoãà ."q,rrvo deve eer únlco; tstq -q5:-ll::r çt" n'le sELECtf none-a<i-6aqqive Àsslclt To esp?9tficáção do i . : . j . : . i - . i i ' ' AssiçN.:te assrcil ro sYBoô1-ItR-Z54gB-S. t, , , - : i , ,SEtEsT f*pE-qr{ ÀSSIGN;.to rsYso02*In:elO0-f '':, rrão.i:loútío dado com, o qesno none o!-.Pt:9l?i3:deve ..ftáv.r outio dado com'o nesno none -ou Programa': para ".4ã:Ëã'Gãiiãã 'ye.a9 no pr9?-T1{ :-:lÍ::"}: ' "eLËüõ'ãã"E ËË'"ããË;i ;i ;'ã{' : s.' .'*- ?g=I-P:=1: " ::,,-*:#Ëã:"*ããe* ã irãã - ã: ; te{s: -1 t :F!.Eg1 f:HSt ::í.o:::*ã#*Ë;"x;ËÏüãË- il"; - ç ii":"t::-lH;T.'5 ?:::.::ã - 13 euÈndg fog -usado o segundo f ornato, ya$a dispositlvo ' : \ i ; número de- s istema Ë. elaçsi . f ieação - UR paÌ 'a. t rNIT RECOR$ . Uï' grara rJfïLïTy *. '1, - - ^*- l - i ì bÀìpara D.ïRUCT ÀCCES$ 3, nútr ìero do Perr fér ico i " stodo de *çãsso s para .$HS{JENTIÀLì . : ì . . I D paraDÏRECï r p..u inoniÈo ' : . . ' 3. A. r . r , NúHERO DO STSTEFIÀ: . . ' . ì t . . . : . : I núrnèro do sjsterna depende da ínst ,ataçâo, Fer ie ivâr lar ' en caêa centrÇ de p.rocessamt:nfo e deve, poftanto, sêr .. ' fornecÍ'do por .cada centro d; pÌ 'ocessarnento êe dados. Cada . 'unidade f Ís lca na sala do. computador deve.ter um ünl .cO ' . ' núrnero do.si .sterna. o 'núnero de slstena usado é um none : exteirno, ' . . ' 31e 'L.A. CIÂSSIFICAçÃO As çlaeslf Ícações. gub podem. ser üsadas sâo' entraÈaç paddronlzadas. l ld três t ' i .pos t le ctasélf lcações de . per l fér icos: . r UNIT-RECGRD ' - U?ILITY . ì DIRECT-èCCESS À lnpresÊotra, perfuradora, e l ,eitora de cartões gto periféricos t lNtrT-RECORD. Istô.quer dizer que cada registr i l açs.ociado êorn qüâlquer destes reg.istros é de tanânho ftxo. ' 'Um cartão, FÇr,exempÌo, é um doc.urnènto de UNIf-RECORD, Jgque cada l inha do cartão ten Benpre o rÌesmo núnero de : . posições í.mgrressas. Por isso os arquiüos êFr cartões.è ' i . istagens sênpre têrn a classif icação UR, ôe UNIT-REóORO. À f i ta não é:um..documento.UNIT-RECORD, ulna vèz.que 06 registros €sl f Í ta:pôden's€r de gualquer tamanho, Uma fl ta classif, lcada c'ono UT para u.n peri 'férico üTILfTy, UnidaüeJ'd nemórig. aux{liar, sotr{ro discos, t,ambores € céÌutas de dedogr são clêssiftcados cd!&o Df, para os 5rerlférlcoe DIRECT-àC9ES$.r 3. !11' 3. }*ÚH8RO DO PERIPÉRICO ' : G número do perlf érico é dado pelo fÉslcante.dc conputador, à IB!í; por exenplo, uti.Llaa e6 seguinteÈ de d-lspoelülvoe pêra as unidadee de sistema 36O: t,ôPg 2iâO0 teng . : . ' . - . ' , ] . : j ' . , . . . . . . . . ' ' ' . - . . , . . ' . : . . . . . . ' . . " i : . ' . : ' j;:..''iï: . 3.2.1.{" HoDO DE ÃCESSO o $CIdo de adesso senpre eerá s para cartões. f iÈas ou arquívos de l.mpressão, porque nestes arquivos o acesso àsÍnformaçoes é de modo seqrrenclal . Note que.a cráusula de especl f lcação do disposi t ivc l que sqgue a ÀSSIGÌ{ TO conté'rn entradas separa<las interl igadas por bí fens. À qmíssâo destes hí fens na cbdi f icaçâo causárá êrros o" otlS;3luàr*rnar os segui ntes exempros usando números de slstenas arbÍ . t r 'ár lgr , polè estes depeirden da jnstalação. Exenplo I : , ' , Um arqulvo ern.ëârttp€Ë contendo ôados sobre uma transação pode ser assin ( IBM): SELFCT TR'INS-FILE ASSÏGN rO SVSOO4-UR-254CI.R-S. o nome, tÈaxs-Frr,E, é t lado peÌo progranador. (-) resto da declaração é necessár la quando se ut i r iza a rei tora. À Iei tura é uma unídade uNrr-RacoRD com 'o número 2540i ì , do sistema JïYSOO4 observe quê âs c láusulas Í ì r : t .Een sâo codl f icadas na margen R; Exernplo no UNISVS de ui l arguivo em cartões: SELACT TRANS-TTLE ASSIGTI TO REÀDER. ËX,emplo 2t urn arqulvo ern f i ta contendo os da<ros de urn enpr.egado pode ser assin ( ïBM): SELT]CT EI. IPLOYEE*FII ,E ÀSSlNG TO SYSOOT-T" 'T-2400-S. F.HPt,CIYEE-f '1LE é um none dado ao arquivo ea f i ta. Tor las as palavras posÈeriores a ÀSSIGN fE são <ladas pela lnstalaçâo pârâ lndicar uma unj .dade especÍf ica ' t ie f i ta - obêÊrvê qu€ a èntracla i rnportante na cláusula s l l l , t ìc f é o noftê dado ao arqulvo. Ëste notne é usado na DÀT DrvïsroNpára r€sêrvâr ' a área de entrada ou saÍda ut i r inada pel .o arquivo." É nóvalnênte usado na pRocËDURE DrvrsÌoN p. t ì ,* ter ac€ssÕ ao arquivo. Às outras entradas na cláusula $Ltr ,EcÍ l dependem do oonputador. os núneros do slst€na, no cntanto, dëvea ser obt idos de cada instalação part lcular. Ëxe4p}.o:noUFisrsl ' ' , . ' . ' . : . ' . : EILE-cQl. tTRoL.:- , ' ; . ' . ' : ' ] . , :'. ,snl.!:cr ARe-pur 'ÀssrcN To DrsK.,: . ,..... çELEsr ane-ser ÀssrcN ro i;pË. Especifica-se os arguivg?. Ra:EïT, ÀRe:-Slt, ARg-REIÀ11ÉariespeetlvarngntÊ ' para disõo, f Íta, "inpráss.gil,,. | .'- Exemplo da ENVIROÌ{I{ENT DÏ SION: ENVIRONHENT DIVISIOÌ{ coNFIGURetron .gsgf IoN.' SOLIRCE-CO}IPUTER, UilrSYS. ' :()}3.IEC.'I ,-:COUpUTER.uNIsys., . ' .LNI,UI i : -0t , . I?u1'sFìç1' IgN. . : : : F'ILE-CON'rROL. sEtEcT ÀRQ-ÀNT ASSTGN TQ p1g11. SELECT ÀRQ-NO-I'O ASSTGN TO DrsK. . : : . . _ _ Na -SELECï. g_d":"rnrinada a_origanização e o uodo daacesso _do arquyg: À organllaçio pode sèr seqú""õi.rltndexada ou relaÈir?.e .õ modo-ae ãéessã-poce:Àãi-Ããõúenclar :ou direto (ran{ôrylco), ig u "rgã1iãããã ê o àcesso,não, forsr:éspeci f i cada' admite-áá' sequen"í1i-FigraiÈglË;ã":.;àso, oF-.resistros eerõo armazenad& -;; ãi"ããËIrïõ-ã;"ï;i":ãa-r,. . { .ordem em que f,orern processados, .un. após o, outro (prg.nïgaçto:sequênciar) e serão acessados Ëanbérn-r,ã ;rã.ü-;".ãiã-iõãi:: c*gff ig#; ' : . . ' . . . . . . ' , . . . ' - - . . . t??: CAPÏTT'IÍI 4 4. DÀIÀ DIVI.SIOÌ{ i. ' É a divleão clo coBol, ondê codlf icarnoÊ.oÉ .conandos dé def lnição €.eÈpeclf lcáçfõ dos arqulvós rte dadoè, .reglqtrosde dados e {req's de trabalho. 1. '1. FUNçÔEE DÀ,D.ÀTÀ Drvl3roi l -.Oe,flnlr norne, tananho e tlpo de todos argulvos programa, . usados pglo ' - Dèf tn l r ngne, tarnanhor, t lpo e demaie caracterÍçt lcae dgÊ. . rocals de nemórla onde cada:: regi.etro serÉ ìido oü formatado . ; (nÍveI 01) i - : - . ' ' : .- Def.inir. o riom€, ti.po, .tamanho e demals car.acterÍstlcas doe carrpose eub-campos de cada registro (nÍvels' O2 a {9). j . .osÍ tensac|rnaeãoespeeLftr :adosnaF.fLEsEcTIoN.. i , : ' -De.f . In l rnome,t t5ro, tqmanhoede&als. 'cdracterÍst1caêda€ ' áreas de trabalho uti l lzados peÌo programa (I{ORKING-STORÀGE sEcTroN) ' , ,., '1 i2. : DÀTÀ FILE .TD ot ' .a . i Fp .ol I . . ESTRUfURÀ GERÀI, DÀ DATÀ DIVISTON DIVIST.ON. : ' . sEcTroi{.(descrição do ARQUIVOI) :( õescrlção .dos re$'lstros do ARQUM1 ) (descrlçêo do argulvo Ìf )(êeecrlçãô dos regi,strop do arquivo H) flf?íT.çg..,necessárlas para especlflcêr urn argulvo, util lzando COBOL. :.i .a , ' ftr l,nfornaçõeg eão dadaç en três etapas I . -.t(a E!ÍvrRoÌfl{fNT DIvrsioN (ctáusula sELEgll - Ha.DÃfÀ. DMS.ÍON (ctáuÀula 'FD) . : : : +'Na DÀTè DIvIsfoÌ{ ' .(nÍvel Ot Descricáo'.,Fo ieglet.ro! Cada arguivo definldo aÈravés da cláusutra:SELEef f,eve ler sua respectLva cláusula FD. - . lS j : . : . ' .q ' , ' : . t ' , afgulvôs, ,,f 'Ì{one :i ,Quanütdade regi.stros lÕglcos ".r: l..1pos de ,Lslentif lcaçâo - l,{o$r.€ dos registroE : ì - Quantidade de carasteres por'reg.istrq +"'üíoqo de-gravaçâo . (F'ixo, varlávsl) 1 çuahtldade de regi.stroe por arquivs,: . i fp ncme-do-arquivo 1. . r'. , , i {8I,9CK COfiTAII{S fln€9irot-l It0l lnteiro-a, : . ' ' , r . [ , ' - , . ' . ' t ' : ] ' , . : r . [ËtsgORDF COÊ{TAINS íínteipo;3 FO! ínteíro=4 .,: . ' I+AB$L, TRECORDS ARE' sTÀHDÀRD', : , .1 '{fffÀRâcTEns } t IRECoRDS ,l l c.nÀnêctgRsl ' .(RBCORDS rS OMTTSED t ' l' : [DA!Ã. RECoRD IS noÉne--reçfl fnone-r€Eall 'Í REcoRD ÂRE -,=i . r ' ' : : t . ' . . . ' : VÀLUE oF none-dado3 fu !tggg:g?doal'. ' , : t t ' ; Ì ' j ' . . : êN9' I ' BIOCK çÜSITÀIHS' pârê un nelhcr aproveitarnento do espaço em-dlsco € pâraâunenter e veLoci.dade de. prôcesea&ento Ëóe-arqüivos, cÕstúlràs-se bïçcar_os'- reglstros dos arqulvos cõntiéóá "ndiscos ou Ëítas. âro blcõar. faa-se uná distíncáõ ãnite- reEistro têçÌ.co, pr*cessadc uln por vea pelo pioqrana-è un registro fÍslco, loro é, a unidãde de i;fdrnãçaó'tiãnsgêrÍ,dâpâ:?a un disp<lsítivo de entrada/saÍda" .. , : ,ExÍsÈen três poss{bÍli_dades: ' . : ã,, '.Arquívo qâg . h}ocado trestecaïcecláusu}aBLGcKco$.TÃE}tsé'o.gi t ldado FFf ' fvrefosCI1' . . . . . . - - . : - - - - - : , ..,,i q9ê Í Eepeclfica ô'notne llão é obrlgatórla r doeuraentacional. '. 4.3,5. VÀLUE 0F Especificq . . .1_. . : . . nome-dadlot is nóne-dadoa ' i'r 1'" o norne interno do progfa4gç ,' . . : r{o ul l ISYs ut l l lzes . ' vÀLUE OF fITtE Is nnone;dô-âÍguLvor: ' ' i , . ; ,No t{ IeROSOFf 4.5 ut l l izel .ÌJALUE OF FILE-ID fs rrnone-do-arquivor. .{.{.. RECORD DESCRIPIIOT| i.ï ...8xenìp.Io da utl iÍzação :das cláusulas no UNISYSI.,. FD DISK-FILE, I.ABEL RECORDS ARE BLOCK . COI.ITAMS 1260 RECORD CONTAIÌ{S 84 DATÀ RECORD IS . VÀLUE OF TITLE. IS -sTANDÀRD CHÀRÀCTERS. CHÀRÀCIERS REG-REL NCADÀSTRÚP " Depois de definiruos un arqul.vo E)or una FD, seguet-le a-s. entradas. RECORD DESCRIPTION para cada reglctro do : arquivô. EIa vai indicar que Ítens àparecen no iegletror e - ,orden en que eles aparegen ê corno esses Ítens elo relaclonados entre sl..' Uú norne de regletro ê codltlcado no nÍve} ot. .QuaLquer eanpo de dado de un reglstro é. c"oúltlcedo . e.n'nÍvel subordinado " 0l (.Poden sef de OZ a {9}. , : Exeüplg no IINISY i. ------ :. I NotlE I I {-oe€É i orruo | .sÀIáRro [ rullrn I lorv sncl | | ' - - - - - - -b--- - - - - - - - - - - - - r€----- .3òõG--Ò-l r ( (30) e(02) e(03) e(oelvee x(38) 01 REC-EI,IPREGÀI}O. 05 NOHE PIC X(30). 05 DEPTO 10 DMSÃO PrC 9(Q21. 1.0 -sEçÃo 1 Prc 9(03). .os SAL,ÁRIO PrC 9(09)V99, , 05 FTLLER PIC X(18). : : ' - t l : : - IÈen elenentôr -.- ften que não tern eubêtvÍsâo. : ;, (norne, d{vlei*o, eeção e ep}érlo) Iüen de grupo - Iten que sofre suHivleôes (depto) l ObSI Se a entrâda RECORDS COÌ{TÀINS 84 CHÀRÀC3ERS for .corocaêa. é preciso courpÌetar oE 84 carâeteres n" ãã""r1çËÕ do regÍstro (no..UNIS,YS) . { '{, { . 2. PICTI'RE D-E DÀtpS 9 * REPRESE}TTÀ CÀRÀ TER NT'TITERIEO À -. REPRESENTA CÀR,ÈCTER ÀLFABETICO X . -REPRESENTÀ CÀRÀCTER ALFÀNT'IIíERICO .':s. - rNDrcA ocoRRENcrà DE srNÀL (posITIvo/tfEèÀTIvô) V ;. TNDICÀ POSICAO DO PONTO II.{PLICITO . P - REPRESENTÀ ESCAIÀ DO VÀLOR NUIIERICO REPETTCÀO DO À, X, E f. i 4(ro) - rA}}lA**ÀÀ x(5) - TxxxX e{t} - 999 . : 4.r.4 . 3 OUrnÀS Ct{ÀUSt LAS PÀRÀ DEFr$rR DÀDOS: Deflne'ca.mpo een atfl.butrr nonê.FITLER - . : t - ' üU$FIPIED RICHTILEET - Custlflcá o velor do dado'a dlretta ciu'a esquerdà do canpo. 4 . 5 , VSÀGE ( UÁLIN} pÀRÀ; EQUIPAITTEÌ{IO IBti) . ' . Ésçièciflca a repreaentação lnternc gue êeve ser ut,llizada para un l.Èen êe daôo. É nulÈge vêzes onlÈida porgue â-:US*GE DISPIÀÏ, n êeÉault, é'aqtrela treguentênent€. nsis apropr!çôE : f.5.1. ügÀGE rg oISPLtY '. O lten êe dedo é repreeànËedo no código .êe ceractereg doelct 'er ladecouprtador(EBcDIcouisCrI) , .enquecada cariacter clÍanuaérÈco é representado por u* códtgô binártog,ue re*uer $[ b1ry" úe 'aenórla. : '_..i:j...:t:,lri . , . . . . -c. .1- . .*,..4.?.'*-l;.,,b-. . . . : . j , . i . - Ì ì ràtdg+rp'g'l 'A:cráúslÈa gxceção dos. nÍvel l ' . , . ' t , - : i , : - ' j . . ' .1: . . . . . . - - - . - , . t , *,.f"'. * çÍÁg$ÍI-&[-,*EDEFÍ!{F ; ' . . , i , " . . ' . . - . . . . ' i r . . . ' i : -1 , : ; . ç94.çeJ e =' ?.4-ã O& REG-CLXEIÍTE. "i: oa coDrco Prc x(031 " ú2: gxpgREco PrC r(301. : : . a2 TEL PÏC 9.(O7).g2 FONE REDEFINES TEL Pfç X(07}, , ' a2 FTLLER Prc x(14). ' ' ' ' ' ' . . ' . , A a!.áqsula REDEFIIüES faz con que oE canpos TEL e FOIIE , ceupen o resüo €spaço de memórl.a. Eese..contè.üdo. teü dqas i-n€êrpretações dli.eienteE: TEL é nurnérlco ao Pa6so gge, Fott$ é al fánunéi ico; ' ì . Outro gxemplor .* . . ' . . OI, REG-EUPRESÀ. 05 Drv-DEHIt ' PrC 9(04); 05 DIV-DEPqO-RED REDET.INES- plv-DEgro. 67 DIV, ' PrC 9(021. ' - ' ' - , - ' ' g7 DElro Prc 9 (azr . '| '' Heste exenplo, exÍ.ste un únl,co cênpo no regletro qqg poderá ser utillzado cono DIV-DEPTS e contén o valor da ãlvteao e do departanenüo ern ünico catilpo, ou.poderá ser utlli.zado cono'DIV e DEPfo separadanente; É o-nesno eËPeçç de nenôrÍa sgn{o rêfârêãclado de dole Tad?F dl.ferentes' i': € ; '#w::á #. fr oár* nrvrslox 'eoüo'r u"' Ëu*, ' $nteì roda& aE Érëãd..a*l -lylzênaqenfa"cffêllq?q-a _ géren eiocaooe'pÀ"ã-õ -- -. :ï:;:,,Yï.,=ilrocesseuienFg, .À imRKrre-SEomçg, Seg:fiõH"Lontén gôbEs üÊ,,:.., ",-icanpos-gge irão FertçnÇãD ã pnrradg oü-à sãiããã;ã:õrr*-ãeo. 'nccessári*s as proëeesanento:' {ualgquer conËtãntes, -totãíã r,Ínternedlários, gü áreas .de trcbarhó .iii"-nâõ -;;õ;" pàrtá-aoeg,tg:1-y-g=_g*tyg-af:!:l_p, prqçessanenro -eiãç aroçaáã* ãã- -f ï,:Í|O-RË3!EG-STüRÀGË SE$II,óF i :; ... . .,;.,.., .,. li .t .,i. :j,' t.' ' . : ' . : , ""Estr seção pôde, çonüer'dr1aç,,çaËegor{ps Ëtç cBnpo-er . . t . - " : - t : , - Ítrens dç canpõi: {ue reglrelçan srrtslvÍóao ,...r,*_9Í Ítens iádependeqrtçs, definÍdos na ÍíoRKrNc.jsroRAGg't lfÍTlgill Ìío catúpos individuglsr cada urn execurando ulna -:. :ãünçêc inriependenÈe e não relacionada a qualquer outro Ítem.-'': i-,"+ ?9?RIülfG-srgRÃGE sËqrroN, cono todàs aË eeçoesr lé-l-: ': ',: c(Àrrtlcada nÊ nargem .È, Esta ehtrada. vbn após a Érr.r s6c1lolt ...Ê:todas âË Êuas descrlçÕ9f r.Íüens lndependèntàe receuén.ã--,'1, ,:i 'nÍpel 7z e tanbén são èodl i icaoos n" nãrgón"Ã"1. ' . - . ; ; . : ; , . . . r i . regraÊ tle forarEção'de no4res crlados pelo prógrauraAdr. -íoããç osÍtena independentes <reven ter suaË craüsuíá*.:Èicúúns----, :?r:::pglg"l!::: _rndicanos.q formara "" oãõãã-aã-"* õãnBq nÊi noBKrlfG-sïoRàGE corno espgciflcado anteríE$ente; i,, '' il xaenoiacanÍ 'oËaIfanurner1coà. ' ; : ; ; . . . Ì i , * . . , ,9 dengta. canpos..nunérlsos r , i-:i- .\A denote ca.npas alfabéticos.. ; ; . .^ . , t ' , , : . '4 . l : . ftPnp-rot " : i'rr'i ; . ' l : . . ' .r !0OÊKIlfG*S'I€RfrGÊ SEefIO$ it'::i'i ïi- rrorer,;iNrìRr{spïÁBiõ"'':',, prc e ( F)ves ..ï : 77- COI{STÀ!{TE*I ,' ,.,,77 FLoÀ '. ;., ,."., pIé i âtii,] ,,1 ', ,' os Ítens lndependentes 4a'woRrrrtc-stopÀGg sgcrÍüil eão .gerãlüentê inlcial-izados, ou-:sé1a, a eLes ção uaaos-vãrã"ãe';tnícÍaÍs p?la ctáueula vÀtüE" nétá.créusqta deve sêr usada na .FILE SECTION da DATà DIVISION, --l-- ' . ' " ''.: 'É. Lrnportante recordar gue gs ç-oqputaôores náo .rÍ,mgran i: auÈomatlcauaente a nênórla, guando fêet uB novo prÀgruna. Ür.t6,', $tga-g*ç_é espebifrcada ná óara orvrsiox tem un'vaíã;'*. -*; ,I"9:frlido -quando-cotneça a exêcuç?o.do progr"nJ. À .r.no= {Í,r# .,,:-Bl"qï:i?g?t indlqua un valor intcial para o- eampe, não Ëç-: ,:pode gpqõlde-r-+l que,o calBÍp'gstfla lllpq ç-os branão1 org ,r' :ÇftQ{e ,' :itl:., PAIA,;lll vJF.,lry Ía wonttrxc-s.ronAcg .7-7'r' 22alÍ I:-.9g -I1-T":g:':l- r:llY:, :: conputador que lDl none dado'pelo piÇgranador deflne o canPo.. 3;r... 1|: . . Níve1 e sef . ' . , . . i " .ã cláusúIa vALuE,conterá:utnâ'€onstante l l terâÌ,ou , . ' ' ' fl.giuratiúa pçra s-êr colocadà.tiô canpo. Í)eve estar no'nesüo ,, ' . 'noáo'âue a ËIáusula PrcruRE. se' a picrrnÊ lndica un èanpo :: . : . nunéríco, 'g,v6toi ldivé'eer. ul t l t teral nun$rl .ço ot1 ZERO.': . . . : , l Exènplor. . , ' I ' . : : " . , ' ' . : . . - , : : , , 1, 77 |[OTÀL , ' .77 COtfS![ãlfIE-l(' r : . .1 . i' ilote que :as clãueulas VÀLUE para, lnlçia1lzar.'eanpos não deven sêr úEadas na FILE SECTION da DATA DIv-ISIOry. .Sonentê as entradae na'$OR!(fIIG-9TORÀGE; podên ter. ç,als: cláusúlas ,', 1... vAtüE. . A cláusula, VAï"UE de uln è'anpo'nunérlco corr*têfá: urn ' i' :; ' 11tera1nrrnérIcol ' ' ] l . ' " . . i. 77:F!DA PfgrURE 9(2,)V9(2) VAt iVE L2t34. , : ' EÌICTURts ' 9{O4} .VAtUE 8ERO. PierURE i, 9(04) ,'' VÀLUE 76: 4,.27. + . , , : , : 1 . , . , . : , . . , . . . . . - . . , .;O-s l{terals:numérlcoç não poden exeedeË.A 18 .dÍgi,Ècs de "eonpr i rnento, Hesse caço, o vÀLüE,.de um i tçn nunér ico:na ,- . WORKING-STORÀGÉ SECTIÒN não'podê . teq'rnaÍs de' ' te 'dÍgl tos. . . Unrac1áusu1..y,1Ì ,UEhãonunéqica;conounl .1ËeFa}nâo 'nu.neríco 'dgverá aparec.er entre as.pas e contéln,':uit tráxino de' .LzO caracteres', .. : Exenplo; . . . I . 77,CH-ÀUX PTCTURE X(93) iVÀLfJE , t tNAOq. , . . , , . , t - . , . . - . : . , ' ' ; ' : : ' .u4a] ' inhadafo1hadecodi f icaçãoparaoutradevenser ,c.odi f icadas as regças,relacionadas â gegulr . , . j , : . . ' , i , i ' . : : ?.2:REGRAsPÂRÀcoNTiNUAçÃoDELITERÀI ' ' . . 1. Começar o l i te ia l .entre aspas. : ' 2. Cont inuar.o l i teral até.9 f i rn ôa l inha (não;f ,eche çgn. .- aspas). , : . . t j .9. Coloquq un !raço.(-) na,posição dg cont inuaçãg, da' I Ínha seguinte (7 colunas). : . ' , ' . ' . ' ' .4. -conttnüe o t i terátr na. margem B da pràr lna l lnha, coneçando cor! aspas. '5. .Ter: ln inç:o l Í te-ral çom €ispas, . : . : : . ' - , ; , . :' : . . . '__..__l: -regr.ae para continuaçâo de llËepaie Ia FRoCEDUREDIV.ÍSIOH sã.q, as 'nesmêF:. . 1 ' . . . . '1 ' . j . . . , . ; ' . i : : . , : . ' . . . ' . :1 ' . . . . . . : . . i ._ 1 - '.?g .- . ' : os Ítens de Erupo poden ser êrnazênados na gfoRKr!{G-stoRÀGE sEc?ION. Èm iteir de srupo é ãõ;iã-ãuu'-e'ãiìtãïõidiqç en dgÍs ou r*ais Ítens elementares. \ irB= ç lï:Tpl":.um rìôiqe de cantpc subdividido en primeiso e Élt irnonome, u$r nome de data, subdividido ern dial nês-ã-d";-; i ; : os Ítens de grupo na wCIRKrlrG-sroRÂcE sEcÍroil sãocodi f , icados cono registros no nÍvel OL. TodoF os Í tens degrupo sequêr i l os í tens elemenÈares de nÍveI 77 e.ãã-- 'cocl i f icados Ì ìê marrJeo À, no nÍve1 Ol. Exernplo: WORKïNG-SSQRAGE SEC?ION. l l T?rÀr pïeruRE e(os) VÀLUE zERoES.T7 coFisr FrcruRE x( oa ! var,ue ncoDgn.77 SÀVE-ÀREÀ prcruRE X( 03 i vei,ue spÀcEs. 01 grdDEREÇO-l. a2 XUUTRO PTCTURE . 02 RUA .PTCTURE A2 CÏDÂDE PTCTURE 02 ESTÀDQ PTETURE e(04)" x(20). x(2s). x(03)" 01 DÀTÂ-ENT 02 MES pICTURE 9{02} ÍTALUE 06. 02 ÀNO PICTURE 9tO2) VÀLUE 75. À EtoRKTNG-sroRÀcE sEcrroN consíste d.e duas part€Ë.Todos os ÍÈens independentes apar€cen no nÍvel ?? e sãoseguidos pelos_Ítens de grupo que apôrecenÌ no nÍvel 01.Aa$as as enËradas 77 e oi são õodificadas "ã-râióãà Ã,'oçnÍveis 02.e 49r ee uèados, são codieicÀãos,ra naigãïÌ-8. ' cs Ítene de grupo na woRKrNc-sroR.âGE sEcTroÌ{-têm suqutil ização raáxína no ârmazenamento-dg giupos ee õampã6 dêêntrada gue deven €êr salvos para f,utuio processartento. Exenipïo3 .cartões d* contror.e, cartões de entrada eÈc, -. -. .' .,: -., .. . ì "ú!sâ:'o'ilt5a .-ì9rnia de r.lsgi de. Ítens'ôe -grugq ni t{onKrflG= 'sroRÃcE sgguox é para a acunulaçãq ae aáaJã-oè:sãiáa. Àté. agora,tenos escrito progranÌas onde os dadoE de qaÍda têü: i' . . sido acunulados na área de saÍdã ,da FrLE-sEctrotü; una u : ::. instruÇão Í{RITE (none do regístrç.} trans.nltlrá Ç dado , i,,, . arna?enado para o correspondente dlspositÍvo de saÍda. , ____9s 91doF de saÍdar_ no entantor.poden.se{ arnazenadog na i$oRl(rl{G-sroRAGE. Eres deven ser nÌovldos par.a una área {E ..i.', . : saÍda. antes que a lnstçução trBI:TE p-ossâ sãt" executaàa. , . .: - ': uga pergunta váIida, neste ponto, é porgue .aculrÌular pÉ '. ' fados de saÍda na ldoRKrNc-SToRÀGE sEgrrqN. À -rçspoÉta ê gue , çs :valores poden Ëer lnlcialízadse çon a ElÉusúfe. valgg 'fra .. FO$r,pc-sToRÀGE sEcÏIgli,_1g_p1tso guê aç o,táusülaç,.y1ús não .Pqêe ser uãadas na,FILE SECTI9N. .parÊegutpa4entoIBt{3: ' . . . . : . , , . FDPRII ÍT-FILE ; l . ' , . ' ' , . ' , ' RECORDfNG !{oDE IS F : , :: : LABEL RECORDS ARE O!.IITTED: ', nEcoRD coDIfÀINs 133 CHARÀCTEnF ' DÀTÀ RECOBD IS PRINT-REC; : ' i - OT PRIHS.REC. O? FILLER ' a?. rNrTrÀtl0ã co$sÌl ,, ' ,É2. xurrrÀLz ' -03 CONSTz .pa r"esr-Ì{AI{E OE FILLER , ç2 üONTH02 eoÌísr3 , 92 rEâR 02. FITLER . l ! . : . ' I r ' . . ' l í ( 001)- . 'X(001 1 . X(Pot) i . X( 0O1) . ' .1 ,x(ool) . - l í ( 018, . x(oo4), ' 9(002!. : , ! í ( 001) . ' , i 9(0021,. , t í (101). , . Frc FTCPlc PIç PICPre PÍC erepIe PICpIc . : . Alé'rn de ler a primeira Ínlclel, â segunda i,nicíat r. oúltl,no none, nès ê ano de' un doculnento üe-€ntrada.e úoüê-tros Barl'PÊfNT-REC, as seggdnteE opgraçÕes HOr/E 'sâg peçesqáríae,paFananterurare1atór io1egÍve1.çjçstét1co: : ' HOVE SPÀCE$ TQ PRïNT-REC. : : ldovE !t . r To coÌísr1 . t{ovE ü, ï To ÇoHsrz. . HQI/E ü/a Eq ëONST3. , .. t,,, ; ' . t ' t , , .o rélatOrlo de saÍda deve,tef gs gfns?antes ' . aprorpriadasE ü,8. SILVA O? /44 R.1. SOUZÀ D3/4L -30+ . :. ëe, ns .€ntanÊo, $?GRBD-PRI!$T-LI3{E for dlvÍ.dlda na WORKII{Ë-S?ORÂüS eolno .se segue, eÉr operaçõe€ antêrLores serão desencessérlasa ' . .ì ! O1STORtsD*BRÏHT-E"EHE" 1 . . 02 FELLER PrC X(001) VALUE SPACES. ' 02 rHïTrAt l= prc x(oo1). 02 coHgTl PlC X( 003. ) \teLU8 'r " ï.0u l tdT'rÃt? PIC Xi oO1) ' : ae coNsTa Pïc x( scl ) vÀï,trE r ! tr, 02 LÃST-NUFí Pre 'X( 018 ). . : : 0a FTLLSR pIC X(S04) VALUE gpACEg., ' 02 Ë40NTE{ Prc g(ooa). âe cossr3 . prc x( ü01) \rAï,uE * . ú. , , , 0? YEAR PrC e(ooz). 02 F'ILLER PrC X ( XOl ) VAtteE SPÀ,CES iUma vez çue as cláusulas VÀLUE são glerrnltidas na -WoRXIÌ{G-SToRÃGE SECTION' âs co'rstanÈes poden dar valoresiniciais mêlhor do que movendo cs !.lterals apropriados para estes campos na PROCEDURE DMSION. Para inprimir os dados em Sf€RED-PRINT-LI$E depois que os caÍBpos de entrada fore:a niovldos para. o regt stro dlzernos: HOVE SFORED-PRTNT-LII{Ê TO PRTT{f-REC. WRTfE PRÏNE-REC ÀFTSR ADI'A}ICING 1 LI!íE. For Íe'so, quando são Recessários trEforÈs espëcÍfÍeos nun regi.sËro de saÍda, ufu Í.ten de grupo nâ $ORKING-STORÀGE pode Eer estabelecldo co$ã a8 cláusulâs VÀÍ.ÜE'apropriadas. EsÈa entrada pode ser então novida para una área de saÍdar. anÈes quê Ê reElstro seja escrito. O nétodo visto aclna é 'eonsiderado nais eflqient,e do que coloÇar cqÍìpo na FILE- sEc?Íoil e efdtuaE operaçÕes uoün lndependentei para cada' Ll teral desejads. : o uÈo dã ÍÈens de grrupo na IIORKIÌ{G*STOR,AGE parf arlhazenar dadÕs de saída ê alnda nais Ínteressànte quando se cria registroa de cabeçalho na fnpressora. . cLÃusr.FLà [ vALr,]E ïS literal I Esta c!áusula Eâra ef,etÈo na Í{ORKIIÍç-S*ORÀGE SECTIOI|. Exexplo: SeJa na woRl(rNG-sTcRÀGE SEe1rlot{i : : nt ' : oa Dïe, FEe e(oa) vo"ug ; . r .s l - . i , ' t ' , Exçmp!ô de reglstIo de lnpressâg no IINISïS r , Espect fÍcar na ÍItE sEçÍIQs Ç ar{ulvo FD RELÀrORïO ',. T,ABEÍj RECCRD ABE OHI.TITEO; ol REc-REr' Prc ,x(132l .' lla tfORKIt{Ç-SfORÀcE gECTIOil re latór lo: t.F tçletórlol . : cabeçalho do 01 DUfÀtHEi. : 02 TILLER, ,PIC T(03} , 0a coDIGo Prc .9(,Q5). ô2 FTLLEE erc.X(o,3) . oe NoHE PIC X'(3O). , 9? FTLLER Prc X(O3i ' 02 coDIGO2 Prc a(ol) . a2 FTLLER PrC'ï (05) 0? NoHEa ' PIC X(3O)' . , , 02, FILLER ?IC X(48). VALUE SPÀçES. vÃI,ÍrE SPÀcEs. vÀLu8 spÀcEs, ,VÂLUE sPàçEg ! VALUE SPÀCES. ! ! . Na PROCEDURE PIVISION T' ,, ' . !ÍRITE REG-N8L FROI{ DETALIIS ÀFTERJ ADVAHCI}TG LINE. . clarrsula occuns ) : i ' . - .1 ' ' . . ' - i '1. - ; ;{$ao pode Fer usado com a q3l- 5,3: rcüES CONDTCIOTÍâIS . . i lqlES grlrDI-CIONiIg et-o ;nones fornecldoE pêIoprograEador nâ DÀrâ DrvrsroH' un nolre condtctonal dá none a. un valor eepecÍflco gue un lÈen de dado pod€ aseunÍr. tla DÀTÀ DrvrsroÌf é codlflcado no nÍver especlal gg. Todas as entradas de nÍvel 88 são nones condlct,ónale que Ínatcán - valores de ítens de dados.esBecÍffcos, veJE {:eegglnte exenplol , ' : " ' - ,_, . ' ''O2 HÀRI?ãË-STàTUS PIC 9, Suponha .qug I no caqpo chaurado HÀRITÀL-STATIIS tndlque gn gtalus eol,telro. -?gêenos usar-un none condtclonal, srxGLE(soltelroi , para lndtcar este valor: Quando o canpo chanado úEnfraf,-sTATus é lgual a L, chananos essa condição de SINGLE. O lten de,nÍvel BB não é o none ôo canpo, nas o none da condlção. O Íte! de nÍvel gg se refere sonente ao itern elernentar que o precede inedlatanente. SINGLE é.-.o none condlCional-'aBllcado ao canpo charado ulnffUi-STÀTUs , )â que lrenrTÀL-sfAflIË precede diretanenÈe o lteu de nÍú'et €9," 4 condição SIÌ|GLE existe se !íÀRIIAL-STATUÉI - t. Un none condlclonaf eeguê -â6 regraË de fornaçâo denon€s dados p€lo progranador. É senpre codlflcado no nÍvel 88 e eó ten una qláusula VÀLUB âssoclado a ele. Já que un nore condtclonal não é o none do '-canpo de dado, ele -não conterá qpa cláusula PICIURE. 02 r{ARrTÀt-stâ1\ls 88 SINGLE ltteralr2J Prc a(1). VÀLUE 1, Os Ítens de nÍvel 88 tên o segulnte f,ornatol 88 none de çondlção (vÀLUg IS I literal-I [ {THROUGHI(VÀLUE J|RE l [ (THRU ] [ l!,teral-3 {THRouGHl Ilteraf -.{ I I ITIIRU ] t P ?13+ " : . ! ' ' . ' t " . ' , , . . : . ' . . ' . : : : . t{ones egndlclonale se refEren sonente a'Íteng' .elenentares da'DÀTâ DIVISIOIÍ:. , o lten de-dado-ao-g!11-_9 n?n€'condicional ; se r.eferâ ôe\te conter .'Da cIúusula PICntnS. 8ÊÍtenr de nÍvel ?7 nÁ lfORKfilG-SloRÀCE sEClIOff pSen t€r noles' cqndlc lo i rats 'assoclados a elesr ' ' Iones condÍclónalà gão deflnlôog na DATÀ DfvIsIoJr pertl ' Íactlttar g processbrentçj na PROCEDIIRE'DÍIIÏ$ION. Un no-ne conôtcionai ê un aétodo, alternatlvó de erpr€asar una relaçãQ rlnples na PBOCEDURE DIVISIOI|,' usando ad eegUintes entradçg' daôrreDrv:SroÌ t l i ' : . , . . , .t ' .'". eg DÏV9RCED ' lF DMRCED ç9 tO Dl-voncE--Rtll,. PIC VALUE V, ALUE V-ÀIrUE] VÀLUE VALUE t f i ' . ' - l AdillÈindo que.og valoree aclna sâo oe únicos váIldas, g tgqte da.PROCEDURF DIVIS-IOH pode ser colo eê:qêçnre3' : , l fEt(TSEtf tEì fCE ' ' . ' , '.','t..'ti,, l* tj 02 l {Es PIC 9(02). " ; - ' ' ; ' : " ' . , , . eg t{88:30 VÀ 4'6 9 1,1. ' : ' ' ' ' BB XES-31 'VA 1 3 5 7 8' 10 12. 88 IiES.-VAIIDO yA tr THRU 12. Ol DIÀ PIC 9( 02j : . . ' : . . ì ' , , i : : ', 88, DIà{10 vÀ.1 ,trHRü 30r .;. . : 89 DIÀ-31 VA I 'THRU 31, : , ' 88 DrÀ-28 vÀ 't fHRU 28. . r - .. ' ' ' í ' t ' ' ' " ' " t ' . : " ' r ' ' ' i : ' . . . ' . ' . , . . " , t . . . . . . t PROCEDURE DfVISfONi , ' , ' , , ' ' . . ' ' ' : . . ' " t t ' ' . " t : . . ' Eq,e o1 tfÀ t : a ' , ' . , : rF H(IT ' t{ovE ELSE : t{OT(}lES-3O !íoltE aDAjlÀ IF Z - BupreEsilo ds Eetrog è esguerda. r+F ou s-tE -. gêlta,o Einal ôg i l+Ír Õu Ë-üo _ tr" - insore'vlrgula na posição lndlcada. : Ülr- : gcbstltul t€ros á esguerda ppf .ttro " .0 ou B . lnsere zero ou espaco na nascÊrê. ts.Ç .: edlçâo êo ponto decirnal expllcito. ' CE su DB - cçïoc? CR ou DP. à ,esquerdÉ su à #trelta se g valor. lnÈerno do .dado for negativo, 3.4. PISTURE DE EDIçàO .''' . : Ccraciter€a'e elnsts qÉados Ra edtçflol Ex-enplos: ' EnTRÀDÀ PÀDo PrC{lr,BE 37L 9(03}V9e(-)571 , $99V99 1-)57!. S99ve9(t)571 9ev9(-)szr segve ó50 , {2}v9(3} otrrÀre4 x(o7t 01059'1 9(06) 5ÀIDÀ PICT{'RE EDTCAO' çzz.z,gg ,s i sybü571, Oo 9!99 ' 99 Sr.57 , 10 ' , $-*99 r 99D8 Srã7r 10DB ' 9*g9,ggDB .g*57, 10 +99 ,99 ' *57 r 10 9*rrg r gg $iüro r 6.5 eeBxxBeg 01ËüÀIb9{ eelee/ee oL/a5/e4 : V - brancg ' : " . . r " ' * . , . , ' . o . r t , : . ' : . " ' 'lï, ,e. ; i t CÀPITT'I,o 6 Ê. sgREEil SEgfIOtt 6.1 , LI i lE € COLI I{N, : 1' - As telas que .s€rão usadas en progranas são def,.inldaÈ após a rforklng-storage sectlon na SCRÉEN SEqIIoN. Nesta seçào, lnf,ornanog oÊ valores constan-ÈêÉ da tera € os calrpo8 varlaveis pela lntersecção de trNHÀis x coLUNÀs, que são deflnÍdas através de núnços de nÍveLs. I !r ; Exenplo de una tela! SCREEI|S SEgrrON. : ': . Ol l fe lar : ' ' . : ô5 Btanlr Screens. , 05 Llne I cOlunn 1 . ValUe' í---o----------;-i;i-tl . O5 Llne 2 éolulrn I vâlue { Bon dla ü; 0SLlne3co1unnlvâluet ' ' , ' . t r j 6.2. FRO!í / rc. , / USING. I Se na worklng-storage p ca!ìpo ltoÌíE estl.vesse I deflnido cono! . : . ' . : . - Ena ' | . ; . . : ,1, : ' ' 77 tíone l' plc x(10') vÀr,uB spAcBs. . ' . . Procedure DlviEion fossen dâdgs og conandos: , üove iFATECÍ to None. tnove I'FÀTECü para o cafrpo NOt{Bt Display Tela. , (exlbe à Èela); i - AparecêrLa no Bonltor na hora da execução 6o progranai '1 . ---------- ---------- : . t -Bon dia FÀTEC - - - - - - - - - - -+------- : . . ' : . Ou seJa, o conteudo õo canpo Ìl0l'l8 etorage sectlon pQra o canpo llottE OBS: BÌanlc Screens. llnpa teia. IÌ . da workÍng-serla üoylôo da te1a, . . . . j - .Ê. 8e aq tnváe usáseqos tO entrada de daôo3. vla- dlgltaçao atravéF,da tãla) o conteúdo do çanpo Non€, dlgftaôo pelo - usuárlo, seri,a :úovlôo da .Tela paTa ô can;n Not€t Ítue poderla ter sido ao nasro tenpo ceug entrada e c-_ono saÍda de.;qlqg'Ê.' , . EgTa ô canpo Nor€; Ítue_poderla_ier sldo.üeftntüona r{orking- storage co4o ün caupo de . trabalfo or,r na-Flle section cono uilr 9"npo plrtgnc?nÈe Ê un -reglstro, , elínina4dg. up, .conando - de'canpo'peften9enÊê a Un reglsçrror:,ellnlnaiÊg qq, .colrando de' nrovinent?Ção de canpo dentro dÊ Proc.edurg ,p-tot"ion, poÍs ser'ia felta autouaticanente, O úSING func.lona cono ün FRO!í, r€4,un dÍsplay.,e çono tË 'ern qln accept para un !ìesno canpo deftnido na tèla., ou seJa, senrê I l I . ; ' .38. . - Cada ie de Íf lca. ?. PROCEDÜRË. DTVÍSIOÌ{ : ' l ü a nale InpgftanÈe dlvlsilo contéu todaã,"asg '' lnstrucaet conrpütador. ' . ' , ' ' . ' . foda lógica do prograna está E neeta DtrVfStrollr gìlê o dado se produz a lnfornaçãà de saÍdâ. ' : àPRETíDENEüOs NESTE CAPÍTULO At 1. Àbrir arqulvo de entrada e saÍda. 2. Ler e eeèrever tnfornações. 3. Reallrar sírnples operações de nover e degvl,ar.{.. Realtiar, opeiações' espËcÍftéaE ãè-ãlh"íGõã;. 7.L. SUBDIVISôES OI PROCETX'RE - A PROCEDURE.ôIVISTON egtâ dlvldlda en parágrafos.parágrafo defln€ una rotina ÍndependenÈel en una sé lnstruçÕes deaignadas para réalliar utsa.Éunçaõ .=pã - Clda paráifafo, 1lnda, ë subdlvldo en declaraçÕes outêntcnçaa. ura decraração é una Lnetrução coBol:para o coaputadgr. u-na eenteqsa Ç unâ dêclaração ou grulo dedeclaraçÕes de un_parágraÍo. cada declàração, -saivo-ro casode .teeÈaË una condição cordeça con un verbó oú operaçâo. .: . . 1 una decraração geralnenÈe acaba colr uD ponto flnal, gtrê{"vg Éer_Begut{o de pêlo nçnos ud espaço ãr branco. úárias *:l1raçóes poden ser escrttas en uná tinna de codificaçãocoEo{., ilas as palavnas não pode!! ser dlvldídas guando. .Èenina a linha. + êada dêctàráçlo pode tanbËF ser €scrlta en llnhas' . separadas. I qh da que flque nala clara a apresentação,ecÈa forna é frequenÈenenÈe a naLs Breferlda-. - Todae as decrarações são executadaa na orden en que são eEcrltaËr r nênoa {ue unaa sltuação de àesvlo transiii" "controle para algulua pârte do progralla, ' - Todes as declaraçÕes na PRocEDUnE Dlvlsfoil são codlflcadqs na nargen B. soilent€ oõ nones de parúErafoe sâo "sciiiãs-il- . ' :uargen À. do COBOÍ,. . a sêren executadas pelo contida nestas inStruçõeg. é lldo, processado e ónde . : ' ; i ; : i I I *?! l - 7 .2. opEN (DECT"ARAçÕES SII{?LIFTCÀDÀS) - à1!g= gue um arqulvo de entradl ou saÍda IpEsê ser 1i(t0eu esçrito devernos.psineiranente, opEH t çàúr{rõi-õ-uiq.ri.;õï,E _ q conputador q lnstruÍdo para ter ãcçsso aá ""q*ii;,-'B€la declarqçãç OpEH. FORilÃTO : OPEN INPUT_ ( norle(e) de ar:quiVo(s) ) oüTpUT ( nole(s) de arquivo(si Í O fqrnats êciu.a especif{ça gue: í31 gpqN, rNpur e ourpur .?_? paravras reservad?s dg cQBo&.(b] Todos os noneF de arguivo-de entrada è saÍdã Àãs" , trralavras fornecidas 'pe1o-pregranqdoç. '::r' -.--i Para cada qláueula SELECT na E}ïVfRONMENT DMSfON. ìlfFRome de arquivo é definido e um peritéiiãõ-Ë-urõ;ãã: En resuno, são rearizadas duas funçõee báslcas perqdecla=ação OPEN l, Indlca guêie oF argulvos que Eerveu çone entrada e qqa*EoE gue serven çg1a eqÍda, : ' :. ' '" - ?' Fla coloéa o argulgg à dlsposlção dç processanelte. ?.3, CLOSE Os argui.vqs deven ser abertgp por Una declaraÇão geqryqntgs qug o: dgdoq possan ser ridçÊ- ou ë-ãÈriq;;lüiã- : .declaraçãq cr.osE é necessáriq no:.,f ipir ,i-ó preúruroã lfa"a fechar estes argqlvos., i ' . ' ; ,. Ì i .ìì: i O fornato éï CI.0SE ( nône{s) de arqulvo(s} 1 ; . r Ì . . . : Todos os.argulvos que foran gberÈoe prealsan fechados no final do progessamentô, - ì F- . . : : . , ' , : , j . ' : . Êer t . -40- Ëxenglìo r â. FrH. eLosE cÃRtÀo rtrtâ ruPREgsOK,,A" b. FrB{. , CLOSE CARTAÕ. CLOSE FI?A. CLOSE I}IPRESSORÀ. As dr.aas rotinas são equlvarences, porén a nênos gue os arqulvos qejïn fechadoe enr dlferentes partee do prograna, o eegundo mátodo (b) é conslderado lnef ic. lentê, ?.4. REÀD (DECLÀRÀçÕES SIUFLTFTCÀDAs) Depols gue urn argulvo de entrada fol aberto, pode eer lldo, una deelaração REÀD transnite un dado do dtsposltlvo de entrada, arocado na ENVTRONMEI'{T DrvrsroN para a-Érea de entrada de rnernórla deflnlda na FlLg SEg!.IgN áa DÀ?À DIVISTON TORHATO -^ì rF Ei iÈ tÃ- t , . O none do arqutvo especlflcado na declaraçâo REÀD aparece en trâe outroe lugares do progranâ. ' !" Ha cláusula 9ELE9[, lndlcando o nome a o d!.sposltlvs alocado para o arqutvo. g€, por exenpÌo, â let tãra de cartões á o eleposlttvo alocado, a ôèclaraçâo REÀD tran$nlta e dado Co cartão d€ anÈrada garl l irea Ce en.uead"a : ' 2, !íA entrada FD, dsEcrevendb o argulvo. j dadoe itarÊ a nenórÍâ. dadoa êa en+-rada. Urua declaração ÀT EHn Junto con a éeciaraçâo REÀD lnetrut e .cqÍrltutador sobfe'ô gue fazer no gdEo de não haver maís dadoa pars s€ren l ldoe, ?iã. I {RITE . . ; . , . A tnsÈfuëão ITRITE pega os'dados àcunulados na área de saÍda da DAtÀ DIvfsIoN è os: trÊ,lsnite pâra os ülsposltlvos especlf lcadçs'na btwtRoi{üEt{.T p{vrsrox ;:' FOR!{ATO L j : ' YNRfTE (none do registro) . Deve ser notado un ponto itnportante, èurbora os arquivos . sejarn tridos, nós escrevenos registroe, o none do registro qpare.ce no nÍve1 o1 e é gerahnente subclÍvldido en eanpos À expansão IÍRITE (none clo registro) é usada,para criar todos os registrcs tle seÍ{L u" Íllaposltlvo alocado. - Exeuplor gtRITE RBG-SÀI. oBs: RÉ18-SÀI élnone do registro definldo na DATÀ FD nÍvel . 01. FoR!{ÀTO 2 I|RITE reElstrg I fRq none do dádo I ' : ; . .u. ExenPloi f ' l TIRITE REG FROI.T EÀ8, l - . ' , Ì . ' i t : ï :: , : .Ê o nesnir gue ttOver CAE para REG e gtravar REG, . : , I{OVB CÀB TO REG. ': : I FoRr{Aro 3 DIVISION da t . , - ' IRIrB reglstro t BEFoRE IAFTER Exenplo: nRITE LTIÍHÀ BEFORE ADVÀNCIITG . ' ' . ÀDVANCIïG lntelro tfNES. ÀDVANCING 2 LrlrEs.. NcrIAs BEFORE r fryrrhe de1rcis . àI'IER . - ÀYanrça ttepgls avançâ. lnprlne. FORHATË ê ' . . . . - ! . : : ,r , , $RIT4 REGTSTRO ArreA ADV4I{CI}IG FÀ€8, : : ', Froçed*gren?e Elara Fr.llar de fslha.: . . : ^ t{es'Be câso, Êc$fre o sale,o de foLha e s regísÊ,ro é Ë.rnBregso" '1 ' ' . : " . t - . 7 "6. TF/ELSE É a est,rutura de seleçâo na CGEOL." ççnteúdo' ' . *48ë de Foïry{ïçi, : IF co,.ndlç&o ínstruçâo*1. NEXT SEÌ{TENCE l Íl { T t t . i ; ELSts instruçâo-Z ELSE brEryT SEHTEHqq i poderenoç ter tantos eomandos çntre o comando gF.e a cláusula !f.:sn e o nlnte.flnat da Í.nsr,rução EXEF{PLO I t IF â >.8 movË A To !{ÂIOR ELSE .Ì,tovE ts To $íÀIoR. . ; Neste exemplor ê€ a'condição A NraÍor que B for satlsfeiËôr e valor de à eerá ãrrnaaenado nã var{ávét }ÍÀroR. se A for'nenor que B, enÈão a {nstruçãG seguinte ao Er;sE é executado e g vplog d€ F é armazenadó em UAIOR... . ; " . , " t : . ; . . . . , , ! , , t . : r _ A c1Éu6ula EEÊE na instrução iF é opcíonatr. se neste axenpte {rão ti.vésseraos e eláusúta ELsE, ã-í#riüçããlïs serla çxeggçq<iè quando a condlção fosse vállda, Elara còndlçõesínválldâst o prograaa passarÍa para ae tistruçÕes çèótrlntes ao ponto do IF. -i. Convém saLÍentar que quantos, forem necessários ELSE, assiro Çonto entre o IF-ELS$r . ' i r r : " EXEIIPI.O 2; IF $ATA-ÀLIJ > ? ffivg 'orÀFRovÀDo,r go DE$CRICÀO-REL HOVE NOTA.ÀLIJï{O BG NçT&-R8Í. PERFCIFg GR,AVÀ-ÀFROVÀDS EtSE - -úove *REpRovADo* go DEsfrRr€Ao-REL PERPORH GRÀVA-REPROV&DCI ; : r t3. ú .- . , ' : EXEttPtO 3Í ,; . , ., : ' " . ' .. ., ' . ::. ' . - :. I . ., ' . IF FALIÀ-ALU < , 4 :. ' ,' ' NEI(Í 'SEI{TENCE : : ' ELSE : ': l,tol/E rREPRovÀcÀo PoR flLrÀrr l{eeÈe exenplor 6ê a condiçâo FALTA-AIU. > 4 for eatisfeÍtâ, en!ão NExr sElrrENcE é realkado e o prograrna' 'passa para as Ínstruções segulntesao ponto do lb-eise. caso - contrárlo, a lnstruçâo segrulnte ao ELSE é realizâdo. ' Neste êïçhplo, a utilização da sentença NExr SEHTENCE 'nâg.f prirEordial, Já qr.re poderÍanos ter feito â tOgica . onltlndo ésta passagen, entretanto. en alguns casosl-de instruçqgs IF-EIFE traninhadostt esÈa lnstiução eerá essencial . para o fluxo de eeleção. ' I . ' ' t ï : ' t ' " . ' ' ' ' corANDo rF cot{ cotfpruulçÃo DE Dols Írexs i ' . : 1: , io , . : Quando o conqJìdo IE ehvolver conparação entre dois . Ítens, -?I? poderá Ëel âllanuniérlca ou al.gèbrlea, dependendo' das def lnlções de tale Ítens. - .- IITIPORTÀNTE: :. I ' . . . I ' 1. Na cot'tPARÀçÃo ÀLFNfúÉnrcl, os dois Ítens são eonparadoe byte-a-bytê, da esquerda para a ôlrelta. Se,foren de I .tananhos dtferenteÉ-, o nenor é conpretâdo con brancosf à .. dlrelta (ÀPEilÀs'para':efelto de comparação) até se i.guálaren ên tananho (Ueando ËÊgísÈradoreõ espgclals). l. - : . .2.. tla coIíPARAçlg +tcÉBRfCÀ, os dole Ítens são conpar"áospclo valo; algébrlco Çu9 representan: *, ' ì : i , : - - - . ' . : . . . i . . i. À ColfPAnÀçf,o' Ëêrá ÀLrÀNUr,rÉRIeA eê un dos llteral não nunérlco (liÈeral entre aspas), grupo, ou u? lten-, elenentar. plcture !(.õu A, será âlEébrlca. ,. TO PF8C-REL. Ítens 'fot. un un itenr de Caeo contçárlo mrl|lzAçÃo : . s€Dpr€ que pôÊ'sÍvelr' dÊve-ee ênpregar conparação alfanunérlcr, pols er geral, é nai.s iapiea que una corfespondente alEébrica . ' ' . ; . : ' j . - ' ? t?, RElÂgXolr CoilDIEIoN a tF tÍdentlËier-l} 1Euor3 ' : : . i " OBS: 1. Un çanpo ou õen elnal de 2. Ura campo e do nSPÀCEn, GREÃTER i>} THÀil rtESS ( <! TitÀsr FQUAT {=} ãm ' :r i:,r ' ,:- . '' l ( . ldentí f ler-Zl l ' : : : . t 9 r. cen até 7. , -. ilê - { [Nos ] , , : ' ' . ' , ' . t t [NOT] t l ?.8. CLÀ$S COHDÏTION rF i laentíer;:Í, i . , . , , , .a. _t - . . , , , . { ls { r,{oT l xuunnrc , }. :{ IS INOT I AÍ"PrrABËTrC] ' ' ' ' : , : ' . .' : : . nunérico consl.ste dos dÍgltos de g operação. alfabético corrstste Éçs caracË.eres i ?.g STGÈ{AL CONDITION ,.:. " : : , : . . . ' : : .IF ( identl f ter- l) trs t$oTl NEGÀTxvs) , , , : , . ì , . i l fS INOTI FOSITIVE} 7.10. COJ{P9UND CONDITTO!{ ' ' t , . . . ' " ' l . : ' , . . ANó o,u gR l . . ' I!.íPORTANTE! , :", : , AND praüaLecê ãoèré o OR. ; ' ' i : . ' . A OR B AIiID C. , " , A OR (ts AND C)" : Àssâg, os parênteses eiltolv€ndo o À$I9 é desnecessátrio, As duas..opções são equlvalentes. . : - .1 BÀBEtrÀ ATID E OR :. : : ' ó-õt-aÔ-r 'e eie i . r ro: -3-- ú Ò Éõ- =----5---a---3----ç -*- ,o+----c-ú !,o concllçâo ra.o conélção rêsultado {êltD} resultada ioR) i r - - - - - -Dqà-çta-: t -ç ' -É-€-. t - - - - - -oo-r 'o i r tõ----o?------ i - - -6---- . . r? t tvVVV VFFV v F F P v f F F EXEHPI' 4 ! xove A'õô B 3,D . EXETPIO 5I TOVE SPACES TìO A. ' : ' ' : . : t155 : . : após À r HELT"O C . HELLObb ãPôs ô = ttgtLgr : ' , l=HELTO : 'C e HEL D t HELLObb após A c bbbbb entes â = HELIÍ! após à = HELLO B-??7?? B-HELLO à=TTELLO apóeA=HEL C-??? C=HEL 05 À PIC X(Os). 05 I Pf€: x(0s). 05 c PIC X(O3). ; 'õã , õ ; iË t ìõ;í : : suponág q",g: eorrç"údo do canpg À sefa ,üüEtLo, entãoi anÈês A - HETLO Íp {t!en de grupo-} * .'4.7 '- â declaração GQ fO trasnfere o controle pâra o noue do parágrafo lndicado. Ea algurn ponto do parágrafo ten guÊ haver gn parágrafo coü este none, EIe é un çonanáo tncondlclonal de desÍlq, .portanto, ô .Frogrgirraâor deve estar atendo'aoFe$úgoi. . ' . , . . . ' . . ; : 7. t2. .T, EXEIíPLOI a lto FItd. - : ,48 - : } i r clq.mprlsF1 . , t , . . . " ; j . PROEEDURS.,DIVISION" J; ,QPEN P$!{-2i ' ' , sIlttÀxE z i : : , . . . , : i . , : - ) , , . .1 , t . . , ,1 . parágrafçt;i Se-Ja .", ,,:: ' ., STNTÀXE 3 ,. : i ; ' . ' t . , :1 . . i . . : , . I , . i r , l l : - . " - : , . . . ' . . : . t .pERFo í, noüe-prõti'e.ãtpentór II!!F-ô!GH 1 nonre-prbcedlnèndu . : , . . : j Pernlte guê n pafágrafgs eelan eríecutados, desde nonelparágrafof, áçé gonelparãgrafoZ. - ' t : ' l ; ": .' i1,.': I ' EXEüPIS: ' ,,." , ..-, ' ' ' , ' ' . . ' :1 IIíOVE ZEROES TC' TOTÀL. ' pÉnronr,r -i-ÀD:i'rnr-ôxiu pRrNT-RTlrq 'READ-RT!{. . i . ' ." ' ., REÀD CÀRD-FIÍjE Af END Pnrnt-rrn. .., ' ' ' t{ovE rocAt Tc,. EDrTl. . : cÍ,os8 cano-rrr.E PnrNt-FrtE STOP RI'N. \ PEÌFO- Rt{ noTe-procedlnenÈot t rHRoucrr J : none-procedineÍÌFa ' r . :+ I tdentlf ierl l TrÌ.tEs . Faz eôü qug eeJarn exècuqldo-s os pardgraãos de nome- . ,procedlneTlol^ ffç ,nlne-plocegirnentoz tantÃa q"ãniã" foren ovalor de ldentÍ.f,lerl ou lntelrolr rnITE PRINÇ)!-991 ÀFTER ADVA1íCI11ô . .1. . , . " i STNTÀXE 4 2 LINES. EXEI{PI0: PERF.ORI{ FInSI-RTtt FIRST-RTN. ËOVE U EROES TC' fOTAL.. . PERFOntr RtAD-RÍlf 10 TIllES. @ fO PRflÍE-RIl. " i , .' ,. , . ' l REÀD-R3X. .r ' , ' READ CARD-FIIE À! Et{D CÍóSE ÇA8t}-FTtE PRTNT-FILE : . '., sToP RUN. ÀDD AIiI TO TCTTAL. PRII{T-RTII. ltovE lìo"AL tro' @I?1. ffiITE. PRIIB-otr! àFIER ADVEHCIIIË e LIilES, SECOI{D-R!IÍ, .. a a ìPERrÊ$ry 6-B&V üNf lï"']L.EIBUR 'da cH-Frl4 * Fsm " : ' l - ; . : . . . .1 n66s-psóCedlnentol SIT{TAXE 6 ' ' : r : ' ' : PERFOSü Ëxempn,ot , - . . . - | ' . . . : ' . . ' . ' ' i ' Ì . . , i ' . ' , . . , . . . . ] , .U}. IT] I r ! . .gr .E s'eonrador eã,* e' ilreitlzaëo du 0,"," i'#atã cÍR=zo é teeÈada e 6e nãs for atendídai,crn é incrneatârtà,:ae i.. A seqlrênel"e é eempre est,a: prlnêlro à lnícLal{eàçâo,sesulda doÈesÈe,d.e'çondiçãci, ,te ocoirEr ërro, a: f.nstrteçâõ trogo-após o PERF'ORI{ é Exeeutgsg, sãso contrárlo eeorre a-lncreírentó, novaïnente 6 eondição Ëe,.erËo é testada e asgÍn até sue á condiçËo seja desfe{ta. :ì., ' " . : : - . - lteran{nar t:gm u&a ceeÀaraçãe :ã1 ts RIJIÌinstruçâo STOP inprevlsÍvels. "r L i i . . : . r , . - É obrlgatórlo progtrana, sen a ' . : . j . . :_ . .4 'a celoëaçãode urna çluatr ÕË srtros sãó .e -*ì- *-ã3- ?, 15; ; EXFRESgüES ÀRÏTUÉTICÀS : - i . , ' ' : : â. Sftubol,oÈi de operaçÕes nunêricas usadas no cOBOL! : ADIÇÃo (+)á SUBÍRÀÇÃO (-) - üüiïïiïõeçEo Ì* Í ' : ç DIvIgÃo ( / l . .1 b" Às expressÕes arltnét,lcas Eâo resolvldas pelo cotsot, na. órden rnaÈernátlca.' PÀRÊ}TTESES 'g MtlTtptrcÀçÃo E DrvrsÃo sc!íq E sus'iRÂçÃo ?' .15.1. ÀbD ADD à TO É o nresnó que B =.B * 4. ADDABCGIVINGD. ' , É o nesmo que A +, g + c =. D' ' - -ÀDD A B C ÍO D. , ' É o mesl lo que A'+ B t C + D.? D.: -?.L3.2. STJBTRACT : É o neono que A = A - (X + Y + Z). SUtsTRÀCT X V Z FROT.{  CIVIHG. .8. É o rÌì€sÌEo que B - A - (X + ï + ?.1 ' ?.15.3. I {ULT.IPLY . T{I'LTIPLY À BY B. 'ÉonesnoquaB=B*À. HT'LTIFLY A BY GIVTNG C. ÉonresnoqueC=ÀaBr -53- ' ' 7 .L5..4. DIVIDE : : ' - ' DTVIDE A rNTO B. ' ' ' : . É .o nesno que È = F I A, DTVTDE À rNTO B . GIVING C REITÀINDER D.:. ' ' : ' E.o neeno quê C. = B / A. DIVIDE À BY B . , eIvING C REMÀINDER D'' 1. É o neeno que C .- A / B. - . , t ' ' OBS: l. D arnazena o RESTO da dlvlsâo. . Z, Só se usa By son o'conandõ-õiúrxc. 7 ,r,5.5. COüPUTE '" FORIIÀ-TO: ' , ,' COltPttTE (none-do-dado) OlT SIZE BRROR EXE!íPIO 1. t ',r . COIIPUTEA=(B+Cl/D*8. EXEüPLO ãT (ROUNDED) c [lltera1 I I expressao aritnetical . [norne-do-dado i(conando-fuuperatÍve) . : l t j 'para arredondar'osresul"tados ná deólaração coupurEpara aF esp€clflcaçõee do 9,aúpo receptòri=----:-- COHPUAE À ROI'}IDED É B + C + D . : : , EXETPIP 3: Para testar ettouro de rnenórÍa arltrnétlca quando faltarn .poslçõeq lntelras suflclentes. no campo receptor'paiã-o---=l-- resultado: colípuÍE | = 105 - 3 oil SrZE ERROR co ro ERRoÊ,-RTN. . . . . : ' oBs: Neste caso, s€ndo A gr g?npo nunérico de 2 dÍgitos ocorreria ua tnurcarento do dÍgi.to da centenê- ' ' ì : 1 ' . r j _ :: l:- .. ;l'.. . - j7.16" DISPI.ÀY. . ' ' , 'A lnstrução DISPLAY {e lnpresção en iarquivosdo opera$or! .: ' : StrNTãXE l ì . - ' Ë útÍI para ntistes o vatror afeazenado nuna ExenploB : . é planeJada parê pequcnos volumes especlals do slstena ou'.no'isonsole DIsPIÀY'f lfgntfflcador*l t I tdent,ifÍcador-AJ . ; . gueoNtl l teral- l , l l t r i teral-? j ' : : " . . . ; t . ; : : .$4 r-- . ; . nomg- de nesaw de prosrama* n*"5uãffi::À, varíÍlvel, DISPIÃY $CH-ÀUX = rr CH-AUX. ' ' . i . , , r . ; : . . . : . . : . . .Se CII-ÀUX contiver o valor 2 aprarecêrá3. CH-ÀUX = Z" ' . . : , . . : . . . : : . - , : . , I : DISPÍ"AY E$Í $EI"AS; i ' . : . ' i : . ' . . . l DISPLAY [caqpoi {JPON [conrnand-ïine,/con]. . . ' Aiqnuv [canpol Át tlcc. ': t I .ô 4 ., . : i i : : - DISPT,AY , . [ êampo J , ' " ' l : ldentlflcador FROtt { DÀTE } {TIUE } tDAYI 'Patra ' | 'neort ,a1adatadosÍstemaoperaclonã1. l : lla E{ORKII{Ë-,8TORÀGE cologue: : ' , ; 01 DÃTA:.SISTEIIÀ. , . 02 AÀ-SIS .PIC 9 ( 02 ) . s2 DD-SIS PrC eioeÍ. ' . : . .::- ' tia'PROCEDURe pfVfSfON dê o colnando'ÀCCEPT BaraÈransferlr a daÈa do sistema operacionai paia o-,iten <!e , grupo DABÀ*SISTE$ÍÀ. Gerahaente os sitenas operacionais , qrngzgn ê daÈa nc f,otilìato ÀHO/HES/'DIÀ, Iogo é Íanportante 5.6 . DEP.T!.TINDSI . . . r . . ._,* i l - . : - . ._, .1. . . Ha ENVTRONIIEBIT DIVïSIOh. aj l . 1 'SPECIAL-NÀD{ES. ' . ' . : CURSOR IS e-curisoË.. '. ,.. - HA gÍORI(IHG-ST9úGE gECTION , ' . . . .1 . : . ' : , .', 01 ?Í-CURSOR. .' , ' ... ::i.,1 , ' ] . 05 LINHÀ PIC 99. : 05 coLttNA , PIC 99. USÀNDO: : L Na PRO€EDURE üIVISTON. . ' . a : . . ; ' . . . .1 . - Ò . : . ' : : . . ' . r . .: ' !íovE 10 ro'LrrHÀ. : üOVE t.5 TO CQLT'NA. 1 .AccÉPf cal tpo. ' . ' . , . . " , ' ' f . . . . - ' ' ' .1 i , OBSr FITITCIONÀ,ÀPÓS Uf.{ ÀCCEPT. ':. , j . :'.' QUANDO SE Dá 't M ACCEpT EDí tn,r CjaHpo rNFoRuÀNDO À , iu,,,, LrllHÀ E col"uNÀ. o,cuRsoR Ttrt{BÉu sn poslcroNÀ t{o lNÍcro : l i DôSAüFO. . ' . " . . ' , , , . . : , . ' : - : . - . : ' - -"1-ExPFIo:, , . . i , ï : , . , , . ,'iiffEPT canpo Ar 10i5;' ' ; : . . , . . . ' . _55:r . -1 . ' f I 'q ,ssiE.ri,,.: ...,.,,,,', . ' ' 'a t t ACCEPT óErT-SISTEI{À FROU DÀTE . ' : . : . , . . r , : L ' . ' . , . , ,1, : ' ; . . . . . . ' , I = l - ' , . . . . .r, os canpos especÍficos do seu prõgrãrn;.-- --'- ' t ' : , ' l ' ' ÀCCEPTET{TEI,ÂS. . : . . . : . . . , t t ; . '^ 1 - ÀCCEÉT [canpo] FRO]! Ít ime/daterzday_gf-week/canl, -? . ÀCCETP [canpo] ÀT LtcC. ; t . ' .' , onde LL = linha e qC ; coluna. .. -3 - ÀCCEPI [canpo]. 7.L9. EXrT. . E usado "?r:-po!t?,de retorno de uÌ0 paragrafo usado comosubpregraÌÌa ,atraves -do.: uso .do conand; pÈnÉõÃú, -ú";-.;npre eobrigatorto, :lormalnente ha'o r retoinõ ãã;;dá a*ã-.i"nada lpgs I elecução go urrirno comande ao:pãi'asrã;ã G.ã;:-*:*Entretanto , guando . 9 . paragraf o possui - ,oaié- ãã-"iã--- 'arternativa dg_ranrlfióaçãó propôrcionaaa por coniandoscondicionais rF, passa i existir üi;-ã. uo, ponto de "retornoque deven terninar, entáo, ê'n um paragrarõ rãrnrãão-ierocomando EXIT. I ' ' : :#: : 'n . . . : ' . - . . ' . . . ! . . : ' . 1- . .a . FILE STÀTUS IS f-s, ,,rij NÀ ryOR!(ING:STORÀGE SECTION: ' rnr . , , .t-S pfC XX. U€ÀNDO: . . . . . . NÀ PROCEDURE DrVrSroNI . i . . ' ' r : - . . . READ ÀRQUIVO. : ' : . . . rF F-S .EQl ". ngor '. - . ,, _. _yovg ;sijceséói To uENsÀGEt{r . . - : : - EtSE , : . - IF f-S EQUÀIJ r'tgn .I{OVE rrf'fü DE ÀReUfVOrr TO t{ENSÀcEtÍ .. .. : .. Er,sE IF F-S EQUÀL t!23r1 : ttgvE "RgetsTdO nÃo ENCONTRÀDO|I. 7 t?Lt tEcl+ç- DE FulfçÃoi Sâo aÊ teclae ESC, Flr Fz.i!ã ã!e$Ëï:""ã!;.Ià, uX';ô' nlï!,93.Ë";"í"ï:::"u"s para :' ÌfA EN]VInOTüreilT DIvfSIOtf'. SPECLAL-IÍAIÍES. Cntr S!ÀTUS fS status-chave, - ITÀ IffiXIrrc-SIORÀGE SECTION . DEFININDO CÀI{PCS 3 01 STAfi'S-CEÀVE. 05 Trrc-cr;À;Ë prc x.05 ootllcol-cHÀVE plc 9(02) co}tp_x. : , üs TDr@z-cxave Frc ãÌõti õõrp-ï. DIVISIONI :.. assrçn TO DISK 0tr BITISETÀDO , , -tF_l I '58 : ÍtOí - aceept ccn Èérníno nornal. .: t r1r , - térrníno def in ido pêlg progranador, , :teú ;i ternlnado pelo ÀDIS, :r3n .é. térrnÍno poÉ etrave de ,. dados de- g bltso :tr4n - térnlne por çhave de dados de 16 bit,E.. ngrt . - ' 'ef fO.) PtrC 9(O2) CO!{P-X VÀLUE 1. USAIíDO! , ì .1 " 05 PRIUETRè-CHÀVE ., 95 gIDE-CHAVES (onde: arrvA-DESÀTrvÀ l : ' . ,' .t '. i ' PRIUETfRÀ-CHÀVE ,t ,, . ATPE-CHAVES : FROçEDURE DtrVrSroN . : . ' : : .. (l{ovendo valores para as chaves} . . . "59- . . : r ì i PIe 9(02J CO!íP-ü. PIC X VALITA. rln. PIe 9(02) çOttP-x. Prc e(a?l| cot{P-x. , = O s desatÍva 1 * at iva. = núhero.da prineira tecla de função desejada. = guanÈidaôe de Èeclas desejadas à partir cta Brimeira-chave. ) tf Ìí4 ttovg I to ATrvA-DESÀÍrvA. I,TOVE O TO PRIUEIRÀ-CHÀVE, l,ÍovE 11 TO QTDEiCHÀVES. (Ativandando chaves) cÀI,L xhâr".,usrxc Brr-sETÂDO CONTROITF*CHA\íFS r . : .L ' . . :(Testqp-Çg as'châves) , .I . , . . , : . , i , ; . . ÀCCEFT eanrpo ÀT 010J., IF TIPO-CHÀVE = |t1$ . ,, I ' ..' EVATUÀTE CODIGO]..CHâVE I'HEN O . 'r,i'. glggç1y 'EscÀpE For pRsssronÀDo1 , , ' orspLAy rF.i. For pREssroHADon -' T{HEN ? DISPI"AY tIFz FOX PRFSSTONÀDON ,o ' l wnËH ro DISPLÀY IIF1O ÊIID.EI/ÀIUATE ETD-IF. FOT PRESSIOffÂDOq . a. ' f {Nçr ..iì I - :: EÊ fàBEIAS DEFTE!{SÃE FO$41q9'ç' parq a deflniçãP 11-: . r ' . : ôe t,abeiae d,e conprinnenta - ".. - : , . ' ' ga!Çlê:'onde as subscritores descrltos entre e.etéÈlca dê f,aser lsto nP tabe1a,, . I ". ',. ï,: ,: .- :. ' ,; .tttlnerg-nÍvel Rone-dado OCCURS Para referenclar og .elenêntos eil ìrna descr lções sêô ldênt lcag, ' faze-se uso dQs fornados por un número inteiro 5lositlvo garênteseà aBós o :none do ttenr da tebela" ELSE Itá una fornta rnals Prát,lca e coBdt que ven da .utíllzação de . , a .:,: . ÍF i lEg, * l .? S{O}rB ftDEUEt'tBROn TO !{ES-EXTENSO' :. ' :Egenplo: . ' : - . . - , , ' ' ' . . : . . . . . , | I . COneldere o càso na quaÌ' lenOs de una entrada conheci.die ü valor do mês ecg forma'de iteln núrneribo (def i.n!.do como PtrC 9) € precisanos.lnprimlr o seu conteúdô na forna exÈendi@a" esslml €ie o ltem lldo fot g.devemos lnprinÍr SEfEÌ'!BRO. áoderlamos utl l lzar'vários IF's ídentados em noõsoì . .prograqaE.; : - . . : j - r - - j . , , i . , . , . . ! :1.= . , : , . . . , . . : : . J " , ' : ' : . , . - : ; . . . . - ' . , . : . ] . . , . ' . , . ; : . . ' . ' ] . . . : . : . . , : . ' ' ' . . . . , . : , IF l . íES'= t . , ' F{OVE |?JÀNEIROfl TO HES-EXTENSO a rÌI o dr P8 I I 'fP !íES * 2 ; ' ,' $OVE T|FEVEREIROï ÍO I{ES-EXTENS.Oi, : gisú --" ig! , íES=i : ; ' :, ,,..;, I{OVE mMÀIìCOrt TO üES-EXÍENSÇ' i ' r ' l rÌ{ B€ FE f1 ' , t Fefin{go; af Ëabelag na !{0RKING-S50RÂGB sEcTroN. OT TÀBELA-MESES. . ' .93 TFTLLER PïC "03 FTLLER PIg 02.Í ' ILLER PIC 02 ruLLER PIC .OZ FILLER PIC Q2 TTLLER PIC 02 FTLLER, PIC 02 TILLER PIC 02 FILLER PIC 02 FILLER PIC .02.FILLER PIC OA FILIER PIq , 01 TèB_E!À-MESES-RED REDEFINES TÀBELÀ-üESES. .02 Í/rNHÀ-MESES OCCURS 12 TI!{ES. 05 NLMERO-UES PrC e(02). 05 MES-EXTENSO PrC X(0e). :1 a segulr a redefinimos en um iteqr de gruiro para cada entrada na gual o prineiro iten é Prc 9 e fornece o núrnero do ruês e oeeç'undo1tenre1acionaomêsnaf.ormaextend|da. .; Pâra referenÇiar oç elenentoe da tabela devemos ç:'clar1 o subscrl.tor no 1ívet 77 | . : , ,77 SUB pIç s(AT) VêI{UE ZEROES. ,i: : . Àgora basta fazermos uma lóglca' na FROCEDURE DIVISIQI na qual pesquisarios o núnero do raês Iído na tabel6 s a , ' : ' . . segulr lnprírnlnos o seu conteúdo por extenso.. . i PROCEDT'RE DTVISION. . . ; !{ovE .lllÀor To AcHou. . t{ovB 1 To sUB. PERPORII PESQUISÀ UìITIL ÀCHOU = trSIFítr OR SUÊ > !.2. PESQUISA.+i rF r{Es Ee[rAL ]ru]íERo-r{Es{sua)' , , . I|OVE IíES:EXfE}ISO(SUB) TO ', . l,tOVE rsllíi lO ADD 1 SUB. x( 1r. x( 11 x( 11 x( 11 x( 11) x( 11 l í( 11, ! ( ( 11 x(11) x( 11) x(11) x( 11) VÀLTJE í'OIJÀ}TEIBO'I. VALUE IIOzFEVEREIRQ" VÀLUE rr03tbÍARCOrr. vÀLuE rt04ABRIL'r "VÃLUE noSuArort 'VÀLUE rr06.tflNHOrt c VÀLUE tt0t*U1ggn.' VÀLUE rogÀGosTor!. VÀLUE nogsEfEMSROlr. VÀLUE r! toouTUBI.tOrr, VALUE IllINOVEI,TBRO'I . VÀLUE TIIzDEZEMBROO O EX?gNSOÀcHo{t .ï.''ï1r:f-.'ïïr,,,,F ftj. .-,,i,Ì . :. . : . . . . t , . . : , , , : , i , : . t increnenta ou d,ecrenenta ì . - ; i . . ' , , . j ' : . . i , i i i i j i ì ' : : ! . , i r , , l : . , . . . , : r ' : . , , , ',- i,,.,. Forçgóe' ura' Valor quatguer, valorcs de un indice defini.do pfysr I ÀrrsrcrmenEã OU qecfenencãì OS[d"o pqr USÀGE .IS IIDEX na workl,.[e-Storage Secti,qn.,,-,,.,, .SEt lndêx=x sET lndêxlx. sEf lndex-..x ' : : . . to. ,2. UP BY 1. D9I'.{l{ Ay 2. ( incrementa(decrenenta c I ç I I d ( ( .( I I I ' l t ,1 ': n*e"proai'1!.;, ' t ' , ' ua woirrnuii{otaEá lsectl.on': : i j : ì . : : . . i ' . .?-7 INDEX-X usage ls i.ndex. , . ' . :: Ì : , - 01 tabel,ao j :L6a-tçt l 'q. . . . O2 dados õccurs 3.00 tÍnes INDENED .B,y INDEX-X: : ' , . i . 03 nupèro plÇ 9(051. Na de 1) de F). *, .ÇJ a , . . - , : . i : , . . - . ' ' . . ' . . : . ' . ' : : , 9.1 âSQUIVO rNDEXÀDO. . -1 ' . . t ' ' - ; . ' . , . : ' . _, , i_-_-_PT_:T afquiya, os dados..pod€m Eer colocados ou srganlzadoe de diversas naneiras, â fim. ge pààãi ãprorreÍtxiÍ - . , . 'aoaáx1noasvant,agensoferecidaspe1o* ' Í5ro- i i ; i " ; . ( f1!6 ' . , : ,=l?g:i!Ìf?-: d{sc.o-ruãsnerico, ga*oã'' *ãõnãiï;"-;ã:ì dó ï :., ,. :OrÊposlEivo gue. for Í0a o arguivo. . . , . ' , . . . . . . : . . . . : . . . . " ' ì : : , ' ' ' , ' . i - j . . . ' r . . : , . - ' ' : : . , , . : . , .' 9, 2: !-{ÇDO I!{DEXÀDO. . i' ' . a l , , ' , . ' t , . . ' . . : , , ' i i . . . j : . : . J-;L^--I?"tg casor -a posiçào de cada dadc no arquivo é' qeÌ,erntnacta por Índlces ou KEys nantidos pelo -sistena ' operaclonal do cornputadgr.gue, usando u!ne-aã"i;; aproprladÊ : .de pçsqdlba e busca de dadõs, coloca ou busca os dados noqrqulvg: -oÊ arqrllvos Se.dadol corl "igãniãüã; Iãol*.aa deveu:::L?i*llor e3 disposirivos de'acessó aiiãiõ-oõiõ o aisõõ-fr , : . Tágn9!_Íco e são- especificados pela gláusüla : : .;. .,..oRG'ÀNTZATTON rS TNDEXED na ENVTRoNMENT DrvrsroN. : . . . : . " : . r ' . . : 9.3 ; ' .DEFINTNDO UNí *RQUIVO INDEXÂDO: . . . .1. . ' . : l' sElpgT_t$qgry.gl_1ff_rgI ra [pERrFÉBrco! ,, . - : , ' . ' , : . , i oRGÀNrzÀ?roN t 's-rNpgxrn , : : ' . , i ' ,ACCESS !{oDE IS ( 'SEQUENTTALI : . ; - . ' - : . ; - - - : - - - - , ' j , ' . . " - ' . : . ; ; ' { DYI'ÍANIC } . : . . , . , ". . . . ' . . 'REcoRDKEyIstcAuFo-õúvg]. j'; oRGÃNrzAcÀor É corno o "tguiro f,ol grganlzaôotcr iado! . , ' flfDEXÀDO - Atraves de indlceE çhanados de ,,. chaveg. : : ' ' ' ' . - }íODO DE ÀCESQO: Como os dados podern ser :" SEQUE!ÍTIÀL - sequenciaLmente I randonnlcanente (por chaves). - dinannlcanrénte ( sequencialnehte e randonj.canên+-e no mêsmo progEama) . RÀHF!Í . DYilÀ!íIC FII,E DESCRIP1ITON .. - .Idet ao arquivo sequencial, : - iãà '*" 9& -6À .-âi:,t,? .,go4+I!DOiÊ Dg ÀRQürïrOS TNDgXADOS. / ; , ' . : - r" i . . . _ ,,, i,,.Hp,forma 'f. 'O eLe pOde ser têntç- d.e ,entrada.çomo dê salda dentrg. ãE un $esuro prãgrana. uovE Íoapo3 fo cHAvE. REÀD [ÀRQUrvO] RECoRD KEY IS CHÀVE : ;,. , [NO:l rmIÀLrD ïEy i . I rlrTol ' Icor{À!{DoJ IREGTSTRO] trROÌ'íl [NOT] rNvALrD KEY . : .[REGIsTROl l IcottANDol ' ' '. ;,i' 'A,E?8RITE [REGISTROJ :: ' . ' ' t i . " ' [NO5], IM/ÀLID l ' : l , IrRo]il IREGTSTROzJ KEY ICoMÀNDOI: . ,9 .4 . 'ã i . .t : .:,,,. " . ' . , t t t : , , , .1: : . ; - j - r i : , . : t ; .1 . :1 . . ' '; ,:i--;, .i;" : c i6 i . '9 STÀRTs: (posrcroNÀ po!{TErRo DE REG-rsrRo}: [r{ogl ï$vÀtrD =! [DÀDOJ <l >l Icot{À5{Do3KEY - .€ã* . . . ,d : : : CÀPIEULO lOt UTILXZANDO Q . ' l írcRosoFT, VERSÀo 4.5. a PWB ria opção UÀKE ou nornÊ do arqulvo que 19.'1:l usÀNDe'o nsoFTwtuqEr - pI{B. {proEram:uer,Ë workBench}.. ' ' .para se uti lÍzar o .SOFT!{ARE', diglte pWB dentro dodlretório coBol, onde ele se enconúra instalado" .rrá apresentar uma t'ela "::_ïi_IeNu q"; poderá ser acessadoatravés da tecra.ÀLT.- -pressione a tètra en destaque paraacessar a ooção.desejada ou corÌr o .ur .ã, sobre a palavra,presslone gi{ten e seii i aberta una :ãnãi" de opçÕes. ,Para sair , use a janela FïLE, opç.aó-Ëi i r ; 10.1.1. EDTTOR DE TEXTO. .para editar textos ou acessar arqulvos, use a pÍfB naopçãg FïLE, esta janera dá.açesso a ei iaçao de novosarquLvos, reeuperáção dos ia ciiãaõ=,-Ë sarvanentoautonátleo toda veã que um-arquivã-iór-alterado. 10.1.3. çoupILÀNDO UU pBocRÀlì{Â. pafa coxrpi lar , use u- lwB. na.opçâo^y*{p, -or . l na l lnha {ecomando do Dos, denrro do diretoriã-õõãoi" aióiõ,ã _-coeor,,será aurornáricaTenre pedido o nome ao-ãi[uIiã'àI.-"I],.e" qI lrogranìa f,onte (.cBl)re os nomes dos arqurvos aonde serãossrados o prosfana objero (.oBrt, ã-rfltãõ.r=aã-Ëãipir."çaq('.Lsr) e a rlsrasen dã ob'jero,-óé ;"iï;iüË":- --ul,' 10,11r ' tIilKÀNDg ur-Í pnocnara Para UII3I^-ünì prograT? : gerar o executável, use apw' na opção oprro*s óu ãa linha-ãã-ãoi"ndo do Doõ'diglte - LINK none-do-prograna.OBJ + ÀDIS * eOiS'i*IT + ÀDISKEy +ÀDrsDyNÀ + ErrFlI, e será pedido " "Jãã-ao arquivo aiinde serdgerado o prograra executáiel (ExE)l--- 10. 1. d,.' AKEgIUTÀlÍf,IO {'tT PROGRÀMÀ. ' . para qec.utar uE programa, uËe na Llnha de cnranilo ao bs-aigiú"-ã- conË,én o pRGRÀtíA ÉxrcurÁ,vEt í.ExE). 'J? ' ' r ' : . : " : . , . ' - REçOUqTRUIHDO/hEORGANTZÃ"ilDO ÍsrDrcss os rff lsqulü,Q Pera r":gT::u.i-:/:"?rganiear. os _Índices Ëe un, arqulrr-,use à- Pt{B na'opcào'i{ÀKE ou na l inha da eanrrraÃ=,rÃ-","Ãã' , :,..y?e :a PÍfB pà opçâo't{ÀKE ou,na linha de cosando do'DOã; .-.'::.-.:dÍgite: ,. : ' ' l ' Fara reconsÈrul t s RBBUILD ln-f i lerDÀT [k. . .1 |í , /L l L/v lí , /v lÍ ln l 'L/el , t ' /c} , , Pqrq :r.eorganÍâar í / í l ï . /v l ' 1. le l " . , /9 = Especl f ica io t ipo de cgnpactação'a se-r fe lËa EÌo' : ' . , , : , . : . i afqUtv6. ' , : ' , 1 i , , . . . : . . , : ; . . 1. . , . r , . /E = lrgvtrr-êrdupltc_i-dade de clravês gerando unaborto. , ./I = -Exibq lnformações. ., ., - /K = Deflrie esÈrutúrâ de .chaves do arguivo de saida , " .' ;, lN o Exibe lnforrnâções êen processar o "iq"i"ol---Q = E*iP" contador qê reqistros da execuçao. i,- ,, r. ïinrra. ãà conânáo do Dôs dtglte - scnsells [arguivot, ' - ' - ' : r " i ' : - ' ' ' : r ,REBUIL9 ln-f f tê,DAT,oug-f irg;pAT' [ /x] ' : , ' i t ' , . : ' ' ! . : :, ,. " SEJÀ ESTB , ;. .r,,,1 , Ia ,1.1nt!a1 de c,onando do DÔi dtglte - scnEeNS farguiv . ' . i ' . . . . ' : ' ' ' . " . ; . ' ' , ' ; ' , ' ' . . ; . . ' . : ' ' .: .:, âparegerf una tela em branco çoln un üENU no Ëodabé. . . Pressionando e segurando a tecla ÀÌ,T aparecerá uin . :, t :,,:; ;'. i..9ltngo rnerl-,.u' con-g.tecla crRi;-un-ã.;Ë;i;ã.{ ;- , . .*?:?. : ; I . :ogFl l l . txPóUuÀrEH: . . : . } . . ' ' . ' ' . . . . . . . . . : . - . . . , . . . ' . : ' . - -m '. i' I . ' r,lcut olDE DE TEcNoLocïÀ DE' sno paúr_o -'" ' l,' i " , . 1 . , , ' , , , ' . 1 , ' . . . . . , . , , ' . . , , . i ; . l l I ' l : : ' rEsrr ' . , , , ; , . . ' , t : ' , l . DÀ' 'À " ' / / " ' I i I ' i : - t r . l , l fo i ! íg 'ntr t ' ' l''., , EB'IDÊREÇor I ' ME}TSAGEIIIs. t DESENHÃNDO MOLDURÀ.p*Éssro*ÀNo .TRL + F6 = {Dnar* - D*sg}Itto}aparecerá un nenu no radapé corn áãil.ãiiioá", : F2 iERÂsE/MgvE4DRÀrdl = (ÀFÀc|/HovE/riESElrnÀ)pressione- Fz várias-"reees ate'afai lãã" nui inha <ie menu, à esquerda no rodapÉr.âpalarrra DRÀ!{, . : :. F3 = TIPO DE IÍOLDUR , Pressione F3 e_escolha a noldura deseJai ia. ' . siúples ou d,up].a - c€r'í As *E?AS DE pïR'çÃo rnecg À uoLDirRÀ Nf,, TEt"Àr: :?_::I ib:r:?.,. " : ?" I 11' 9_r i p" -"ãï-ãI"Il.lï ãËl:::::".*^Ilï: St* Ii:.frã-ãiyiiËïË ã:$ã,Ëã IY:::d:^"^:9:1".Ï!,-II9ug.,'.çrsrnesãrã-;Ëãiã,;'none do.campo'quê será ut ir iããã; ã;; ã#i"-ã. ' .Zl2" =31q1- informè ã-";;-; -ãã.#õLïX.ESC : ENCERRÀ. - ESC = ENCERRÀ DEFININDO CÀHPOS" DÍgiÈe -e texto da teia (gabeçalhc,nome de campo).Defina os campo= ,t"r iárrèi; digitando ^ (acent,ocircunftexo ) ,para cada p"Àiçãõ-ã""Ëãroo. ex: se nome é um campo con io (tr intãï- iosiçoes,dígl te 30 (^)" Pressicnandc F3 sobre o prirneiro ( ^ ). do canpo , i ;:.1Í:ïk.::'i::-:ïi-i:"iii_"orn opções de ripes PTNTANDO CÀÌ'íPOS. 1 :.. ,.1... EscoLHENDo coR DE FRENTE x FuNDo) i ,Fressione ÀLT + Fg' será aleriã-ú* *.nu con : .r.oirões de ccresi ccnì as setã1-ã; ãïr;iãã escornaas cores e i ixe.-as coÍn uma guf t "ã iãË- iz è Fz i , , , , , , , . . .sendo que F7 será a cor ããri"iailffi iaarao. , . .,,9? psc pâra sairF6 (SSLECIONÀNDO COR FIXADÀ PÀRÀ FRE}TBE E FUNDO)'Escolha rrnra das corês f ixa6as tecfâ"ãã- sucessive*enrê tG , verif icaiã" -ã-;Ëã; n" ffiï;"ffiâ'# rodaPé" ' ,, âo ee digitar.alguur caracier ne tei.a, estë s.aÍrácü a or definida como FRENTE.. : '' --F5 rprrtnmo-FnHDo DÀ ?ET.Àì Tecle Fli sobre a exÈensao áo-:?Tpo pârâ se plntâro funóo deút€ cotr a cor escolhidã-rã*-rsl- -a',--ì ,AlfVfnp/DESiÀTI'JÀHDO CoRESi - --- ---' ,' . :,Para etl.yerldes?:1:":_:pçõÉ: de ccres,ficando . a pcffio, luressione ÀLT- i ra. -- ' - - .ir - Í .qg I _ ' it ' .1. I t . ' ' '1 t . . ' " : . . ' .Ëçcle cursqr . . , . . , . ' F2 rì i ' .- até , :, ' : ' ' j i:de -opçÕeê, . para pressione .F4 canpo se repiçÊ" ÀoaatCo.n de E2= : ! - . - ' . j . ,G, .NLÍERANDO À ORDEU DO ACCEPIr. . . " , - . t ' t . : : ':. . ' . , . . Í .F10.- (DEFINE À ORDEtt DE ENj8RÀDA DOS CAI. ÍPOS), , , ' , , ,QüaTqo eõta tecla é aclor iada, todoÊ os.cànpoS', ' _'.ï+ ,i . varlÉveis aparecêm .con ns!t. sobre a' sqa ,_extênsao j: . ,, ,, Pa1a. alterar; àigtt9 sobqe o prinreiro !tg'r de . ., ..r;;:., ..c4d-a canpg a ordên de prioridade,de acessôr' aê' ',; i . . t , ' . . ' ' . - : - - ! - - -^ -- l - - -^:--- - - - ' . ! . .d - . . . . : ì . : ; ' : , , . .CAqA canP9 a grqc:m cr€! pr lOf lQaCe,Og aCeÉ]SO, Sg. , . i , : I , i . , - , . , - ' . , . ' l " : quiser que seja , acessado antesr. d i .g i te rr4ú na , i ,.. ::r;;:- j:: i i ' ; ,,,,.:" '$rimeirá posição do ca:npo, se qútsei que.seJa ì , . . ' ; í - , ' ' ' ' . ' , ' , depois, d lg i te ! r6n e assln Eucessivanente. , ' . - - - . , . . . , , i i . . ' i i . i , . f10,- ($af da opçâo SÀLVÀNDO a ordem). 1, . , . , i , , , , ,1 . . - : . . ' . . . . ï . , :9. : r , , : " j , i l " , : : : . " ' , ; i i : .1. ' . ' . .,,,, 'Será pedido o none do arquivo, l.nforne e dâ ENTER ,r , , , , ,1 , . . . , i -F3 ,(ESQUELETO). j . : . " ' .1 ' . j i r l : : r ; i r , , ' l .pós'o ÀLT'+'F5_un.neng, Ëecle F3.e aparege-rá g. : ; , ,:.1;;:: ì i ' eÈguelet,o da codlf, icação do prograna.ógl : - ' S0 r ti't;8r;: .' SÀLvA!{Do A TEr,À. i.,ï.. " i -i -ji ' ;- :. :' .| : ' . . : , .l,= àLg + FS (OpçÃO pÃRA SÀLVAR TEIÂ), ,, ' i , ". i Será pedldo q none da tela (.SRlt ê defautt) ' : ' t- ':'1 ;'f';'f,! - DELqTÀDIDO DEr'ïHIçÕES . . . ; . . . , . . CTRL + F9. '. . '. :.. DELErÀi{Do DEFrNÏçqqs clRL + FlO. : DELETANDO LINHÀS ET.Í ÀLT + P7. INSERINDO LINHÀS. ALT + F8. :sÀrNDo DA .rsqREENStr. ESC - Y (yes). DE ATR{BInOS '1 . DE ATRTBUTOS , i : \ . i BRÀÌ{CO. DE DE 10.2 ç 2. ARQ-UTVOS GERADOI Àpóe gerar e salvaf o prograna e a telâ, sefão criadgs 06 sêguLntes àrqulvos en disco: tt TEÍ.À.CBL - Esqueleto do prograna fonte ÍELÀ.SRN - Desenho ôa tela TEIÂ.SS - Screen Sect, ion (codi f lcação da tela), TELÀ.wt(s - Í forklng-storage Section. (das variaifétE), - , gBS. O prograna TELA.CBL lnclul os arquivos TEI.A.ÉQ TEÀ.FIKS atràvés do cornando3 : . COPY rtela.xxxi l . f-úrtii-ãó âiq"ivo TEIÂ.cBL Ê,azer ras aevldas alÈerações e incluir a lóglca do progrànal ,:.: . . r ' . : . ' . . : i i ' 10.2.3. ÀTRIB[trìos DE GN{POS. ' ÀttTo - SALTÀ AO FINÀL DE t U CÀt{pO, pARÀ O COUEçO DO PRóXIUO =.. ':zERo tt* : ffiiE cÀuPo lru}ÍÉRreo cou zERos. ' :REQtrrnED - CA;PO DE PREENCHTUENTO OBRIcÀTÓnrO itusT il€ËT- âLIXHà COHTEÚDO DO CA!{PO À DIREITÀ. . FUIJ. - MIGÀlÚRIO O PREENCII,TENTO. COI{PLETO,' BÍÀrx ruEf tF - GrÀrÍDo FoR. UEROS, 'TROCÀ.pOR BRÀNqçS.: BEIà - t|DQl SIlfO. - GIIEìO PISCTilTE - lüüstE àrttoËÀTrco DE TA!{ANI{O DE CN{pO pst q lrun offiEúm coNTIDo. ,.i ' I,l.',,,1 , . t ' , : , . e BLI|rtr SIZB eFfTïg,c In I Ëxeeplos de progrâ&as: ËfrgãtrrrcÀsïüls Dlvï sroN " PRËGRAË{*T*. g'ES?HC]. . &IFTT{O*." âg}9, :. l$sTÀLr.âtlüa{ " gArEc/sP, 'ffiTE*rNRÏErË'sI 3F:eçosto-1eel-'ËârE-cos{PïLB$. ".,,.'' - DO ÀRQUTVO DE SHTRÀDÀ EM DÏSCO. sEeURITg. HSgfr tF-pgease souE$TE P0DERA sER UoDrFïcADO CÕt{ DO AUTOR.e :t *3EilARI{g" 'iú çïJE LE in{ REGTSfRO ffiÜI,T ÀRQUÏVO DE SÀTDÃ' mEvrnoeEsE$f ugfi ËrGir . çügruessasrffi ÊEgfIoN. gfitlRcs-tswp{tg@.' ultlsYs .ggJgcg-cawït " , $ilrsvs. ffipgcïAr,-$A}ÍEg;' B€*rl{At-PoÏHT rs co}Í},ÍÀ. ÏilFÏ'T-Oï,TTPUT gECSTOÌT. FILE-c0!f,fRfir", " SELSCf CA*ASTRó0L À,SSÏGN TO DrSK. sELEClr C*OgSgnO0z ASSTGN TO DÏSK" DArÀ DrVtrSïO}ï. FILB SSCTÏO}T. rD CÂBASERÕ0l T"AtsEL RECORD ARE STÀì{DARD vÃL[t8 0F lrErtB rg ÍcÀDÀsrRool-rl BÏ$CK CO!{TAII{$ IA60 CHÀRÀCTERS. 01 H,SG-CAD0I. sã coDrso PIc s(05i , s2 lso!{E pIc 1({ 3o ) . üa rDÃsE pgc e(oz). ü?, sÀï,ÀRro Pïc 9(07)ve(02). o? FïLLSR PIC X(38). trF CADASIfROOE Ï,ÂBEL RECORD ÏS STANDARD BTOCK COHTÀIHS L26O CHÃRÀCTERS" s!. REË-CÃ,DOz "02 coDrco-sÀI Pïc e(CIs).$z !{or{E-sàr Prc x(,30). ü2 SÃï,ÀH.ïO-SÃI PrC 9(07)V99, 0? r ï r ,LER PïC X(,40). SIORKÏHG-5TO'RÀGE gECfTOI{ . 77 Frtt-ÃRQ Prg ,S{03} VÀLUE 'rl,[Aotr. ï 7+ ' : PROCE.DURE ôIVÏSTON. tEsTEot. :
Compartilhar