DataMuseum.dk

top - metrics - download

    Length: 3328 (0xd00)
    Types: TextFile
    Names: »LIPROVA.RPT«

└─⟦7c116f58e⟧ Bits:30007007/RCPRAX.imd RC Prislistesystem
    └─⟦this⟧ »LIPROVA.RPT« 
└─⟦9cc652d2b⟧ Bits:30007007/RCPRAZ.imd RC Prislistesystem
    └─⟦this⟧ »LIPROVA.RPT« 

TextFile

/PROMPT                                 // PROGRAM: LIPROVA.RPT
******************************************************************************
***          UDSKRIFT AF PROVA INDEKS REGISTER                      M 29   ***
******************************************************************************

  UDSKRIFT tast OK, SLUT så tast UD .................: __

  POSITIONER: 2 FOR PRODUKT + 1 FOR SH GRUPPE + 1 FOR SORT + 11 FOR VARENUMMER

  INDTAST START VÆRDI ...............................: _______________

  INDTAST SLUT  VÆRDI ...............................: _______________

  INDTAST  S FOR SKÆRM,  ELLER  P FOR PRINTER .......: _

  TAST OK, HVIS PRINTER ER KLAR .....................: __

  ___________________________________
  ___________________________________
                                    _
******************************************************************************
/HEADER
   ____________________         UDGAVE: ___.     PR.: __/__/__        SIDE __.

   UDSKRIFT AF PROVA INDEKS REGISTER                             DEN: __/__/__
   ---------------------------------------------------------------------------

   PNR   SHG   SNR     VNR             OV1

/BODY RESIDENT
   __     _     _      ___________     _______________
/TOTAL

   ***  SLUT PÅ LISTE  ***

/*
OPEN PROVA 1
OPEN OPLYS
//
FORMAT PROMPT.1 ænoput,capslockå
FORMAT PROMPT.2 ænoput,capslockå
FORMAT PROMPT.3 ænoput,capslockå
FORMAT PROMPT.4 ænoput,capslock,check="SP"å
FORMAT PROMPT.5 ænoput,capslockå
FORMAT PROMPT.6 ædisplayonlyå
FORMAT PROMPT.7 ædisplayonlyå
FORMAT PROMPT.8 ænoput,capslock,check="S "å
//
IGEN:
CLEARFORM PROMPT.1 THRU PROMPT.5
BLANKFORM PROMPT.6 THRU PROMPT.8
ACCEPT PROMPT.1
IF PROMPT.1 EQ "UD" BEGIN
   CHAIN "OVERSIGT"
END
IF PROMPT.1 NE "OK" BEGIN
   GOTO IGEN
END
//
ACCEPT PROMPT.2
ACCEPT PROMPT.3
IF PROMPT.2 LT '00' BEGIN
   GOTO IGEN
END
IF PROMPT.3 GT '40' BEGIN
   GOTO IGEN
END
IF PROMPT.2 GT PROMPT.3 BEGIN
   GOTO IGEN
END
//
ACCEPT PROMPT.4
IF PROMPT.4 EQ "S" BEGIN
   OUTFILE "CON:"
   MOVE 22 TO PAGEEND
   MOVE -1 TO PAGEFEED
   GOTO HOP
END
IF PROMPT.4 EQ "P" BEGIN
   OUTFILE "LST:" 
   MOVE 72 TO PAGEFEED
   MOVE 66 TO PAGEEND
   ACCEPT PROMPT.5
   IF PROMPT.5 NE "OK" BEGIN
      GOTO IGEN
   END
END
//     KLARGØR FILER
HOP:
MOVE PROMPT.2 TO PROVA.OV1
REPORT PROVA BY INDEX.1
INDICATE SELECT AS PROVA.OV1 LE PROMPT.3
Æ NOT SELECT Å RETURN END.OF.REPORT
//      START HOVEDET
SECTION HEADER
  PRINT OPLYS.NAVN   TO HEADER.1
  PRINT OPLYS.UDGAVE TO HEADER.2
  PRINT OPLYS.PRDATO TO HEADER.3
  PRINT PAGECOUNT    TO HEADER.4
  PRINT OPLYS.AKDATO TO HEADER.5
  OUTPUT HEADER
//      START DETAIL LINIE
SECTION BODY
  PRINT PROVA.PNR
  PRINT PROVA.SHG
  PRINT PROVA.SNR
  PRINT PROVA.VNR
  PRINT PROVA.OV1
  OUTPUT BODY
//      START TOTAL
SECTION TOTAL
  OUTPUT TOTAL
  FORMFEED
RETURN
//   PAUSE
RPT.KEYPRESS:
DISPLAY "DU HAR STOPPET LISTEN             !" TO PROMPT.6
DISPLAY "Tast S for STOP ellers tast RETUR !" TO PROMPT.7
ACCEPT PROMPT.8
IF PROMPT.8 IN "Ss" RETURN END$OF$REPORT
BLANKFORM PROMPT.6 THRU PROMPT.8
RETURN RPT.LOOP
//
REPORTEND
CHAIN "OVERSIGT"
«eof»