IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Possible to read from disk conditionally?


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
HameedAli

Active User


Joined: 16 Apr 2009
Posts: 151
Location: India

PostPosted: Thu May 21, 2009 11:16 am
Reply with quote

Hi!


Code:
"EXECIO * DISKR DDIN (STEM Input. FINIS "


The above will read the input from disk DDIN and will store in the array Input.

Is it possible to read the DDIN contents into the array Input. based on a condition

Let the below be the contents in the datset associated with DD Name DDIN

Code:
step  EXEC PGM=IKJEFT01                                     
STEPLIB  INCLUDE MEMBER=(qqqqq)                                                                   
SYSUDUMP DD SYSOUT=(,),OUTPUT=(*.STD1)                                                   
FILE1  DD DSN=qwerty.qwer.qwe1,
       DISP=SHR                                   
FILE2  DD DSN=qwerty.qwer.qwe,
       DCB=(RECFM=FB,LRECL=115,BUFNO=20),         
       DISP=(NEW,CATLG,DELETE),                   
       UNIT=(SYSDA,25),SPACE=(CYL,(500,500),RLSE)



[/code]


Is it possible to tweak the EXECIO to filter only rows which has 'DSN=' in it?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Thu May 21, 2009 11:25 am
Reply with quote

NO, EXECIO is simply an I/O operation and not a logic processor.
Back to top
View user's profile Send private message
HameedAli

Active User


Joined: 16 Apr 2009
Posts: 151
Location: India

PostPosted: Thu May 21, 2009 11:56 am
Reply with quote

Thanks Expat
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts Error to read log with rexx CLIST & REXX 11
No new posts CA Disk LISTD SQL CA Products 1
No new posts Random read in ESDS file by using RBA JCL & VSAM 6
No new posts VSAM return code 23 - for a Random read COBOL Programming 4
No new posts ICETOOL to Read records SMF CEF it is... DFSORT/ICETOOL 4
Search our Forums:

Back to Top