|
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: 2048 (0x800)
Types: TextFile
Names: »DATP.PRG«
└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
└─⟦this⟧ »DATP.PRG«
└─⟦9ce0f2175⟧ Bits:30004308/disk3.imd Listaid database backup
└─⟦this⟧ »DATP.PRG«
* 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»