Definedigital data
Digitaaliset tiedot määritetään PICTURE-lausekkeella. Jokainen 9datakuvauksessa edustaa desimaalilukua.
Characterswithspecialmeaningsthatcanappearare:Pindicatesleading0andtrailing0Sindicator,plusorminussignVimpliesadecimalpoint
Tiedot tietyistä numeroista.
Näytä digitaaliset tiedot
Jotta digitaaliset tiedot on helpompi lukea toiston ja tulostuksen aikana, voitmuokata niitä lippuja (kuten: desimaalipiste, pilkku, dollarimerkki ja maksumerkki ja luottomerkki)Muotoile numeerisia tietokohteita.
Esimerkki,muokattu hinta onseuraavassa koodissamuokattu digitaalinen tieto:
05PricePic9(5)v99.
05Muokattu hintaPic$zz,zz9,99.
...
MovePriceToEdited-price
NäyttöMuokattu hinta
MoveEdited-pricetoPrice
Näyttöhinta
Digitaalisten tietojen tallennuksen hallinta
COBOL-ohjelman digitaaliset tiedot voidaan tallentaa seuraavassa muodossa:Ulkoinen desimaali(USAGEDISPLAY)Ulkoinen liukuluku(USAGEDISPLAY)Sisäinen desimaali(USAGEPACKED-DECIMAL)Binary(USAGEBINARY)(USAGEBINARY)(USAGEBINARY) P-2)
COMP jaCOMP-4ovat samat kuin BINARY(binääri),jaCOMP-3on vastaa(pakattu decimaali)PACKED-DECIMALCOMP.
Aritmeettiset operaatiot
OBNOLaritmeettisissa operaatioissa on seuraavat menetelmät: LASKEMINEN, LISÄÄ, VÄHENNÄ, KERTO ja JAKO.
4.4.1ArithmeticstatementCOMPTEstatementassignsthevalueofanexpressiontooneormoredataitems.TheCOMPUTEstatementcanbeusedtoeasilycombinearithmeticoperations,andisnotsubjecttoresultstoragerestrictionssuchasADD,SUBSTRACT,MULTIPLY,andDIVIDEstatements.
4.4.1.1ADDstatementADD-syntaksi1:
LISÄÄ Tunniste-1,tunniste-2,...TOtunniste-n[PYÖRISTETY]
[ONSIZEERORlausunto-1]
[NOTONSIZEERORlausuma-2]
[END-LISÄÄ]
Esimerkki:
LISÄÄ NUMERO1TONUM2.
LISÄÄNUMERO1,10TONUM2.
ADDNUM1,NUM2TONUM3ONSIZEERORPERFORM100-ERROR.
ADDSyntaksi2:
LISÄÄ tunniste-1,tunniste-2,…[TO]tunniste-nGIVINGtunniste-m[PYÖRISTETY]
[ONSIZEERORlausunto-1]
[NOTONSIZEERORlausuma-2]
[END-LISÄÄ]
Esimerkki:
LISÄÄNUMERO1TONUM2ADONNUSNUMERO3.
LISÄÄNUMERO1,NUM2AJONUMERO3.
LISÄÄNUMERO1,10TONUM2AJONUMERO3.
ADDSyntaksi3:
ADDCORRidentifier-1TOtunniste-2[PYÖRISTETTY]
[ONSIZEERORlausunto-1
[NOTONSIZEERORlausuma-2][END-LISÄÄ]
Esimerkki:
03 KUULEVA KUUKAUSI.
05PAYPIC9(3)V9(2).
05TAXPIC9(2)V9(2).
03YTD.
05PAYPIC9(3)V9(2).
05TAXPIC9(2)V9(2).
p>LISÄTIETOJA-KUUKAUSITOYTD.
4.4.1.2SUBTRACT-lause SUBTRACTsyntaksi1:
VÄHEMMÄN tunniste-1,tunniste-2,…FROMtunniste-n
[PYÖRISTETTY]
[ONSIZEERORlausunto-1
[NOTONSIZEERORlausuma-2]
[END-VÄHENTÄ]
Esimerkki:
VÄHENTÄNUMERO1FROMNUM2.
SUBTRACTsyntaksi2:
VÄHEMINENtunniste-1tunniste-2,…FROMtunniste-n
ANTAA tunniste-m[PYÖRISTETTY]
[ONSIZEERORlausunto-1]
[NOTONSIZEERORlausuma-2]
[END-VÄHENTÄ]
Esimerkki:
VÄHEMMÄNNUMERO1FROMNUM2ANNANUM33.
SUBTRACTsyntaksi3:
VÄHEMINENKORR-tunniste-1FROMtunniste-2
[PYÖRISTETTY]
[ONSIZEERORlausunto-1]
[NOTONSIZEERORlausuma-2]
[END-VÄHENTÄ]
Esimerkki:
VÄHENNETÄÄN VÄHEMMÄN KORJ.1FROMREC2.
4.4.1.3MULTIPLYstatement MULTIPLYsyntaksi1:
MULTIPLYtunniste-1BYtunniste-2
[PYÖRISTETTY]
[ONSIZEERORlausunto-1]
[NOTONSIZEERORlausuma-2]
[END-MULTIPLY]
Esimerkki:
MONINOINNUMERO1BYNUM2.
MULTIPLYsyntax2:
MULTIPLYtunniste-1BYtunniste-2
Anna tunniste-3
[PYÖRISTETTY]
[ONSIZEERORlausunto-1]
[NOTONSIZEERORlausuma-2]
[END-MULTIPLY]
Esimerkki:
MONINOINNUMERO1KYYN2AJONUMERO3.
4.4.1.4DIVIDEstatementDIVIDE-syntaksi1:
DIVIDE-tunnus-1INTOtunniste-2
[PYÖRISTETTY]
[ONSIZEERORlausunto-1]
[NOTONSIZEERORlausuma-2]
[END-DIVIDE]
Esimerkki:
DIVIDENUM1INTONUM2.
DIVIDE-syntaksi2:
DIVIDE-tunnus-1INTOtunniste-2
Anna tunniste-3
[PYÖRISTETTY]
[ONSIZEERORlausunto-1]
[NOTONSIZEERORlausuma-2]
[END-DIVIDE]
Esimerkki:
DIVIDENUM1INTONUM2GIVINGNUM3.
DIVIDE-syntaksi3:
DIVIDE-tunnus-1BYtunniste-2
Anna tunniste-3
[PYÖRISTETTY]
[ONSIZEERORlausunto-1]
[NOTONSIZEERORlausuma-2]
[END-DIVIDE]
Esimerkki:
DIVIDENUM1BYNUM2GIVINGNUM3.
DIVIDE-syntaksi4:
DIVIDE-tunnus-1INTOtunniste-2
Anna tunniste-3
[PYÖRISTETTY]
REMAINDERtunniste-4
[ONSIZEERORlausunto-1]
[NOTONSIZEERORlausuma-2]
[END-DIVIDE]
Esimerkki:
DIVIDENUM1INTONUM2GIVINGNUM3REMAINDERNUM4.
DIVIDE-syntaksi5:
DIVIDE-tunnus-1BYtunniste-2
Anna tunniste-3
[PYÖRISTETTY]
REMAINDERtunniste-4
[ONSIZEERORlausunto-1]
[NOTONSIZEERORlausuma-2]
[END-DIVIDE]
Esimerkki:
DIVIDENUM1BYNUM2GIVINGNUM3REMAINDERNUM4.
4.4.1.5COMPUTEstatementCOMPUTEsyntaksi:
TIETOKONEtunniste-1[PYÖRISTEETTY],tunniste-2[PYÖRISTEETTY],...
=aritmeettinen lauseke
[ONSIZEERORlausunto-1]
[NOTONSIZEERORlausuma-2]
[LOPPUKA]
Esimerkki:
COMPUTERESULT=NUM1*NUM2+NUM3-NUM4.
4.4.2ArithmeticexpressionallowsnumericdataitemstoappearPlacescanbereplacedwitharithmeticexpressions.
Aritmeettisissa lausekkeissa voi olla positiivisia ja negatiivisia etumerkkejä (+,-), potenssieksponenttimerkkejä (**), jako- tai kertomerkkejä (/,*) ja plus- tai miinusmerkkejä (+,-).
4.4.3Digitaaliset sisäänrakennetut toiminnotDigitaaliset sisäänrakennetut toiminnot voivat näkyä vain siellä, missä numeroilmaisut ovat sallittuja.
Thenumberbuilt-infunctionreturnsasignedvalue.Thefunctionitselfcanberegardedasatemporarydigitaldataitem.
Tässä on joitain digitaalisia sisäänrakennettuja toimintoja: Numeroiden käsittely: PITUUS, MAX, MIN, NUMERO, NUMVAL-C, ORD-MAX, ORD-MINDate ja aika: NYKYINEN-PÄIVÄMÄÄRÄ, DATE-TO-YYYYMMDD,…EtcMatematiikka:INTEGER, LOG, SUM, SIN, COS, MOD jne.
Esimerkki:
TIETOKONE=PITUUS(TALLENNUS).
TIETOKONE=MAX(X,Y).