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
 
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: 8165
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: 2504
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 Extend the decimal values in DIVISION Balaryan DFSORT/ICETOOL 3 Thu Oct 05, 2017 4:05 pm
No new posts sort records based on length exceeds ... maxsubrat DFSORT/ICETOOL 7 Wed Oct 04, 2017 4:48 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts how to see when the last read access ... Mike 1304 DB2 1 Tue Sep 12, 2017 7:52 pm
No new posts Remove leading spaces from numeric field rexx77 SYNCSORT 6 Wed Sep 06, 2017 2:15 am

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