Thursday, November 17, 2011

AS400 Open browser from RPGLE or CLLE

How to open any site or URL from AS400 display screen when user clicks on a particular link using mouse?
Here I am providing how to open any URL or any 'www' web page via AS400 display (DSPF) screen.
Here goes.....
DSPF - DDS (Note: Below DDS is in Source-Seq, Source-Data & Source-Date maner)





*************** Beginning of data *****************************************************
0000.10 A*%%TS SD 20111201 201556 ND82938 REL-V7R1M0 5770-WDS 111201
0001.20 A DSPSIZ(24 80 *DS3) 111201
0001.30 A R 111201
0001.40 A*%%TS SD 20111201 201556 ND82938 REL-V7R1M0 5770- 111201
0001.50 A RTNCSRLOC(&RECORD &FIELD &CSRPOS) 111201
0001.60 A MOUBTN(*ULP CA21) 111201
0001.70 A CA03(03 'Exit') 111201
0001.80 A* 000000
0001.90 A* 2 2'Click on following URL''s to open' 000000
0002.00 A* DSPATR(RI) 000000
0002.10 A* DSPATR(HI) 000000
0002.20 A* 000000
0002.30 A URL 20A O 5 2DSPATR(UL) 111201
0002.40 A URL1 20A O 7 2DSPATR(UL) 111201
0002.50 A URL2 20A O 9 2DSPATR(UL) 111201
0002.60 A* 000000
0002.70 A RECORD 10A H 000000

0002.80 A FIELD 10A H 111201
0002.90 A CSRPOS 4S 0H 000000 0002.00 A* 000000
0003.10 A 21 2'____________________________ - 111201
0003.20 A _____________________________ - 111201
0003.30 A __________' 111201
0003.40 A 22 2'F3=Exit' 111201
0003.50 A COLOR(BLU) 111201
****************** End of data ********************************************************

No comments:

Post a Comment