Sponsored Content
Full Discussion: Cobol File Status 41 & 42
Top Forums UNIX for Dummies Questions & Answers Cobol File Status 41 & 42 Post 302140272 by WS-NFG on Thursday 11th of October 2007 04:20:09 PM
Old 10-11-2007
Cobol File Status 41 & 42

I'm new to coding on Unix but have coded with COBOL on mainframe for a number of years. This is driving me nuts. My select clause is like so:
SELECT GRPFILE ASSIGN TO EXTERNAL DISK WS-GRPFILE
ACCESS IS SEQUENTIAL
STATUS IS WS-SORTGRP-STATUS.
my WS declaration:
01 WS-FILENAMES.
05 WS-GRPFILE PIC X(26)
VALUE "/mpux/MCS/DATA/GRPFILE.SRT".

I can open the file with file status "00" and write to it with file status "00" until I have written 1024 records - at which point I get a file status 23 ?? (which used to mean to me that record key not found).
When looking at the physical file I see that nothing has been written so I coded a close when I wrote 1023 records:
IF CNTR = 1023
CLOSE GRPFILE
PERFORM EOJ
END-IF.
I got a status 42 - file already closed. I know for sure its already open but I inserted the following OPEN line giving:
IF CNTR = 1023
OPEN OUTPUT GRPFILE
CLOSE GRPFILE
PERFORM EOJ
END-IF.

Now I get a status 41! Its already opened and its already closed! I tried to "touch" the file so that it was already generated before the original open statement - still opens with a "00" but still gives the same end result. I believe this all has something to do with logical vs physical files but dont know where to take it. Anyone??
 

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Couldn't open status file /var/samba/STATUS.LCK

I believe i have most of samba configured right but i get this error each time time try to run it. I was given suggestion that i touch the file, i did, but i still cannot rid myself of this error. Any suggestions (2 Replies)
Discussion started by: macdonto
2 Replies

2. UNIX for Dummies Questions & Answers

BOX Status with vmstat & top Solaris 2.8

Hi there, I´m trying to get the information of vmstat & top in two different logfiles. That not that difficult. vmstat 30 >> myfile.log top >> myfile2.log But I also like to include a timestamp every 30 sec to be sure from what date the logs are. For the Top command I were able to... (2 Replies)
Discussion started by: isacs
2 Replies

3. UNIX for Dummies Questions & Answers

COBOL file status 39

When I execute a COBOL load module, I get the following error: $ a.out IWZ200S Error detected during OPEN for file 'ABE-INPUT'. File status is: 39. Message routine called from offset 0x38 of routine iwzWriteERRmsg. iwzWriteERRmsg called from offset 0x3c4 of routine... (3 Replies)
Discussion started by: jbrubaker
3 Replies

4. HP-UX

Error in a cobol executable file

Hi, when i try to run an executable on a HP UX machine i get the following error /usr/lib/..../dld.so Unsatisfied code symbol '_tMca100b' in load module .... The exe is a cobol program. can somebody tell why? Thanks. (2 Replies)
Discussion started by: vovan
2 Replies

5. Programming

cobol crn programme run on express cobol as .gnt

can i run .crn programme in express cobol which support to .gnt programme .... Plz tell me solution (2 Replies)
Discussion started by: bibi
2 Replies

6. Shell Programming and Scripting

Calling script from RM cobol and returning value to cobol

Is there a way you can return a value from a script that is called from a rm cobol program... 01 WS-COMD-LINE-PGM X(39) value sh ./getUserId.sh 12345" 01 WS-RETURN-SYS-CODE PIC 9(8). CALL "SYSTEM" USING WS-COMD-LINE-PGM GIVING WS-RETURN-SYS-CODE. ... (1 Reply)
Discussion started by: pavanmp
1 Replies

7. Programming

Apache & nfs status from c++ application

Hello guys, I have just started building a high-available site using ubuntu server 9.10. I am using moodle. The thing is that i want to write an application using curses, to show the status of the apache servers, mysql servers and the nfs server. I can check the mysql from the c api, but how can... (1 Reply)
Discussion started by: pegasus001
1 Replies

8. Red Hat

How to kill a TCP connection which has status TIME_WAIT & no PID

Hi, I want to kill TCP connections which have status as TIME_WAIT & no PID (as per the output of the "netstat - p" command). Is there any command/utility available to kill connections to a specific port or IP address. The problem is that these connections don't have process ID (see... (4 Replies)
Discussion started by: Davinder31may
4 Replies

9. Shell Programming and Scripting

File Move & Sort by Name - Kick out Bad File Names & More

I have a dilemma, we have users who are copying files to "directory 1." These images have file names which include the year it was taken. I need to put together a script to do the following: Examine the file naming convention, ensuring it's the proper format (e.g. test-1983_filename-123.tif)... (8 Replies)
Discussion started by: Nvizn
8 Replies

10. UNIX for Beginners Questions & Answers

How to see the status of all the ftp put & get files logs and curent ftp transfer status ?

How to see the status of all the ftp put & get files logs and curent ftp transfer status if any active ftp running in the background ? (2 Replies)
Discussion started by: i4ismail
2 Replies
MYSQLI_AFFECTED_ROWS(3) 						 1						   MYSQLI_AFFECTED_ROWS(3)

mysqli::$affected_rows - Gets the number of affected rows in a previous MySQL operation

       Object oriented style

SYNOPSIS
int$mysqli->affected_rows () DESCRIPTION
Procedural style int mysqli_affected_rows (mysqli $link) Returns the number of rows affected by the last INSERT, UPDATE, REPLACE or DELETE query. For SELECT statements mysqli_affected_rows(3) works like mysqli_num_rows(3). PARAMETERS
o $ link -Procedural style only: A link identifier returned by mysqli_connect(3) or mysqli_init(3) RETURN VALUES
An integer greater than zero indicates the number of rows affected or retrieved. Zero indicates that no records were updated for an UPDATE statement, no rows matched the WHERE clause in the query or that no query has yet been executed. -1 indicates that the query returned an error. Note If the number of affected rows is greater than the maximum integer value( PHP_INT_MAX ), the number of affected rows will be returned as a string. EXAMPLES
Example #1 $mysqli->affected_rows example Object oriented style <?php $mysqli = new mysqli("localhost", "my_user", "my_password", "world"); /* check connection */ if (mysqli_connect_errno()) { printf("Connect failed: %s ", mysqli_connect_error()); exit(); } /* Insert rows */ $mysqli->query("CREATE TABLE Language SELECT * from CountryLanguage"); printf("Affected rows (INSERT): %d ", $mysqli->affected_rows); $mysqli->query("ALTER TABLE Language ADD Status int default 0"); /* update rows */ $mysqli->query("UPDATE Language SET Status=1 WHERE Percentage > 50"); printf("Affected rows (UPDATE): %d ", $mysqli->affected_rows); /* delete rows */ $mysqli->query("DELETE FROM Language WHERE Percentage < 50"); printf("Affected rows (DELETE): %d ", $mysqli->affected_rows); /* select all rows */ $result = $mysqli->query("SELECT CountryCode FROM Language"); printf("Affected rows (SELECT): %d ", $mysqli->affected_rows); $result->close(); /* Delete table Language */ $mysqli->query("DROP TABLE Language"); /* close connection */ $mysqli->close(); ?> Procedural style <?php $link = mysqli_connect("localhost", "my_user", "my_password", "world"); if (!$link) { printf("Can't connect to localhost. Error: %s ", mysqli_connect_error()); exit(); } /* Insert rows */ mysqli_query($link, "CREATE TABLE Language SELECT * from CountryLanguage"); printf("Affected rows (INSERT): %d ", mysqli_affected_rows($link)); mysqli_query($link, "ALTER TABLE Language ADD Status int default 0"); /* update rows */ mysqli_query($link, "UPDATE Language SET Status=1 WHERE Percentage > 50"); printf("Affected rows (UPDATE): %d ", mysqli_affected_rows($link)); /* delete rows */ mysqli_query($link, "DELETE FROM Language WHERE Percentage < 50"); printf("Affected rows (DELETE): %d ", mysqli_affected_rows($link)); /* select all rows */ $result = mysqli_query($link, "SELECT CountryCode FROM Language"); printf("Affected rows (SELECT): %d ", mysqli_affected_rows($link)); mysqli_free_result($result); /* Delete table Language */ mysqli_query($link, "DROP TABLE Language"); /* close connection */ mysqli_close($link); ?> The above examples will output: Affected rows (INSERT): 984 Affected rows (UPDATE): 168 Affected rows (DELETE): 815 Affected rows (SELECT): 169 SEE ALSO
mysqli_num_rows(3), mysqli_info(3). PHP Documentation Group MYSQLI_AFFECTED_ROWS(3)
All times are GMT -4. The time now is 07:56 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy