<!DOCTYPE html>
<html>
<head>
</head>
<body>
[ttl]Grid[/ttl]<br>
[grid MyGrid program="myprog.pxp;makegrid" size=auto/20 ]
[col Source=ItemCode$ ttl="ItemCode" width=30 ]
[col Source=ItemName$ ttl="Name" width=50]
[col Source=ItemType$ ttl="Type" width=2]
[/grid]
</body>
</html>
! myprog.pxp
MAKEGRID:
OPEN (HFN,IOL=GRIDIOL)"*memory*"
LET MYGRID=LFO
SELECT * FROM INTERNETITEM
WRITE (MYGRID)
NEXT RECORD
EXIT
GRIDIOL:IOLIST ITEMCODE$,ITEMNAME$,ITEMTYPE$
!
<html>
<head>
</head>
<body>
[ttl]Grid[/ttl]<br>
[grid MyGrid program="myprog.pxp;makegrid" size=auto/20 ]
[col Source=ItemCode$ ttl="ItemCode" width=30 ]
[col Source=ItemName$ ttl="Name" width=50]
[col Source=ItemType$ ttl="Type" width=2]
[/grid]
</body>
</html>
! myprog.pxp
MAKEGRID:
OPEN (HFN,IOL=GRIDIOL)"*memory*"
LET MYGRID=LFO
SELECT * FROM INTERNETITEM
WRITE (MYGRID)
NEXT RECORD
EXIT
GRIDIOL:IOLIST ITEMCODE$,ITEMNAME$,ITEMTYPE$
!