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
 
Packed and Binary move to a file in readable fmt in eztrieve

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

New User


Joined: 21 Jun 2007
Posts: 29
Location: Baltimore

PostPosted: Wed Jul 30, 2008 1:33 am    Post subject: Packed and Binary move to a file in readable fmt in eztrieve
Reply with quote

Hi

I have a 2 fields in a file as below
WS-DBLPK 1 2 P 0
WS-DBLK 3 4 B

which I want to move into out file of 2 fields one is 3 bytes and 9 bytes of numeric .So that when the move happened I can go to the file and read them.I am doing a st move but it is not working.Pl help

thanks
Prasad
Back to top
View user's profile Send private message

Douglas Wilder

Active User


Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL

PostPosted: Wed Jul 30, 2008 1:57 am    Post subject:
Reply with quote

Quote:
it is not working.

What is happening? Abend, wrong results, no results, ...
How are your output fields defined?
Could you go into edit on the input file turn hex on and show us some of the input. Do the same on the output file.
We are willing to help, but we need more information in order to help you.
Back to top
View user's profile Send private message
MSTP

New User


Joined: 21 Jun 2007
Posts: 29
Location: Baltimore

PostPosted: Wed Jul 30, 2008 2:19 am    Post subject:
Reply with quote

Below is the input and output values.Pgm is not abending but wrong results.

I/P

----+-
-----
....þ0
00038F
0C05E0
-----
....þ0
00038F
0C05E0
-----
....þ0
00038F
0C05E0
-----
....þ0
00038F
0C05E0
-----
....þ0
00038F
0C05E0
-----


O/P File details


OUT-IND1 1 01 A
OUT-BLPK 2 03 N
OUT-BLK 5 09 N

----+----1---
----+----F---
----+----1---
------------
C.. ..þ0
C004038F44444
30C005E000000
------------
P.. ..þ0
D004038F44444
70C005E000000
------------
C.. ..þ0
C004038F44444
30C005E000000
------------
P.. ..þ0
D004038F44444
70C005E000000
------------
C.. .+.ç
C004041444444
30C00E4800000
------------
P.. .+.ç
D004041444444
70C00E4800000
------------
Back to top
View user's profile Send private message
Douglas Wilder

Active User


Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL

PostPosted: Wed Jul 30, 2008 2:47 am    Post subject:
Reply with quote

Code:
OUT-BLPK = WS-DBLPK
OUT-BLK  = WS-DBLK 

Works for me.
Code:
000003510000
000003510000
000003510000
000003510000
Back to top
View user's profile Send private message
MSTP

New User


Joined: 21 Jun 2007
Posts: 29
Location: Baltimore

PostPosted: Wed Jul 30, 2008 9:38 pm    Post subject:
Reply with quote

thanks it worked . I was using MOVE statement but '=' works don't know why.
Back to top
View user's profile Send private message
Douglas Wilder

Active User


Joined: 28 Nov 2006
Posts: 305
Location: Deerfield IL

PostPosted: Wed Jul 30, 2008 10:15 pm    Post subject:
Reply with quote

"Move" does a character move (no type conversion).
"Assignment '=' evaluates the expression and assigns the value, including type conversion if needed.
Usually the assignment operator will do what you want and "Move" is not needed.
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 Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts Garbage on output file Hervey Martinez SYNCSORT 4 Wed Sep 27, 2017 12:50 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 Compare yesterday's date to the one o... migusd SYNCSORT 11 Fri Sep 22, 2017 11:35 pm

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