Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Moving data to Group level item

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
meenakshi_forum
Warnings : 1

Active User


Joined: 27 May 2008
Posts: 121
Location: India

PostPosted: Thu Apr 15, 2010 6:52 am    Post subject: Moving data to Group level item
Reply with quote

Hi All,

I am just trying to recall some concepts, may be i am not a bit clear but please help on the below--

Eg-There is data type Student_Details--
Code:
01  Student_Details.
     05 Student_id    pic 9(5).
     05 Student_ph   pic  9(10).

So in this case, can group level item Student_Details receive alphanumeric value?
Eg2.There is data type Employee_Data-
Code:
01  Employee_Data.
     05 Employee_id         pic 9(5).
     05 Employee_name   pic  x(7).

So in this case, can group level item Employee_Data receive alphanumeric value?

Please help!

Thanks.
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8152
Location: East Dubuque, Illinois, USA

PostPosted: Thu Apr 15, 2010 7:00 am    Post subject:
Reply with quote

Click on the Manuals button at the top of the page, find the COBOL Language Reference manual, and you can discover:
Quote:
6.2.24.3 Group moves

A group move is any move in which an alphanumeric group item is a sending item or a receiving item, or both. The following are group moves:

* A move to an alphanumeric group item from one of the following:

o any elementary data item that is valid as a sending item in the MOVE statement

o a national group item

o a literal

o a figurative constant

* A move from an alphanumeric group item to the following:

o any elementary data item that is valid as a receiving item in the MOVE statement

o a national group item

o an alphanumeric group item

A group move is treated as though it were an alphanumeric-to-alphanumeric elementary move, except that there is no conversion of data from one form of internal representation to another. In a group move, the receiving area is filled without consideration for the individual elementary items contained within either the sending area or the receiving area, except as noted in the OCCURS clause.
which completely and totally answers your questions. So why did you not consult the manual yourself?
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Thu Apr 15, 2010 8:46 am    Post subject:
Reply with quote

Hello,

Something to keep in mind is that a group move from one group item to another group item will always move "alphanumeric" data. This does not imply that the receiving fields will all be usable. . .

From the quote that Robert provided:
Quote:
In a group move, the receiving area is filled without consideration for the individual elementary items contained within either the sending area or the receiving area
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts column with count of rows within dist... ronald wouterson DB2 4 Sun Sep 17, 2017 9:48 pm
No new posts Moving values to a variable of copybo... Vignesh Sid COBOL Programming 6 Wed Sep 06, 2017 1:04 pm
No new posts Question related to Data dictionary f... rexx77 SYNCSORT 3 Thu Aug 31, 2017 7:23 am
No new posts Extract Data till prev hour balaji81_k DB2 16 Fri Aug 25, 2017 9:25 pm
No new posts FTP data transfer from PC to Mainfram... AJAYREDDY All Other Mainframe Topics 8 Wed Aug 23, 2017 9:59 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us