DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦bced78688⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »REVDPL.PRG«

Derivation

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

TextFile

STORE 'HIP1' TO PPLNAME
STORE 'PROCEED' TO STATUS
STORE 'DPL_HVPS' TO MDPL
STORE 3 TO UNITMULT
STORE 'HVPS' TO CONFIGNAME
SET TALK OFF
   *COMPLETE DPL RECORDS FROM PPL AND CUSTOM FILES
   @ $+4,10 SAY 'THE SPECIFICATIONS ARE NOW BEING INSERTED'
   STORE 'DPL' TO MDBASE
   SELECT SECONDARY
   USE
   SELECT PRIMARY
   USE &MDPL
   STORE MDPL TO OPERDBF
   DO CASE
      CASE PPLNAME='HIP1'
           DO COMPHIP1
      OTHERWISE
           DO COMPLETE
   ENDCASE
   SELECT PRIMARY
   *CONVERT NVALUE TO CVALUE AND FILL THE COMPLETE THE SPEC.
   IF STATUS='PROCEED'
      DO CONVERT
   ENDIF
   RETURN
«eof»