זה ה DUMP של מסמך ה HTML
<p dir="ltr">Procedure OREL_JOBNEXT:</p>
<p dir="ltr"></p>
<p dir="ltr">/*</p>
<p dir="ltr"> *</p>
<p dir="ltr"> * Procedure OREL_JOBNEXT : מתוכננת אחזקה</p>
<p dir="ltr"> *</p>
<p dir="ltr"> */</p>
<p dir="ltr"></p>
<p dir="ltr">POS ENAME TY TITLE</p>
<p dir="ltr">— —————- – ——————————–</p>
<p dir="ltr"> 10 INPUT B פרמטרים קליטת</p>
<p dir="ltr"> Parameters</p>
<p dir="ltr"> ———-</p>
<p dir="ltr"> PAR: FILE,OREL_EXEC.OE_EXENAME,Input</p>
<p dir="ltr"> 20 HTMLCURSOR B HTML מסמך הפקת</p>
<p dir="ltr"> Query</p>
<p dir="ltr"> —–</p>
<p dir="ltr"> #line 1 OREL_JOBNEXT/20—<HTMLCURSOR></p>
<p dir="ltr"> SELECT OE_EXEC</p>
<p dir="ltr"> FROM OREL_EXEC</p>
<p dir="ltr"> WHERE OE_EXEC > 0;</p>
<p dir="ltr"></p>
<p dir="ltr"> 30 SQLI C הנתונים למסד גישה</p>
<p dir="ltr"> Parameters</p>
<p dir="ltr"> ———-</p>
<p dir="ltr"> EXE: INT</p>
<p dir="ltr"> Query</p>
<p dir="ltr"> —–</p>
<p dir="ltr"> #line 1 OREL_JOBNEXT/30—<SQLI></p>
<p dir="ltr"> /*****GET OE_JOBS FROM HTMLVALUE*****/</p>
<p dir="ltr"> SELECT OE_EXEC, OE_EXENAME , OE_EXEDES</p>
<p dir="ltr"> INTO :OREL_JOBNEXT.EXE , :PAR1 , :PAR2</p>
<p dir="ltr"> FROM OREL_EXEC</p>
<p dir="ltr"> WHERE OE_EXEC = ATOI(:HTMLVALUE);</p>
<p dir="ltr"> /*********************************/</p>
<p dir="ltr"> /*****GET DOC TITLE*****/</p>
<p dir="ltr"> :NUM = 'AAA';</p>
<p dir="ltr"> SELECT ENTMESSAGE ('OREL_JOBNEXT','P',10) INTO :NUM FROM DUMMY;</p>
<p dir="ltr"> :OREL_JOBNEXT.NUM = :NUM;</p>
<p dir="ltr"></p>
<p dir="ltr"> 40 WWWLOGO R לוגו</p>
<p dir="ltr"> 50 WWWDOCNUM R מספר – תעודה</p>
<p dir="ltr"> Parameters</p>
<p dir="ltr"> ———-</p>
<p dir="ltr"> NUM: CHAR</p>
<p dir="ltr"> 60 OREL_JOBNEXT1 R הקרוב לשבוע מתוכננת אחזקה</p>
<p dir="ltr"> Parameters</p>
<p dir="ltr"> ———-</p>
<p dir="ltr"> EXE: INT</p>
<p dir="ltr"> 70 INPUT B פרמטרים קליטת</p>
זה ה DUMP של פירוט הנתונים (שלב 60)
<p dir="ltr">/*</p>
<p dir="ltr"> *</p>
<p dir="ltr"> * Report OREL_JOBNEXT1 : הקרוב לשבוע מתוכננת אחזקה</p>
<p dir="ltr"> *</p>
<p dir="ltr"> */</p>
<p dir="ltr"></p>
<p dir="ltr">/* אחזקה מתוכננת לשבוע הקרוב */</p>
<p dir="ltr"> SELECT OREL_EXEC.OE_EXENAME AS 'מבצע קוד',</p>
<p dir="ltr"> OREL_EXEC.OE_EXEDES AS 'מבצע תאור',</p>
<p dir="ltr"> OREL_JOBS.OE_JOB_NEXT_DATE AS 'טיפול תאריך',</p>
<p dir="ltr"> OREL_ITEMS.OE_ITEMNAME AS 'ציוד קוד',</p>
<p dir="ltr"> OREL_ITEMS.OE_ITEMDES AS 'ציוד תאור',</p>
<p dir="ltr"> OREL_JOBS.OE_JOBNAME AS 'עבודה קוד',</p>
<p dir="ltr"> OREL_JOBS.OE_CONTENT AS 'תקלה / העבודה מהות',</p>
<p dir="ltr"> OREL_JOBS.OE_REMARK AS 'הערות'</p>
<p dir="ltr">FROM OREL_JOBTYPE , OREL_ITEMS , OREL_JOBS , OREL_EXEC</p>
<p dir="ltr">WHERE (OREL_JOBS.OE_EXEC = :EXE)</p>
<p dir="ltr">AND (OREL_JOBS.OE_EXEC = OREL_EXEC.OE_EXEC)</p>
<p dir="ltr">AND (OREL_JOBTYPE.OE_JOBTYPENAME = '001')</p>
<p dir="ltr">AND (OREL_JOBTYPE.OE_JOBTYPE = OREL_JOBS.OE_JOBTYPE)</p>
<p dir="ltr">AND (OREL_JOBS.OE_ITEM = OREL_ITEMS.OE_ITEM)</p>
<p dir="ltr">AND (OREL_JOBS.OE_JOB_NEXT_DATE BETWEEN SQL.DATE8</p>
<p dir="ltr">AND SQL.DATE8 + (7*24:00))</p>
<p dir="ltr">AND (OREL_EXEC.OE_EXEDES = :PAR2)</p>
<p dir="ltr">AND (OREL_EXEC.OE_EXENAME = :PAR1)</p>
.
