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 

File manager (IMS) in batch
Goto page 1, 2  Next
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS
View previous topic :: View next topic  
Author Message
misi01
Advanced


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

PostPosted: Thu Jun 08, 2017 3:35 am    Post subject: File manager (IMS) in batch Reply with quote

I'm reading up as much as possible on how to run File Manager (IMS Component) in batch, but the example (singular) is lacking in explanations as to how things tie together. An example
Quote:

Ã…Ã…FILEM PCBNUM=(3,2,1),

can be found at
https://www.ibm.com/support/knowledgecenter/SSXJAV_13.1.0/com.ibm.filemanager.doc_13.1/ims/fmnu380.html
but nowhere can I find any explanation of what the values 3,2,1 mean and why I (might) use them).

Does anyone have an example they would be prepared to share (with explanations as to how things tie together)
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
Nic Clouston
Advanced


Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home

PostPosted: Thu Jun 08, 2017 7:04 am    Post subject: Reply with quote

From the File Manager 12.1 documentation found by searching on...
Quote:
'file manager' AND pcbnum[

...
Quote:
PCBNUM=pcbnum
When the specified PSB has multiple PCBs for the database specified in the DBDMEM parameter, you specify in this parameter which PCB you want the function to use. You do this by specifying the ordinal number that indicates the position of the PCB in the PSB. So, if you want the function to use the first database PCB in the PSB, you specify 1. If you want the function to use the second database PCB in the PSB, you specify 2, and so on.

_________________
Utility and Program control cards are NOT, repeat NOT, JCL.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


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

PostPosted: Thu Jun 08, 2017 10:48 am    Post subject: Re: File manager (IMS) in batch Reply with quote

misi01 wrote:
An example can be found at
https://www.ibm.com/support/knowledgecenter/SSXJAV_13.1.0/com.ibm.filemanager.doc_13.1/ims/fmnu380.html
but nowhere can I find any explanation of what the values 3,2,1 mean and why I (might) use them).

Does anyone have an example they would be prepared to share (with explanations as to how things tie together)


Misi01,

I am not sure as to where you looked but, in the same manual that you linked there is a detail explanation of ALL the parms that are used.

You are looking at Batch Edit (IEB) function, but if you back up a bit to "batch reference" (You can click on the breadcrumb url from your link) you will get this

https://www.ibm.com/support/knowledgecenter/SSXJAV_13.1.0/com.ibm.filemanager.doc_13.1/ims/commandchapter.html

And then click on Extract (IXB) and then you will see the explanation for "FMIMSIN control statements" and it shows you ALL the parms with detailed explanation.
_________________
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: 616
Topics: 171
Location: Stockholm, Sweden

PostPosted: Fri Jun 09, 2017 1:39 am    Post subject: Thank you for the pointers Kolusu. Reply with quote

I recognize the URL's you included and had visited them. My inability to find the reference you included was based on the following google search
Quote:

"file manager" +pcbnum


Of all the sites I found (via work), the only IBM site had no explanation of the PCBNUM parms, only that they existed.

Be that as it may, I had already visited those sites and found them rather difficult to understand/follow (wood and trees comes to mind).
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
misi01
Advanced


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

PostPosted: Fri Jun 09, 2017 10:26 am    Post subject: Reply with quote

A follow-on question. I'm getting somewhere and will post my results as and when I manage.

Reviewing the online doc, I'm having trouble understanding how/if I can use a defined criteria as my view. My FILEM look like this
Code:

Ã…Ã…FILEM IBB REGNTYPE=BMP,                                   
Ã…Ã…FILEM     PSBTYPE=DYNAMIC,                               
Ã…Ã…FILEM     DBDDSN=xxxx.IMS.DBDLIB,                         
Ã…Ã…FILEM     DBDMEM=VNOPC00,                                 
Ã…Ã…FILEM     CRITERIA=N,                                     
Ã…Ã…FILEM     IMSID=IM1B,                                     
Ã…Ã…FILEM     IMSOBA=80,                                     
Ã…Ã…FILEM     IMSNBA=50,                                     
Ã…Ã…FILEM     KEYEXT=N,                                       
Ã…Ã…FILEM     PROC=*                                         
say 'I was here'                                           
filerc = VIEWIMS('TPLDSN=xxxx.UT1PROJ.CRITERIA(S1491B1)')   
filerc = GETIMS('SEGMENT=VNOACD0 NEXT')                     
say 'filerc = 'filerc                                       
say 'Inrec ***'inrec                                       
/+                                                         
/*                                                         
//REPORT   DD SYSOUT=*                                     
//UNLOAD   DD DSN=S1491B.VNOPC00.EXTRACT,                   
//         DISP=(,CATLG,DELETE),                           
//         SPACE=(CYL,(5,1,0),RLSE),                       
//         DCB=(RECFM=VB,LRECL=00267,BLKSIZE=0)             
//*                                                         
//CRITDD   DD DSN=xxxx.UT1PROJ.CRITERIA(S1491B1),DISP=SHR   
//*                                                         


When I run this without the VIEWIMS (and with Ã…Ã…FILEM CRITERIA=Y,) , everything works "fine" (I'm not saying that the criteria IS used, just that the JCL gives an RC of 0).

In the manuals, every single example I can find seems to be referring to templates rather than criteria.
What I imagine I could do is something like
Code:

Ã…Ã…FILEM     PROC=*
/* Point to my criteria definieion */                                       
filerc = VIEWIMS('TPLDSN=xxxx.UT1PROJ.CRITERIA(S1491B1)')
filerc = GETIMS(some parm here )
do while filerc = 0                   
  print/select/do something
  filerc = GETIMS(some parm here )
end
/+   


As it is, the first example is giving the following error
Quote:

say 'I was here'
filerc = VIEWIMS('TPLDSN=xxxx.UT1PROJ.CRITERIA(S1491B1)')
filerc = GETIMS('SEGMENT=VNOACD0 NEXT')
say 'filerc = 'filerc
say 'Inrec ***'inrec

FMNBB060 REXX procedure statements processed by REXX.
I was here
FMNBA310 Data set xxxx.UT1PROJ.CRITERIA(S1491B1) not found
FMNIA086 TPLDSN data set xxxx.UT1PROJ.CRITERIA(S1491B1) was not found in the cat
4 +++ filerc = VIEWIMS('TPLDSN=xxxx.UT1PROJ.CRITERIA(S1491B1)')

Anyone have any suggestions ?
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


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

PostPosted: Fri Jun 09, 2017 11:15 am    Post subject: Re: Thank you for the pointers Kolusu. Reply with quote

misi01 wrote:
I recognize the URL's you included and had visited them. My inability to find the reference you included was based on the following google search


misi01,

I am not sure as to why you always choose the long route to find what you are looking for.

Ideally I would start with FILEMANAGER manuals from here

https://www-01.ibm.com/software/awdtools/filemanager/library/

and then choose the version your shop has and then pick the component you working with (IMS, DB2...)

In this case you are working with IMS, so I would download the PDF "User's Guide and Reference for IMS Data"

Once I have the manual then it is easy to search within the manual.

misi01 wrote:

Be that as it may, I had already visited those sites and found them rather difficult to understand/follow (wood and trees comes to mind).


I would say IBM does a better job of having the manuals available online and downloadable PDF copies that you can always search.
_________________
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
kolusu
Site Admin
Site Admin


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

PostPosted: Fri Jun 09, 2017 11:24 am    Post subject: Reply with quote

misi01 wrote:
A follow-on question. I'm getting somewhere and will post my results as and when I manage.

Reviewing the online doc, I'm having trouble understanding how/if I can use a defined criteria as my view. My FILEM look like this
Code:

FILEM     CRITERIA=N,                                     
//CRITDD   DD DSN=xxxx.UT1PROJ.CRITERIA(S1491B1),DISP=SHR   
//*                                                         

When I run this without the VIEWIMS (and with FILEM CRITERIA=Y,) , everything works "fine" (I'm not saying that the criteria IS used, just that the JCL gives an RC of 0).



mis01,

Apart from specifying CRITERIA=Y, you also need to specify the criteria dataset/ddname in your control cards.
Code:

   .-CRITERIA=N-----------------------------------------.   
>--+----------------------------------------------------+------->
   |            .-CRITDD=CRITDD---.                     |   
   '-CRITERIA=Y-+-----------------+-+-----------------+-'   
                +-CRITDD=ddname---+ '-CRITMEM=critmem-'     
                '-CRITDSN=critdsn-'


misi01 wrote:

As it is, the first example is giving the following error
FMNBA310 Data set xxxx.UT1PROJ.CRITERIA(S1491B1) not found
FMNIA086 TPLDSN data set xxxx.UT1PROJ.CRITERIA(S1491B1) was not found in the cat


misi01,

The errors are self explanatory. You don't have a member named S1491B1 in your PDS named xxxx.UT1PROJ.CRITERIA

Ideally I would start with using the FILE MANAGER panels for Criteria processing and then convert that into a batch job.

In the PDF "User's Guide and Reference for IMS Data" there is an entire chapter about Criteria. "Chapter 7. Working with Criteria"

I would start there and work my way thru.
_________________
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: 616
Topics: 171
Location: Stockholm, Sweden

PostPosted: Mon Jun 12, 2017 2:22 am    Post subject: Reply with quote

I have downloaded the manual, but it STILL doesn't help. Here are some screen captures to try and convince you I'm NOT an idiot. First, my FM batch commands:-

Code:

Ã…Ã…FILEM IBB REGNTYPE=BMP,                                     
Ã…Ã…FILEM     PSBTYPE=DYNAMIC,                                 
Ã…Ã…FILEM     DBDDSN=xxxx.IMS.DBDLIB,                     
Ã…Ã…FILEM     DBDMEM=VNOPC00,                                   
Ã…Ã…FILEM     CRITERIA=Y,                                       
Ã…Ã…FILEM     IMSID=IM1B,                                       
Ã…Ã…FILEM     IMSOBA=80,                                       
Ã…Ã…FILEM     IMSNBA=50,                                       
Ã…Ã…FILEM     KEYEXT=N,                                         
Ã…Ã…FILEM     PROC=*                                           
say 'I was here'                                             
filerc = VIEWIMS('TPLDSN=xxxx.UT1PROJ.TEMPLATE(VNOPC00)')     
filerc = GETIMS('SEGMENT=VNOACD0 NEXT')                       
say 'filerc = 'filerc                                         
say 'Inrec ***'inrec                                         
/+                                                           
/*                                                           
//REPORT   DD SYSOUT=*                                       
//UNLOAD   DD DSN=S1491B.VNOPC00.EXTRACT,                     
//         DISP=(,CATLG,DELETE),                             
//         SPACE=(CYL,(5,1,0),RLSE),                         
//         DCB=(RECFM=VB,LRECL=00267,BLKSIZE=0)               
//*                                                           
//CRITDD   DD DSN=xxxx.UT1PROJ.CRITERIA(S1491B1),DISP=SHR     
//*                                                           


Now a screen capture from FMI (3270)
Quote:

FM/IMS Template Entry Panel
Command ===>

Template:
Data set name . . . 'xxxx.UT1PROJ.TEMPLATE'
Member . . . . . . VNOPC00



Now the results from submitting the job.
Quote:

say 'I was here'
filerc = VIEWIMS('TPLDSN=TGCC.UT1PROJ.TEMPLATE(VNOPC00)')
filerc = GETIMS('SEGMENT=VNOACD0 NEXT')
say 'filerc = 'filerc
say 'Inrec ***'inrec

FMNBB060 REXX procedure statements processed by REXX.
I was here
FMNBA310 Data set xxxx.UT1PROJ.TEMPLATE(VNOPC00) not found
FMNIA086 TPLDSN data set xxxx.UT1PROJ.TEMPLATE(VNOPC00) was not found in the cat
4 +++ filerc = VIEWIMS('TPLDSN=xxxx.UT1PROJ.TEMPLATE(VNOPC00)')
IRX0040I Error running FMNINTEX, line 4: Incorrect call to routine
FMNBB382 REXX exec terminated with RC 20040
DFSUACB0 MESSAGES AND CONTROL STATEMENTS
DELETE PSB=FMN0046



Now, something I did notice in the manual, was that as far as I could see, there were no examples of TPLDSN being specified as a PDS - is that the problem ???
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
misi01
Advanced


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

PostPosted: Mon Jun 12, 2017 3:59 am    Post subject: Reply with quote

My next attempt
Code:

0FMNBC514 REXX procedure statements read from SYSIN.                           
                                                                               
 say 'I was here'                                                               
 filerc = VIEWIMS('TPLDD=TEMPLATE')                                             
 filerc = GETIMS('SEGMENT=VNOACD0 NEXT')                                       
 say 'filerc = 'filerc                                                         
 say 'Inrec ***'inrec                                                           
                                                                               
0FMNBB060 REXX procedure statements processed by REXX.                         
 I was here                                                                     
0FMNIA557 The TEMPLATE DD statement specifies a PDS(E) member. Specify the Templ
      4 +++ filerc = VIEWIMS('TPLDD=TEMPLATE')                                 
 IRX0040I Error running FMNINTEX, line 4: Incorrect call to routine             
0FMNBB382 REXX exec terminated with RC 20040                                   
1                                      DFSUACB0 MESSAGES AND CONTROL STATEMENTS
-         DELETE PSB=FMN0044                                                   
 DFS0938I DELETE PROCESSING COMPLETE FOR PSB FMN0044                           


My JCL contained the following
Code:

//TEMPLATE DD DSN=xxxx.UT1PROJ.TEMPLATE(VNOPC00),DISP=SHR

Note how this time I actually received an error message giving SOME idea of what might be in error (BTW - tried to look up FMNIA557
in the online manual, but it's not there. The one before is FMNIA460, the one after is FMNIA999)
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
misi01
Advanced


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

PostPosted: Mon Jun 12, 2017 4:15 am    Post subject: Reply with quote

You have to laugh. Talk about you're damned if you do, you're damned if you don't. Based on my previous append, I included the following JCL so as to copy the base template from a PDS to a sequential file.
Code:

//ALLOA05  EXEC PGM=IEBGENER                               
//SYSPRINT DD  SYSOUT=(,)                                 
//SYSIN    DD  DUMMY                                       
//SYSUT1   DD  DSN=xxxx.UT1PROJ.TEMPLATE(VNOPC00),DISP=SHR
//SYSUT2   DD  DSN=S1491B.FILEMAN.TEMP.TEMPLATE,           
//             DISP=(,CATLG,),                             
//             SPACE=(TRK,(1,1)),                         
//             RECFM=FB,                                   
//             LRECL=80                                   

and my FM code now looks like this
Code:

Ã…Ã…FILEM     PROC=*                                         
say 'I was here'                                           
filerc = VIEWIMS('TPLDD=TEMPLATE')                         
filerc = GETIMS('SEGMENT=VNOACD0 NEXT')                   
say 'filerc = 'filerc                                     
say 'Inrec ***'inrec                                       
/+                                                         
/*                                                         
//REPORT   DD SYSOUT=*                                     
//UNLOAD   DD DSN=S1491B.VNOPC00.EXTRACT,                 
//         DISP=(,CATLG,DELETE),                           
//         SPACE=(CYL,(5,1,0),RLSE),                       
//         DCB=(RECFM=VB,LRECL=00267,BLKSIZE=0)           
//*                                                       
//CRITDD   DD DSN=xxxx.UT1PROJ.CRITERIA(S1491B1),DISP=SHR 
//TEMPLATE DD DSN=S1491B.FILEMAN.TEMP.TEMPLATE,DISP=SHR   
//*                                                       

Guess what? Now I'm getting the following error message
Quote:

say 'I was here'
filerc = VIEWIMS('TPLDD=TEMPLATE')
filerc = GETIMS('SEGMENT=VNOACD0 NEXT')
say 'filerc = 'filerc
say 'Inrec ***'inrec

FMNBB060 REXX procedure statements processed by REXX.
I was here
FMNIA556 The data set specified in the TEMPLATE DD is not a PDS(E). Specify
4 +++ filerc = VIEWIMS('TPLDD=TEMPLATE')
IRX0040I Error running FMNINTEX, line 4: Incorrect call to routine
FMNBB382 REXX exec terminated with RC 20040
DFSUACB0 MESSAGES AND CONTROL STATEMEN
DELETE PSB=FMN0018
DFS0938I DELETE PROCESSING COMPLETE FOR PSB FMN0018


So.... what's it to be; PDS(E) or not ?????
(Oh, and as I mentioned earlier, FMNIA556 isn't in the manual either)
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
Nic Clouston
Advanced


Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home

PostPosted: Mon Jun 12, 2017 8:06 am    Post subject: Reply with quote

The manual does not specify quotes around the parm to VIEWIMS. I did not check the format for GETIMS.
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.
Back to top
View user's profile Send private message
misi01
Advanced


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

PostPosted: Mon Jun 12, 2017 8:38 am    Post subject: Reply with quote

Nic - here's an example from the V13.1 manual, page 510

filerc = VIEWIMS(’TPLDSN=FMN.IMS.IVP.TEMPLATE’)

I've had a colleague try and help me as well, and we're getting what I would consider strange results (they're obviously not, but since I can't manage to get FM working as I expect, they're strange). First of all, a basic batch FM job
Code:

Ã…Ã…FILEM IXB REGNTYPE=BMP,                                 
Ã…Ã…FILEM     PSBTYPE=DYNAMIC,                               
Ã…Ã…FILEM     DBDDSN=xxxx.IMS.DBDLIB,                       
Ã…Ã…FILEM     DBDMEM=VNOPC00,                               
Ã…Ã…FILEM     CRITERIA=Y,                                   
Ã…Ã…FILEM     IMSID=IM1B,                                   
Ã…Ã…FILEM     IMSOBA=80,                                     
Ã…Ã…FILEM     IMSNBA=50,                                     
Ã…Ã…FILEM     KEYEXT=N                                       
/*                                                         
//REPORT   DD SYSOUT=*                                     
//UNLOAD   DD DSN=S1491B.VNOPC00.EXTRACT8,                 
//         DISP=(,CATLG,DELETE),                           
//         SPACE=(CYL,(5,1,0),RLSE),                       
//         DCB=(RECFM=VB,LRECL=00267,BLKSIZE=0)           
//CRITDD   DD DSN=xxxx.UT1PROJ.CRITERIA(S1491B2),DISP=SHR 

The criteria condition says that we ONLY want a value of 2 in the key field in VNOACD0. Here are the results we see
Quote:

VNOPC00 ..VNOACD0 ......01002
VNOPC00 ..VNOACK0 ......01002105010
VNOPC00 ..VNOACK0 ......01002106009
VNOPC00 ..VNOACK0 ......01002106011
VNOPC00 ..VNOACK0 ......01002107010
VNOPC00 ..VNOACK0 ......01002108011
VNOPC00 ..VNOACK0 ......01002110011
VNOPC00 ..VNOACK0 ......01002111011
VNOPC00 ..VNOACK0 ......01002120007
VNOPC00 ..VNOACK0 ......01002120009
VNOPC00 ..VNOACK0 ......01002120011
VNOPC00 ..VNOACK0 ......01002124010
VNOPC00 ..VNOACK0 ......01002125011
VNOPC00 ..VNOACK0 ......01002126011
VNOPC00 ..VNOACK0 ......01002177011


This is what I expect. When I do it using Rexx code instead
Code:

Ã…Ã…FILEM     PROC=*                               
say 'I was here'                                 
filerc = VIEWIMS('TPLDD=TEMPLATE')               
       /* GETIMS next will show root segment */   
filerc = GETIMS('NEXT')                           
print(inrec,sngl)                                 
say 'filerc = 'filerc                             
say 'Inrec ***'inrec                             
do i = 1 to 3                                     
  filerc = GETIMS('NEXT')                         
  say 'filerc = 'filerc                           
  say 'Inrec ***'inrec                           
  print(inrec,sngl)                               
end                                               
/+                                               

then I see the following instead.
Quote:

Inrec ***01SKANDINAVISKA ENSKILDA
1401000009726 & 1020170221100
filerc = 0
Inrec ***5444101000008517
filerc = 0
Inrec ***5444201000008517
filerc = 0
Inrec ***5444901000008517

which to me seems to indicate that the criteria hasn't been used in the selection.

So, basically, I'm wondering as to HOW you're supposed to specify a criteria and use VIEWIMS/GETIMS to ensure you ONLY see those selected segments.
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


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

PostPosted: Mon Jun 12, 2017 10:58 am    Post subject: Reply with quote

misi01 wrote:

So, basically, I'm wondering as to HOW you're supposed to specify a criteria and use VIEWIMS/GETIMS to ensure you ONLY see those selected segments.



Misi01,

I am not sure as to why you simply tend to ignore the earlier message about specifying the criteria details in the control cards itself? I even showed you the syntax diagram and you simply seem to ignore and try all kinds of combinations. Just because you have CRITDD in your JCL does NOT mean file manager will read the dataset. Unless you point to it, filemanager will simply ignore the dd name. Pay attention to the 2 lines which specify <<< New addition

Try this

Code:

$$FILEM IXB REGNTYPE=BMP,                                 
$$FILEM     PSBTYPE=DYNAMIC,                               
$$FILEM     DBDDSN=xxxx.IMS.DBDLIB,                       
$$FILEM     DBDMEM=VNOPC00,                               
$$FILEM     CRITERIA=Y,   
$$FILEM     CRITDSN='xxxx.UT1PROJ.CRITERIA'    <<< New addition
$$FILEM     CRITMEM=S1491B1                    <<< New addition
$$FILEM     IMSID=IM1B,                                   
$$FILEM     IMSOBA=80,                                     
$$FILEM     IMSNBA=50,                                     
$$FILEM     KEYEXT=N

OR

Code:

$$FILEM IXB REGNTYPE=BMP,                                 
$$FILEM     PSBTYPE=DYNAMIC,                               
$$FILEM     DBDDSN=xxxx.IMS.DBDLIB,                       
$$FILEM     DBDMEM=VNOPC00,                               
$$FILEM     CRITERIA=Y,   
$$FILEM     CRITDD=CRITDD     <<< New addition
$$FILEM     CRITMEM=S1491B1   <<< New addition
$$FILEM     IMSID=IM1B,                                   
$$FILEM     IMSOBA=80,                                     
$$FILEM     IMSNBA=50,                                     
$$FILEM     KEYEXT=N

//CRITDD   DD DISP=SHR,DSN=xxxx.UT1PROJ.CRITERIA

_________________
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: 616
Topics: 171
Location: Stockholm, Sweden

PostPosted: Mon Jun 12, 2017 12:11 pm    Post subject: Reply with quote

Thank you Kolusu. However......

what is your comment regarding page 469 of the V13.1 manual. Tomorrow, I'll try your example, but here are the relevant lines from that page
Quote:

CRITERIA
Optional parameter. Specifies whether or not the Extract uses selection
criteria.
N The Extract does not use selection criteria.
Y The Extract uses selection criteria. If Y is specified, you must
specify the criteria set that the extract is to use as outlined in the
CRITDD, CRITDSN and CRITMEM entries below. CRITDD=ddname
Identifies the DD statement for the sequential data set or PDS(E)
and member that contains the criteria you want your Extract to
use. The default is CRITDD.


Now, that to me says I can use any of the options, and if I specify CRITERIA=Y, then by default, the file specified with a DD name of CRITDD will be used.
If what you're saying is that I have to use CRITERIA=Y and CRITDD=CRITDD (in this example), then that's where my misunderstanding has been.
I think I've tried the CRITERIA=Y with the CRITDSN/CRITMEM, but I'll try again tomorrow at work
_________________
Michael
Back to top
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


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

PostPosted: Mon Jun 12, 2017 12:15 pm    Post subject: Reply with quote

misi01 wrote:
Thank you Kolusu. However......

what is your comment regarding page 469 of the V13.1 manual. Tomorrow, I'll try your example, but here are the relevant lines from that page
Quote:

CRITERIA
Optional parameter. Specifies whether or not the Extract uses selection
criteria.
N The Extract does not use selection criteria.
Y The Extract uses selection criteria. If Y is specified, you must
specify the criteria set that the extract is to use as outlined in the
CRITDD, CRITDSN and CRITMEM entries below. CRITDD=ddname
Identifies the DD statement for the sequential data set or PDS(E)
and member that contains the criteria you want your Extract to
use. The default is CRITDD.


Now, that to me says I can use any of the options, and if I specify CRITERIA=Y, then by default, the file specified with a DD name of CRITDD will be used.
If what you're saying is that I have to use CRITERIA=Y and CRITDD=CRITDD (in this example), then that's where my misunderstanding has been.
I think I've tried the CRITERIA=Y with the CRITDSN/CRITMEM, but I'll try again tomorrow at work


Misi01,

If I understood correctly, the CRITDD is the default name for Criteria dataset. That does NOT mean that just because you have CRITDD in the JCL it will be read. So you need to specify the CRITDD in your control cards too.
_________________
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
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS All times are GMT - 5 Hours
Goto page 1, 2  Next
Page 1 of 2

 
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