IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Moving data to Group level item


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
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
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: 8697
Location: Dubuque, Iowa, USA

PostPosted: Thu Apr 15, 2010 7:00 am
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

Moderator Emeritus


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

PostPosted: Thu Apr 15, 2010 8:46 am
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts How to save SYSLOG as text data via P... All Other Mainframe Topics 4
No new posts Store the data for fixed length COBOL Programming 1
No new posts Data set Rec-Cnt and Byte-Cnt Testing & Performance 2
No new posts How to load to DB2 with column level ... DB2 6
No new posts SCOPE PENDING option -check data DB2 2
Search our Forums:

Back to Top