Cevela about COBOL | COBOL language - Home - Site Map - About Cevela - MX COBOL <prev next> |

**ICHEXA - displays content of data-item in the hexadecimal form [with length]**-
MX-1 call "ICHEXA" using Dat-1 [Dat-2] Num-2

**ICMOVEX - transfers data-item into hexadecimal form [with length]**-
MX-1 call "ICMOVEX" using Dat-1 Dat-2 [Dat-3] Num-3

**ICMVC - transfers data-item into other one with "reference modification"**-
MX-1 call "ICMVC" using DatX-1 Dat-2 DatX-3 Dat-4 Dat-5 Num-2 Num-4 Num-5

Remarks: - DatX-1 is sending item, DatX-3 is receiving one - operand-2 and operand-4 are relative positions in them (from 0) - operand-5 is the length of transfer **ICPACK - transfers string of 8 binary digits into 1 byte**-
MX-1 call "ICPACKB" DatX-8 DatX-1

Ex-a 000000* working-storage section. 77 B pic x(8). 77 X pic x. procedure division. call "ICPACKB" using B X.

**ICUNPKB - transfers 1 byte into string of 8 binary digits**-
MX-1 call "ICUNPKB" DatX-1 DatX-8

Ex-a 000000* working-storage section. 77 X pic x. 77 B pic x(8). procedure division. call "ICUNPKB" using X B.

**ICUGETV - obtains dynamic storage in linkage section [with length]**-
(for release it serves ICUFREE)
MX-1 call "ICUGETV" using Dat-1 [Dat-2] Num-2

**ICUFREE - releases dynamic storage in linkage section**-
(previously obtained with ICUGETV)
MX-1 call "ICUFREE" using Dat-1

**ICVIRG - obtains dynamic storage in linkage section [with length] and works with file**-
(for release it serves ICVIRF)
MX-1 call "ICVIRG" using Dat-1 [Dat-2] DatX-3 "READ" Num-2 LitX-3 "UPDATE" "WRITE" "APPEND"

**ICVIRF - releases dynamic storage in linkage section and writes its contents into the file**-
(the file in the storage was previously obtained with ICVIRG)
MX-1 call "ICVIRF" using Dat-1 [Dat-2] Num-2

**ICSORT - arranges table elements in a user-specified sequence [with length]**-
MX-1 call "ICSORT" using Dat-1 [Dat-2] Num-2 Ind-2

Ex-a 000000* working-storage section. 1 TAB. 2 F pic 99. 2 TXT pic x(20) occurs 10 ascending TXT indexed I depending F. procedure division. call "ICSORT" using TXT F.

**ICVOLNY - transfers numeric data from free-X to fixed-9 format**-
(free-X data-item contains numeric literal with decimal-point and sign)
MX-1 call "ICVOLNY" using DatX-1 Dat9-2 Dat9-3

The result-code Dat9-3: 0 - all is OK 1 - positions from right was truncated 2 - positions from left was truncated 3 - 1 and 2 4 - sending sign was ignored 5 - 1 and 4 6 - 2 and 4 7 - 3 and 4 8 - non-conform sending value - receiving item is not changed **ICTIMEB - puts a number of thousandths of second from begin of curent day to register tally**-
MX-1 call "ICTIMEB"

Ex-a 000000* working-storage section. 1 SEC pic 9(8). procedure division. call "ICTIMEB". move tally to SEC. exhibit named SEC. stop " ". call "ICTIMEB". move tally to SEC. exhibit named SEC. stop " ".

**ICGEN - puts a random-number to register tally**-
(from 0 to 16777215 - the sequence of values from repeated calls is everytimes the same

and therefore is useful the combination with ICTIMEB)MX-1 call "ICGEN"

Ex-a 000000* working-storage section. 1 GEN pic 9(8). procedure division. call "ICGEN". move tally to GEN. exhibit named GEN. call "ICGEN". move tally to GEN. exhibit named GEN. stop " ".

**IC.. - routines for mathematical functions**-
MX-1 call "ICF.." using Dat9-1 Dat9-2 Lit9-1

Remarks: - first operand = source argument, second one = output destination - list of corresponding functions in Borland Turbo C language: ICFLOG = log(x), ICFLOG10 = log10(x), ICFEXP = exp(x), ICFSQRT = sqrt(x), ICFSIN = sin(x), ICFCOS = cos(x), ICFTAN = tan(x), ICFCOTAN = 1./tan(x), ICFARSIN = asin(x), ICFARCOS = acos(x), ICFATAN = atan(x), ICFSINH = sinh(x), ICFCOSH = cosh(x), ICFTANH = tanh(x), ICFERF = erf(x), ICFERFC = erfc(x) = 1.0 - erf(x), ICFABS = fabs(x), ICFLOOR = floor(x), ICFCEIL = ceil(x), ICFJ0 = j0(x), ICFJ1 = j1(x), ICFY0 = y0(x), ICFY1 = y1(x), ICFGAMMA = exp(gamma(x)), ICFLGAMA = gamma(x), MX COBOL - free compiler - © Vlastimil Cevela 2006

For more see links to the main provider's on-line documentation.

For MX COBOL see Summary comment + FAQ and How to ..