IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

How to move Packed decimal value to Map field?


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
rajesh_mbt

New User


Joined: 27 Mar 2006
Posts: 97
Location: India

PostPosted: Wed Dec 20, 2006 3:50 pm
Reply with quote

Hi ,
I am developing one transaction screen in CICS. Based on a search field in the Map1 it shoud display other information in map2. Now my query is some of the result fields are defined in DB2 table as comp-3 variable. When I move these variable(host variable) to map fields(ie output field) for map2, am getting the following compilation error.

TRA7-PYMT-AM (PACKED NON-INTEGER)" and "PAYAMTO (ALPHANUMERIC)" did
follow the "MOVE" statement compatibility rules. The statement was
discarded.

MOVE TRA7-PYMT-CRNCY-CD TO PAYAMTO


HOW TO SOLVE THIS ISSUE?
Back to top
View user's profile Send private message
William Thompson

Global Moderator


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

PostPosted: Wed Dec 20, 2006 6:41 pm
Reply with quote

rajesh_mbt wrote:
...UMERIC)" did
follow the "MO...

Did a "not" get dropped?
Please post the entire PAYAMTO please.
Back to top
View user's profile Send private message
rajesh_mbt

New User


Joined: 27 Mar 2006
Posts: 97
Location: India

PostPosted: Wed Dec 20, 2006 7:07 pm
Reply with quote

Yes, I missed out 'not' after 'did' ....

The actual statement as follows....
"TRA7-PYMT-AM (PACKED NON-INTEGER)" and "PAYAMTO (ALPHANUMERIC)" did not follow compatibility rules. The statement was discarded. "
Back to top
View user's profile Send private message
William Thompson

Global Moderator


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

PostPosted: Wed Dec 20, 2006 7:11 pm
Reply with quote

William Thompson wrote:

Please post the entire PAYAMTO please.
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Wed Dec 20, 2006 9:36 pm
Reply with quote

Number one, you need to move the packed field to a pic 9() field
before you can move it to the screen field. If you want to use the
edit mask zzzzz9, you need to move the pic 9() field to the edit
mask field and then move the dit mask field to the screen field.

Not to be rude, but this is cobol 101, when wanting to display a
comp, comp-3 and the likes. I would take the time to read the
MANUAL.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts PD not working for unsigned packed JO... DFSORT/ICETOOL 5
No new posts Def PD not working for unsigned packe... JCL & VSAM 3
No new posts COBOL - Move S9(11)v9(7) COMP-3 to -(... COBOL Programming 5
Search our Forums:

Back to Top