Apostila de Linguagem Programação COBOL

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. :