REXX i used to copy DCON address space message into ps file is
ADDRESS TSO
DO I=0 TO 4
"ALLOC F(ISFIN) TRACKS SPACE(1) REU"
"ALLOC F(ISFOUT) NEW DELETE REU ",
"TRACKS SPACE(100,100) LRECL(133) RECFM(F,B) DSORG(PS)"
"ALLOC F(TEMPPRT) DA('v12396.NEW.PS1') MOD REUSE"
QUEUE "PRE DCON"
QUEUE "ST"
QUEUE "DOWN" I
QUEUE "FIND 'JESJCL'"
QUEUE "++S"
QUEUE "PRINT FILE TEMPPRT"
QUEUE "PRINT"
QUEUE "PRINT CLOSE"
QUEUE "END"
QUEUE "EXIT"
"EXECIO" QUEUED()" DISKW ISFIN (FINIS"
ADDRESS ISPEXEC "SELECT PGM(ISFAFD) PARM('++32,255)"
END
EXIT
Now, I have all required log in v12396.NEW.PS1 file and i want to
extract FTP.DATA.** dataset name from this file and copy it to another
file for further process.
v12396.NEW.PS1 contain many other message including below.
SVTM052I STEP01 COPY FDDB4142( 95,456)
SVTM052I FROM E2PP.DW801P.WTALZUP.XM.G0520V00
SVTM052I TO FTP.DATA.ATRAIL.G0458V00
SVTM052I COMPLETED 00000000/SCPA000I
SVTM052I STEP01 COPY FDDB4099( 95,458)
SVTM052I FROM G12P.DW801P.XTALZUP.XM.G1557V00
SVTM052I TO FTP.DATA.AUDIT.TRAIL.G1568V00
SVTM052I COMPLETED 00000000/SCPA000I
SVTM052I STEP01 COPY FDDB4052( 95,516)
SVTM052I FROM G12P.IBD003.X2BSN1.XM.G2904V00
SVTM052I TO FTP.DATA.IAS.G3486V00
SVTM052I COMPLETED 00000000/SCPA000I
On Mon, May 7, 2018 at 7:56 PM, venkat kulkarni <[email protected]>
wrote:
> Hello Group,
>
> Thanks for all response. We have Netview, which can be used for
> automation. My idea is to create REXX, which extracted data from DCON
> address space into one dataset.
>
> Then i need help to write REXX to extract FTP.DATA.** dataset from this
> ps dataset and put these dataset name into other ps dataset.
>
> SVTM052I STEP01 COPY FDDB4142( 95,456)
>
> SVTM052I FROM E2PP.DW801P.WTALZUP.XM.G0520V00
>
> SVTM052I TO FTP.DATA.ATRAIL.G0458V00
>
> SVTM052I COMPLETED 00000000/SCPA000I
>
>
>
>
>
>
> SVTM052I STEP01 COPY FDDB4099( 95,458)
>
> SVTM052I FROM G12P.DW801P.XTALZUP.XM.G1557V00
>
> SVTM052I TO FTP.DATA.AUDIT.TRAIL.G1568V00
>
> SVTM052I COMPLETED 00000000/SCPA000I
>
>
>
>
> SVTM052I STEP01 COPY FDDB4052( 95,516)
>
> SVTM052I FROM G12P.IBD003.X2BSN1.XM.G2904V00
>
> SVTM052I TO FTP.DATA.IAS.G3486V00
>
> SVTM052I COMPLETED 00000000/SCPA000I
>
> Once we have this output dataset having FTP.DATA.** full name and i
> want to write another REXX to put this dataset name into JCL and submit
> batch job.
>
> Can anybody help me with sample REXX for extracting FTP.DATA.** dataset
> from my input dataset and put this dataset name into output file.
>
> On Mon, May 7, 2018 at 3:41 PM, Lizette Koehler <[email protected]>
> wrote:
>
>> If this is only for one dataset and the message is in SYSLOG, then the
>> MPF list would work.
>>
>> If there are multiple datasets that need to be available before
>> proceeding, then it is getting to be a bit trickier.
>>
>> Several Scheduling software have Dataset Triggers. And they sometimes
>> will monitor for the creation of an SMF Record (Type 30 I think). Then take
>> action as described to their process.
>>
>> Humans can see that datasets are there and then submit jobs. But that
>> requires a human to be vigilant and submit the job when all requirements
>> are met.
>>
>> Also, the human has to review the message and ensure the return code is 0
>> before proceeding.
>>
>>
>> So to provide the function for the OP without purchasing a product, will
>> be a challenge I think.
>>
>> 1) Monitor for dataset creation via SVT messages.
>> a) If more than one file has to be sent, then monitor for
>> additional creations before proceeding
>> 2) Ensure message shows 0 return code. Anything else needs to be
>> reviewed
>> 3) Ensure all files are available before the next job is submitted
>>
>> Unless the OP has other requirements, I think the three listed are what
>> are needed.
>>
>> Lizette
>>
>>
>>
>>
>> > -----Original Message-----
>> > From: IBM Mainframe Discussion List <[email protected]> On
>> Behalf Of
>> > Lizette Koehler
>> > Sent: Monday, May 07, 2018 5:25 AM
>> > To: [email protected]
>> > Subject: Re: Job submit using REXX
>> >
>> > If it is only in the STC Job log, or other DD statement, then no.
>> >
>> > The request would then require something like ISFEXEC (SDSF REXX) and it
>> > would not be real time. It would then have to be run at a frequency
>> that
>> > makes sense.
>> >
>> > Anything not presented to the SYSLOG/OPERLOG would not be seen by the
>> MPF
>> > exit.
>> >
>> > Lizette
>> >
>> >
>> > > -----Original Message-----
>> > > From: IBM Mainframe Discussion List <[email protected]> On
>> > > Behalf Of Elardus Engelbrecht
>> > > Sent: Monday, May 07, 2018 12:43 AM
>> > > To: [email protected]
>> > > Subject: Re: Job submit using REXX
>> > >
>> > > Lizette Koehler wrote:
>> > >
>> > > >This process can be done by using a trap for a message on your
>> system.
>> > > >MPF Exit might work
>> > > >CBTTAPE.ORG might have a process you can tailor Any Scheduling
>> > > >software will have a file trigger function This is more complicated
>> > > >without scheduling software. You will need to find a process that
>> > > >monitors for messages and then provides an action for that message
>> > >
>> > > Those SVTM messages are shown inside the STC (Connect Direct), not in
>> > SYSLOG.
>> > >
>> > > Will your suggestions work in that scenario?
>> > >
>> > >
>> > > venkat kulkarni wrote:
>> > >
>> > > >> We have requirement of setting up process of handling FTP and then
>> > > >> submit Job with FTP dataset. The process goes like this,
>> > >
>> > > Use automation for submission, checking/monitoring these actions and
>> > > then submit another job using REXX to process your datasets.
>> > >
>> > >
>> > > >> SVTM052I STEP01 COPY FDDB4142( 95,456)
>> > > >> SVTM052I FROM E2PP.DW801P.WTALZUP.XM.G0520V00
>> > > >> SVTM052I TO FTP.DATA.ATRAIL.G0458V00
>> > > >> SVTM052I COMPLETED 00000000/SCPA000I
>> > >
>> > > >> So, basically we want to capture these dataset names from this
>> > > >> message
>> > > SVTM052I and send message to operator that file has been received and
>> > > then submit one batch Job by putting this file name.
>> > >
>> > > Rather, have that transfer job send out a message or execute a REXX
>> > > program using those file names.
>> > >
>> > >
>> > > >> Is there any way to automate this whole process. I am new to REXX,
>> > > >> so if
>> > > someone can guide me on this solution.We receive these files 3-4
>> > > times in a day or even more.
>> > >
>> > > Yes, with automation software or with one of those CBTTAPE utilities.
>> > >
>> > > Or you can checkup Brian Westerman's reply to you and his products.
>> > >
>> > > Groete / Greetings
>> > > Elardus Engelbrecht
>> > >
>> >
>> > ----------------------------------------------------------------------
>> > For IBM-MAIN subscribe / signoff / archive access instructions, send
>> email to
>> > [email protected] with the message: INFO IBM-MAIN
>>
>> ----------------------------------------------------------------------
>> For IBM-MAIN subscribe / signoff / archive access instructions,
>> send email to [email protected] with the message: INFO IBM-MAIN
>>
>
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
