View previous topic :: View next topic
|
Author |
Message |
bhuspin
New User
Joined: 13 Aug 2008 Posts: 26 Location: chennai
|
|
|
|
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 |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8696 Location: Dubuque, Iowa, USA
|
|
|
|
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 |
|
|
Earl Haigh
Active User
Joined: 25 Jul 2006 Posts: 475
|
|
|
|
bhuspin,
I'm curious, is the task you are describing for your job ? |
|
Back to top |
|
|
rajesh_mbt
New User
Joined: 27 Mar 2006 Posts: 97 Location: India
|
|
|
|
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 |
|
|
bijal.awhad
New User
Joined: 19 Mar 2008 Posts: 51 Location: Pune
|
|
|
|
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 |
|
|
Ronald Burr
Active User
Joined: 22 Oct 2009 Posts: 293 Location: U.S.A.
|
|
|
|
None of the code provided shows where/if you move data to the REC-A-DATA field. |
|
Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006 Posts: 6966 Location: porcelain throne
|
|
|
|
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 |
|
|
|