orit11elad

זה ה 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>