DataMuseum.dk

top - metrics - download

    Length: 2944 (0xb80)
    Types: TextFile
    Names: »LIVALUTA.RPT«

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

TextFile

/PROMPT                                 // PROGRAM: LIVALUTA.RPT
******************************************************************************
***          UDSKRIFT AF VALUTA KURS REGISTER (VALUTA)              M 51   ***
******************************************************************************



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



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



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


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

  UDSKRIFT AF VALUTA KURS REGISTER (VALUTA)                   DEN: __/__/__
----------------------------------------------------------------------------

   VALUTA     TEKST                VALUTAKURS       AJOURF.DATO

/SUBHEADER1
/BODY RESIDENT

   _____      _______________      _____.____         __/__/__

/SUBTOTAL1
/TOTAL

   ***  SLUT PÅ LISTE ***

/*
OPEN VALUTA 1
OPEN OPLYS
//
FORMAT PROMPT.1 ænoput,capslockå
FORMAT PROMPT.2 ænoput,capslock,check="SP"å
FORMAT PROMPT.3 ænoput,capslockå
FORMAT PROMPT.4 ædisplayonlyå
FORMAT PROMPT.5 ædisplayonlyå
FORMAT PROMPT.6 ænoput,capslock,check="S "å
//
IGEN:
CLEARFORM PROMPT.1 THRU PROMPT.3
BLANKFORM PROMPT.4 THRU PROMPT.6
ACCEPT PROMPT.1
IF PROMPT.1 EQ "UD" BEGIN
   CHAIN "OVERSIGT"
END
IF PROMPT.1 NE "OK" BEGIN
   GOTO IGEN
END
//
ACCEPT PROMPT.2
IF PROMPT.2 EQ "S" BEGIN 
   OUTFILE "CON:"
   MOVE 22 TO PAGEEND
   MOVE -1 TO PAGEFEED
   GOTO HOP
END
IF PROMPT.2 EQ "P" BEGIN
   OUTFILE "LST:" 
   MOVE 72 TO PAGEFEED
   MOVE 62 TO PAGEEND
   ACCEPT PROMPT.3
   IF PROMPT.3 NE "OK" BEGIN
      GOTO IGEN
   END
END
//     KLARGØR FILER
HOP:
REPORT VALUTA BY INDEX.1
//      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 SUBHEADER 1
SECTION SUBHEADER1
  OUTPUT SUBHEADER1
//      START DETAIL LINIE
SECTION BODY
  PRINT VALUTA.VAL
  PRINT VALUTA.TEKST
  PRINT VALUTA.KURS
  PRINT VALUTA.AJDATO
  OUTPUT BODY
//      START SUBTOTAL 1
SECTION SUBTOTAL1
  OUTPUT SUBTOTAL1
//      START TOTAL
SECTION TOTAL
  OUTPUT TOTAL
  FORMFEED
RETURN
//   PAUSE
RPT.KEYPRESS:
DISPLAY "DU HAR STOPPET LISTEN             !" TO PROMPT.4
DISPLAY "Tast S for STOP ellers tast RETUR !" TO PROMPT.5
ACCEPT PROMPT.6
IF PROMPT.6 IN "Ss" RETURN END$OF$REPORT
DISPLAY ' ' TO PROMPT.4
DISPLAY ' ' TO PROMPT.5
DISPLAY ' ' TO PROMPT.6
RETURN RPT.LOOP
//
REPORTEND
CHAIN "OVERSIGT"
«eof»