Joined: 02 Dec 2002 Posts: 624 Topics: 175 Location: Stockholm, Sweden
Posted: Tue Mar 21, 2023 2:47 am Post subject: FileManager messages
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
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
Joined: 26 Nov 2002 Posts: 12369 Topics: 75 Location: San Jose
Posted: Thu Mar 23, 2023 12:56 pm Post subject:
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.
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
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
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