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

I have Two array how to copy in reverse order


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ambesh

New User


Joined: 07 Jul 2005
Posts: 6
Location: pune

PostPosted: Mon Aug 22, 2005 11:08 am
Reply with quote

I have two array
one array A occurs 10 times.
It has picture clause pic x(2).
another array B occurs 10 times
it has piture clause pic x(3).
I have to copy A -> B in reverse order.
Back to top
View user's profile Send private message
senti

New User


Joined: 18 Aug 2005
Posts: 19

PostPosted: Mon Aug 22, 2005 12:44 pm
Reply with quote

Hey Ambesh,

Since B has an extra byte, you may want to determine what it should have.Once that is determined, its just copying from A to B bytewise putting it in a loop.

Regds, Senti
Back to top
View user's profile Send private message
elonics

New User


Joined: 05 Jul 2005
Posts: 49
Location: India

PostPosted: Mon Aug 22, 2005 3:00 pm
Reply with quote

Hi,

Do u mean u want copy A(1) to B(10).

If that's ur requirement. Here is one way to code .
Declare M as 1 and N as 10, K as 1 and L as -1.

PERFORM PARA-1 UNTIL M>10
PARA-1.
MOVE A(M) TO B(N)
ADD K to M
ADD L to N .
this will do ur task. if occurs is not 10 then work accordingly.

Elo'nics
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 -> JCL & VSAM

 


Similar Topics
Topic Forum Replies
No new posts VB to VB copy - Full length reached SYNCSORT 8
No new posts Rotate partition-logical & physic... DB2 0
No new posts Need COBOL COPY Help in MVS Environment COBOL Programming 4
No new posts Issue after ISPF copy to Linklist Lib... TSO/ISPF 1
No new posts DB2 Table - Image copy unload IBM Tools 2
Search our Forums:

Back to Top