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 COB2 file processing rizwanaccy COBOL Programming 8 Tue Jan 02, 2018 1:00 pm
No new posts KSDS and Index file in cobol deepak14450 COBOL Programming 9 Fri Dec 22, 2017 9:36 am
No new posts Preserve order in Input File pshongal DFSORT/ICETOOL 13 Thu Dec 21, 2017 4:20 pm
No new posts ISSUE IN copying Sequential file reco... thesumitk JCL & VSAM 2 Wed Dec 13, 2017 3:07 pm
No new posts File Tailoring -- Temporary dataset i... samzee71 CLIST & REXX 3 Fri Dec 01, 2017 3:12 am

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