Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Open Gif image stored on the IFS from a program

322 views
Skip to first unread message

Carl Badgett

unread,
Feb 4, 2002, 8:30:16 PM2/4/02
to
Is there and efficient way to open a Gif image file from a CL or RPG
program?

The GIF images are stored in a folder on the IFS and want the CL program to
launch a browser or image viewer to display the gif image.

Carl B
Cumming GA


Martin Brieger

unread,
Feb 4, 2002, 10:11:40 PM2/4/02
to
The only thing I can think off is the rundll and have that GIF accessible
via the web or intranet

If you find something better, please let me know

"Carl Badgett" <badgettf...@yahoo.com> wrote in message
news:u5udd82...@corp.supernews.com...

Richard Schoen

unread,
Feb 5, 2002, 5:49:43 AM2/5/02
to
Hello Carl,

A free option would be to use the CA/400 RUNRMTCMD CL command.

If you're open to commercial solutions our FTP/400 Remote Command Server
would do exactly what you'r looking for. The implementation time is about 30
minutes.

For more information or to discuss our products, check out our web site or
contact me directly.

Regards,
Richard Schoen
RJS Software Systems Inc.
"The AS/400 Report and Data Delivery Experts"
Email: ric...@rjssoft.com
Web Site: http://www.rjssoft.com

"Carl Badgett" <badgettf...@yahoo.com> wrote in message
news:u5udd82...@corp.supernews.com...

Christian Gstalder

unread,
Feb 5, 2002, 8:59:17 AM2/5/02
to
From a PC5250 session, you can do the following :
1) STRPCO
2) STRPCCMD PCCMD('start x:\yourgif.gif') where x: is a mapped drive on
shared directory of the IFS

You can replace the drive with an URL like
\\yoursystemname\yourshare\yourgif.gif

HTH

--

Christian Gstalder

"Carl Badgett" <badgettf...@yahoo.com> a écrit dans le message news:
u5udd82...@corp.supernews.com...

Steve Swett

unread,
Feb 5, 2002, 1:02:03 PM2/5/02
to
We've done something like this before:


PGM PARM(&PICPGM)

DCL VAR(&PICPGM) TYPE(*CHAR) LEN(130)

DCL VAR(&EXAMPLE) TYPE(*CHAR) LEN(130) +
VALUE('"\\OURAS400\Pictures\ShowP+
ic.exe" picture y y "\\OURAS400\Pictures" +
5821 jpg"')

STRPCO
MONMSG MSGID(IWS4010)

STRPCCMD PCCMD(&PICPGM) PAUSE(*NO)

ENDPGM


The RPG program will prepare the &PICPGM variable and then call this CL
program, which in turn launches a small Windows exe program that we wrote
that is a small, quick picture displayer. Our little Windows program
currently only displays either BMP or JPG files, but it probably wouldn't be
difficult to make it show GIF files. The little Windows image viewer will
scale the picture to its window frame size, if desired.

You can write your own Windows image viewer and store it on the network or
on the AS/400 IFS -- or we have sold our image viewer very very
inexpensively to a couple others.

There are alternatives, too. Your 5250 emulator (such as Client Access) may
support URLs. Then all you would need to do is have your RPG program
construct a URL and display it on a screen for the user to click. See the
Client Access emulation session menu items: Assist > Hotspots Setup; then
check "Execute URL".

"Carl Badgett" <badgettf...@yahoo.com> wrote in message
news:u5udd82...@corp.supernews.com...

Nathan M. Andelin

unread,
Feb 5, 2002, 3:23:48 PM2/5/02
to
Carl,

Your question gave me the motivation to add a basic "image viewer" to
my Web site:

http://www.relational-data.com/rdwebshr/isamp/index.htm

With a little HTML and about 30 lines of RPG code, you can view image
files from an IFS directory.

Contact me privately, if you'd like more information.

Nathan M. Andelin
www.relational-data.com

Joep Beckeringh

unread,
Feb 5, 2002, 4:02:09 PM2/5/02
to
Carl,

If you are using Client Access emulation, you can just put a URL on the
screen, e.g. file://yourAS400/pictures/picture.gif. If the CA settings are
right (look under 'Hot spots') and the PC has an application registered for
.gif files, this application will be started when the user clicks the URL.

Joep Beckeringh


"Carl Badgett" <badgettf...@yahoo.com> wrote in message
news:u5udd82...@corp.supernews.com...

0 new messages