Hello Phil, Thanks for reply. As I am new to REXX, can you please help me in sample rexx program for this task.
On Mon, May 7, 2018 at 9:46 PM, Phil Carlyle < [email protected]> wrote: > You forgot the QUEUE ‘’ to flush out the queue. > > PHIL CARLYLE > Information Security | IAM RACF directory services > M: 480-235-2837 | [email protected]<mailto:[email protected]> > TEKSystems > > “The Universe is made up of Protons, Neutrons, Electrons & Morons!” > > From: IBM Mainframe Discussion List [mailto:[email protected]] On > Behalf Of venkat kulkarni > Sent: Monday, May 7, 2018 10:16 AM > To: [email protected] > Subject: Re: Job submit using REXX > > 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.**<ftp://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<ftp://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< > ftp://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<ftp://FTP.DATA.IAS.G3486V00> > > SVTM052I COMPLETED 00000000/SCPA000I > > > On Mon, May 7, 2018 at 7:56 PM, venkat kulkarni < > [email protected]<mailto:[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.**<ftp://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<ftp:/ > /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< > ftp://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<ftp://FTP.DATA.IAS.G3486V00> > > > > SVTM052I COMPLETED 00000000/SCPA000I > > > > Once we have this output dataset having FTP.DATA.**<ftp://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.**< > ftp://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] > <mailto:[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]<mailto: > [email protected]>> On > >> Behalf Of > >> > Lizette Koehler > >> > Sent: Monday, May 07, 2018 5:25 AM > >> > To: [email protected]<mailto:[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]< > mailto:[email protected]>> On > >> > > Behalf Of Elardus Engelbrecht > >> > > Sent: Monday, May 07, 2018 12:43 AM > >> > > To: [email protected]<mailto:[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<https://isolate.menlosecurity.com/1/ > 3735928037/http:/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<ftp:/ > /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]<mailto:[email protected]> with the > message: INFO IBM-MAIN > >> > >> ---------------------------------------------------------------------- > >> For IBM-MAIN subscribe / signoff / archive access instructions, > >> send email to [email protected]<mailto:[email protected]> > with the message: INFO IBM-MAIN > >> > > > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected]<mailto:[email protected]> > with the message: INFO IBM-MAIN > > > American Express made the following annotations > ************************************************************ > ****************** > "This message and any attachments are solely for the intended recipient > and may contain confidential or privileged information. If you are not the > intended recipient, any disclosure, copying, use, or distribution of the > information included in this message and any attachments is prohibited. If > you have received this communication in error, please notify us by reply > e-mail and immediately and permanently delete this message and any > attachments. Thank you." > > American Express a ajouté le commentaire suivant le Ce courrier et toute > pièce jointe qu'il contient sont réservés au seul destinataire indiqué et > peuvent renfermer des > renseignements confidentiels et privilégiés. Si vous n'êtes pas le > destinataire prévu, toute divulgation, duplication, utilisation ou > distribution du courrier ou de toute pièce jointe est interdite. Si vous > avez reçu cette communication par erreur, veuillez nous en aviser par > courrier et détruire immédiatement le courrier et les pièces jointes. Merci. > > ************************************************************ > ****************** > > > ---------------------------------------------------------------------- > 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
