Home Tekniikka Digitaalinen data

Digitaalinen data



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

This article is from the network, does not represent the position of this station. Please indicate the origin of reprint
TOP