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
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
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
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
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
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
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
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
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
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 if any active ftp running in the background ? (2 Replies)
Discussion started by: i4ismail
2 Replies
LEARN ABOUT PHP
mysqli_affected_rows
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)