DataMuseum.dk

top - metrics - download

    Length: 2560 (0xa00)
    Types: TextFile
    Names: »CDPL.PRG«

└─⟦9ce0f2175⟧ Bits:30004308/disk3.imd Listaid database backup
    └─⟦this⟧ »CDPL.PRG« 

TextFile

*******************************************************************************
*DESIGN: NIF/ASD/SEPTEMBER 1985                                               *
*******************************************************************************
*                                                                             *
*TASK:CDPL
*THIS COMMANDFILE IS PART OF THE 'LISTAID' PARTSLIST MANAGEMENT SYSTEM        *
*
*******************************************************************************

SET FORMAT TO SCREEN
ERASE
@ 10,20 SAY 'CDPL INITIATED'
STORE 'PROCEED' TO STATUS

*CHECK IF CONFIGURATION IS DEFINED
STORE $(CONFIGNAME,1,2)-'CON_'-$(CONFIGNAME,3,4)-'.DBF' TO MCON
IF .NOT.FILE(MCON)
   STORE 'CONFIGURATION UNDEFINED' TO STATUS
ENDIF

STORE $(CONFIGNAME,1,2)-'DPL_'-$(CONFIGNAME,3,4)-'.NDX' TO MDPLNDX
*CHECK IF DPL EXISTS FOR THIS UNIT

STORE $(CONFIGNAME,1,2)-'DPL_'-$(CONFIGNAME,3,4)-'.DBF' TO MDPL
IF FILE(MDPL).AND.STATUS='PROCEED'

   *ASK USER IF IT SHOULD BE DELETED

   ERASE
   STORE F TO MDELETE
   @ 10,20 SAY 'DECLARED PARTSLIST EXISTS FOR THIS CONFIGURATION'
   @ 12,20 SAY 'DO YOU WANT TO DELETE IT? (Y/N)'
   @ 12,52 GET MDELETE
   READ
   IF MDELETE
      DELETE FILE &MDPL
      IF FILE(MDPLNDX)
         DELETE FILE &MDPLNDX
      ENDIF
   ELSE
      STORE 'CDPL ABORTED' TO STATUS
   ENDIF

ENDIF

IF .NOT.FILE(MDPL).AND.STATUS='PROCEED'

   *CHECK IF MODULES ARE DEFINED
   USE &MCON
   GO TOP
   DO WHILE (STATUS='PROCEED').AND.(.NOT.EOF)
      IF .NOT.FILE(CONFIGNAME-SOURCE-'.PLS')
         STORE 'MODULE_FILE(S) MISSING' TO STATUS
      ENDIF
      SKIP
   ENDDO
   IF STATUS='PROCEED'
      USE DPL_STRU
      COPY STRUCTURE TO &MDPL

      STORE 1 TO UNITMULT
      ERASE
      @ 11,4  SAY 'HOW MANY UNITS SHALL BE PRODUCED ?'
      @ 13,4  SAY 'INPUT RANGE = (1..99) '
      @ 13,28 GET UNITMULT PICTURE '##'
      @ 20,4  SAY 'DC/DC = 4, SMC = 3, PSDU = 4'

      READ
      STORE INT(UNITMULT) TO UNITMULT
      DO WHILE UNITMULT=0
         @ 13,28 GET UNITMULT PICTURE '##'
         READ
      ENDDO
      *THEN CREATE THE BLOODY THING
      DO CREATDPL
      IF STATUS='PROCEED'
         SELECT SECONDARY
         USE
         SELECT PRIMARY
         USE &MDPL
         INDEX ON REF:CODE + STR(NVALUE,13,4)+TOLERANCE+RATED:VOLT TO &MDPLNDX
         STORE 'DPL CREATED' TO STATUS
      ENDIF
    ENDIF
ENDIF

*EXIT TO MENU

SELECT SECO
USE
SELECT PRIM
USE
RELEASE ALL LIKE M*
RETURN
«eof»