Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

REXX - EXECIO Assistance

23 views
Skip to first unread message

Stuart, David

unread,
Apr 28, 2016, 12:13:49 PM4/28/16
to

Morning all, and especially to you REXX gurus,

 

One of the programmers here has need to open a VSM-resident file, read a date field, and then go on with the REXX processing. The REXX/VSE Reference specifically states that EXECIO will only read SAM files. I presume this would include a VSAM-managed SAM file?

 

Anyone have a working example, or two? The EXECIO doc is a bit intimidating.

 

 

Thanks,

Dave

 

 

Dave Stuart

Principal Information Systems Support Analyst

Information Technology Services

County of Ventura, CA

805-662-6731

David....@ventura.org

 

Frank M. Ramaekers

unread,
Apr 28, 2016, 12:38:44 PM4/28/16
to

Use VSAMIO

 

Frank M. Ramaekers Jr.

Mike Robertson

unread,
Apr 28, 2016, 12:41:23 PM4/28/16
to
Yep, Frank is right, Mine is really old and have never got around to updating it....  In fact, until you asked, it has been probably 20 years (okay 19) since I looked at it....
M

------- DISCLAIMER -----------------------------------------------------------------------------------------------------------------------

This message and any attachments are confidential to the ordinary user of the e-mail address to which it was addressed and may also be privileged. If you are not one of the addressees you may not copy, forward, disclose or use any part of the message or its attachments. If you have received this message in error, please notify the sender immediately by return e-mail and delete it from your system. The sender does not accept liability for any errors or omissions in the context of this message that arise as a result of Internet transmission. Sender accepts no liability for any damages caused by any virus transmitted by this email. Any opinions contained in this message are those of the author and are not given or endorsed by the Rock River Water Reclamation District (RRWRD) unless otherwise clearly indicated in this message and the authority of the author to so bind the RRWRD referred to is duly verified.

------- DISCLAIMER --------------------------------------------------------------------------------------------------------------------------

Gustavo Torres

unread,
Apr 28, 2016, 12:56:28 PM4/28/16
to
A little example, read a KSDS file and update it,(using VSAMIO):

arg parm                                                            
"VSAMIO READ FILENAME K00FSYS STARTKEY '01049000KACT'RECORDS 1",    
       "STEM NEWVAR. OPEN_UPDATE"                                   
SAY 'INPUT:' NEWVAR.1                                               
NEWVAR.1=SUBSTR(NEWVAR.1,1,40)||parm||SUBSTR(NEWVAR.1,62,278)       
SAY 'OUPUT:' NEWVAR.1                                               
"VSAMIO UPDATE FILENAME K00FSYS RECORDS 1 STEM NEWVAR. CLOSE"       
EXIT 0                                                               
0 new messages