The iSeries can run any PC program, including internet explorer. You could use this function to show pictures of:
0001.00 * Must run strpco first.
0002.00 C *entry PList
0003.00 C Parm Item 12
0014.00 * F10=Picture
0015.00 C Eval Cmd160 = 'STRPCCMD PCCMD(''C:\PROGRA~1\-
0016.00 C Intern~1\IEXPLORE.EXE -
0017.00 C H:\INTERNET\' +
0018.00 C %TRIM(item) +
0019.00 C '.JPG'')'
0020.00 C Call 'QCMDEXC'
0021.00 C Parm CMD160 160
0022.00 C Parm 160 CMDLEN 15 5
0023.00 *
0024.00 C Move *on *Inlr
Other useful programs that can be run from OS400. Note, putting a file name or URL after the program will start to program and load the file specified. If there are any spaces in the file name, the file must be surrounded by "double quotes".
| DIR C: | STRPCCMD PCCMD('DIR C:') |
| Note Pad | STRPCCMD PCCMD('C:\WINDOWS\NOTEPAD.EXE') |
| Calculator | STRPCCMD PCCMD('C:\WINDOWS\CALC.EXE S') |
| Paint Brush | STRPCCMD PCCMD('c:\windows\pbrush ') |
| Word Pad | STRPCCMD PCCMD('C:\PROGRA~1\ACCESS~1\WORDPAD.EXE') |
| Excel | STRPCCMD PCCMD('C:\Progra~1\micros~1\office\excel.exe ') |
| Word | STRPCCMD PCCMD('C:\Progra~1\micros~1\office\winword.exe ') |
| Internet Explorer-Yahoo Finance | STRPCCMD PCCMD('C:\PROGRA~1\Intern~1\IEXPLORE.EXE http://finance.yahoo.com/') |
| Starting a file from a PC server | STRPCCMD PCCMD('start "\\server4:\pic\item 123.jpg" ') |
| Starting a file from a web site | STRPCCMD PCCMD('start "http://5-10.com/iseries/iseries.jpg" ') |
| Starting FTP from a web site | STRPCCMD PCCMD('start "ftp://5-10.com/iseries/picture.htm" ') |
I have put the STRPCO in the sign on program, so it is always running.
STRPCO PCTA(*NO) MONMSG MSGID(CPF0000 IWS0000)