HDR*PowerBuilder0500o=FRE*?NOD*n ^8ENT*0500$lBorca_test.aplENT*0500b azAorca_test.sraENT*0500Qo=orca_test.praDAT*forward global transaction sqlca global dynamicdescriptionarea sqlda global dynamicstagingarea sqlsa global error error global message message end forward global type orca_test from application end type global orca_test orca_test on orca_test.create appname = "orca_test" message = create message sqlca = create transaction sqlda = create dynamicdescriptionarea sqlsa = create dynamicstagingarea error = create error end on on orca_test.destroy destroy( sqlca ) destroy( sqldDAT*a ) destroy( sqlsa ) destroy( error ) destroy( message ) end on on open;/******************************************************* * Application Open Script * Selects start-up file according to Operating System * Populates sqlca from start-up file * Connects to DB (if uncommented) * Opens frame */ environment env // holds environment information string startupfile // holds name of start-up file /* Get the environment information */ IF ( GetEnvironment(env) <> 1 ) THDAT*EN MessageBox( "Application: Open", "Unable to get environment information.~nHalting ..." ) HALT END IF /* Select start-up file by operating system */ CHOOSE CASE env.OSType CASE Windows!, WindowsNT! startupfile = "pb.ini" CASE Sol2!, AIX!, OSF1!, HPUX! startupfile = ".pb.ini" CASE Macintosh! startupfile = "PowerBuilder Preferences" CASE ELSE MessageBox( "Application: Open", "Unrecognized operating system.~nHalting ..." ) HALT END CHOOSE /* Populate sqlca from current PBDAT*.INI settings */ sqlca.DBMS = ProfileString (startupfile, "database", "dbms", "") sqlca.database = ProfileString (startupfile, "database", "database", "") sqlca.userid = ProfileString (startupfile, "database", "userid", "") sqlca.dbpass = ProfileString (startupfile, "database", "dbpass", "") sqlca.logid = ProfileString (startupfile, "database", "logid", "") sqlca.logpass = ProfileString (startupfile, "database", "LogPassWord", "") sqlca.servernamDAT*e = ProfileString (startupfile, "database", "servername", "") sqlca.dbparm = ProfileString (startupfile, "database", "dbparm", "") /* Uncomment the following for actual DB connection */ //connect; // //if sqlca.sqlcode <> 0 then // MessageBox ("Cannot Connect to Database", sqlca.sqlerrtext) // return //end if /* Open MDI frame window */ Open (w_genapp_frame) end on DAT*Q@DwXwO4DB 8d<@|$%.$%> .X"Arial"Arial"Arial"ArialDAT*l@`zAkBu@u@aw$v@v@a;escAw@w@aTwiyZx@x@aZinj`z@z@a`mehl@l@dl@tb@b@a~d@d@qe@e@qn@n@ao@o@p@p@aq@q@@@@@q@@q@@a`@`@ orca_testtransactionsqlcadynamicdescriptionareasqldadynamicstagingareasqlsaerrormessageapplicationstructureaccessiblestateaccessibilitymailrecipienDAT* tenvironmentmailfiledescriptionmailmessagedatawindowchildlistviewitemtreeviewitemconnectioninfopowerobject22 sqlcasqldasqlsaerrormessageorca_testx     (   x _initsrctransactiondynamicdescriptionareadynamicstagingareaerrormessageapplicationorca_teststructureaccessiblestateaccessibilitymailDAT*"recipientenvironmentmailfiledescriptionmailmessagedatawindowchildlistviewitemtreeviewitemconnectioninfopowerobject@@4@G@M@@U @ ak @ u @datld@tvievi@emcnf@weroic@st_se@ntpimi@lignat@borom@butt @DAT*  @  2  2        DAT*&l@`zAlBu@u@aw$v@v@a;escAw@w@aTwiyZx@x@aZinj`z@z@a`mehl@l@dl@tb@b@a~d@d@qe@e@qn@n@ao@o@p@p@aq@q@@@@@q@@q@@a`@`@C@C@#t@ #2 orca_testtransactionsqlcadynamicdescriptionareasqldadynamicstagingareasqlsaerrormessageapplicationstructureaccessDAT*(iblestateaccessibilitymailrecipientenvironmentmailfiledescriptionmailmessagedatawindowchildlistviewitemtreeviewitemconnectioninfopowerobjectostypesw_genapp_frame22 sqlcasqldasqlsaerrormessageorca_testx  w t2 u ta ol( , +create+destroy+commandline+open Qp_QS  x) _initsrctransactionDAT**dynamicdescriptionareadynamicstagingareaerrormessageapplicationorca_teststructureaccessiblestateaccessibilitymailrecipientenvironmentmailfiledescriptionmailmessagedatawindowchildlistviewitemtreeviewitemconnectioninfopowerobjectostypesw_genapp_frame@@4@G@M@@U @ ak @ u @datld@tvieDAT*,vi@emcnf@weroic@st_se@ntpimi@lignat@borom@butt @ @@@@@  f80j,j@j`j|j(6DRd 0 appnameorcaDAT*._testmessageau"transaction4dynamicdescriptionareaHdynamicstagingarearherrorat ,@`|$ d  L@L81<V8080@8P$:C@:C@"8X0B:C@:C@":C@":C@"8_DAT*00B:C@8g0B8080@86808080@86808080@86808080@86808080@86808080@86808DAT*2080@86808080@8$6808,080@8@8 *RVl>B !" #j$%&H1d< +commandlineenvstartupfilecase18w_genapp_framed   %-@3H ApDAT*4plication: OpenUnable to get environment information. Halting ...C@pb.ini.pb.iniPowerBuilder PreferencesUnrecognized operating system. Halting ...rdatabasedbms useriddbpasslogidLogPassWordservernamedbparmP        $ 2  +create+destroy+open<2 DAT*       &