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 a numeric field into a packed(Comp 3) variable

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
preeth

New User


Joined: 14 Sep 2006
Posts: 11

PostPosted: Fri Aug 17, 2007 12:23 pm    Post subject: Moving a numeric field into a packed(Comp 3) variable
Reply with quote

I have searched through the forum, but havent found anything that could help me, or i was unable to understand it.

My problem is as follows:
I have VB file in which a variable is defined as follows
XYZ-ACCT-NR-GRP 118 10 A
XYZ-UNIT-NR 118 04 N
XYZ-ACCT-BBB-NR 122 05 N
XYZ-ACCT-AAA 127 01 N

and i need to move each field to the Corresponding field in another file where the group is defined as:

XYZ-ACCT-NR-GRP 02 07 A
XYZ-UNIT-NR 02 03 P +
XYZ-ACCT-AAA 05 01 N +
XYZ-ACCT-BBB-NR 06 03 P

Thank you in advance.
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Fri Aug 17, 2007 2:19 pm    Post subject:
Reply with quote

filename:dataname = recordname:dataname
where the filename is the name of the file and the recordname is the name of the record that the identical datanames occur in.
Back to top
View user's profile Send private message
preeth

New User


Joined: 14 Sep 2006
Posts: 11

PostPosted: Fri Aug 17, 2007 3:17 pm    Post subject: Reply to: Moving a numeric field into a packed(Comp 3) varia
Reply with quote

hi, could you please elaborate on what you explained.
I actually did using a sort card:
OUTREC FIELDS=(1,4,
122,04,ZD,TO=PD,
126,05,ZD,TO=PD,
131,01)
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Fri Aug 17, 2007 3:26 pm    Post subject: Re: Reply to: Moving a numeric field into a packed(Comp 3) v
Reply with quote

preeth wrote:
hi, could you please elaborate on what you explained.
I actually did using a sort card:
OUTREC FIELDS=(1,4,
122,04,ZD,TO=PD,
126,05,ZD,TO=PD,
131,01)
Have you looked at the EZT manual?
Back to top
View user's profile Send private message
Itanium

Active User


Joined: 22 Jan 2006
Posts: 114
Location: India

PostPosted: Wed Aug 29, 2007 5:27 pm    Post subject:
Reply with quote

preeth,
please clarify us.. are you doing it in Easytrieve or Sort ?

Thanks,
Itanium
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 -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts Moving UDB database to Db2 on z/OS Keith Hooley DB2 4 Wed Sep 27, 2017 12:38 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am
No new posts Moving values to a variable of copybo... Vignesh Sid COBOL Programming 6 Wed Sep 06, 2017 1:04 pm

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