Problem executing bpxwunix
Hi, I would like to automate some csm (Copy services manager) from z/OS. I installed csmcli on z/OS, and if I run csmcli.sh from the omvs shell, it works ok. I found the TechDoc named 'IBM Copy Services Manager session automation' by Thomas Luther which has a rexx program that sets up the environment to run csmcli.sh, get the output from it, and act upon the results. The rexx program uses bpxwunix to call cshcli.sh When I run the rexx program (whether under tso or in batch) I get lots of error messages. I added an echo command at the beginning of csmcli.sh so I will know when it starts. The command I added is 'echo "start csmcli.sh"' When I run it from the omvs shell, it works fine. When I run it from tso I get: echo: csmcli.sh 10: FSUM7351 not found Does this mean that it can't find the echo command? How can I fix this? Gadi -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Message IEF302A
We routed this ticket to the application group that submitted the offending job. They admitted that they had made some kind of JCL error and would correct it. Given the fallout--our syslog archive processing was delayed by 12 hours because no one noticed the outstanding WTR--we're planned to automate a negative response to the message. The job will fail, but it was wrong anyway so no big loss. My feeling is that there is no possible response that would allow the job to complete as intended, so I don't really understand IBM's motivation for this logic. Not in 2021 anyway. . . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -Original Message- From: IBM Mainframe Discussion List On Behalf Of Joe Monk Sent: Thursday, December 31, 2020 11:06 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: Message IEF302A *** EXTERNAL EMAIL - Use caution when opening links or attachments *** Explanation The external writer is waiting for the operator to validate writer name . The writer name was specified on a SYSOUT DD statement in JOBID j. Operator response If the writer name is valid and is to be used by the external writer, then enter REPLY xx,‘U’ and the external writer will use the name. If the writer name is invalid and the external writer is not to use the name and is to bypass and delete this data set, enter REPLY xx,‘N’. If the external writer is to use another writer name, enter REPLY xx, ‘N,’, where is the other writer name. Finally, if is not valid and the operator wants the external writer to use the IBM-supplied default writer name, enter REPLY xx,‘D’ and the external writer will use the default writer name to write the data set. https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieam800/gg302a.htm So, it would seem the correct response is R xx,D to use the default writer. Joe On Thu, Dec 31, 2020 at 12:50 PM Jesse 1 Robinson wrote: > We've had a couple of instances recently of message IEF302A: > > jobname WTR WAITING TO START FOR JOBID > > We sort of interpreted it as an ENQ conflict, except that there are no > actual data sets involved. It seems to revolve around a job calling > for a particular WTR, very unusual around here for an application job. > The job gets hung and prevents other jobs from running that also > specify a WTR name. The stickler is that the specified WTR is not > available on that system. One of our housekeeping jobs (system log > offload) waited for 12 hours before Ops noticed. > > I've been in this biz for decades and never saw this problem. The > message allows several different replies. I'm inclined to reply-in > effect-cancel automatically because I see no way to salvage the job. Any > other ideas? -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Isolating a CSECT within a load module
I tried to develop you hints:
// EXPORT SYMLIST=*
// SET INPMOD=oldmd
// SET OUTMOD=newmod
// SET INPLIB=myold.lib
// SET OUTLIB=mynew.lib
// SET AMBDSN=AMBLIST3
// SET DSP='MOD,PASS' DSP='MOD,CATLG'
//*---*
//* *
//*---*
//ST010 EXEC PGM=AMBLIST
//SYSPRINT DD DSN=&SYSUID..&AMBDSN,DISP=(&DSP),
// SPACE=(TRK,(5,5),RLSE)
//LOADLIB DD DISP=SHR,DSN=&INPLIB
//SYSINDD *,SYMBOLS=(JCLONLY,SYMBLOG)
LISTIDR DDN=LOADLIB,MEMBER=&INPMOD
/*
//*---*
//* *
//*---*
//ST020 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=&SYSUID..&AMBDSN,DISP=SHR
//SORTOUT DD DSN=&SYSUID..&AMBDSN..CMD,DISP=(&DSP),
// SPACE=(TRK,(5,5),RLSE),DCB=(LRECL=80,RECFM=FB,DSORG=PS)
//SYSINDD *,SYMBOLS=(JCLONLY,SYMBLOG)
SORT FIELDS=COPY
OUTFIL FNAMES=SORTOUT,REMOVECC,
INCLUDE=(2,10,CH,EQ,C'CSECT:',AND,
12,8,CH,NE,C'&OUTMOD'),
OUTREC=(C' REPLACE ',12,8,80:X),
TRAILER1=(' INCLUDE SYSLIB(&INPMOD)',/,
' NAME &OUTMOD(R)')
/*
//*---*
//* *
//*---*
//ST030EXEC PGM=HEWL,
// PARM='LET,XREF,MAP,LIST,NCAL'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND),
// DCB=BUFNO=1
//*YSLIN DD DISP=SHR,DSN=J48017.OSET.LOAD(IRXINIT)
//SYSLIB DD DISP=SHR,DSN=&INPLIB
//SYSLMOD DD DISP=SHR,DSN=&OUTLIB(&OUTMOD)
//SYSLIN DD DISP=SHR,DSN=&SYSUID..&AMBDSN..CMD
//*---*
//* *
//*---*
//ST040 EXEC PGM=AMBLIST
//SYSPRINT DD SYSOUT=*
//LOADLIB DD DISP=SHR,DSN=&OUTLIB
//SYSINDD *,SYMBOLS=(JCLONLY,SYMBLOG)
LISTIDR DDN=LOADLIB,MEMBER=&OUTMOD
LISTLOAD DDN=LOADLIB,MEMBER=&OUTMOD
/*
and it seems it's still working.
I'm sure it's possible to further optimize, anyway I think it's a kind of
tool you use not so often.
Anyway take the two of them as POC.
Best regards.
Max
Mail
priva di virus. www.avast.com
<#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>
Il giorno lun 4 gen 2021 alle ore 18:44 Paul Gilmartin <
000433f07816-dmarc-requ...@listserv.ua.edu> ha scritto:
> On Mon, 4 Jan 2021 16:32:47 +0100, Massimo Biancucci wrote:
> >
> >I've tried to use sort to help.
> >
> >// EXPORT SYMLIST=*
> >// SET INPMOD=oldmd
> >// SET OUTMOD=newmod
> >// SET INPLIB=myold.lib
> >// SET OUTLIB=mynew.lib
> >
> I like that sort of parameterizing. It puts the variables up front,
> viewable at a glance. I'd add the AMBLIST2 DSNs to the SET list.
>
> Can something such as "SET DISP={PASS|CATLG} be used to control
> temp vs. permanent workfiles?
>
> >//* *
> >//*---*
> >//ST010 EXEC PGM=IDCAMS
> >//SYSPRINT DD SYSOUT=*
> >//SYSIN DD *,SYMBOLS=(JCLONLY,SYMBLOG)
> > DELETE &SYSUID..AMBLIST2
> > IF MAXCC=8 THEN SET MAXCC=0
> >/*
> >//*---*
> >//* *
> >//*---*
> >//ST020 EXEC PGM=AMBLIST
> >//SYSPRINT DD DSN=&SYSUID..AMBLIST2,DISP=(,CATLG),
> >// SPACE=(TRK,(5,5),RLSE)
> >//LOADLIB DD DISP=SHR,DSN=&INPLIB
> >//SYSINDD *,SYMBOLS=(JCLONLY,SYMBLOG)
> > LISTIDR DDN=LOADLIB,MEMBER=&INPMOD
> >/*...
> My very peculiar preference is to omit the IDCAMS steps and code either:
> //HANDLE DD DSN=&SYSUID..AMBLIST2,DISP=(MOD,CATLG),
> // SPACE=(TRK,(5,5),RLSE)
> //SYSPRINT DD DISP=OLD,DSN=*.HANDLE,VOL=REF=*.HANDLE
>
> Or:
> //HANDLE DD DSN=&SYSUID..AMBLIST2,DISP=(MOD,DELETE),
> // SPACE=(TRK,(5,5),RLSE)
> //SYSPRINT DD DSN=&SYSUID..AMBLIST2,DISP=(MOD,CATLG),
> // SPACE=(TRK,(5,5),RLSE)
>
> But, performance? Is a failing IDCAMS step less overhead than
> an otiose DISP=(MOD,DELETE) etc.?
>
> >I used "no-temp" dataset to better help in understanding the process.
>
> -- gil
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
-
