cϽ 1""2"2""2"22""SAS FILENESUG2006 CATALOG ]ARA 9.0101M3WIN_PRO]濝8濝8濝8k ',]Aj ',> @ Menu description. XLSRZd#zAZd#zAd  nF Menu description. XLSR j$zAj$zA_  F Menu description. XLSR j$zAj$zA   F Menu description. XLSR p%zAp%zAt_  F Menu description. 0 XLSRZd3zAZd3zA}   F Menu description. XLSRj4zAj4zAH wF Menu description. XLSRp5zAp5zA!% +F Menu description. XLSR p5zAp5zA{   F Menu description. XLSRff6zAff6zA2  uF Menu description. XLSRl7zAl7zAn  xF Menu description. XLSR Nb8zANb8zA  F Menu description. XLSR Nb8zANb8zA  F Menu description. XLSR pEzApEzAUL  F Menu description. XLSR ffFzAffFzA U  F Menu description. XLSR  ffFzAffFzA U   F Menu description. SYSRESR PGBITMAPXSOURCE CAPTURE_SAMPLE_CODEPSCL MSBRWSEH$ SCL MSBROWSER SCL GETWEBINPUT| SCL CAPTUREBROWSERSUBMISSION,SCL AFBRWSEHSCL AFBROWSER HSERVICEMSBROWSRHSERVICEAFBROWSRFRAME WEBFORMt FRAME MSBROWSER FRAME AFBROWSER  i ',XLCH( XLSR]ARA  XLSRAA08  ./ F GETWEBINPUT.SCL XLSRvrAvrA Embedded  A  AfWebBrowserXLSR ޼A޼A Embedded   A Microsoft Web BrowserXLSROAOA)E/ E/) F AfBrowser OLE Event handlersXLSR`A`Ay  F GETWEBINPUT.SCL XLSRCA0A    $Capture data entered in an HTML formXLSR wAA.=1 30  F MsBrowser OLE Event handlersXLSR bpwATAy   y  F  Example of Microsoft Web BrowserXLSR ޼A޼AQ % F  Example of Microsoft Web BrowserXLSR AA,i+ I)*  F Example of AfWebBrowserb BrowserXLSRAA m + F OExample of AfWebBrowser (externally developed adapter to Microsoft Web Browser)XLSRvrAvrA    F OExample of AfWebBrowser (externally developed adapter to Microsoft Web Browser)PMENU FRMVIEWh ',j4@DHPHo ',0#!#_SCLD1_LIIP1RELEASEEXESIZEFLAGS -6@ 00: P*GP ! &"^))B pGG"" p _MSG__STATUS__ERROR__CURROW_input$T0AFBROWSER.FRAMEhttp://w.devenezia.com/papers/nesug-2006/Payments.htmlphhllllllllllHALFHALF 7 10 13 16 19 22`/init:`r@vdeclare List input = {};`]@vcall display`i@v( 'AFBROWSER.FRAME'`b@v, 'http://w.devenezia.com/papers/nesug-2006/Payments.html'`9@v, input`n@v);`s@v`w@vcall putlist (input,'',0);`[@vreturn;`p@v rn;`p@v 0##_SCLD1_LIIP1RELEASEEXESIZEFLAGS<6HALFHALF 7 10 13 16 19 22`//*`u@vC * Sample frame demonstrating errors that occur when handling`:@v! * OnBeforeNavigate2 event.`\@v *`u@v * Richard A. DeVenezia``@v * June 3, 2003`h@v  */`t@v`w@v init:`r@vNdeclare Object oBrowser;* o prefix is a nod to MS naming conventions;`.@v0_frame_._getWidget ('Browser', oBrowser);`L@v return;`p@v`w@v URL:`s@v+oBrowser._do ('Navigate', URL.text);`Q@v return;`p@v`w@v`w@v bmSAS:`q@vbmGoogle:`n@vdeclare object w;`d@v$_frame_._getCurrentWidget(w);`X@v URL.text = w.toolTipText;`\@vlink URL;`l@v return;`p@v 0#!#_SCLD1_LIIP1RELEASEEXESIZEFLAGS -6@ 00: P*GP ! &"^))B pGG"" p _MSG__STATUS__ERROR__CURROW_input$T0AFBROWSER.FRAMEhttp://w.devenezia.com/papers/nesug-2006/Payments.htmlphhllllllllllHALFHALF 7 10 13 16 19 22`/init:`r@vdeclare List input = {};`]@vcall display`i@v( 'AFBROWSER.FRAME'`b@v, 'http://w.devenezia.com/papers/nesug-2006/Payments.html'`9@v, input`n@v);`s@v`w@vcall putlist (input,'',0);`[@vreturn;`p@vn ',  0#!#_SCLD1_LII P1RELEASEEXESIZEFLAGS- 6@ ( |( g +  P  ++?E@I@r@?@@P ! &* . 1 4 9;"(d$^) (d$(I%(&(&&(1&(<%(d$(IA%)PH)PO(d$)PV(]&)Pd(Xk''(.x#7(}(U$)P(2$)PV(&8(})P(X''(.)7('(U$)P(2$)PV(]&8(!(%*&&p%&*+/4588>AE$$"$$# %# %# %#%#$ #% % %$% #%  " #'##'($%$% )% ")'))%)  !""##$$%&()++pE_MSG__STATUS__ERROR__CURROW_input$T0$T1dsrclisti$T2AFBROWSER.FRAMECaptureUrlCapturedDataNTypeCNameValueUURLNOINITGETPOSTphhttttttttttHALFHALF 7 10 13 16 19 22`/init:`r@vdeclare List input = {};`]@vcall display`i@v( 'AFBROWSER.FRAME'`b@v, symget('CaptureUrl')`_@v, input`n@v);`s@v`w@vds = open (symget('CapturedData'), 'N');`M@vrc = newvar (ds, 'Type', 'C', 4);`T@vrc = newvar (ds, 'Name', 'C', 50);`S@vrc = newvar (ds, 'Value','C', 300);`R@vds = close (ds);`e@v`w@vds = open (symget('CapturedData'), 'U');`M@v`w@vcall PutVarC (ds,1,'URL');`[@vcall PutVarC (ds,2,'');`^@vcall PutVarC (ds,3,symget('CaptureUrl'));`L@vrc = append (ds,'NOINIT');`[@v`w@vcall PutVarC (ds,1,'GET');`[@vlist = GetNItemL (input,'GET',1,1,0);`P@vif list then`i@vdo i = 1 to listlen(list);`Y@vcall PutVarC (ds,2,NameItem(list,i));`L@vcall PutVarC (ds,3,GetItemC(list,i));`L@vrc = append (ds,'NOINIT');`W@vend;`o@v`w@vcall PutVarC (ds,1,'POST');`Z@vlist = GetNItemL (input,'POST',1,1,0);`O@vif list then`i@vdo i = 1 to listlen(list);`Y@vcall PutVarC (ds,2,NameItem(list,i));`L@vcall PutVarC (ds,3,GetItemC(list,i));`L@vrc = append (ds,'NOINIT');`W@vend;`o@v`w@vds = close(ds);`f@vreturn;`p@v`w@vrc=rc;`q@v m ',XLSRRARAc  F OExample of AfWebBrowser (externally developed adapter to Microsoft Web Browser)XLSRƨAƨA+2  F GETWEBINPUT.SCL cvLCCILLCLCLLIbYL C!L "PNONE#ND@$N?%NX@&N>@'I+(BC'L)PYes*PEdit+C3,P-PSYSFONTCH.I=/LCOBJECTSURL_ATTRS_cursorPositionNAME _CLASSNAME_LABEL_LEN__INSTANCE_ATTRIBUTES_textTYPESTATEbmGooglelabel toolTipTextbmSASBROWSERUSERATTRHSENTRYHOBJECT HOSTCLASSSERVICESVerb_EVENTS_E1 _HANDLERS_OnBeforeNavigate_INSTANCE_METHODS_*codeREADNONVISRESNAMEGATTR_BANNER_SROWSCOLNCOLNROWEXESIZE BACKCOLOR buildTime buildTimeModebackgroundColor errorMessage sizingUnits_APPL__EXTERNAL_CLASSES_UUUTEXTENTRY_C.AFCNTRLhttp://www.google.combmGooglePUSHBUTTON_C.AFCNTRLhttp://www.sas.comAFBROWSR.HSERVICEEmbedded&{8C7CB1E5-C048-4193-A0CC-7F9596247E10} PropertiesSASHELP.FSP.INSERT.SYSTEM*=OnBeforeNavigate:A9>OnBeforeNavigate=pU?ON@V@;;<@p BROWSER` c` ?p;;UAFCNTRLSYSFORE SYSSECB AFCNTRLSYSFORE SYSSECB AFCNTRLSYSFORE SYSSECB SYSTEMSYSFORE SYSSECB l ',  0#!#_SCLD1_LIIP1RELEASEEXESIZEFLAGS7-6@<xJ!  !n! NP?P ! $+ /4 7 < BH L^d(X"(X%(g&(g!&^&#+*7+. +$^5#+* +$^<#+*(=C&8+. ^N#+*7+. +$^S#+* +$^Z#+*(=a&8+.^k#l*ep"*3;DP #$ #$"$%$))$'$( "('$)$' $( %('$   !##$$$^_MSG__STATUS__ERROR__CURROW_Get_self_$T0Postrcnamevaluecount$T1iGETPOST_getPropertyGetCountGetNameGetValuePostCountPostNamePostValue_objectLabelhl||||||||||OBNHALFHALF 7 10 13 16 19 22`/OBN:`s@vpublic method;`i@v`w@v* _self_ is an OLE - Insert Object that contains an AfWebBrowser;`4@v*`t@v* presume _self_ already has two attached lists named GET and POST`3@v* for storing the inputs;`\@v`w@vGet= GetNitemL (_self_, 'GET',1,1,0);`L@vPost = GetNitemL (_self_, 'POST', 1,1,0);`L@v`w@vrc = clearlist (Get);``@vrc = clearlist (Post);`_@v`w@vdeclare char(200) name value ;`W@v`w@v_self_._getProperty('GetCount', count);`N@v`w@vdo i = 1 to count;`c@v_self_._getProperty('GetName',i-1, name);`H@v_self_._getProperty('GetValue', i-1, value);`G@vb`w@vrc = insertC (Get, value, -1, name);`O@vend;`q@v`w@v_self_._getProperty('PostCount', count);`M@v`w@vdo i = 1 to count;`c@v_self_._getProperty('PostName',i-1, name);`G@v_self_._getProperty('PostValue', i-1, value);`F@v`w@vrc = insertC (Post, value, -1, name);`N@vend;`q@v`w@v_self_._objectLabel();`_@vendmethod;`m@v c ',Att  032WIN OLE 9.01.01MJYwMgM8 "i' |HA$~0dnpϹ0 ࡱ> Root Entry|HA$~0=1@CONTROLSAVESTREAM$1TPF0 TAfWebBrowser AfWebBrowserLeft Top WidthHeight_Caption AfWebBrowserColor clBtnFace Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Height Font.NameTahoma Font.Style OldCreateOrderOnCreateActiveFormCreate OnDestroyActiveFormDestroy PixelsPerInch` TextHeight AFDD-E4F6B4000000}Quicken Class {C79C91A1-DB06-11D2-9E0C-00105A26F05D}ms All Competing 1U Systems... b ',Att  032WIN OLE 9.01.01MJYw#g#8 JU aV 4kO0d0 ࡱ> Root EntryaV 4kOKp>CONTENTSL)a'LWs5i+.bLF1d2-bbca-00c04f8ec294}Inxight Hyperbolic Tree Control {A871F91F-52FA-11D1-AFDD-E4F6B4000000}Quicken Class {C79C91A1-DB06-11D2-9E0C-00105A26F05D}9&%windir%\Advanced Sa  a ', 0##_SCLD1_LIIP1RELEASEEXESIZEFLAGS<6HALFHALF 7 10 13 16 19 22`//*`u@v7 * Sample frame demonstrating use of AfWebBrowser`F@v+ * to capture GET and POST parameters`R@v *`u@v * Richard A. DeVenezia``@v * June 3, 2006`h@v  */`t@v`w@v entry`r@vinUrl:input:char`e@v!outParameters:update:List;`[@v`w@v init:`r@vNdeclare Object oBrowser;* o prefix is a nod to MS naming conventions;`.@v0_frame_._getWidget ('Browser', oBrowser);`L@v`w@v,rc = setNitemL (oBrowser, {}, 'GET');`P@v-rc = setNitemL (oBrowser, {}, 'POST');`O@v`w@v+oBrowser._setProperty('URL', inURL);`Q@v return;`p@v`w@vBrowser:`o@vbrowserCount + 1;`d@v'if browserCount = 1 then return;`U@v`w@v/if listlen (outParameters) >= 0 then do;`M@v*get= getNitemL (oBrowser, 'GET');`P@v+post = getNitemL (oBrowser, 'POST');`O@v3rc = setNitemL (outParameters, get,'GET');`G@v4rc = setNitemL (outParameters, post, 'POST');`F@v end;`q@v`w@v0* after capturing the data, shut down the`L@v* browser frame;`e@vcall execcmd ('CANCEL');`]@v return;`p@v`w@v rc=rc;`q@v`w@v 0##_SCLD1_LIIP1RELEASEEXESIZEFLAGS<6HALFHALF 7 10 13 16 19 22`/ init:`r@vdeclare List input = {};`]@vcall display`i@v( 'AFBROWSER.FRAME'`b@v, symget('CaptureUrl')`_@v, input`n@v );`s@v`w@v/ds = open (symget('CapturedData'), 'N');`M@v(rc = newvar (ds, 'Type', 'C', 4);`T@v)rc = newvar (ds, 'Name', 'C', 50);`S@v*rc = newvar (ds, 'Value','C', 300);`R@vds = close (ds);`e@v`w@v/ds = open (symget('CapturedData'), 'U');`M@v`w@v!call PutVarC (ds,1,'GET');`[@v,list = GetNItemL (input,'GET',1,1,0);`P@vif list then`i@v!do i = 1 to listlen(list);`Y@v,call PutVarC (ds,2,NameItem(list,i));`L@v,call PutVarC (ds,3,GetItemC(list,i));`L@v!rc = append (ds,'NOINIT');`W@v end;`o@v`w@v"call PutVarC (ds,1,'POST');`Z@v-list = GetNItemL (input,'POST',1,1,0);`O@vif list then`i@v!do i = 1 to listlen(list);`Y@v,call PutVarC (ds,2,NameItem(list,i));`L@v,call PutVarC (ds,3,GetItemC(list,i));`L@v!rc = append (ds,'NOINIT');`W@v end;`o@v`w@vds = close(ds);`f@v return;`p@v`w@v rc=rc;`q@v` ',H 0#!#_SCLD1_LIIP1RELEASEEXESIZEFLAGS -6@ttPH P 5 XTP !  & * 0 @ I Q^:::::":':,:1p"&,  R 0eO).APPLlLLLN?PURLCPURLIL L PC PO LL PGoogleCC*C3C*IL L  PSASCHPbmSASC3PbmSASIL L PBROWSERpBROWSERL c[cmcvLPEditCILL fCCCCCC*C=CS Cv!C"C#C$C%C&C'C(C)C$*C9+CS,Ch-C|.C/C0C1C2C3C 4C&5CH6Ce7C8L9C:L;L<I=bY>L?C@L APNONEBND@CN?DNUR@ENB@FIGBCLHPYesIPEditJCKPLPSYSFONTCMI=NLCOBJECTSURL_ATTRS_cursorPositionNAME _CLASSNAME_LABEL_LEN__INSTANCE_ATTRIBUTES_textTYPESTATEbmGooglelabel toolTipTextbmSASBROWSERUSERATTRHSENTRYHOBJECT HOSTCLASSSERVICESVerb_EVENTS_E1E2E3E4E5E6E7E8E9E10E11E12E13E14E15E16E17E18E19E20E21E22E23E24E25E26E27E28E29E30E31E32 _HANDLERS_BeforeNavigate2_INSTANCE_METHODS_*codeREADNONVISRESNAMEGATTR_BANNER_SROWSCOLNCOLNROWEXESIZE BACKCOLOR buildTime buildTimeModebackgroundColor errorMessage sizingUnits_APPL__EXTERNAL_CLASSES_)))TEXTENTRY_C.AFCNTRLhttp://www.google.combmGooglePUSHBUTTON_C.AFCNTRLhttp://www.sas.comMSBROWSR.HSERVICEEmbedded&{8856F961-340A-11D0-A96B-00C04FD705A2}SASHELP.FSP.INSERT.SYSTEM*=StatusTextChange(C):A*=ProgressChange(N,N):A*=CommandStateChange(N,N):A*=DownloadBegin:A*=DownloadComplete:A*=TitleChange(C):A*=PropertyChange(C):A"*=BeforeNavigate2(C,N,N,N,N,N,N):A*=NewWindow2(N,N):A*=NavigateComplete2(C,N):A*=DocumentComplete(C,N):A *=OnQuit:A*=OnVisible(N):A*=OnToolBar(N):A*=OnMenuBar(N):A*=OnStatusBar(N):A*=OnFullScreen(N):A*=OnTheaterMode(N):A*=WindowSetResizable(N):A*=WindowSetLeft(N):A*=WindowSetTop(N):A*=WindowSetWidth(N):A*=WindowSetHeight(N):A*=WindowClosing(N,N):A*=ClientToHostWindow(N,N):A*=SetSecureLockIcon(N):A*=FileDownload(N):A*=NavigateError(C,N,N,N,N):A!*=PrintTemplateInstantiation(C):A*=PrintTemplateTeardown(C):A*=UpdatePageStatus(C,N,N):A!*=PrivacyImpactedStateChange(N):A8>BeforeNavigate2=pª؉؉ݿUAFCNTRLSYSFORE SYSSECB AFCNTRLSYSFORE SYSSECB SYSTEMSYSFORE SYSSECB AFCNTRLSYSFORE SYSSECB   e ',AttuWEBFORMFRAME SYSFORE SYSSECB YELLOW 0@*@ Pu0*?% DAPPLlLL LPBROWSERpBROWSERLccc L CB CM I L LCgL C|L L IbYL CL PNONEND@N?NX@N>@IB CLPYes PEdit!C"PSYSFONTC#I=$LCM???OBJECTSBROWSER_ATTRS_NAMELABELUSERATTRHSENTRYHOBJECT HOSTCLASSSERVICESVerb _CLASSNAME__LEN__EVENTS_E1 _HANDLERS_OnBeforeNavigate_INSTANCE_METHODS_*codeREADNONVISRESNAMEGATTR_BANNER_SROWSCOLNCOLNROWEXESIZE BACKCOLOR buildTime buildTimeModebackgroundColor sizingUnits_APPL__EXTERNAL_CLASSES_AFBROWSR.HSERVICEEmbedded&{8C7CB1E5-C048-4193-A0CC-7F9596247E10} PropertiesSASHELP.FSP.INSERT.SYSTEM*=OnBeforeNavigate:A9>OnBeforeNavigate=@IB CLPYes PEdit!C"PSYSFONTC#I=$LCM???OBJECTSBROWSER_ATTRS_NAMELABELUSERATTRHSENTRYHOBJECT HOSTCLASSSERVICESVerb _CLASSNAME__LEN__EVENTS_E1 _HANDLERS_OnBeforeNavigate_INSTANCE_METHODS_*codeREADNONVISRESNAMEGATTR_BANNER_SROWSCOLNCOLNROWEXESIZE BACKCOLOR buildTime buildTimeModebackgroundColor sizingUnits_APPL__EXTERNAL_CLASSES_AFBROWSR.HSERVICEEmbedded&{8C7CB1E5-C048-4193-A0CC-7F9596247E10} PropertiesSASHELP.FSP.INSERT.SYSTEM*=OnBeforeNavigate:A9>OnBeforeNavigate=