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 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 VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts IMS DB-How to update a record (a sing... Nic Clouston IMS DB/DC 9 Thu Mar 09, 2017 4:38 pm
No new posts outrec field outside range Danielle.Filteau SYNCSORT 10 Sat Mar 04, 2017 2:37 am
No new posts Writing on to GSAM variable length rohanthengal JCL & VSAM 6 Fri Mar 03, 2017 7:46 pm
No new posts 2 byte YEAR from Y'DATE2' field tecnokrat DFSORT/ICETOOL 2 Tue Feb 07, 2017 12:05 pm


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