Search With Seek4Info.com
Welcome to collectivesolver - Programming & Software Q&A with code examples. A website with trusted programming answers. All programs are tested and work.

Contact: aviboots(AT)netvision.net.il

Buy a domain name - Register cheap domain names from $0.99 - Namecheap

Scalable Hosting That Grows With You

Secure & Reliable Web Hosting, Free Domain, Free SSL, 1-Click WordPress Install, Expert 24/7 Support

Semrush - keyword research tool

Boost your online presence with premium web hosting and servers

Most popular tags

python java c c# cpp javascript php vb# typescript nodejs go rust scala swift kotlin pascal html dart ruby r css bootstrap groovy win32 sql mysql winapi jquery lua winforms pascal-string bash kotlin-string swift-string c-string cpp-string go-string cpp-vector f# opengl java-string php-string c#-string vbnet-string pascal-array swift-array rust-string python-string scala-string c-array javascript-string php-array javascript-array typescript-string cobol rust-vector typescript-array python-list reactjs scala-array c-windows go-array nodejs-string kotlin-array nodejs-array sdl2 cpp-matrix c-matrix cpp-array c#-list vbnet-list pascal-matrix go-slice c#-array java-array nodejs-express swift-matrix c#-matrix sdl3 angularjs generate-random-floating-point-numbers all-permutations-combinations kotlin-matrix typescript-matrix vbnet-array kotlin-list rust-matrix go-matrix javascript-matrix raylib glfw extract-words-with-first-letter-lowercase-from-string convert-specific-column-decimal-matrix-to-string convert-specific-row-decimal-matrix-to-string number-made-prime-deleting-single-digit convert-days-human-readable-weeks-days square-root-rounded-down-to-nearest-integer remove-middle-word-string area-triangle-herons-formula inverse-matrix
Disclosure: My content contains affiliate links.

39,870 questions

51,793 answers

573 users

How to initialize variables in COBOL



252 views
asked Sep 17, 2020 by avibootz
Share on
share on gp share on fb share on tw share on li share on re share via email

1 Answer

0 votes 
IDENTIFICATION DIVISION.
PROGRAM-ID. COBOL-PRO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 A-NUM1 PIC 99V99 VALUE IS 3.14.
   01 A-S PIC A(5) VALUE 'cobol'.
   01 A-VAL PIC 99 VALUE ZERO.
   01 A-NUM2 PIC S9(1)V9(2) VALUE -3.14.

PROCEDURE DIVISION.
   DISPLAY "A-NUM1 : "A-NUM1.
   DISPLAY "A-S : "A-S.
   DISPLAY "A-VAL : "A-VAL.
   DISPLAY "A-NUM2 : "A-NUM2.
STOP RUN.



# run:
#
# A-NUM1 : 03.14
# A-S : cobol
# A-VAL : 00
# A-NUM2 : -3.14

 



answered Sep 17, 2020 by avibootz

Related questions

1 answer 98 views
98 views
How to move data between variables in COBOL
asked Oct 25, 2024 by avibootz
2 answers 587 views
587 views
How to divide variables in COBOL
asked Sep 18, 2020 by avibootz
2 answers 290 views
290 views
How to subtract variables in COBOL
asked Sep 18, 2020 by avibootz
2 answers 330 views
330 views
How to add variables in COBOL
asked Sep 17, 2020 by avibootz
2 answers 319 views
319 views
How to multiply variables in COBOL
asked Sep 17, 2020 by avibootz
1 answer 260 views
260 views
How to use variables in COBOL
asked Sep 17, 2020 by avibootz
1 answer 68 views
68 views
How to use switch statement with strings in COBOL
asked Jul 1, 2025 by avibootz
 | Search With Seek4Info.com
Powered by Question2Answer
...