|
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: »OLDCKIT.PRG«
└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
└─⟦this⟧ »OLDCKIT.PRG«
└─⟦9ce0f2175⟧ Bits:30004308/disk3.imd Listaid database backup
└─⟦this⟧ »OLDCKIT.PRG«
*******************************************************************************
* DESIGN: NIF/ASD/JANUAR 1986
*******************************************************************************
* TASK: CKIT
* FUNCTION: CREATES A KITLIST FROM A LONG FORM MODULE LEVEL PARTSLIST
*******************************************************************************
SELECT PRIMARY
*GET THE SOURCEFILE
STORE 'PLL' TO MEXTEN
DO GETSOURC
IF FILE(OPERDBF)
ERASE
@ 10,10 SAY 'CONVERSION FROM PLL TO KIT HAS BEEN STARTED'
STORE $(OPERDBF,1,8)+'.KIT' TO MKITNAME
IF FILE(MKITNAME)
DELETE FILE &MKITNAME
STORE 'OLD KIT-LIST DELETED --- NEW CREATED' TO STATUS
ENDIF
USE KIT_STRU
COPY STRU TO &MKITNAME
COPY STRU TO WORK
USE WORK
APPEND FROM &OPERDBF
APPEND BLANK
GO BOTT
DELETE
STORE # TO MEND
GO TOP
STORE 'REF:CODE=MREF.AND.TOLERANCE=MTOL.AND.NVALUE=MVAL.AND.RATED:VOLT=MRAT;
' TO MCRIT
DO WHILE .NOT.EOF
STORE # TO CURRENT
STORE REF:CODE TO MREF
STORE NVALUE TO MVAL
STORE TOLERANCE TO MTOL
STORE RATED:VOLT TO MRAT
COUNT FOR &MCRIT TO MC
GO CURRENT
REPLACE COUNTER WITH MC
IF MC>1
STORE $(REF:DES,1,6) TO MDES
SKIP
DO WHILE .NOT.EOF
STORE STR(MEND-#+1,5) TO MSCOPE
LOCATE NEXT &MSCOPE FOR &MCRIT
IF &MCRIT
STORE MDES-','-$(REF:DES,1,6) TO MDES
DELETE
ENDIF
SKIP
ENDDO
GO CURRENT
REPLACE REF:DES WITH MDES-'.'
ENDIF
GO CURRENT+1
DO WHILE *.AND..NOT.EOF
SKIP
ENDDO
ENDDO
ELSE
STORE 'PLL MUST BE RESIDENT ON D: DRIVE' TO STATUS
ENDIF
PACK
SORT ON REF:CODE TO &MKITNAME
RELEASE ALL LIKE M*
RELEASE CURRENT
RETURN
«eof»