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
 

 

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 Converting Variable block file to Fix... bhavana yalavarthi DFSORT/ICETOOL 10 Tue May 16, 2017 2:20 pm
No new posts Getting error while opening a variabl... apandey1 COBOL Programming 5 Fri May 05, 2017 12:22 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts File processing vishwakotin Mainframe Interview Questions 9 Fri Apr 28, 2017 11:38 am


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