Limbaj de scripting

Limbajul de scripting hMET2

Limbajul de scripting hMET2 se foloseşte împreuna cu sistemul hMET în următoarele cazuri:

- Implementare de comenzi complexe în aplicaţii
Majoritatea aplicaţiile HAMOR Soft suportă rularea unor comenzi complexe şi generice definite la nivelul bazelor de date. Comenzile sunt menite să execute acţiuni complexe, compuse din mai multe operaţii şi prezintă avantajul că pot fi definite la nivelul bazei de date. Comenzile generice asigură flexibilitatea aplicaţiilor, permiţând rezolvarea unor situaţii diverse, complexe şi a cerinţelor specifice la nivelul clienţilor, fără modificarea executabilului.

- Operaţii de întreţinere a bazelor de date:
-modificare de structuri în baza de date,
-recalcul valori,
-prelucrarea mai multor baze de date,

Limbajul de scriping hMET2 are acces la resursele din biblioteca hLIB, recunoaşte mediul hMET în care se rulează aplicaţia, astfel se pretează foarte bine la extinderea aplicaţiilor sau la prelucrări de întreţinere pentru bazele de date hMET. Cu toate aceste nu este un limbaj de programare, a fost proiectat pentru cazurile sus menţionate, poate fi rulat în mediul hMET şi nu se pretează pentru dezvoltarea unor aplicaţii sinestătătoare.

Rularea scripturilor hMET2 poate să se realizeze în mai multe feluri, în funcţie de situaţia concretă.

Un exemplu simplu: programul Hello World

Instrucţiunile limbajului de scripting

Instrucţiunea #IF
Sintaxa:

#IF <Conditie>
        ...
        <Instructiuni>
        ...
[#ELSEIF] <Conditie>
        ...
        <Instructiuni>
        ...
[#ELSE]
        ...
        <Instructiuni>
        ...
[#ENDIF]

Pot exista un număr oarecare de clauze #ELSEIF.
Instrucţiunile pot fi imbricate. Nivelul de adâncime al imbricărilor nu este limitat.
Cuvintele cheie #IF, #ELSE, #ELSEIF, #ENDIF intotdeauna trebuie să fie scrise cu majuscule !

Instrucţiunea #WHILE
Sintaxa:

#WHILE <Conditie>
        ...
        <Instructiuni>
        ...
        [#LOOP]
        ...
        <Instructiuni>
        ...
        [#EXIT]
        ...
        <Instructiuni>
        ...
#ENDDO

Execută comenzile din ciclu până când <Conditie> returnează true.

#LOOP - întrerupe necondiţionat executarea ciclului şi face saltul la început, evaluează <Conditie> şi dacă acesta returnează true, reia executarea ciclului, altfel continuă cu instrucţiunea imediat următoare ciclului.

#EXIT - întrerupe necondiţionat executarea ciclului şi face saltul la comanda imediat următoare ciclului.
Cuvintele cheie #WHILE, #LOOP, #EXIT, #ENDDO intotdeauna trebuie să fie scrise cu majuscule !

#DO <Fisier_program_sursa>
Valabil numai în scripturile scrise pentru utilitarul hMET2UP.
Întrerupe executarea programului şi continuă cu instrucţiunile din fişierul <Fisier_program_sursa>.
La întâlnirea comenzii #RETURN sau a sfârşitului fisierului, revine în programul apelant şi continuă executarea programului cu instrucţiunea imediat următoare de după #DO.

În cadrul unui subprogram apelat prin instructiunea #DO în continuare pot fi apelate si alte subprograme prin #DO.
Nu există limitări privind adâncimea apelurilor.

Variabilele folosite în programul principal rămân vizibile şi în programele apelate prin #DO.
Având în vedere că nu există un mecanism special privind transmiterea parametrilor de la programul principal la programul apelat, transmiterea datelor se realizează prin variabile.
Important: Variabilele declarate în cadrul subprogramului nu se distrug la revenire ! Rămân vizibile în continuare.

<Fisier_program_sursa> este un fişier text obişnuit.
Trebuie sa conţină instrucţiuni HMET2UP, nu există nici o altă convenţie privind structura fişierului.
Nu există nici o regulă în ceea ce priveşte numele fisierului.
În mod implicit extensia fişierului este "TXT", dar poate avea orice altă extensie.
În cadrul instrucţiunii #DO extensia fişierului nu trebuie specificată doar dacă este diferită de valoarea implicită "TXT".

Alte instrucţiuni utilizabile
Executarea instrucţiunilor din scripturile comenzilor generale se realizează în mod interpretativ. Instrucţiunile recunoscute sunt instrucţiuni CLIPPER V5, dar sintaxa acestora nu este cea cunoscută din acest limbaj.
În CLIPPER comenzile din fişierele sursă sunt preprocesate şi traduse în apeluri de funcţii. Aceste apeluri de funcţii pot fi executate direct de limbajul de scripting.

De exemplu am dori să executăm comanda:
REPLACE FOR nomm->GRUPA="AMB" nomm->PVIN WITH 0

Comanda nu va fi "înţeleasă" în această formă.
Pentru ca această comandă să poată fi rulată, în locul instrucţiunii de mai sus se va trece:
DBEval( {|| nomm->PVIN := 0}, {|| nomm->GRUPA="AMB"},,,, .F. )

Aceste apeluri de funcţii pot fi generate prin limbajul CLIPPER.
În acest scop se creează un fişier program CLIPPER (de exemplu TEST.PRG), în care se trece instrucţiunea dorită cu sintaxa folosită în CLIPPER. Se lansează compilatorul CLIPPER cu opţiunile P şi S:

CLIPPER TEST.PRG /P /S

Va rezulta un fişier cu extensia "PPO" (TEST.PPO în cazul nostru), care va conţine instrucţiunea din TEST.PRG în forma preprocesată.

Limbajul de scripting suportă blocurile de cod cunoscute din limbajul CLIPPER.

O instrucţiune poate să se continue în linia urmatoare dacă se introduce ; în ultima poziţie din linie.

În cadrul programelor liniile care încep cu caracterele // sunt considerate linii de comentarii.

Din programul scripting sunt accesibile fişierele din baza de date pentru care a fost lansat programul, direct prin funcţiile hLIB.

Astfel, de exemplu dacă se execută script-ul pentru o baza de date HSALAR, vom putea apela direct:
h_UseAlias("P_",x_open).

Variabile sistem
Scripturile hMET întodeauna sunt rulate în contextul hMET.
Acest lucru înseamnă că în momentul rulării sunt accesibile variabilele sistem existente în mediul HAMOR şi cele specifice ale aplicaţiei care rulează scriptul.

Pentru studierea variabilelor sistem existente in aplicaţiile scrise în hMET, consultaţi documentaţia hLIB.
Variabilele accesibile în momentul rulării scripturilor pot fi specifice şi aplicaţiilor care rulează scriptul:

- aplicaţiile scrise în hMET2 sunt caracterizate de un set suplimentar de variabile sistem,

- aplicaţia hMARFA nefiind un program scris în hMET2, este caracterizată de un set proprii de variabile sistem, inaccesibile din aplicaţii hMET2.

Variabile sistem:

h_ApplCode	codul aplicaţiei pentru care a fost lansat scriptul,	hMET
Perioada	perioada curentă	hMET2
NumePerioada	numele perioadei curente	hMET2
fil_xxx	indicele fişierului. Ex. fil_p_; fil_s_; Corespunde cu numărul zonei de lucru în care va fi deschisă.	hMET
h_FilePath[]	vector sistem. Conţine calea de acces către fişiere. Ex.Calea de acces către fişierul p_: h_FilePathes[fil_p_]	hMET
X_1,...,X_2	Variabile predefinite cu caracter general. Pot primi orice valoare. Sunt variabile globale, astfel valorile atribuite vor exista pe durata unei sesiuni de lucru, pot transmite date de la o operaţie la alta, dar atenţie valoarea unei astfel de variabile poate fi modificată între timp de o instrucţiune sau de un script !	hMET2

Funcţii utile

Limbajul scripting hMET2UP acceptă apelarea funcţiilor definite în limbajul CLIPPER precum şi a funcţiilor cele definite în mediul HAMOR. În acest sens parcurgeţi documentaţiile Clipper, bibliotec hLIB precum şi funcţiile specifice ale aplicaţiilor care rulează scripturile.

Funcţii speciale

Sunt funcţii special dezvoltate pentru scriptul hMET2UP.

NewMsg()
Creează o fereastră de monitorizare.
În continuare pe parcursul executării programului se pot afişa mesaje, care de obicei reprezintă etapele parcurse de program.

PutMsg(smsg)
Afişează mesajul smsg în fereastra de monitorizare.
Fereastra de mesaje trebuie să fie deja creată.

EndMsg()
Distruge fereastra de monitorizare creată.

De exemplu considerăm următorul script:

  NewMsg()
  PutMsg("Faza 1")
  h_Inkey(0)
  PutMsg("Faza 2")
  h_Inkey(0)
  PutMsg("Faza 3")
  h_Inkey(0)
  EndMsg()

După afişarea mesajului "Faza 3" vom avea următoarea fereastră:

h_GetParam(xParam,[sTitle],[sPrompt],[eHlp],[eVal],[sPict])
Afişează o fereastră de editare şi aşteaptă completarea unui câmp de către utilizator.
xParam - parametru de intrare/ieşire. La intrare: conţinutul cîmpului ce urmează să fie completat de utilizator. La ieşire: valoarea introdusă de utilizator.
Parametrul xParam poate fi un şir de caractere, o dată calandaristică, sau o valoare logică
Înainte de apel parametrul poate fi iniţializat. Dacă nu este iniţializat, adică este fără valoare (NIL), primeşte valoarea implicită de SPACE(20).
Pentru ca valoarea introdusă de utilizator să fie returnată de funcţie, parametrul se transmite cu operatorul @ în faţă.
sTitle - titlul ferestrei de editare ce se afişează.
sPrompt - şir de caractere ce se afişează înainte de câmpul de editare ce urmează să fie completat de utilizator.
eHlp - expresie de ajutor. Se execută când utilizatorul tastează F1.
Trebuie transmis sub formă de şir de caractere (încadrat între " sau ') !
eVal - formula de validare. Se execută automat la părăsirea câmpului. Dacă returnează true, câmpul este acceptat; dacă returnează false, câmpul nu este acceptat.
În cadrul expresiei de validare prin variabila sistem xParam avem acces la conţinutul câmpului conpletat de utilizator.
Parametrul eVal trebuie transmis sub formă de şir de caractere (încadrat între " sau ') !
Exemplu:

    dData := DATE()
    #IF ! h_GetParam(@dData,;
            "Data de referinta",;
            "Data [zz/ll/aa]",;
            "h_Calendar()",;
            "h_ValDate(xParam)",;
            "99/99/99")
        Abandon("C")
    #ENDIF

Abandon([smode],[sretcode],[lEndMsg])
Termină necondiţionat rularea programului şi revine în meniul principal din HMET2UP.
Termină cu EndMsg() fereastra de mesaje deschisă cu NewMsg(), dacă lEndMsg nu este .F.

Dacă se transmite parametrul smode="C", închide toate fişierele de date deschise.

Al doila parametru sretcod, reprezintă codul de revenire din script. Există următoarele coduri:

-R - terminarea normală a scriptului şi este valoarea implicită a parametrului.
Se consideră, că procedura implementată de script s-a terminat cu succes.

-A - abandonarea scriptului.
Procedura nu s-a putut executa corect.
De exemplu nu s-a reuşit deschiderea unei fişier şi nu se poate continua algoritmul.

-C - abandonat prin Cancel (intrerupt de utilizator).
Se afişează automat un mesajul: "Executie intrerupta"

Codul de revenire, are importanţă la scripturile hMARFI.
În funcţie de codul returnat de script, se reface automat jurnalul început.
Refacera jurnalului are loc pentru codurile "A" şi "C".

lEndMsg- Abandon fara acest parametru pus pe .F. face EndMsg
                      NIL - executa EndMsg, inchide fereastra doar daca exista          
                      .T. - executa EndMsg, inchide fereastra doar daca exista          
                      .F. - nu executa EndMsg
         Exemplu: Aceasta este un apel tipic
         NewMsg()
         #IF h_FileEx
             Abandon()  - executa si EndMsg
         #ENDIF       
         In cazul Q_ANAF si Q_ANAFC, se executa Abandon, dar nu trebuie inchisa fereastar Msg
         se va apela in acestea Abandon(,,.F.)
         Functional de la hMARFA V8.E0.4, hMARFT V4.E0.4

Secvenţe de program utile

Prezentăm câteva secvenţe de program utile, frecvent utilizate în scripturile din comenzile generale.

Deschiderea fişierelor de date din aplicaţie
Pentru deschiderea a două fişiere de date din aplicaţie (ex. fişierele "p_" şi "s_") se va folosi următoarea secvenţă:

x_open := {}
...
#IF ! h_UseAlias({"p_","s_"},x_open)
    // daca deschiderea fisierului "s_" esueaza, atunci inchide "p_"
    h_CloseAlias(,x_open) 
    // alte operatii necesare pt. terminarea scriptului
    ...
    Abandon("C") 
#ENDIF
// operatii de prelucrare
...
// inchide ambele fisiere deschise
h_CloseAlias(,x_open)

Pentru deschiderea fişierelor numai în regim de scriere, se va folosi h_UseAlias({"p_","s_"},x_open,"R")

Deschiderea unui fişier de date extern (nedefinit în baza de date a aplicaţiei)
Fişierele din bazele de date de tip HAMOR sunt descrise în catalogul fişierelor (FILES.DBF).
Fişierele de date nedescrise în catalogul fişierelor sunt considerate externe. În unele cazuri este necesar accesul la un asemenea fişier extern. Pentru deschiderea fişierelor externe se foloseşte funcţia:

h_NetUse(sFile,sUse,NIL,sName,sAlias)

- sFile - numele fişierului extern
-

sUse - dacă este necompletat, fişierul este deschis în regim de consultare în mod partajat,
- E - fişier deschis exclusiv,
- R - fişier deschis numai în regim de consultare

- NIL - nu se completează - se va utiliza valoarea prestabilită
- sName - numele utilizator al fişierului extern
- sAlias - aliasul fişierului

h_NewSelect() // selecteaza o zona de lucru libera. fil_man := SELECT() // nr.zona de lucru nou selectat memorat in fil_man #IF ! h_NetUse (FDName,,,"Fisier extern", "man") // eroare deschidere fisier extern // ... operatii necesare pentru inchidere, revenire Abandon("C") #ENDIF ... prelucrari // inchidere fişier extern DBSELECTAREA(fil_man) #IF USED() DBCLOSEAREA() #ENDIF

Alias şi zone de lucru
Fiecare fişier de date deschis ocupă o zonă de lucru. Zonele de lucru sunt numerotate în ordine: 1, 2, 3, ... etc.
Funcţia SELECT() - returnează numărul de ordine a zonei de lucru curente. Fişierul şi zona de lucru poate fi adresată prin "alias" ce se transmite la deschiderea fişierului.
În scripturi în mod obligatoriu se foloseşte un alias la deschiderea fişierelor.
ALIAS() - returnează alias-ul pentru zona de lucru curentă.
Zonele de lucru pentru fişierele de date din aplicaţie se alocă la lansarea programului.
Pentru fişierele din aplicaţie la lansarea programului se încarcă şi un pointer. Pointerul conţine numărul de ordine al zonei de lucru.
Pointerul fişierului de date are sintaxa fil_alias.
Adică cuvântul cheie fil_ urmat de aliasul fişierului. Exemplu fil_nomm.

Selectarea unei zone de lucru:
-DBSELECTAREA(alias) - zonă de lucru referit prin alias,
-DBSELECTAREA(nalias) - zonă de lucru referit prin număr de ordine,
Exemple: DBSELECTAREA("nomm")
         DBSELECTAREA(fil_nomm)

Pentru fişierele externe programatorul va trebui să rezerve zone de lucru libere.
Funcţia h_NewSelect() selectează o zonă de lucru neocupată şi nerezervată pentru un alt fişier de date.
Deci înainte de deschiderea unui fişier extern, se selectează o zonă de lucru liberă prin h_NewSelect()

Adresarea unui câmp dintr-un fişier de date
Pentru adresarea unui câmp din fişierul de date există două modalităţi:

1.direct: alias->Nume_camp
          field->Nume_camp

Permite citirea valorii unui câmp şi atribuirea unei valori noi la câmp.
Accesul direct permite citirea-scrierea câmpului chiar dacă în zona de lucru curentă este deschis un alt fişier.
2.prin funcţii
-pentru citirea valorii: FIELDGET(FIELDPOS(NumeCâmp))
-pentru atribuirea unei valori noi: FIELDPUT(FIELDPOS(NumeCâmp),Valoare)
În zona de lucru curentă trebuie să fie deschis fişierul care se prelucrează. Pentru selectarea şi revenirea la zona de lucru iniţială se foloseşte adresarea on-line:

   alias->(FIELDGET(FIELDPOS(NumeCâmp)))
   alias->(FIELDPUT(FIELDPOS(NumeCâmp),Valoare))

Ordinea de parcurgere a fişierului de date
Este determinată de fişierul index primar. Pentu fişierele de date din aplicaţie, prin h_UseAlias() automat se deschid şi fişierele index asociate. Primul index devine automat indexul primar astfel ordinea de parcurgere este determinată de acesta. Fişierele index secundare nu determină ordinea de afişare, dar sunt actualizate dacă se modifică câmpurile fişierului de date.
Alegerea unui alt fişier index primar se face prin DBSETORDER(n) unde "n" este numărul fişierului index, care urmează să devină primar.

Salt la începutul fişierului
DBGOTOP() - face saltul la primul articol conform indexului primar din fişierul de date.
Indicatorul BOF() devine .T.

Salt la sfârşitul fişierului
DBGOBOTTOM() - face saltul la ultimul articol conform indexului primar din fişierul de date.

Selectarea articolului următor
DBSKIP() - selectează articolul următor conform indexului primar din fişierul de date.
Dacă articolul curent este ultimul din fişier, prin DBSKIP() se depăşeşte şi acesta, iar indicatorul EOF() devine .T.

Numărul articolului curent
Numărul articolului curent este returnat de RECNO()

Adăugarea unui articol nou
DBAPPEND() - adaugă un articol nou la fişierul curent.
În reţea articolul nou adăugat rămâne blocat. Va trebui eliberat cu DBUNLOCK()
În mediile HAMOR este accesibilă şi h_AddRec() cu funcţii similare. Descrierea completa pentru h_AddRec() se regăseşte în biblioteca hLIB.

Percurgerea unui fişier de date
1.Algoritmul implementat prin instrucţiuni:

   DBGOTOP()
   #WHILE ! EOF()
   //    ... operatii de prelucrare
       DBSKIP()
   #ENDDO

2.Rapid prin DBEVAL(): DBEVAL(bBlock, bForCondition, bWileCondition)

Parcurge un fişier de date şi execută acţiunea bBlock pentru fiecare articol care satisface condiţia bForCondition şi până când condiţia bWhileCondition este îndeplinită.

Exemplu: Numărarea articolelor din grupa "MR". Presupunem că fişierul conţine un câmp GR de tip caracter cu lungimea de 5 caractere, în care au fost înscrise grupele pentru articole. Aliasul pentru fişier este lotm.

   ii := 1
   DBEVAL({|| ii:=ii+1}, {|| lotm->GR = "MR    "})

DBEVAL() este mult mai eficient în cea ce priveşte timpul de răspuns. Acest lucru se explică prin faptul că interpretarea se face doar o dată la început, faţă de algoritmul implementat prin instrucţiuni, unde înainte de executarea fiecărei instrucţii este necesară interpretarea acestuie.
Chiar şi instrucţiunile Clipper de prelucrarea fişierelor sunt implementate prin DBEVAL().
DBEVAL() permite prelucrarea globală a fişierelor: actualizarea globală şi condiţionată ale câmpurilor, ştergerea din articolele fişierelor.

Regăsirea unui articol din fişier
Căutare secvenţială
__dbLocate( bCond,bWhile,,, .F. )

Unde: bCond - condiţia,
      bWhile - condiţia WHILE

Exemplu:
__dbLocate( {|| nomm->GR = "MR "},,,, .F. )
Caută primul articol în care câmpul nomm->GR este "MR ".

După o căutare cu succes indicatorul FOUND() returnează .T. şi pointerul se poziţionează pe articolul găsit
După o căutare nereuşită indicatorul FOUND() returnează .F. şi pointerul se poziţionează la sfârşit
__DBCONTINUE() - caută articolul următor care satisface condiţia din ultimul apel la __DBLOCATE().

Exemplu:
   __dbLocate( {|| nomm->GR = "MR    "},,,, .F. )
   #WHILE FOUND()
   //    ... operatii de prelucrare
       __DBCONTINUE()
   #ENDDO

Căutare după index DBSEEK(sValoare,lSoftSeek) - salt la primul articol conform primului index.
Prin DBSEEK() se încearcă regăsirea primului articol care pentru cheia index generează valoarea transmisă prin sVal.
În mod normal, dacă cheia nu este regăsită, articolul curent se poziţionează pe ultimul articol şi indicatorul FOUND() returnează .F.
Dacă lSoftSeek a fost transmis, în situaţia în care cheia căutată nu este regăsită, articolul curent se poziţionează la prima cheie care este mai mare de cea căutată.

Funcţia h_vfcode(sKey,bVerif,nindex)
Implementează ambele moduri de căutare: căutarea secvenţială şi căutarea după index.
Parametrii:

-sKey -	cheia căutată - se transmite doar dacă se implementează o căutare după index. La căutarea secvenţială acest parametru nu se transmite.
-bVerif -	bloc de cod. La căutarea secvenţială implementează condiţia de căutare. La căutarea după index, validează dacă articolul găsit întradevă satisface condiţia de căutare.
-nindex -	Numarul de ordine al indexului după care se face căutarea. Daca =0, implementează căutarea secvenţială.

Înainte de apelul funcţiei este necesară selectarea zonei de lucru în care este deschis fişierul de date în care va avea loc căutarea.
Dacă are loc o căutare după index, prin bVerif se poate implementa o verificare, prin care se validează articolul regăsit. Prin această verificare se asigură corectitudinea fişierului index. Dacă fişierul index este distrus, prin blocul de verificare acest lucru poate fi depistat şi semnalat şi nu au loc calcule/actualizări eronate

Exemple:
Se caută articolul cu codul "M-MARFA " din fişierul nomm confom indexului nr.1:
  DBSELECTAREA("nomm")
  sKey := "M-MARFA "
  h_vfcode(sKey,{|| nomm->COD = sKey},1)

Sa caută secvenţial articolul cu codul "M-MARFA " din fişierul nomm:
  DBSELECTAREA("nomm")
  sKey := "M-MARFA "
  h_vfcode(,{|| nomm->COD = sKey},0)

Crearea unui fişier de date extern
Un fişier de date nou se creează cu ajutorul funcţiei CLIPPER DBCREATE().
Exemplu:

DBCREATE(FDName,{{"NUME",    "C", 20, 0}, ;
                 {"PRENUME", "C", 20, 0}, ;
                 {"DNAST",   "D",  8, 0}, ;
                 {"VBRUT",   "N", 12, 0}})

FDName - conţine numele fişierului nou creat.
Al doilea parametru este un vector care conţine structura fişierului ce urmează să fie creat, în forma:
{{<NUME_CIMP_1>, <TIP_1>, <LUNGIME_1>, <ZECIMALE_1>},
{<NUME_CIMP_2>, <TIP_2>, <LUNGIME_2>, <ZECIMALE_2>},
...}

Citirea liniilor unui fişier de text
Citirea liniilor din fişierul de text MAN.TXT situat în catalogul temporar al mediului HAMOR:

FName := h_FilePathes[fil_tmp]+"MAN.TXT"
// numele fisierului de text
sline := ""   
// buffer pt. liniile citite

#IF ! h_OpenInp(FName)
// eroare deschidere fisier text
// ... operatii necesare pentru inchidere, revenire
   Abandon("C")
#ENDIF

#WHILE h_GetLine(@sline)
// ... prelucrare linie citita
#ENDDO
// inchidere fisier text
h_CloseInp()

Crearea unui fişier de text
Crearea fişierului de text nou MAN.TXT în catalogul temporar al mediului HAMOR

// numele fisierului de text
FName := h_FilePathes[fil_tmp]+"MAN.TXT"

#IF ! h_OpenOut(FName)
// eroare creare
// ... operatii necesare pentru revenire
   Abandon("C")
#ENDIF

h_PutLine("Linia 1")
h_PutLine("Linia 2")
h_PutLine("Linia 3")

h_CloseOut()

Vizualizarea unui fişier de text
Vizualizarea unui fişier de text cu posibilitate de tipărire

h_ViewFile(FName,sTitle,pgwidth,pglen,mode)

- FName - numele fişierului de vizualizat
- sTitle - titlul ferestrei de vizualizare
- pgwidth - lăţimea paginii
- pglen - lungimea paginii
- mode - P - permite lansarea tipăririi din fereastra de vizualizare prin tasta <F10>

Executarea unei operaţii hMET2
Pentru executarea operaţiilor "01" pentru fişierul "E6" şi "02" pentru fişierul "E7", se va utiliza secvenţa de instrucţiuni:


i := sal_findex("E6") #IF i>0     x_setfis(i)     op_sal("O","01",.T.) #ENDIF i := sal_findex("E7") #IF i>0     x_setfis(i)     op_sal("O","02",.T.) #ENDIF ...

Bineînţeles secvenţa poate fi transcrisă pentru oricare alt fişier de tip hMET2 pentru o operaţie existentă.
În funcţia op_sal(), pentru primul şi ultimul parametru se introduc valorile "O" şi respectiv ".T.".

Crearea unei ferestre de mesaje
Exemplu pentru crearea şi afişarea unei ferestre de mesaje.


aMes := {} AADD (aMes, "") AADD (aMes, "Recalcularea datelor a fost executata cu succes.") AADD (aMes, "Pentru siguranta va rugam reindexati baza de date") AADD (aMes, "cu ajutorul utilitarului hUTIL") AADD (aMes, "") aMesHlp := h_NewMessage("",,,,,"Sfirsit prelucrare","HELP", aMes) h_PopUpWindow (aMesHlp)

Prin rularea exemplului de mai sus, se va afişa fereastra:

Tipul ferestrei va fi determinat de primul parametrul, iar paleta de culori cu care se va afişa fereastra de parametrul 7.
Astfel se folosesc următoarele combinaţii: ajutor: "H", "HELP", avertizare: "W", "WARNING", eroare: "E", "ERROR", informaţii: "", NIL (necompletat).

Crearea unei ferestre de decizie
Mai jos prezentăm modul în care se creează o fereastră de decizie pentru alegerea uneia dintre operaţiile Op1, Op2 sau abandonarea prelucrării.

aMes := ARRAY(2)


aMes[ 1] := ""
aMes[ 2] := " Alegeti una dintre operatiile de mai jos"


wMes := h_NewOptions("O", ;
                     ,,,, ;
                     NIL,"*", {aMes,{" Op1 ", " Op2 ", " Abandon "}} ,{1})

#IF !h_PopUpWindow (wMes) .OR. wMes[13,1] = 3
// operatie abandonata
#ELSEIF wMes[13,1] = 1
// ramuara "Op1"
#ELSEIF wMes[13,1] =2
// ramura "Op2"
#ENDIF

Prin rularea secvenţei de mai sus se va afişa fereastra:

-	aplicaţiile scrise în hMET2 sunt caracterizate de un set suplimentar de variabile sistem,
-	aplicaţia hMARFA nefiind un program scris în hMET2, este caracterizată de un set proprii de variabile sistem, inaccesibile din aplicaţii hMET2.

-R -	terminarea normală a scriptului şi este valoarea implicită a parametrului. Se consideră, că procedura implementată de script s-a terminat cu succes.
-A -	abandonarea scriptului. Procedura nu s-a putut executa corect. De exemplu nu s-a reuşit deschiderea unei fişier şi nu se poate continua algoritmul.
-C -	abandonat prin Cancel (intrerupt de utilizator). Se afişează automat un mesajul: "Executie intrerupta"

-	FName - numele fişierului de vizualizat
-	sTitle - titlul ferestrei de vizualizare
-	pgwidth - lăţimea paginii
-	pglen - lungimea paginii
-	mode - P - permite lansarea tipăririi din fereastra de vizualizare prin tasta <F10>