Kontakt

Ansicht
Dokumentation

07432 - Upgrade alert program

07432 - Upgrade alert program

Addresses (Business Address Services)   ROGBILLS - Synchronize billing plans  
This documentation is copyright by SAP AG.
SAP E-Book

Upgrade alert program

Hi Martin, (Alles Locker in Amiland ?) ;-))

one question, what's about watching esp. controlling SAP-Job's ?
Is that's a way to do a alert canceled SAP-Job's over AS/400 ?



> Best Regards/mit freundlichem Gruss
>
> Thomas Lindner
AS/400 & SAP R/3-Basis Support

> EGG IT-Services Gmbh
> Systemtechnik
> Industriestraße 21-39
> 65760 Eschborn
>
T +49 (0) 6196 477381
F +49 (0) 6196 477776

> mailto:Thomas.LindnerZeggits.de
>
>
>
> -----Ursprüngliche Nachricht-----
> Von: Martin Brieger [SMTP:Martin.BriegerZmbsoft.nu]
> Gesendet am: Dienstag, 10. September 2002 16:38
> An: DoNotReply@consolut.eu
> Betreff: Re: Upgrade alert program
>
> Hi Klaus,
>
> all you need to configure is SMTP on the AS/400.
> Go to CFGTCP and then Configure Applications etc. (Option 20?)
>
> I have somewhere a Document for the whole nine yards. It's based on an
> older OS version,
> but I doubt there are many changes. One thing you would need to look into
> is preventing
> that your SMTP does relay (spam). I have the setup for 5.1 and 4.3 since
> that is a bit different.
>
> Let me know if you need anything.
>
> Martin
>
> ----- Original Message -----
> From: Klaus Lindegaard (RWDK)
> To: 'DoNotReply@consolut.eu'
> Sent: Tuesday, September 10, 2002 6:59 AM
> Subject: SV: Upgrade alert program
>
>
> Thanks Martin,
>
>
>
> I will try to see if it also works here.
>
>
>
> Regards
>
> Klaus
>
>
>
> -----Oprindelig meddelelse-----
> Fra: Martin Brieger [mailto:Martin.BriegerZmbsoft.nu]
> Sendt: 10. september 2002 15:44
> Til: DoNotReply@consolut.eu
> Emne: Re: Upgrade alert program
>
>
>
> Klaus,
>
> as a foot note.
>
> In the US you can send normal eMails to most Cell phones w/o additional
> Software.
> I have done that for years and it works perfectly. All you use is
> SNDMSG.
>
> Best regards
>
> Martin
> ----- Original Message -----
> From: Klaus Lindegaard (RWDK)
> To: DoNotReply@consolut.eu
> Sent: Tuesday, September 10, 2002 6:20 AM
> Subject: Upgrade alert program
>
>
> Hi,
>
>
>
> If you have some sort of SMS software on your system this small
> program
> and
> command I have made, can come in handy, especially during upgrades, as
> it
> can send an SMS to your mobile if an alert (upallert.log) file exists.
>
>
>
> Replace the command SNDSMSMSG in line 86 of the cl program with the
> equivalent of your sms software.
>
>
>
> Program consists of a command and a cl program - please find below.
>
>
>
> Kind regards
>
> Klaus Lindegaard
>
> Rockwool A/S
>
>
>
> Mobile +45 24289510
>
>
>
>
>
> --------------------------------------------------------------------------
> --
> -------------
>
> Command SAPALERT
>
>
>
> Stream file exist monitor (SAPALERT)
>
>
>
>
>
> Type choices, press Enter.
>
>
>
>
>
> IFS file to check: . . . . . . . '/usr/sap/trans/put/tmp/'
>
>
>
>
>
>
>
>
> Mobiles Contry code: . . . . . . CONTRYCODE
>
>
> Mobiles phone number: . . . . . MOBILE
>
>
> Repeat counter: . . . . . . . . Repeat counter
>
>
> Delay next test for x seconds: Delay in seconds
>
>
>
>
>
>
> --------------------------------------------------------------------------
> --
> -------------
>
>
>
> On the command just fill in after temp upalert.log (if you have let
> the
> upgrade get its own subdirectory eg. <sid> then add that to.
>
>
>
> Mobile contry eg. 45 for Denmark
>
> Phone number ...
>
> Repeat counter - How many times should the check for the file be
> executed.
>
> Delay next test for x secondes - Type in how many seconds you want
> between
> each test.
>
>
>
>
>
> --------------------------------------------------------------------------
> --
> -------------
>
>
>
>
>
>
> 0001.00
> /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
>
> 0002.00 /*
> */
>
> 0003.00 /* Author: Klaus Lindegaard - ROCKWOOL A/S Denmark
> */
>
> 0004.00 /* Date: 10. September 2002
> */
>
> 0005.00 /*
> */
>
> 0006.00 /* Program/CMD can monitor a given IFS file for existence.
> */
>
> 0008.00 /*
> */
>
> 0009.00 /* If exist it will send an sms message to a given mobile
> */
>
> 0010.00 /* with the content of the file.
> */
>
> 0011.00 /*
> */
>
> 0012.00 /* (SMS system used is SMS BLUENOTE from WWW.AGENTDATA.DK
> */
>
> 0013.00 /*
> */
>
> 0014.00 /* Command name is: SAPALERT
> */
>
> 0015.00 /* Program executed is: SAPALERT
> */
>
> 0022.00 /*
> */
>
> 0023.00
> /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
>
> 0024.00 CMD PROMPT('Stream file exist monitor')
>
>
> 0025.00
>
>
> 0026.00 PARM KWD(FILEPATH) TYPE(*CHAR) LEN(100) +
>
>
> 0027.00 DFT('/usr/sap/trans/put/tmp')
> PROMPT+
>
>
> 0028.00 ('IFS file to check:')
>
>
> 0029.00
>
>
> 0030.00 PARM KWD(CONTRY) TYPE(*CHAR) LEN(4) MIN(1)
> +
>
>
> 0031.00 CHOICE(CONTRYCODE) +
>
>
> 0032.00 prompt('Mobiles Contry code:')
>
>
> 0033.00
>
>
> 0034.00 PARM KWD(MOBILE) TYPE(*CHAR) LEN(12) +
>
>
> 0035.00 CHOICE(MOBILE) +
>
>
> 0036.00 prompt('Mobiles phone number:')
>
>
> 0037.00
>
>
> 0038.00 PARM KWD(REPEAT) TYPE(*CHAR) LEN(5)
> RSTD(*NO) +
>
>
> 0039.00 RANGE('00001' '99999')
> CHOICE('Repeat +
>
>
> 0040.00 counter') PROMPT('Repeat counter:')
>
>
> 0041.00
>
>
> 0042.00 PARM KWD(DLY_SUBMIT) TYPE(*CHAR) LEN(5) +
>
>
> 0043.00 RANGE(00001 99999) CHOICE('Delay in
> +
>
>
> 0044.00 seconds') PROMPT('Delay next test
> for x
> +
>
> 0045.00 seconds :')
>
>
>
>
>
>
>
>
> 0001.00
> /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
>
> 0002.00 /*
> */
>
> 0003.00 /* Author: Klaus Lindegaard - ROCKWOOL A/S Denmark
> */
>
> 0004.00 /* Date: 10. September 2002
> */
>
> 0005.00 /*
> */
>
> 0006.00 /* Program/Cmd can monitor a given IFS file for existence.
> */
>
> 0007.00 /*
> */
>
> 0008.00 /* If exist it will send an sms message to a given mobile
> */
>
> 0009.00 /* with the content of the file.
> */
>
> 0010.00 /*
> */
>
> 0011.00 /* During an SAP upgrade the file you want to monitor for is
> */
>
> 0012.00 /* the upalert.log file that the upgrade creates when a */
>
>
> 0013.00 /* message appears on the screen. File is created in the tmp
> */
>
> 0014.00 /* directory.
> */
>
> 0015.00 /*
> */
>
> 0016.00 /* (SMS System used is SMS BLUENOTE from WWW.AGENTDATA.DK
> */
>
> 0017.00 /*
> */
>
>
> 0018.00 /* Command name is: SAPALERT
> */
>
>
> 0019.00 /* Program executed is: SAPALERT
> */
>
>
> 0020.00 /*
> */
>
>
> 0021.00 /* PS: Before compiling program file ALERTTEXT must exist */
>
>
> 0022.00 /* in library qtemp - create it as follows:
> */
>
>
> 0023.00 /*
> */
>
>
> 0024.00 /* CRTPF FILE(QTEMP/ALERTTEXT) RCDLEN(200)
> */
>
>
> 0025.00 /* MBR(ALERTTEXT)
> */
>
>
> 0026.00
> /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
>
>
> 0027.00 PGM PARM(&FILEPATH &RCV_CTRY &RCV_MOB +
>
>
> 0028.00 &REPEAT &DLY_SUBMIT)
>
>
> 0029.00
>
>
> 0030.00 DCL VAR(&FILEPATH) TYPE(*CHAR) LEN(100)
>
>
> 0031.00
>
>
> 0032.00 DCL VAR(&RCV_CTRY) TYPE(*CHAR) LEN(2) /*
> Contry
> +
>
> 0033.00 code of mobile reciver */
>
>
> 0034.00 DCL VAR(&RCV_MOB) TYPE(*CHAR) LEN(12) /*
> Mobile
> +
>
> 0035.00 number of reciver */
>
>
> 0036.00 DCL VAR(&REPEAT_DEC) TYPE(*DEC) LEN(5 0)
> /* +
>
>
> 0037.00 Repeat counter */
>
>
> 0038.00 DCL VAR(&REPEAT) TYPE(*CHAR) LEN(5) /*
> Repeat
> +
>
>
> 0039.00 counter */
>
>
> 0040.00 DCL VAR(&DLY_SUBMIT) TYPE(*CHAR) LEN(5) /*
> +
>
>
> 0041.00 Delay of submitted job */
>
>
> 0042.00 DCL VAR(&DLY_DEC) TYPE(*DEC) LEN(5 0) /* +
>
>
> 0043.00 Delay of submitted job */
>
>
> 0044.00 DCL VAR(&DATE_CHAR) TYPE(*CHAR) LEN(6) /*
> Date
> in +
>
> 0045.00 char */
>
>
> 0046.00 DCL VAR(&TIME_CHAR) TYPE(*CHAR) LEN(6) +
>
>
> 0047.00 /* Time in char */
>
>
> 0048.00 DCL VAR(&JOBTYPE) TYPE(*CHAR) LEN(1) /*
> Jobtype
> */
>
> 0049.00
>
>
> 0050.00 DCLF FILE(QTEMP/ALERTTEXT)
>
>
> 0051.00
>
>
> 0052.00 /* IF JOB RUNS IN BATCH DELAY SUBMITTED JOB */
>
>
> 0053.00
>
>
> 0054.00 RTVJOBA TYPE(&JOBTYPE)
>
>
> 0055.00
>
>
> 0056.00 IF COND(&JOBTYPE = '0') THEN(DLYJOB +
>
>
> 0057.00 DLY(&DLY_SUBMIT))
>
>
> 0058.00
>
>
> 0059.00 CRTSRCPF FILE(QTEMP/QTXTSRC) TEXT('Target for +
>
>
> 0060.00 alertfile')
>
>
> 0061.00
>
>
> 0062.00 MONMSG MSGID(CPF7302)
>
>
> 0063.00
>
>
> 0064.00 CRTPF FILE(QTEMP/ALERTTEXT) RCDLEN(200) +
>
>
> 0065.00 MBR(ALERTTEXT)
>
>
> 0066.00
>
>
> 0067.00 MONMSG MSGID(CPF7302)
>
>
> 0068.00
>
>
> 0069.00 CPYFRMSTMF FROMSTMF(&FILEPATH) +
>
>
> 0070.00
> TOMBR('/QSYS.LIB/qtemp.LIB/qtxtsrc.file/upa+
>
> 0071.00 lert.mbr') MBROPT(*ADD)
>
>
> 0072.00 MONMSG MSGID(CPFA095) EXEC(GOTO
> CMDLBL(CHECKAGAIN))
>
>
> 0073.00
>
>
> 0074.00 CPYF FROMFILE(QTEMP/QTXTSRC) +
>
>
> 0075.00 TOFILE(QTEMP/ALERTTEXT) +
>
>
> 0076.00 FROMMBR(UPALERT) TOMBR(ALERTTEXT) +
>
>
> 0077.00 MBROPT(*ADD) FMTOPT(*CVTSRC)
>
>
> 0078.00
>
>
> 0079.00 RCVF RCDFMT(ALERTTEXT)
>
>
> 0080.00
>
>
> 0081.00 RTVSYSVAL SYSVAL(QTIME) RTNVAR(&TIME_CHAR)
>
>
> 0082.00 RTVSYSVAL SYSVAL(QDATE) RTNVAR(&DATE_CHAR)
>
>
> 0083.00
>
>
> 0084.00 /* Send SMS message using SMS Bluenote */
>
>
> 0085.00
>
>
> 0086.00 SMS/SNDSMSMSG TEXT('Error found at' *BCAT
> &TIME_CHAR
> +
>
> 0087.00 *BCAT 'on' *BCAT &DATE_CHAR *BCAT ':' *BCAT
> +
>
>
> 0088.00 &ALERTTEXT) COUNTRY(&RCV_CTRY) +
>
>
> 0089.00 PHONE(&RCV_MOB)
>
>
> 0090.00
>
>
> 0091.00 /* If stopcounter not reached then submit job again */
>
>
> 0092.00
>
>
> 0093.00 CHECKAGAIN: CHGVAR VAR(&REPEAT_DEC) VALUE(&REPEAT)
>
>
> 0094.00
>
>
> 0095.00 IF (&REPEAT_DEC = 1) THEN(GOTO END)
>
>
> 0096.00
>
>
> 0097.00 CHGVAR VAR(&REPEAT_DEC) VALUE(&REPEAT_DEC -
> 1)
>
>
> 0098.00 CHGVAR VAR(&REPEAT) VALUE(&REPEAT_DEC)
>
>
> 0099.00
>
>
> 0100.00
>
>
> 0101.00 SBMJOB CMD(SAPALERT CONTRY(&RCV_CTRY) +
>
> 0102.00 MOBILE(&RCV_MOB) REPEAT(&REPEAT) +
>
>
> 0103.00 DLY_SUBMIT(&DLY_SUBMIT))
> JOB(SAPALERT) +
>
> 0104.00 JOBQ(QSYSNOMAX)
>
>
> 0105.00
>
>
> 0106.00 END: ENDPGM
>
>
>
>
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
>
>
> Have a look to our homepage at: <http://www.consolut.net>
> < <http://www.consolut.net>>
> DoNotReply@consolut.eu
>
> Your use of consolut is subject to
> <http://www.consolut.net>
> < <http://www.consolut.net>>
>
>
>
>
> [Non-text portions of this message have been removed]
>
>
>
>
>
>
> consolut Sponsor
>
>
>
>
>
> <
> <http://rd.consolut.net/M=232673.2303527.3721118.2225243/D=egroupweb/S=170500
> 73>
> 89:HM/A=1194123/R=0/*http:/www.adinsdirect.com/>
>
>
> Have a look to our homepage at: <http://www.consolut.net>
> < <http://www.consolut.net>>
> DoNotReply@consolut.eu
>
> Your use of consolut is subject to the consolut
> < <http://www.consolut.net>> Terms of Service.
>
>
>
> [Non-text portions of this message have been removed]
>
>
>
> Have a look to our homepage at: <http://www.consolut.net>
> DoNotReply@consolut.eu
>
> Your use of consolut is subject to
> <http://www.consolut.net>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
>
>
> consolut Sponsor
>
>
> <http://rd.consolut.net/M=229441.2336363.3766536.2225242/D=egroupweb/S=170500
> 7389:HM/A=1189558/R=0/*http://www.bmgmusic.com/acq/ee/q6/enroll/mhn/9/>
>
>
> Have a look to our homepage at: <http://www.consolut.net>
> DoNotReply@consolut.eu
>
> Your use of consolut is subject to the consolut Terms of Service
> <http://www.consolut.net>.

 Durban Tours - Südafrika Safari

RFUMSV00 - Advance Return for Tax on Sales/Purchases   General Data in Customer Master  
This documentation is copyright by SAP AG.

Length: 18481 Date: 20240603 Time: 043520     sap01-206 ( 6 ms )