Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

HTTP request 1

Status
Not open for further replies.

Bonblodg

MIS
Jul 8, 2003
1
US
How can I make an HTTP request from an RPG program? e.g. call the command from a function key. I have an //http address and parameters.
 
Pass the URL to the CL program shown below:

Code:
PGM   PARM(&URL)

DCL   VAR(&URL) TYPE(*CHAR) LEN(100)
DCL   VAR(&PATH) TYPE(*CHAR) LEN(50) + 
          VALUE('"C:\PROGRAM FILES\INTERNET EXPLORER\IEXPLORE.EXE" ')
DCL   VAR(&PCSTRING) TYPE(*CHAR) LEN(150)

CHGVAR   VAR(&PCSTRING) VALUE(&PATH *CAT &URL)

STRPCO 
MONMSG     MSGID(CPF0000)
STRPCCMD PCCMD(&PCSTRING) 

ENDPGM
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top