Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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: 7997
Location: Bellevue, IA

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 Data replication from multiple Db2 ta... kishpra DB2 5 Mon Mar 27, 2017 9:58 pm
No new posts Why TS/OP would Not contact site supp... RahulG31 All Other Mainframe Topics 2 Wed Mar 22, 2017 7:46 am
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Append data from two files into a sin... Praveen04 DFSORT/ICETOOL 5 Thu Mar 16, 2017 7:29 pm
No new posts SPUFI -- Joining 3 tables – data in... Sysaron DB2 2 Wed Mar 08, 2017 4:18 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us