Χστςοεξξωε ζυξλγιι 4GL. Ξε χλμΰώατψ χ SQL οπεςατοςω. Darg_valE (n) n-κ αςηυνεξτ ιϊ λοναξδξοκ στςολι Dnum_argsE () λομ-χo αςηυνεξτοχ χ λοναξδξοκ στςολε DinfieldE (field-name) ιστιξα εσμι λυςσος ξαθοδιτσρ χ πομε (DISPLAY/INPUT) CALL Dset_countE(n) σοοβύιτψ 4GLΰ λομ-χο ϊαπομξεξξωθ στςολ χ νασσιχε πεςεδ οπεςατοςον DISPLAY ARRAY Darr_currE() No. τελυύεκ στςολι νασσιχα (INPUT/DISPLAY ARRAY) Dscr_lineE () No. τελυύεκ στςολι όλςαξξοηο νασσιχα (INPUT/DISPLAY ARRAY) Darr_countE () λομ-χο ϊαπομξεξξωθ στςολ χ νασσιχε (INPUT ARRAY) Derr_getE (status) 4GL σοοβύεξιε οβ οϋιβλε ° status CALL Derr_printE(nn) χωχεστι 4GL σοοβύεξιε οβ οϋιβλε ° nn CALL Derr_quitE (nn) χωχεστι 4GL σοοβύεξιε οβ οϋιβλε ι λοξώιτψ CALL DshowhelpE (n) χωχεστι 4GL help-menu ι help-σοοβύεξιε CALL DstartlogE("filename") οτλςωτψ errorlog ζακμ CALL DerrorlogE (στςολα) δοβαχιτψ σοοβύεξιε χ errorlog DdownshiftE (στςολα) ξε δμιξξεε 512 DupshiftE (στςολα) DASCIIE n Πςεοβςαϊυετ ώισμο n χ σινχομ ASCII στςολα DCLIPPEDE Ηασιτ πςοβεμω χ λοξγε στςολι DCOLUMNE n Δοβαχιτψ πςοβεμοχ, ώτοβ ολαϊατψσρ ξα n-ον στομβγε όλςαξα Dexpr USING "format"E Ϊαδαετ ζοςνατ δμρ number, MONEY, DATE χωςαφεξικ όμενεξτω ζοςνατα ώισεμ: D*&#<,.-+()$E D*E Ϊανεξρτψ πςοβεμω ξα * D.E ποϊιγιρ δεσρτιώξοκ τοώλι D&E Ϊανεξρτψ πςοβεμω ξα 0 D-E ποϊιγιι ϊξαλα "-" D#E ξιώεηο ξε νεξρτψ D+E ποϊιγιι ϊξαλοχ "+","-" D<E μεχουσταξοχιτψ ώισμο D(((E...D)E οτςιγατεμψξοε ώισμο χ σλοβλι. D,E μιτεςαμ "," D$E μιτεςαμ "$" όμενεξτω ζοςνατα δατ: DddE,DdddE,DmmE,DmmmE,DyyE,DyyyyE ι μιτεςαμω D/-.()E ι δς. άτι ζυξλγιι νοφξο ισπομψϊοχατψ χ οπεςατοςε SELECT: SITENAME ινρ σεςχεςα(ιμι hostname) D*OnL*E DLENGTHE (στςολα) δμιξα βεϊ ϊαλαξώιχαΰύιθ πςοβεμοχ DUSER E login-name τελυύεηο πομψϊοχατεμρ DTODAYE τελυύαρ δατα χ σιστενξον ζοςνατε DCURRENTE [first DTOE last] τελυύεε DATETIME ηδε first,last ιϊ {YEAR,MONTH,DAY,HOUR,MINUTE,SECOND,FRACTION(n)} Πςεοβςαϊοχαξιε δατ ι χςενεξι: DTIMEE τελυύεε χςενρ χ χιδε "hh:mm:ss" DDATEE τελυύαρ δατα χ χιδε "Mon Apr 1 1991" DEXTENDE (datetime-value [first DTOE last]) πςεοβςαϊυετ λ DATETIME expr DUNITSE qualifier Χοϊχςαύαετ INTERVAL ϊξαώεξιε=expr*qualifier ηδε qualifier ¨ {YEAR,MONTH,DAY,HOUR,MINUTE,SECOND,FRACTION(n)} DDATEE ([char] expr) πςεοβςαϊυετ λ τιπυ DATE DMDYE (nDAY, nMONTH, nYEAR) πςεοβςαϊυετ λ τιπυ DATE DDAYE (δατα ) χωδεμρετ ξονες δξρ χ νεσργε ιϊ δατω DWEEKDAYE (δατα) χωδεμρετ ξονες δξρ χ ξεδεμε ! Ϊδεσψ δατα  DMONTHE (δατα) χωδεμρετ ξονες νεσργα ! τιπα DATE  DYEARE (δατα) χωδεμρετ ηοδ ! ιμι DATETIME Χστςοεξξωε αηςεηατξωε ζυξλγιι οπεςατοςα SELECT. DCOUNTE (*) DCOUNTE ( DISTINCT column-name ) λομιώεστχο DSUME ( [DISTINCT] column-name ) DAVGE ( [DISTINCT] column-name ) σςεδξεε ϊξαώεξιε DMINE ( [DISTINCT] column-name ) DMAXE ( [DISTINCT] column-name )