Re: Validate URL in RPG

[B Stone <bvstone@xxxxxxxxx>]

I would say that wouldn't always mean a bad URL.  It could mean incorrectly
set up networking as well.  I've dealt with hundreds of customers who would
rather enter host table entries instead of setting up DNS in CFGTCP.
*shudder*

Bradley V. Stone
www.bvstools.com
MAILTOOL Benefit #10 <https://www.bvstools.com/mailtool.html>: Resend
Emails - When emails are sent using MAILTOOL Plus or another addon, those
emails are logged and you have the ability to resend them one by one, or as
a batch (ie, all unsent emails at once).

On Wed, May 15, 2019 at 8:41 AM Rob Berendt <rob@xxxxxxxxx> wrote:

> (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
> --
> 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