Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
To Understand EXECIO Read Parameter OPEN

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Ilavenil

New User


Joined: 16 May 2018
Posts: 4
Location: India

PostPosted: Tue May 29, 2018 1:59 pm    Post subject: To Understand EXECIO Read Parameter OPEN
Reply with quote

Hello All,

I wish to understand more about the EXECIO read parameter OPEN. The manual says that EXECIO will open the dataset and place the cursor based upon linenum parameter. I tried the following statements

Code:

"EXECIO 3 DISKR INDD (SKIP"
"EXECIO 1 DISKR INDD (FINIS"
"EXECIO 1 DISKR INDD 5 (FINIS"


I was expecting an error, but irrespective of not opening the file explicitly, the file has been opened by EXECIO and the data has been returned!

I can understand about FINIS as if we are not closing the file explicitly, it will affect the concurrent execs that are waiting for the dataset based upon the locks. But I could not figure out the practical significance of OPEN. can anybody advice?
Back to top
View user's profile Send private message

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2365
Location: Hampshire, UK

PostPosted: Tue May 29, 2018 7:19 pm    Post subject: Reply to: To Understand EXECIO Read Parameter OPEN
Reply with quote

Quote:
The manual says that EXECIO will open the dataset and place the cursor

No it does not. The manual says
Quote:
if you also specify a non-zero value for the linenum operand, EXECIO sets the current record number to the record number indicated by the linenum operand.

No mention of a cursor.

You use OPEN to explicity open the data set - good programming practice - and set the current record number. This is the equivalent of SKIP on the FIRST (only) access to the data set.
Back to top
View user's profile Send private message
Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 362
Location: Denmark

PostPosted: Tue May 29, 2018 9:38 pm    Post subject:
Reply with quote

EXECIO will do an implicit OPEN if the dataset is not already opened. So what you do is not an error.
You will get records 4 and 5 returned in the stack.
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts VSAM I/O - Extended Addressability - ... amitsjcntl JCL & VSAM 7 Mon Jul 06, 2020 3:51 pm
No new posts VSAM Open During Copy-Excessive EXCP ... David Beckham JCL & VSAM 1 Sat Jun 27, 2020 5:23 pm
No new posts Seeking Resolution for SQKCODE -991 o... tgwacker50 DB2 2 Mon Jun 22, 2020 8:25 pm
No new posts Need to open a DSN using REXX & e... Y Marwaha CLIST & REXX 10 Fri Jun 05, 2020 7:30 pm
No new posts Read a file dynamically without the d... Antonio A Negrelli COBOL Programming 4 Wed Apr 29, 2020 10:54 pm

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