PROCBES ;PROCEDURES & FUNCFTIES ;PROC; Beschrijving
 Q
 ;
CVL S R="CVL" G Print
 ; Cusor vertaallist
 ; Doel:het opzetten van de standaard vertaaltabel
 ; Input:geen
 ; Output:R = de standaard vertaaltabel
 ;
FN S R="FN" G Print
 ; Format number
 ; Doel:het formateren van een getal in het europees formaat
 ; Input:geindexeerde FN
 ;FN(1) = het te formateren getal
 ;FN(2) = maximum totale lengte
 ;FN(3) = het aantal decimalen
 ;FN(4) = het fomaat (combinaties zijn mogelijk)
 ;N  = zonder 0 (default)
 ;N0 = met 0
 ;0N = met voorloopnullen
 ;N- = teken achteraan
 ;-N = teken vooraan
 ;N+ = zonder teken (altijd positief)
 ;N. = zonder interpunktie
 ; Output:R = geformateerd getal (indien te groot: ###...###)
 ; Variabelen:FNd = het decimale deel
 ;FNe = extractie voor de duizentalpunten
 ;FNp = duizedtalpunten
 ;FNt = het teken
 ;FNz = voorloopnullen
 ;
FL S R="FL" G Print
 ; Format line
 ; Doel:het formateren van een lijn welke daarna eventueel kan afgedrukt worden vb op een printer
 ; Input:geindexeerde FL
 ;FL(1) = formatdefinitie
 ;formateringsgegevens voor een lijn per veld gescheiden door '\'
 ;de definities van elk veld zijn gescheiden door ';' en bestaan uit
 ;1. variabeleexp
 ;   indien numeriek dan wordt deze niet gevalueerd maar wordt er de zoveelste $P(FL(3),D,x) genomen
 ;2. type (char 'C', numeriek 'N' of numeriek inclusief 0 'N+')
 ;3. alignering (links 'L', center 'C' of rechts 'R')
 ;4. lengte
 ;5. decimalen
 ;6. separator
 ;7. test bolding
 ;FL(2) = de positie waar de lijn zal afgedrukt worden
 ;indien 0 dan is dit van op de huidige cursopositie
 ;indien > 0 dan is dit vanaf deze positie
 ;indien leeg dan wordt de geformateerde string teruggegeven in R
 ;FL(3) = de teformateren waarden gescheiden door '\'
 ; Output:R = geformateerde string indien de lijnpositie leeg is
 ; Variabelen:FLb = test bold
 ;FLs = string voor het samenstellen van de output
 ;FLt = teller om het aantal te verwerken velden bij te houden
 ;FLv = de inhoud van het te verwerken veld
 ;
WL S R="WL" G Print
 ; Write list
 ; Doel:het op het scherm brengen van een lijst
 ; Input:geindexeerde DL
 ;DL(1) = de naam van de lijstdefinitie
 ;DL(2) = beginschermlijn voor refresh
 ;DL(3) = eindschermlijn voor refresh
 ; Output:de lijst op het scherm
 ; Variabelen:DLal = aantal lijnen op het sherm waar men de lijst kan tonen
 ;DLb  = beginschermlijn voor refresh
 ;DLbl = de lijn waar men de lijst begint te tonen
 ;DLe  = einschermlijn voorrefresh
 ;DLf  = de uit tevoeren functie
 ;DLfx = de uit te voeren functie
 ;DLfe = is scroll functie test EL of niet
 ;DLi  = hulpvariabele
 ;DLll = aantal karakters per lijn
 ;DLo  = offset
 ;DLse = geselekteerde lijn
 ;DLsl = de te selekteren lijn
 ;DLsw = met of zonder time out
 ;DLt  = referentie naar de tabel
 ;DLti = titel plaatsen
 ;DLv  = de index van de opeenvolgende datalijnen in de tabel
 ;DLvx = tijdelijke bewaring van DLv
 ;
Print F I=1:1 Q:$P($T(+I)," ",1)=R
 F I=I+1:1 Q:$L($P($T(+I)," ",1))  W !,$P($T(+I),U,2)
 Q
 ;
Z X ^cZ Q
ZZ ; 18.06.91 -  8 u 33