That works nice... but your example is a redirect.
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Rob Berendt
Sent: Wednesday, May 15, 2019 9:42 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: RE: Validate URL in RPG
(QED) Quite Easily Done.
Execute a SQL statement
Values systools.httpgetclob('
http://nra.org', '') into :myRPGvar If the URL is bad you will get a sql state of 38000 or an sql code of SQL4302 Fire up Run SQL Scripts and try these statements:
values systools.httpgetclob('
http://nra.org', '');
values systools.httpgetclob('
http://nosuchdarnthing.fungus', '');
select
MESSAGE_ID, -- The message ID for this message
MESSAGE_TEXT -- The first level text of the message including tokens
from table(qsys2.joblog_info('*')) A
-- where message_id='SQL4302'
order by ordinal_position desc
fetch first row only;
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Jean-Marc DUVAL
Sent: Wednesday, May 15, 2019 4:27 AM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Validate URL in RPG
Hello everyone
I need to control that a URL entered by a user is valid.
Would anyone have an example of RPG code for this?
Regards,
Jean-Marc DUVAL
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
