Re: Spool entire job to a file?
Just adding to the solution.. alternatively try out the below snippet which
will save all job logs from spool with cics8* as prefix.
/*REXX*/
ISFTRACE="ON"
SMFID=MVSVAR('SYSNAME')
RC=ISFCALLS("ON")
ISFPREFIX="CICS8*"
ADDRESS SDSF("ISFEXEC ST")
DO I = 1 TO JNAME.0
HLQ=CICS8
RCX=RIGHT(RETCODE.I,5)
SRCX=STRIP(RCX)
CALL PRINT_ATTRI
ADDRESS SDSF "ISFACT ST TOKEN('"TOKEN.I"') PARM(NP XDC)"
LRC=RC
IF LRC<>0 THEN EXIT 20
END
EXIT 0
RC=ISFCALLS("OFF")
PRINT_ATTRI:
ISFPRTBLKSIZE = '0'
ISFPRTDISP = 'NEW'
ISFPRTLRECL = '300'
ISFPRTPRIMARY = '20'
ISFPRTRECFM = 'FB'
ISFPRTSECONDARY = '20'
ISFPRTSPACETYPE = 'CYLS'
ISFPRTUNIT = '3390'
ISFPRTDSNAME="'"HLQ".CICS."SMFID"."JNAME.I"."JOBID.I".RC"SRCX"'"
RETURN
Thanks,
Karthik Premnath.
On Fri, Aug 20, 2021 at 2:34 AM Billy Ashton wrote:
> Sure...I will try to copy it out tomorrow for you...
>
> kekronbekron wrote on 8/18/2021 23:15:
> > If you don't mind, can you show us how.
> >
> > - KB
> >
> > ‐‐‐ Original Message ‐‐‐
> >
> > On Thursday, August 19th, 2021 at 5:33 AM, Billy Ashton <
> bill00ash...@gmail.com> wrote:
> >
> >> I found a way to call the Sysview batch processing program from my JCL,
> >>
> >> and I can save the whole job as I wanted.
> >>
> >> Thanks to everyone for your suggestions--I really like the way this
> >>
> >> group thinks out of the box!
> >>
> >> Billy
> >>
> >> Billy Ashton wrote on 8/18/2021 13:56:
> >>
> >>> Thanks, Lizette! I will give this a try.
> >>>
> >>> Billy
> >>>
> >>> Lizette Koehler wrote:
> >>>
> Go to the internet and look for John McKown's JES2DISK in a GIT Hub
>
> It will do what you want and it is free
>
> Lizette
>
> -Original Message-
>
> From: IBM Mainframe Discussion List IBM-MAIN@LISTSERV.UA.EDU On
>
> Behalf Of Billy Ashton
>
> Sent: Wednesday, August 18, 2021 6:47 AM
>
> To: IBM-MAIN@LISTSERV.UA.EDU
>
> Subject: Spool entire job to a file?
>
> Hi all...I have a need to run a bunch of jobs to do some changes to
>
> files, and we want to preserve the output of all these jobs for
>
> auditors. Is there a way to use an OUTPUT statement or something in
>
> the job itself that can redirect the entire job output to a PDS
>
> member? We don't have a Spooler utility on this LPAR, so I am trying
>
> to find an easy way to capture these jobs.
>
> TIA!
>
> Billy
>
> For IBM-MAIN subscribe / signoff / archive access instructions, send
>
> email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
> For IBM-MAIN subscribe / signoff / archive access instructions,
>
> send email to lists...@listserv.ua.edu with the message: INFO
> IBM-MAIN
> >> --
> >>
> >> For IBM-MAIN subscribe / signoff / archive access instructions,
> >>
> >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> > --
> > For IBM-MAIN subscribe / signoff / archive access instructions,
> > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL and last field from variable record
Such a neat solution Kolusu, thanks. I'll try it out. Thanks, Karthik Premnath. On Mon, Aug 2, 2021 at 9:23 PM Sri h Kolusu wrote: > > 2) Please check if the card below is working. > > > Karthik, > > You don't need multiple IFTHEN statements. A simple Overlay of 52 byte with > a space will get the desired results for OP > > Thanks, > Kolusu > > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: ICETOOL and last field from variable record
HTH,
1) Hope the RDW 4 bytes are considered while processing the VB file.
2) Please check if the card below is working.
//CTL1CNTL DD *
OPTION COPY
OUTREC IFTHEN=(WHEN=(45,2,CH,EQ,C'NO'),
BUILD=(1:1,44,45:45,2,48:5X)),
IFTHEN=(WHEN=(45,2,CH,EQ,C'YES'),
BUILD=(1:1,44,45:45,3,48:4X))
/*
Above statement adds 5 spaces with NO records & 4 spaces with YES records &
ignore records with UNKNOWN.
Karthik Premnath.
On Mon, Aug 2, 2021 at 6:30 PM Radoslaw Skorupka
wrote:
> (yet another DFSORT question)
>
> Source file is RECFM=VB. Last field is text, expected values are YES,
> NO, UNKNOWN
> The goal is to put this field in ICETOOL report, like
> ...
> ON(45,7,CH) HEADER('status')
>
> However it doesn't work.
> Is it possible to change DFSORT behavior and logically add spaces to the
> field?
>
> I see the following solution - just to copy source file to FB and then
> process it.
>
> Does any simpler solution exist?
>
> --
> Radoslaw Skorupka
> Lodz, Poland
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: DFSORT - compare two fields
HTH //RSPROF EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //IRRDBU00 DD DISP=SHR,DSN= //OUTPUT DD SYSOUT=* //TOOLIN DD * SELECT FROM(IRRDBU00) TO(OUTPUT) USING(CTL1) /* //CTL1CNTL DD * INCLUDE COND=(50,8,CH,NE,60,8,CH) /* Assuming 50,8 & 60,8 are offset and length of userid & groupname respectively. Karthik Premnath. On Fri, Jul 30, 2021 at 4:20 PM Radoslaw Skorupka wrote: > The following scenario: > IRRDBU00 file, record type 0203 - this is about user to group connection. > There are fields: groupname and owner. Usually the owner is also the group. > I want to list all the record where owner is not groupname. > > So the goal is to compare two (fixed) fields and include/omit records. > Of course it can be done in REXX, but I think DFSORT is more efficient. > Any clue? > > -- > Radoslaw Skorupka > Lodz, Poland > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: File Permission change
Please try using chown -R option as mentioned below. Anyways, I suggest you to try this command with your test directory before issuing it against prod environment. https://www.ibm.com/docs/en/zos/2.4.0?topic=descriptions-chown-change-owner-group-file-directory Thanks. Karthik Premnath. On Wed, Jul 7, 2021, 10:58 PM Vinoth wrote: > Hi All, > > we are in situation to change the owner for the path /SYSG/prod/cft36/, we > have tons of files/directories residing on this path and i tried to change > using a batch job and only the filepath specified on the job gets change > and rest remains the old owner name and this is stopping me on the upgrade. > > Can anyone help me on changing the fileowner completely in the path with a > command or batch job. > > Please lemme know > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
