DataMuseum.dk

top - download

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

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

TextFile

*******************************************************************************
* 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»