How to write a low-value record in KSDS using COBOL

rohitvw · New User Joined: 04 Feb 2009 Posts: 12 Location: Chennai

How we should write a low value record in KSDS using COBOL. In same program we are reading and deleting records from the respective KSDS file.

Please Help.

Thanks.

Robert Sample · Posted: Mon Feb 09, 2009 9:12 pm

MOVE LOW-VALUES to FD 01 and write the record ... is there a particular problem you're having?

rohitvw · New User Joined: 04 Feb 2009 Posts: 12 Location: Chennai

I am getting a logical error IGZ0003W. Thanks Robert for quick reply.

CICS Guy · Posted: Mon Feb 09, 2009 9:21 pm

Robert Sample · Posted: Mon Feb 09, 2009 9:23 pm

From the MAC:

dbzTHEdinosauer · Posted: Mon Feb 09, 2009 9:25 pm

rohitvw · New User Joined: 04 Feb 2009 Posts: 12 Location: Chennai

File Defination
SELECT OPTIONAL CLFILE ASSIGN TO FM27I02
ORGANIZATION IS INDEXED
RECORD KEY IS FILE-KEY-CL
FILE STATUS IS WB-CL-STATUS.
------------------------------------------------------------------
FD DECLARATION
FD CLFILE.

01 CL-RECORD.
COPY CLRECORD.
-------------------------------------------------------------------
I AM WRITING RECORD IN BELOW FASHION

MOVE LOW-VALUES TO CL-RECORD
WRITE CL-RECORD

BUT WRITE STATEMTMENT IS FAILING WITH IGZ0003W ERROR

PLEASE HELP.

THNAKS.

Robert Sample · Posted: Mon Feb 09, 2009 9:38 pm

Question 1: What does the OPEN look like -- since the error message I posted is pretty clear in saying the OPEN could be wrong.
Question 2: What is the file status code value? This can provide valuable data about the error.
Question 3: Since the file is optional, are you even sure it is in the JCL? If not, that could also explain why you're getting an error.

rohitvw · New User Joined: 04 Feb 2009 Posts: 12 Location: Chennai

Open Look like
OPEN I-O CLFILE.

Dump is not showing the File status but showing the below error message
IGZ0003W A logic error occurred for file FM27IO02 in program FM27 at relative location X'0FAC'.

File is defined in JCL as below
//FM27I01 DD DSN=CLFILE,DISP=SHR,
// AMP=('ACCBIAS=SYSTEM')

Please Suggest. Thanks.

superk · Posted: Mon Feb 09, 2009 9:54 pm

SELECT OPTIONAL CLFILE ASSIGN TO FM27I02

IGZ0003W A logic error occurred for file FM27IO02 in program FM27 at relative location X'0FAC'.

//FM27I01 DD ...

could the discrepancy in the bolded DD names be the problem?

rohitvw · New User Joined: 04 Feb 2009 Posts: 12 Location: Chennai

No Actually I am just trying rerun the program by changing the file.

By mistake I gave the Dump for the run when file name is FM27I02 in both Cobol program and JCL.

So file is FM27I02 and correct error message is below
IGZ0003W A logic error occurred for file FM27I02 in program FM27 at relative location X'0FAC'.

Sorry for inconvience.

Thanks.

Plese Suggest.

Robert Sample · Posted: Mon Feb 09, 2009 10:10 pm

What is the file status code on the open -- put a display in to show it and let us know.

William Thompson · Posted: Mon Feb 09, 2009 10:17 pm

Look at using and testing the FILE STATUS clause, data-name-8 after every OPEN/CLOSE/READ/WRITE.....

Bill O'Boyle · Posted: Mon Feb 09, 2009 10:47 pm

rohitvw · New User Joined: 04 Feb 2009 Posts: 12 Location: Chennai

Hi all.

Thanks for your replys.

Actually the file is not empty, it is having nearly 3000 records.

File status is not mentioned any ware in spool.

Please suggest.

rohitvw · New User Joined: 04 Feb 2009 Posts: 12 Location: Chennai

FIle Status is 10 when I am trying to write the file

rohitvw · New User Joined: 04 Feb 2009 Posts: 12 Location: Chennai

Is file status is 00 also than also same logical error(IGZ0003W) is coming

Robert Sample · Posted: Tue Feb 10, 2009 6:00 pm

1. File status is captured by the program. YOU must display it or otherwise have it show up on some output. It will not magically appear in the spool.
2. If you don't check the file status on the open, change your program to do so. Now. Before you do anything else. And display the file status if not 00 or 97.
3. File status 10 occurs only on READ as it means you've hit the end of file. I vaguely remember seeing a 10 on a WRITE but only if the OPEN failed in some way -- see #1 above.
4. File status 10 with IGZ0003W would make sense if you're trying to read a file before writing to it.
5. You're not providing adequate data for debugging, forcing us to guess without adequate information. Cut and paste using BBCode the job output when you run it -- expanded JCL and messages from the system log. When you paste as a message the way you did your COBOL code, you leave stuff out that is critical (such as the actual OPEN statement you have for the file).

rohitvw · New User Joined: 04 Feb 2009 Posts: 12 Location: Chennai

Hi Robert.

Thanks for you time and suggestions.

Actually program I need to code is a purge program, and after deleting all the necessary records I have to insert a Low value record if low value record is not available.

I have the file status check in program.

So after putting display for file status, i could see that file status is 10 as program already went through the complete file to delete neccesary records when I am trying write the file.

So I tried to write the file in begining of the program also when file status 00 but still it is giving the same error message IGZ0003W.

Could please let me know how to use BBCode and what exactly BBCode is.

Thanks.

dbzTHEdinosauer · Posted: Tue Feb 10, 2009 7:15 pm

ibmmainframes.com/faq.php?mode=bbcode

Robert Sample · Posted: Tue Feb 10, 2009 8:10 pm

Assuming your code is as you posted, the default is ACCESS IS SEQUENTIAL. This requires records be processed in key sequence. You cannot insert a LOW-VALUES record after processing the deletes since the LOW-VALUES record will not be in sequence. This will cause a logic error exactly as you've seen. You must close the file, open it again, and then you should be able to write the LOW-VALUES record. However, considering the significant gaps in the data you've presented us, there's no guarantee that this will work since you may have not mentioned some other critical factor.

rohitvw · New User Joined: 04 Feb 2009 Posts: 12 Location: Chennai

Hi Robert.

The problem is with access mode only, it should be dynamic to write a record when few records are already present in KSDS file.

Thanks for your help and efforts, I really appreciate that.

I first time used this forum, I am finally very happy as my code is working as required.

Thank you very much.

Regards
Rohit.

Robert Sample · Posted: Tue Feb 10, 2009 9:47 pm

Glad to hear you got it working!