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

Semrush - keyword research tool

Turn ChatGPT, Claude, Gemini, And CoPilot Into Your Personal Assistant, Business Coach, Content Creator, And More

AFFILIATE MARKETING Your all-in-one performance engine Manage affiliates, creators, and customer referrals in one unified platform—turning every partnership into measurable growth
Secure & Reliable Web Hosting, Free Domain, Free SSL, 1-Click WordPress Install, Expert 24/7 Support

Boost your online presence with premium web hosting and servers

Most popular tags

python java c cpp c# javascript php vb# typescript nodejs go rust scala swift kotlin pascal html ruby dart r css bootstrap win32 groovy vbnet winapi sql mysql jquery pascal-string lua winforms kotlin-string bash c-string swift-string cpp-string go-string cobol c#-string php-string java-string vbnet-string rust-string python-string cpp-vector f# opengl scala-string javascript-string pascal-array swift-array typescript-string c-array php-array javascript-array rust-vector typescript-array python-list reactjs scala-array c-windows nodejs-string go-array kotlin-array nodejs-array sdl2 cpp-matrix cpp-array c#-list vbnet-list c-matrix pascal-matrix go-slice c#-array java-array nodejs-express character-code-ascii-unicode swift-matrix c#-matrix sdl3 angularjs transpose-matrix binary-search-algorithm dot-product-two-arrays generate-random-floating-point-numbers all-permutations-combinations kotlin-matrix typescript-matrix vbnet-array kotlin-list calculate-area-pentagon measure-function-execution-time sort-words-string exabyte-constant petabyte-constant terabyte-constant math-functions-constants string-to-title-case create-infinite-loop
Disclosure: My content contains affiliate links.

41,644 questions

54,307 answers

573 users

How to copy data in COBOL



287 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 9(9).
   01 A-NUM2 PIC 9(9).
   01 A-NUM3 PIC 9(4).   
   01 A-NUM4 PIC 9(3).

PROCEDURE DIVISION.
   A000-FIRST-PARA.
   MOVE 123456789 TO A-NUM1.
   MOVE A-NUM1 TO A-NUM2 A-NUM3.
   MOVE A-NUM1(1:3) TO A-NUM4.
   
   DISPLAY "A-NUM1 : " A-NUM1
   DISPLAY "A-NUM2 : " A-NUM2
   DISPLAY "A-NUM3 : " A-NUM3   
   DISPLAY "A-NUM4 : " A-NUM4

STOP RUN.



# run:
# 
# A-NUM1 : 123456789
# A-NUM2 : 123456789
# A-NUM3 : 6789
# A-NUM4 : 123

 



answered Sep 17, 2020 by avibootz

Related questions

1 answer 341 views
341 views
How to copy part of the data in COBOL
asked Sep 17, 2020 by avibootz
1 answer 140 views
140 views
How to move data between variables in COBOL
asked Oct 25, 2024 by avibootz
1 answer 297 views
297 views
How to define a storage with different data description in COBOL
asked Sep 18, 2020 by avibootz
1 answer 17 views
17 views
How to input an age in COBOL
asked Jun 4 by avibootz
1 answer 19 views
19 views
How to input a name in COBOL
asked Jun 4 by avibootz
 | Search With Seek4Info.com
Powered by Question2Answer
...