MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Excluding IMS segments using File Manager IMS in batch

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Thu Jul 20, 2023 4:48 am    Post subject: Excluding IMS segments using File Manager IMS in batch Reply with quote

If I run FMI via the standard panels, and I've defined a view for the database, then that view (I think) allows me to exclude which segments are shown on the resulting browse of the database.
For example, when I'm presented with a list of the segments (say 1-5), I can place an X next to segment numbers 2-4 and the resulting browse panel will only show me segments 1 & 5.
Is there a way to do this in FMI batch using IXB? If so, what is/are the parameter(s) I need to use. (if you don't know what the relevant parameter is called it's a bit difficult to know what to search for).
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12354
Topics: 75
Location: San Jose

PostPosted: Mon Jul 24, 2023 10:02 am    Post subject: Reply with quote

misi01,

Did you try to follow this and see the generated JCL?

https://www.ibm.com/docs/en/file-manager-for-zos/14.1?topic=databases-viewing-your-database-in-batch
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Wed Jul 26, 2023 4:54 am    Post subject: Reply with quote

Duplicate
_________________
Michael


Last edited by misi01 on Thu Jan 18, 2024 1:17 am; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Wed Jul 26, 2023 5:08 am    Post subject: Reply with quote

Okay, reviewing the manual and parms for IXB it seems there is no VIEW option.
Having said that, if that IS true, I'm surprised I don't receive an error message.
The IXB doc in the manual clearly states
Quote:
This function extracts all segments or selected segments from a database

_________________
Michael
Back to top
View user's profile Send private message Send e-mail
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Wed Jul 26, 2023 5:30 am    Post subject: Reply with quote

Next attempt.
Code:

//FMIMSIN  DD  *                                         
ÅÅFILEM IXB REGNTYPE=DLI,                                 
ÅÅFILEM     PSBTYPE=DYNAMIC,                             
ÅÅFILEM     DBDDSN=BDIM.IMS.DBDLIB,                       
ÅÅFILEM     DBDMEM=DFFLIV,                               
ÅÅFILEM     CRITERIA=N,                                   
ÅÅFILEM     IMSID=IM1B,                                   
ÅÅFILEM     IMSOBA=80,                                   
ÅÅFILEM     IMSNBA=50,                                   
ÅÅFILEM     KEYEXT=Y,                                     
ÅÅFILEM     CRITERIA=Y,                                   
ÅÅFILEM     CRITDD=MYCRIT                                 
/*                                                       
//MYCRIT   DD DSN=S6843F.FMI.CRITERIA(DFFLIV),DISP=SHR   

From the main FMI pane, options 4;3. Then
Code:

FM/IMS                     Criteria Set Entry Panel                         
Command ===> e                                                               
                                                                             
CT Create criteria set from template   E  Edit criteria set                 
CM Create criteria set from model      U  Update criteria set from template 
                                                                             
Template:                                                                   
   Data set name . FMI.TEMPLATE                                             
   Member  . . . . DFFLIV                                                   
                                                                             
Criteria:                                                                   
   Data set name . FMI.CRITERIA                                             
   Member  . . . . DFFLIV                                                   

Next panel
Code:

FM/IMS                   Criteria : Subset Selection     
Command ===>                                             
                                                         
Criteria S6843F.FMI.CRITERIA(DFFLIV)                     
Template S6843F.FMI.TEMPLATE(DFFLIV)                     
          Sub                                             
Cmd  Sel  set  Criteria subset description               
      *     R  Relationship criteria                     
 e    *     1                                             

which gave these results
Code:

FM/IMS                   Criteria : Segment Selection
Command ===>                                         
                                                     
Criteria S6843F.FMI.CRITERIA(DFFLIV)                 
Template S6843F.FMI.TEMPLATE(DFFLIV)                 
Subset   1                                           
                                                     
Cmd  Sel  Level           Segment   Description       
      *   1               SFLIV                       
           2              SFNAMN                     
            3             SFADRESS                   
             4            SFADREXT                   
           2              SFPREMIE                   
           2              SFPAAG                     
           2              SFLTARU                     
           2              SFPBPER                     
      *    2              SFBETH                     
           2              SFTBUPPG                   
           2              SFSPEC                     
            3             SFUPPG                     

which based on the PF1 help indicates (for me) that only segments SFLIV and SFBETH are selected as the segments to be extracted.
And yet the results from the submitted JCL with the FMIMSIN parms still extracted all segments.
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Wed Jan 17, 2024 8:22 am    Post subject: Reply with quote

It's been a while, but I just had a bit of time over to test some more and finally arrived at the solution.
2 comments here.

I kept submitting the job and in the FM report saw the following:

Quote:

Processing Options
PSB type: Dynamic
Region type: DLI
Use criteria: N

which I couldn't understand, since I had specified CRITERIA=Y in my JCL, .... until I saw/realised the following
Quote:

??FILEM DBDMEM=DFFLIV,
??FILEM CRITERIA=N,
??FILEM IMSID=IM1B,
??FILEM IMSOBA=80,
??FILEM IMSNBA=50,
??FILEM KEYEXT=Y,
??FILEM CRITERIA=Y,
??FILEM CRITDSN=S6843F.FMI.CRITERIA,
??FILEM CRITMEM=DFFLIV

My bad, but it seems that duplicate key words result in the only the first one being used and any duplicates being discarded
(with no warning that I could see).

The final solution that resulted in what I was after was the following
Quote:

??FILEM DBDMEM=DFFLIV,
??FILEM IMSID=IM1B,
??FILEM IMSOBA=80,
??FILEM IMSNBA=50,
??FILEM KEYEXT=Y,
??FILEM CRITERIA=Y,
??FILEM CRITDSN=S6843F.FMI.CRITERIA,
??FILEM CRITMEM=DFFLIV

where my criteria definition "defined" the fact that I only wanted 2 of the segments unloaded and none of the other ones.
(and this obviously assumes you have defined the criteria via FMI)

I use this JCL as a way of unloading all/specific segments from a DL/1 database
A Rexx script then reads the unloaded file and compares the segment contents against equivalent, replacement DB2
tables (we're converting DL/1 databases to DB2 ones).
The idea being that we can see immediately if a specific key's contents differ after program updates to both
DL/1 and DB2.
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Wed Jan 17, 2024 8:23 am    Post subject: Reply with quote

It's been a while, but I just had a bit of time over to test some more and finally arrived at the solution.
2 comments here.

I kept submitting the job and in the FM report saw the following:

Quote:

Processing Options
PSB type: Dynamic
Region type: DLI
Use criteria: N

which I couldn't understand, since I had specified CRITERIA=Y in my JCL, .... until I saw/realised the following
Quote:

??FILEM DBDMEM=DFFLIV,
??FILEM CRITERIA=N,
??FILEM IMSID=IM1B,
??FILEM IMSOBA=80,
??FILEM IMSNBA=50,
??FILEM KEYEXT=Y,
??FILEM CRITERIA=Y,
??FILEM CRITDSN=S6843F.FMI.CRITERIA,
??FILEM CRITMEM=DFFLIV

My bad, but it seems that duplicate key words result in the only the first one being used and any duplicates being discarded
(with no warning that I could see).

The final solution that resulted in what I was after was the following
Quote:

??FILEM DBDMEM=DFFLIV,
??FILEM IMSID=IM1B,
??FILEM IMSOBA=80,
??FILEM IMSNBA=50,
??FILEM KEYEXT=Y,
??FILEM CRITERIA=Y,
??FILEM CRITDSN=S6843F.FMI.CRITERIA,
??FILEM CRITMEM=DFFLIV

where my criteria definition "defined" the fact that I only wanted 2 of the segments unloaded and none of the other ones.
(and this obviously assumes you have defined the criteria via FMI)

I use this JCL as a way of unloading all/specific segments from a DL/1 database
A Rexx script then reads the unloaded file and compares the segment contents against equivalent, replacement DB2
tables (we're converting DL/1 databases to DB2 ones).
The idea being that we can see immediately if a specific key's contents differ after program updates to both
DL/1 and DB2.
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Wed Jan 17, 2024 8:25 am    Post subject: Reply with quote

Duplicate
_________________
Michael


Last edited by misi01 on Thu Jan 18, 2024 1:17 am; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
misi01
Advanced


Joined: 02 Dec 2002
Posts: 614
Topics: 171
Location: Stockholm, Sweden

PostPosted: Wed Jan 17, 2024 8:26 am    Post subject: Reply with quote

It's been a while, but I just had a bit of time over to test some more and finally arrived at the solution.
2 comments here.

I kept submitting the job and in the FM report saw the following:

Quote:

Processing Options
PSB type: Dynamic
Region type: DLI
Use criteria: N

which I couldn't understand, since I had specified CRITERIA=Y in my JCL, .... until I saw/realised the following
Quote:

??FILEM DBDMEM=DFFLIV,
??FILEM CRITERIA=N,
??FILEM IMSID=IM1B,
??FILEM IMSOBA=80,
??FILEM IMSNBA=50,
??FILEM KEYEXT=Y,
??FILEM CRITERIA=Y,
??FILEM CRITDSN=S6843F.FMI.CRITERIA,
??FILEM CRITMEM=DFFLIV

My bad, but it seems that duplicate key words result in the only the first one being used and any duplicates being discarded
(with no warning that I could see).

The final solution that resulted in what I was after was the following
Quote:

??FILEM DBDMEM=DFFLIV,
??FILEM IMSID=IM1B,
??FILEM IMSOBA=80,
??FILEM IMSNBA=50,
??FILEM KEYEXT=Y,
??FILEM CRITERIA=Y,
??FILEM CRITDSN=S6843F.FMI.CRITERIA,
??FILEM CRITMEM=DFFLIV

where my criteria definition "defined" the fact that I only wanted 2 of the segments unloaded and none of the other ones.
(and this obviously assumes you have defined the criteria via FMI)

I use this JCL as a way of unloading all/specific segments from a DL/1 database
A Rexx script then reads the unloaded file and compares the segment contents against equivalent, replacement DB2
tables (we're converting DL/1 databases to DB2 ones).
The idea being that we can see immediately if a specific key's contents differ after program updates to both
DL/1 and DB2.
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group