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
 

 

How to read packed decimal key field (KSDS) using CECI.

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
kiraj

New User


Joined: 27 Sep 2012
Posts: 9
Location: India, Bangalore

PostPosted: Fri Sep 28, 2012 3:02 pm    Post subject: How to read packed decimal key field (KSDS) using CECI.
Reply with quote

Hi,

I have a KSDS with key length as 8 bytes. The data value for this 8 bytes is stored in paked decimal format. so the actual value will be 15 bytes.

Using CECI READ interface how to read the KSDS file using packed value in RIDFLD.

When i use the below syntaxs, i get EIBRESP = 13 and EIBRESP2 = 80.

CECI READ FILE('filename') RIDFLD(X'000100012345646') EQUAL => without KEYLENGTH option

CECI READ FILE('filename') RIDFLD(X'000100012345646') KEYLENGTH(8) EQUAL

CECI READ FILE('filename') RIDFLD(000100012345646) EQUAL => without KEYLENGTH option

CECI READ FILE('filename') RIDFLD(000100012345646) KEYLENGTH(8) EQUAL

*The file is declared to have the recordsize = 400, KEYLENGTH = 8 in FCT definition.

How do we solve this error.
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8118
Location: East Dubuque, Illinois, USA

PostPosted: Fri Sep 28, 2012 4:32 pm    Post subject:
Reply with quote

From a clear screen in CICS, type CECI READ FI(????????)
Hit enter
Hit F5 (var)
On the first blank line, define &RID with the length needed and hit enter
Hit F2 (hex)
Change &RID to have the data value you need to read
Hit enter
Hit enter
Add ' RID(&RID)' to your CECI READ command (optionally, use INTO and a variable name if you want) then hit enter
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6968
Location: porcelain throne

PostPosted: Fri Sep 28, 2012 5:19 pm    Post subject:
Reply with quote

Robert,

are you hoping the TS will finally discover that a packed-decimal field has as the last half-byte a sign?
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Fri Sep 28, 2012 5:29 pm    Post subject: Reply to: How to read packed decimal key field (KSDS) using
Reply with quote

If the KEYLENGTH is 8, then define the variable (via PF5) as a "D". This will generate an 8-Byte packed-decimal value of +000000000000000. A value of "P" will generate a 4-Byte packed-decimal value of +0000000.

Others are "H" and "F" (halfword and fullword, respectively).

Hit <PF2> to view the values of any variable in HEX, as Robert has said.
Back to top
View user's profile Send private message
kiraj

New User


Joined: 27 Sep 2012
Posts: 9
Location: India, Bangalore

PostPosted: Wed Oct 03, 2012 9:55 am    Post subject: Reply to: How to read packed decimal key field (KSDS) using
Reply with quote

Thanks Bill,

I made use of symoblic variable(PF5) and HEX (PF2) to read the packed value. It works..
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 -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Alter &DATENS field in HEADER1 Angad DFSORT/ICETOOL 4 Mon Apr 24, 2017 11:49 am
No new posts Read of TDQ fails in LENGERR Tracy Hansen CICS 10 Wed Apr 05, 2017 12:10 am
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


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