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 

FileManager messages

 
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: Tue Mar 21, 2023 2:47 am    Post subject: FileManager messages Reply with quote

I am running FM IMS via JCL and a Rexx script. I'm seeing the following output in the SYSPRINT output
Quote:

0FMNBC514 REXX procedure statements read from FMNEXEC/S6843F.TEST.CLIST

/* Rexx **************************************************************
This batch File Manager will lookthrough all the member specified in
S6843F.PRIV0.JCL
and change any occurrences of FRED to BERT

An example of this as JCL from my previous SEB stint can be found in
e:\shb\misi01.fman.jcl

*********************************************************************/
rname = 'FMITEST'
/* say 'Running 'rname ; trace a */
signal on novalue name sub_novalue

I've googled, but couldn't find any reference to message FMNBC514.

More to the point, is there a way of "switching" off what is, in reality, a copy of the whole Rexx script in the SYSPRINT results.
_________________
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 Mar 22, 2023 3:20 am    Post subject: Reply with quote

The same is true for message FMNIA404 (A GETIMS call was issued without using a view, the AUTOSAVE feature (CHKPFREQ) has been disabled..)

The latest (?) manual (User's Guide and Reference for IMS™Data Version 15.1) jumps from FMNIA189 to FMNIA415
_________________
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: Wed Mar 22, 2023 11:32 am    Post subject: Re: FileManager messages Reply with quote

misi01 wrote:

More to the point, is there a way of "switching" off what is, in reality, a copy of the whole Rexx script in the SYSPRINT results.


misi01,

The REXX procedure might have allocated the SYPRINT dd to caputre the output from the invocation of Filemanager.

Code:

"ALLOC DD(SYSPRINT) SP(5 1) TRACKS",
  "NEW CATALOG RELEASE RECFM(F B) LRECL(32756) BLK(00) DSORG(PS)",   
  "UNIT(SYSDA) REUS"                                             


So you may want to edit the rexx exec and get rid off the SYSPRINT capture

As for missing messages File manager 15.1 is completely missing the Messages manual
_________________
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: Thu Mar 23, 2023 4:34 am    Post subject: Reply with quote

I'll try your suggestion - thanks.

As to messages being missing, I'm looking at

IBM File Manager for z/OS
User's Guide and Reference for IMS Data
Version 15.1

Appendix A contains loads of messages starting with FMNIA005, but as I said, the ones I was after were included.
_________________
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: Thu Mar 23, 2023 4:51 am    Post subject: Reply with quote

I tried the following in the JCL ...

Code:

//SYSPRINT DD DISP=OLD,DSN=&SYSUID..SYSPRINT.BATCHFMI       
//*                                                         
//FMNRPRC  DD SYSOUT=*,RECFM=FBA,LRECL=133                   
//*                                                         
//FMIMSIN  DD  *                                             
ÅÅFILEM SET HEADERPG=NO,PAGESIZE=60                         
ÅÅFILEM IEB REGNTYPE=DLI,                                   
ÅÅFILEM     PSBTYPE=DYNAMIC,                                 
ÅÅFILEM     DBDDSN=BDIM.IMS.DBDLIB,                         
ÅÅFILEM     DBDMEM=DFFOBS,                                   
ÅÅFILEM     IMSID=IM1B,                                     
ÅÅFILEM     CRITERIA=N,                                     
ÅÅFILEM     VIEW=N,                                         
ÅÅFILEM     IMSOBA=80,                                       
ÅÅFILEM     IMSNBA=50,                                       
ÅÅFILEM     PROC=FMITEST                                     
/*                                                           
//FMNEXEC  DD DSN=&SYSUID..TEST.CLIST,DISP=SHR               


The results were as follows. SYSPRINT contained

Quote:

1IBM File Manager for z/OS IMS Component
0ÅÅFILEM SET HEADERPG=NO,PAGESIZE=60
-ÅÅFILEM IEB REGNTYPE=DLI,
ÅÅFILEM PSBTYPE=DYNAMIC,
ÅÅFILEM DBDDSN=BDIM.IMS.DBDLIB,
ÅÅFILEM DBDMEM=DFFOBS,
ÅÅFILEM IMSID=IM1B,
ÅÅFILEM CRITERIA=N,
ÅÅFILEM VIEW=N,
ÅÅFILEM IMSOBA=80,
ÅÅFILEM IMSNBA=50,
ÅÅFILEM PROC=FMITEST
0FMNIA609 IMS log S6843F.FMNLOG.D230323.T104040.DFFOBS has been dynamica
0FMNIA610 The IMS log data set S6843F.FMNLOG.D230323.T104040.DFFOBS has


and FMNRPRC contained
Quote:

IBM File Manager for z/OS IMS Component
FMNBC514 REXX procedure statements read from FMNEXEC/S6843F.TEST.CLIST(FMITEST).

/* Rexx **************************************************************
This batch File Manager script can be used to perform various
steps on any DL/1 database

An example of this as JCL from my previous stint can be found in
e: shb misi01.fman.jcl

*********************************************************************/
rname = 'FMITEST'
/* say 'Running 'rname ; trace a */
signal on novalue name sub_novalue
/* NB NB NB NB
You don't seem to be able to allocate any files within the Rexx
script, but you CAN allocate them in the JCL and use EXECIO to
read them, HOWEVER, the address MUST be MVS and NOT TSO
*/
address MVS "execio * diskr fmibatch (stem fmibatch. finis"
say 'EXECIO rc 'rc' fmibatch.0 'fmibatch.0

do i = 1 to fmibatch.0
etc etc

Since I can't find message FMNBC514 anywhere, I can't determine whether there's a way of "turning off" all the verbiage shown.
_________________
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: Thu Mar 23, 2023 12:56 pm    Post subject: Reply with quote

misi01,

Check if you can add the ddname FMNPRINT/FMNREPT dd to the JCL so that it routes your rexx statements output to a that dd instead of SYSPRINT. You can probably DUMMY it out.

If FMNPRINT is present in the JCL it is used instead of SYSPRINT. If FMNIN is present in the JCL it is used instead of SYSIN.

https://www.ibm.com/docs/en/file-manager-for-zos/14.1?topic=ufmfirptc-invoking-file-manager-functions-from-rexx-procedure-clist-in-batch-mode
_________________
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: Mon Mar 27, 2023 1:02 am    Post subject: Reply with quote

I'm getting the impression that what I want to do can't be done. Here was my latest variation.
Code:

//S030     EXEC PGM=FMN1IMSB                 
//STEPLIB  DD DSN=SYS1.SFMNMOD1,DISP=SHR   
//FMIBATCH DD DISP=SHR,DSN=&SYSUID..PROJ.DATA(FMIBATCH) 
//FMNREPT  DD SYSOUT=*,RECFM=FBA,LRECL=133               
//FMNPRINT DD SYSOUT=*,RECFM=FBA,LRECL=133               
//FMNRPRC  DD SYSOUT=*,RECFM=FBA,LRECL=133               
//*                                                     
//FMIMSIN  DD  *                                         
ÅÅFILEM SET HEADERPG=NO,PAGESIZE=60                     
ÅÅFILEM IEB REGNTYPE=DLI,                               
ÅÅFILEM     PSBTYPE=DYNAMIC,                             
ÅÅFILEM     DBDDSN=BDIM.IMS.DBDLIB,                     
ÅÅFILEM     DBDMEM=DFFOBS,                               
ÅÅFILEM     IMSID=IM1B,                                 
ÅÅFILEM     CRITERIA=N,                                 
ÅÅFILEM     VIEW=N,                                     
ÅÅFILEM     IMSOBA=80,                                   
ÅÅFILEM     IMSNBA=50,                                   
ÅÅFILEM     PROC=FMITEST                                 
/*                                                       
//FMNEXEC  DD DSN=&SYSUID..TEST.CLIST,DISP=SHR       

which produced the following results. FMNREPT
Quote:

IBM File Manager for z/OS IMS Component
FMNIA609 IMS log S6843F.FMNLOG.D230327.T074357.DFFOBS has been dynamically alloc
FMNIA610 The IMS log data set S6843F.FMNLOG.D230327.T074357.DFFOBS has been dele
FMNBA108 Function IEB Return Code 0


FMNPRINT

Quote:

IBM File Manager for z/OS IMS Component
ÅÅFILEM SET HEADERPG=NO,PAGESIZE=60
ÅÅFILEM IEB REGNTYPE=DLI,
ÅÅFILEM PSBTYPE=DYNAMIC,
ÅÅFILEM DBDDSN=BDIM.IMS.DBDLIB,
ÅÅFILEM DBDMEM=DFFOBS,
ÅÅFILEM IMSID=IM1B,
ÅÅFILEM CRITERIA=N,
ÅÅFILEM VIEW=N,
ÅÅFILEM IMSOBA=80,
ÅÅFILEM IMSNBA=50,
ÅÅFILEM PROC=FMITEST
FMNBA108 Function IEB Return Code 0

and, finally FMNRPRC
Quote:

IBM File Manager for z/OS IMS Component
FMNBC514 REXX procedure statements read from FMNEXEC/S6843F.TEST.CLIST(FMITEST).

/* Rexx **************************************************************
This batch File Manager script can be used to perform various
steps on any DL/1 database

An example of this as JCL from my previous SEB stint can be found in
e: shb misi01.fman.jcl

*********************************************************************/
rname = 'FMITEST'
/* say 'Running 'rname ; trace a */
signal on novalue name sub_novalue
/* NB NB NB NB
etc etc etc etc
exit 8

FMNBB060 REXX procedure statements processed by REXX.
EXECIO rc 0 fmibatch.0 3
Commented line on line 1
Commented line on line 2
calling GETIMS with SEGMENT=SFOBSHUV WHERE CKEY=61619009725
filerc = EOF
Inrec ***
C2X Inrec ***
FMCONKEY ***
FMSEGNM ***
Segment not found using GETIMS


The problem is, if I define FMNPRC as DD DUMMY, I don't get any of the SAY results I've included in the actual Rexx script (shown in italic).
What I really want is some way of saying, all messages pertaining to message FMNBC514 should go to DUMMY, and all messages pertaining to message FMNBB060 should go to FMNRPRC

So basically, it seems as if I'm damned if I do, and damned if I don't.
_________________
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: Thu Sep 07, 2023 5:51 am    Post subject: Reply with quote

Since I started this topic, I thought I'd come back to show how I "solved" the problem.
In my FMI JCL, I included the following line
Code:

//RESULTS  DD DSN=&SYSUID..FMI.RESULTS,
//            DISP=(,CATLG,),           
//            SPACE=(TRK,(1,1)),       
//            DATACLAS=DCZEDC,         
//            RECFM=FB,LRECL=120       

and then in my Rexx script, the following:
Code:

fmi_results.0 = 0 
.....
/* and anywhere I wanted to "log" relevant information, I included */
rc = add_to_results('*** Calling GETIMS with 'temp)
...

and before exiting

Code:

if fmi_results.0 = 0 then                                         
  rc = add_to_results('--- No results found')                     
                                                                 
address MVS "execio * diskw results (stem fmi_results. finis"     

with the procedure defined as:
Code:

add_to_results:                       
                                       
parse arg text                         
                                       
fmi_results.0 = fmi_results.0 + 1     
y = fmi_results.0                     
fmi_results.y = text                   
                                       
return 0                               

After the job was submitted and ran to completion, all I had to do was use the in-house utility to review the RESULTS file in the JCL.
_________________
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