raym@hrshcx.UUCP (Ray Morin) (08/26/89)
Hello. I while back I posted a request for Reports to document SQL*FORMS applications.... I got many responses and also many request for forwarding of replies. So I have posted all responses to comp.sources.misc. the following have been posted... trigger.rpt form.rpt form23.rpt awksqlforms and can be found by searching for keywords ORACLE SQLFORMS DOCUMENT THANKS to everyone for responding and sorry so late at repling to all the request for forwarding but I've been very busy with a new baby and work so .... here it is. P.S. Sorry for typos on the heading of the postings to comp.sources,misc in a hurry ya know........
raym@hrshcx.UUCP (Ray Morin) (09/01/89)
Hello , Please excuse me for posting this to comp.databases but a previous attempt to post to comp.sources.misc was unsuccessful. I posted a notice of the posting to comp.sources.misc here so people are probably searching for it. The following is source for an RPT based trigger documentation reporting tool for ORACLE*sqlforms trigger.rpt This report tool only prints triggers. This is one of many responses to a call for help on the net for tools to document SQL*FORMS. Ray Morin (305)977-4453 P.S For all tools of this nature search for key words ORACLE, DOCUMENT, SQLFORMS ------------------- cut here cut here ------------------------------- .rem TRIGGER.RPT .rem by John F. Martin 9/21/87 #dt 1 3 83 . #t 1 #dt 2 3 0 . .declare appid 9999 .declare appname a30 .declare appname2 a30 .declare trigger_name a40 .declare trgblk a30 .declare trgfld a30 .declare trgtype a30 .declare trgseq 999 .declare trglabel a50 .declare trgsql 9999 .declare trgmsg a80 .declare sqttext a80 .declare today a30 .declare block a40 .declare field a40 .declare trgslab a50 .declare trgflab a50 .declare trginv a1 .declare trgroll a1 .declare trgmve a1 .declare comment a80 .define get_app select appid,to_char(sysdate,'DD-MON-YY HH24:MI'), upper(&appname) into appid,today,appname2 from iapapp where appname = upper(&appname) and appowner = user .. .define get_triggers select decode(trigblk,null,'Form Level','Block: '||trigblk), decode(trigfld,null,null,' / Field: '||trigfld), nvl(trigblk,'-none-'),nvl(trigfld,'-none-'),trigtype, trigtype||': \ \ ',0 into block,field,trgblk,trgfld,trgtype,trigger_name,trgseq from iaptrigger where trigappid = &appid order by trigblk,trigfld,upper(trigtype) .. .define get_steps select decode(trglabel,null,null,'LABEL: '||trglabel), trgsql,trgmsg,trgseq, decode(trgslab,null,null,' / Success: '||trgslab), decode(trgflab,null,null,' / Failure: '||trgflab), trgmve,decode(trgroll,'Y','N','N','Y','*Error*'),trginv into trglabel,trgsql,trgmsg,trgseq,trgslab,trgflab, trgmve,trgroll,trginv from iaptrg where trgappid = &appid and nvl(trgblk,'-none-') = &trgblk and nvl(trgfld,'-none-') = &trgfld and trgtype = &trgtype order by trgseq .. .define get_sql select sqttext into sqttext from iapsqltxt where sqtappid = &appid and sqtno = &trgsql order by sqtline .. .define get_comment select cmttext into comment from iapcomment where cmtappid = &appid and nvl(cmtblk,'-none-') = &trgblk and nvl(cmtfld,'-none-') = &trgfld and cmttrgtyp = &trgtype and cmttrgseq = &trgseq order by cmtline .. .define go #b .print trigger_name \ .print block .print field #nc .execute get_comment .ifnull comment label5 #nc Comments: #t 2 #cl .report get_comment print_comment # #te .&label5 .report get_steps print_steps .. .define print_steps \ Step: .print trgseq \ \ \ Abort? .print trgmve / Reverse? .print trginv / Return Success? .print trgroll #t 2 #rr .print trglabel .print trgslab .print trgflab .ifnull trgmsg label2 #nc Message: \ .print trgmsg .&label2 .execute get_comment .ifnull comment label3 #nc Comments: #t 2 #cl .report get_comment print_comment # #te Trigger Step: #nc .&label3 #t 2 #rr #cl .report get_sql print_sql # #te #te .. .define print_sql .print sqttext .. .define print_comment .print comment .. .REM Beginning of program. .&ask_app .ask "Enter the Form Name: " appname .execute get_app .ifnull appid no_app .tell "Getting triggers..." #s 3 #cen Triggers for .print appname2 Form # #b #cen .print today # #b .report get_triggers go #s 2 *** End of Triggers *** #te .&end .stop .&no_app .ifnull appname end .tell " Could not find this SQL*Form. Please try again." .goto ask_app