DataMuseum.dk

top - metrics - download

    Length: 4736 (0x1280)
    Types: TextFile
    Names: »FEPRODU.RPT«

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

TextFile

/PROMPT                                 // PROGRAM: FEPRODU.RPT
******************************************************************************
***          FEJLLISTE UDSKRIFT AF PRODUKT REGISTER (PRODU)         M 32   ***
******************************************************************************


  Udskriver alle records som ikke er korrekte,
  samt eventuelle ledige numre.


  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 __.

  FEJLLISTE UDSKRIFT AF PRODUKT REGISTER (PRODU)            DEN: __/__/__

        * Bemærk: ifølge aftale er produktnumrene fra 01 til 40 *
  -----------------------------------------------------------------------

   PNR.       FEJL

/SUBHEADER1
/BODY RESIDENT
    __        ________________________________________

/SUBTOTAL1
/TOTAL
    __        ________________________________________


 ***  SLUT PÅ LISTE ***

/*
OPEN PRODU 1
OPEN OPLYS
//
INTEGER PRONR
INTEGER GEMNR
MOVE 01 TO GEMNR
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" CHAIN "OVERSIGT"
IF PROMPT.1 NE "OK" GOTO IGEN
//
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:
MOVE '00' TO PRODU.PNR
REPORT PRODU 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
  IF PRODU.PNR LT '01' BEGIN
     PRINT PRODU.PNR TO BODY.1
     PRINT 'PRODUKTNUMMER ER FOR LILLE ............!' TO BODY.2
     OUTPUT BODY
     PAGECHECK 1
     ÆPAGEBREAKÅ GOSUB NEWPAGE
     GOTO SLUTBODY
  END
  IF PRODU.PNR GT '40' BEGIN
     PRINT PRODU.PNR TO BODY.1
     PRINT 'PRODUKTNUMMER ER FOR STORT ............!' TO BODY.2
     OUTPUT BODY
     PAGECHECK 1
     ÆPAGEBREAKÅ GOSUB NEWPAGE
     GOTO SLUTBODY
  END
  MOVE PRODU.PNR TO PRONR
  IF PRODU.PNR GT '09' BEGIN
     GOTO OM
  END
  IF PRODU.PNR EQ '01' BEGIN
     MOVE 01 TO PRONR
     GOTO OM
  END
  IF PRODU.PNR EQ '02' BEGIN
     MOVE 02 TO PRONR
     GOTO OM
  END
  IF PRODU.PNR EQ '03' BEGIN
     MOVE 03 TO PRONR
     GOTO OM
  END
  IF PRODU.PNR EQ '04' BEGIN
     MOVE 04 TO PRONR
     GOTO OM
  END
  IF PRODU.PNR EQ '05' BEGIN
     MOVE 05 TO PRONR
     GOTO OM
  END
  IF PRODU.PNR EQ '06' BEGIN
     MOVE 06 TO PRONR
     GOTO OM
  END
  IF PRODU.PNR EQ '07' BEGIN
     MOVE 07 TO PRONR
     GOTO OM
  END
  IF PRODU.PNR EQ '08' BEGIN
     MOVE 08 TO PRONR
     GOTO OM
  END
  IF PRODU.PNR EQ '09' BEGIN
     MOVE 09 TO PRONR
  END
OM:
  IF PRONR GT GEMNR BEGIN
     PRINT GEMNR TO BODY.1
     PRINT 'PRODUKTNUMMER IKKE OPRETTET ...........!' TO BODY.2
     OUTPUT BODY
     PAGECHECK 1
     ÆPAGEBREAKÅ GOSUB NEWPAGE
     INCREMENT GEMNR
     GOTO OM
  END
  IF PRODU.PTEKST EQ ' ' BEGIN
     PRINT PRODU.PNR TO BODY.1
     PRINT 'PRODUKT TEKST ER BLANK ................!' TO BODY.2
     OUTPUT BODY
     PAGECHECK 1
     ÆPAGEBREAKÅ GOSUB NEWPAGE
  END
INCREMENT GEMNR
SLUTBODY:
//       START SUBTOTAL 1
SECTION SUBTOTAL1
  OUTPUT SUBTOTAL1
//      START TOTAL
SECTION TOTAL
  PRINT GEMNR TO TOTAL.1
  PRINT 'NÆSTE LEDIGE PRODUKTNUMMER  ...........!' TO TOTAL.2
  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
BLANKFORM PROMPT.4 THRU PROMPT.6
RETURN RPT.LOOP
//
REPORTEND
CHAIN "OVERSIGT"
«eof»