DataMuseum.dk

top - download

    Length: 2048 (0x800)
    Types: TextFile
    Names: »DATP.PRG«

└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
    └─ ⟦this⟧ »DATP.PRG« 

TextFile

* DATP.PRG
* CREATES LONGFORM & KIT LISTS FROM PLS-FILES, ACCORDING TO DATA STORED IN
* FILE DATP.DBF

ERASE
STORE PPLNAME TO OPPL
STORE CONFIGNAME TO OCONF
ACCEPT 'ENTER DRIVE, NAME ON DATAPACKAGE DEFINITION FILE: ' TO DATP
USE &DATP
GO TOP
DO WHILE .NOT.EOF
   STORE T TO CALL
   STORE # TO ITEM
   STORE PPL TO PPLNAME
   STORE CONF TO CONFIGNAME
   ? PPL+'  '+CONF+MODULE+'  '+ACTION
   DO CASE
      CASE ACTION='PLL'
           STORE CONFIGNAME-MODULE-'.PLS' TO OPERDBF
           USE
           DO E:CMOD
      CASE ACTION='KIT'
           STORE CONFIGNAME-MODULE-'.PLL' TO OPERDBF
           USE
           DO E:CKIT
      CASE ACTION='SPR'
           STORE CONFIGNAME-MODULE-'.PLL' TO OPERDBF
           USE
           DO E:CKITSPAR
      CASE ACTION='P&K'
           STORE CONFIGNAME-MODULE-'.PLS' TO OPERDBF
           USE
           DO E:CMOD
           USE &DATP
           GO ITEM
           STORE CONFIGNAME-MODULE-'.PLL' TO OPERDBF
           USE
           DO E:CKIT
      CASE ACTION='P&S'
           STORE CONFIGNAME-MODULE-'.PLS' TO OPERDBF
           USE
           DO E:CMOD
           USE &DATP
           GO ITEM
           STORE CONFIGNAME-MODULE-'.PLL' TO OPERDBF
           USE
           DO E:CKITSPAR
      CASE ACTION='COP'
           STORE CONFIGNAME-MODULE-'.KIT' TO SOURCE
           STORE $(CONFIGNAME,3,4)-MODULE-'.BAK' TO BACKUP
           RENAME &SOURCE TO &BACKUP
           STORE CONFIGNAME-MODULE-'.BAK' TO BACKUP
           USE &BACKUP
           COPY TO &SOURCE
           USE
   ENDCASE
   USE &DATP
   GO ITEM
   SKIP
ENDDO
USE
STORE OPPL TO PPLNAME
STORE OCONF TO CONFIGNAME
RELEASE ITEM,OPPL,OCONF,SOURCE,BACKUP
RETURN

«eof»