|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3456 (0xd80) Types: TextFile Names: »FLEXERRS.FRM«
└─⟦21cf82d66⟧ Bits:30007007/RCPRPA.imd RC Prislistesystem └─⟦this⟧ »FLEXERRS.FRM« └─⟦7441cce76⟧ Bits:30007007/RCPRBA.imd RC Prislistesystem └─⟦this⟧ »FLEXERRS.FRM«
/FORM DATA ACCESS CORPORATION FLEX ERROR FIL ============================================================================== POST NR. FEJLBESKRIVELSE NOTE ______. ________________________________________ ________________________ ________________________________________________________________________ _ (hjælp findes) /SUPPORT HELP DATAFLEX error filen er designet til at tillade modifikationer af standard flex error meddelelser, eller udvidelse med egne fejlmeddelelser for enhver applikation. Error nummmeret er postnummeret og tildeles af sytemet. For at editere eller inspicere en eksisterende fejlbeskrivelse, placeres cursoren på post nummer feltet og det ønskede nummer indtastes. Hvis De ønsker at generere Deres egne fejlmeddelelser hoppes over til fejlbeskrivelsesfeltet og fejlmeddelelsen indtastes. Note feltet bruges for Deres dokomentation til at fortælle brugeren hvor fejlen er opstået. --- TRYK EN TAST FOR RETURNERING TIL INDTASTNINGSSKÆRM --- /* STRING STROKE 1 //create temp string of one character OPEN FLEXERRS //open the flex error file ENTER FLEXERRS //have enter hold our hand AUTOPAGE FORM //default paging REFRESH: INDICATE FINDERR FALSE //init indicator GOSUB CLEAR //clear the windows ENTRY FLEXERRS.RECNUM æAUTOFIND,RETAINå //automatically try to find an error message (AUTOFIND) upon exit //from this window. if one is found it will be displayed. ENTRY FLEXERRS.ERROR_DESCR æRETAINå ENTRY FLEXERRS.NOTE æRETAINå ÆFINDERRÅ BEGIN DISPLAY "DENNE POST EKSISTERER IKKE, ØNSKER DE AT OPRETTE EN NY POST" TO FORM.4 FORMAT FORM.5 æCAPSLOCK,CHECK="Y,N"å DISPLAY 'J' TO FORM.5 //set up a default entry in window 5 ACCEPT FORM.5 IF FORM.5 EQ "N" GOTO REFRESH MOVE FORM.2 TO FLEXERRS.ERROR_DESCR //must move error fields to MOVE FORM.3 TO FLEXERRS.NOTE //record buffer to save it SAVERECORD FLEXERRS //save the record manually DISPLAY FLEXERRS.RECNUM TO FORM.1 //show user the new system //assigned record/error number BLANKFORM FORM.4 THRU FORM.5 //clear any old text DISPLAY "POSTNUMMER ER BLEVET NYTILDELT, TRYK EN TAST FOR FORTSÆTTELSE" TO FORM.4 WAITKEY: INKEY STROKE //scan keyboard and IF STROKE EQ "" GOTO WAITKEY //loop until keypressed END //end finderr block RETURN //end of enter macro entry section and start of DATAFLEX standard procedures ENTER.SAVE: GOSUB CLEAR //redefine action of flex key ENTER.DELETE: GOSUB CLEAR ENTEREND ABORT CLEAR: CLEARFORM FORM.1 THRU FORM.3 BLANKFORM FORM.4 THRU FORM.5 RETURN KEYPROC KEY.HELP HELP ENTAGAIN RETURN «eof»