Vom AS/400 an Handy via *INTMODEM

[cat7]

Guten Tag miteinander

Ich möchte eine Meldung vom AS/400 an ein Handy senden. Dazu möchte ich das interne AS/400 Modem benutzen.

In der Schweiz gibt es eine Nummer, die (einen entsprechend aufbereiteten Text als SMS an ein Handy schickt).

Im Windows funktioniert das via "HyperTerminal" oder einem selbst geschriebenen Programm gut.

Wie kann ich das (Übermittlung eines Strings an eine Telefonnummer im ASCII-Format) auf dem AS/400 (aus einem CL-Programm) machen?

Herzlichen Dank
CAT7

[andigoering]

Hallo Cat7,

Du kannst ja mal die einzelnen Schritte, die per Hyperterminal ausgeführt werden müssen hier kurz darlegen.

Könnte mir vorstellen, daß Dir dann jemand helfen kann.

Wir bieten in diesem Zusammenhang ein Tool **i4SMS** an,
dieses arbeitet auf eMail-Basis. Über einen Internet Provider wird das speziell aufbereitete eMail als SMS gesendet.

Bei Interesse kannst Du ja mal unter http://www.goering.de bei uns vorbeischauen ;-)

Viele Grüsse

Andreas Goering
GOERING iSeries Solutions

[TARASIK]

Hallo Cat7,
vielleicht helfen Dir diese Informationen:

With one main CL as control batch, the system can send e-mail when a MSGW in WRKACTJOB occurs. This also works with a message on cell phones that have message access. Every 3 min. (DLYJOB) Code one is activated and searches for messages. Code two then will copy the text to a spoolfile, which can be searched for strings and send to a physical file. If data exists, Code three will send the message to required personnel. (Parameters can help in decision making).
1. DSPMSG MSGQ(QSYSOPR) OUTPUT(*PRINT) MSGTYPE(*INQ) ASTLVL(*BASIC)
2. CPYSPLF FILE(QPDSPMSG) TOFILE(FILENAME) SPLNBR(*LAST)
3. SNDDST TYPE(*LMSG) TOINTNET((EMAIL@TEST.COM)) DSTD(MSGW) MSG(JOBNAME) LONGMSG('DETAILED message')


Dann gibt es auch fertige Produkte:
The product is called ICOM/400. ICOM/400 will even call you on your cell phone and read an AS/400 message to you! Another feature lets you call your AS/400 and access a predefined / secured menu allowing you to initiate processes on your system. I've found this product easy to install and use. It is worth a look!
http://www.icom400.com/

Und jetzt habe ich noch:
There are Situations when you are running an unattended job on your iSeries and would like to be informed in case of a problem. A lot of expensive products are available in the market that can alert you by sending a message to your pager. Here is a technical solution that will cost nothing, and still your iSeries can call a pager in case of a problem. It is assumed that IBM ECS link is installed at your site and you have a modem connected.
The paging software uses three CL programs: PAGER, PAGON and PAGOFF. PAGER is the main program. It first submits the program PAGON to vary on the configuration objects. Then it allocates the device description PAGDEV. Display file QDSIGNON is overridden to the device. Then the program sends the file that dials out the pager number specified in the controller description and subsequently enters the predefined code digits. At the end, the device is de-allocated and program MSGOFF is called to reset the configuration objects. This is a very simple CL program. It can be called in your programs by monitoring those error messages where you want to page someone.
In order to implement this utility, create the following configuration objects and CL programs:


CRTLINSDLC LIND(PAGLIN) RSRCNAME(LIN011) CNN(*SWTPP) +
AUTODIAL(*YES) DIALCMD(*V25BIS) +
STNADR(01) TEXT('PAGER LINE')

CRTCTLRWS CTLD(PAGCTL) TYPE(5394) MODEL(1) +
LINKTYPE(*SDLC) ONLINE(*NO) +
SWITCHED(*YES) SWTLINLST(PAGLIB) +
EXCHID(05F00004) CNNNBR('SST9:nnnnnnn===9999') +
STNADR(04) TEXT('PAGER CONTROLLER')
In the above command, "nnnnnnn" is the pager number; "===" is three seconds delay before keying in pager message that could be adjusted according to different pager requirements; and "9999" is the predefined message code that will appear on your pager. Pager number and message code can be changed in your CL program using CHGCTLD command to send different message codes to various pager holders. If your modem does not support the CNNNBR string, you should check the modem user guide for more details. If you want to call a cellular phone, you just have to enter the phone number in this parameter.

CRTDEVDSP DEVD(PAGDEV) DEVCLS(*RMT) TYPE(5291) +
MODEL(1) LOCADR(01) ONLINE(*YES) +
CTL(PAGCTL) DROP(*NO) TEXT('PAGER DEVICE')

PROGRAM PAGON:

PGM
VRYCFG CFGOBJ(PAGCTL) CFGTYPE(*CTL) STATUS(*OFF)
MONMSG MSGID(CPF0000)
VRYCFG CFGOBJ(PAGLIN) CFGTYPE(*LIN) STATUS(*OFF)
MONMSG MSGID(CPF0000)
RYCFG CFGOBJ(QESLINE) CFGTYPE(*LIN) STATUS(*OFF)
MONMSG MSGID(CPF0000)
VRYCFG CFGOBJ(PAGLIN) CFGTYPE(*CTL) STATUS(*ON)
MONMSG MSGID(CPF0000)
VRYCFG CFGOBJ(PAGCTL) CFGTYPE(*LIN) STATUS(*ON)
MONMSG MSGID(CPF0000)
ENDPGM

PROGRAM PAGOFF:

PGM
VRYCFG CFGOBJ(PAGCTL) CFGTYPE(*CTL) STATUS(*OFF)
MONMSG MSGID(CPF0000)
VRYCFG CFGOBJ(PAGLIN) CFGTYPE(*LIN) STATUS(*OFF)
MONMSG MSGID(CPF0000)
VRYCFG CFGOBJ(QESLINE) CFGTYPE(*LIN) STATUS(*ON)
MONMSG MSGID(CPF0000)
ENDPGM

PROGRAM PAGER:

PGM
DCLF FILE(QSYS/QDSIGNON)
SBMJOB CMD(CALL PGM(PAGON)) JOB(PAGON) JOBQ(QINTER)
DLYJOB DLY(30)
ALCOBJ OBJ((PAGDEV *DEVD *EXCLRD)) WAIT(10)
OVRDSPF FILE(QDSIGNON) DEV(PAGDEV)
SNDF
MONMSG MSGID(CPF4128)
DLCOBJ OBJ((PAGDEV *DEVD *EXCLRD))
CALL PGM(PAGOFF)
ENDPGM

Gruss TARASIK

[KM]

Hallo Tarasik,

hast Du die Pager-Programme zufällig im Einsatz und funktioniert das bei Dir ? Ich habe sie auch mal implementiert. Aber ich bekomme beim Aufruf von PAGER nach einer gewissen Zeit die Meldung:

Nachricht . . . : Erforderliche Objekte für Datei QDSIGNON, Bibliothek QSYS,
Teildatei oder Programmeinheit PAGDEV können nicht zugeordnet werden.

Wie muß man denn die CNNNBR angeben, wenn man die Nachricht an ein Handy schicken will ?

Etwa: 'SST9:01609999999' oder mit Komma oder "=" ?

Was bedeutet eigentlich SST9 und der Doppelpunkt ?

Gruß,
KM