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: 8195
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 Extract record for change in combinat... Trinadh DFSORT/ICETOOL 6 Thu Nov 23, 2017 3:32 pm
No new posts Fetching data from JHS as per the cur... arunsoods All Other Mainframe Topics 4 Wed Nov 22, 2017 1:54 pm
No new posts Moving a PS file as body of a mail! Vignesh Sid JCL & VSAM 4 Tue Nov 21, 2017 9:23 pm
No new posts Extract Record using range of Data scorp_rahul23 DFSORT/ICETOOL 3 Wed Nov 15, 2017 11:54 pm
No new posts Increment number for every group of r... srajendran2 DFSORT/ICETOOL 7 Thu Nov 09, 2017 10:31 pm

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