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
 
In CICS how to write a data of a Rec. write into a KSDS file

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

New User


Joined: 13 Aug 2008
Posts: 26
Location: chennai

PostPosted: Wed Jan 20, 2010 11:52 am    Post subject: In CICS how to write a data of a Rec. write into a KSDS file
Reply with quote

Hi,

I am new to CICS-COB coding. In CICS maps, i need to accept the input fields from map, I need to move those input from map to a file using CICS-COB program, the Records has both data part as well as key-part. I am able write a Key-part in a KSDS file, but not able to write a data-part into a file. Please help me on this.
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


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

PostPosted: Wed Jan 20, 2010 4:17 pm    Post subject:
Reply with quote

If you can write a key into a KSDS file, you can write data. Just ensure the group variable that contains the key also has the data area.
Back to top
View user's profile Send private message
Earl Haigh

Active User


Joined: 25 Jul 2006
Posts: 475

PostPosted: Thu Jan 21, 2010 3:09 am    Post subject:
Reply with quote

bhuspin,

I'm curious, is the task you are describing for your job ?
Back to top
View user's profile Send private message
rajesh_mbt

New User


Joined: 27 Mar 2006
Posts: 95
Location: India

PostPosted: Thu Jan 21, 2010 3:36 pm    Post subject:
Reply with quote

Please share the working storage variable declaration for your KSDS file.
We will get some clear picture to help you on this
Back to top
View user's profile Send private message
bijal.awhad

New User


Joined: 19 Mar 2008
Posts: 51
Location: Pune

PostPosted: Sun Jan 24, 2010 2:34 pm    Post subject: Re: In CICS how to write a data of a Rec. write into a KSDS
Reply with quote

bhuspin wrote:
Hi,

I am new to CICS-COB coding. In CICS maps, i need to accept the input fields from map, I need to move those input from map to a file using CICS-COB program, the Records has both data part as well as key-part. I am able write a Key-part in a KSDS file, but not able to write a data-part into a file. Please help me on this.


Hi bhuspin,

Let us start with the WS variables,
Code:

 77    WK-LENGTH                  PIC S9 (4) COMP.
 01    FILE-IOAREA.
        05   REC-A.
               10    REC-A-KEY     PIC X (8).
               10    REC-A-DATA  PIC X (32).


Following is an example of the WRITE command

Code:
 
MOVE 40   TO WK-LENGTH.
MOVE 'KEYVALUE'   TO REC-A-KEY.
EXEC  CICS  WRITE
          DATASET ('FILEXXXX')
          FROM (FILE-IOAREA)
          RIDFLD (REC-A-KEY)
          LENGTH (WK-LENGTH)
END-EXEC.


Execution Result: The record whose key is KEYVALUE will be written into the file FILEXXXX.

Hope this will help.

Regards
Bijal
Back to top
View user's profile Send private message
Ronald Burr

Active User


Joined: 22 Oct 2009
Posts: 293
Location: U.S.A.

PostPosted: Sun Jan 24, 2010 11:15 pm    Post subject:
Reply with quote

None of the code provided shows where/if you move data to the REC-A-DATA field.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


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

PostPosted: Mon Jan 25, 2010 12:34 am    Post subject:
Reply with quote

There are sample programs in the CICS COBOL Sample programs SDFHSAMP.

SDFHSAMP is somewhere on your system.
The link provides an index of program to 'what the example explains'.
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 Compare yesterday's date to the one o... migusd SYNCSORT 8 Fri Sep 22, 2017 11:35 pm
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts Split 1 file into 10 output Files - S... Prasanth Kumar SYNCSORT 5 Sat Sep 16, 2017 12:02 am
No new posts BUILD OUTFIL based on condition other... balaji81_k DFSORT/ICETOOL 13 Fri Sep 08, 2017 11:06 pm
No new posts Question related to Data dictionary f... rexx77 SYNCSORT 3 Thu Aug 31, 2017 7:23 am

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