DataMuseum.dk

top - download

    Length: 1280 (0x500)
    Types: TextFile
    Names: »CMOD.PRG«

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

TextFile

*******************************************************************************
* DESIGN  NIF/ASD/SEPTEMBER 1985
*******************************************************************************
*
*TASK   CMOD
*FUNCTION: CREATES A LONG FORM MODULE_LEVEL PARTSLIST
*
*******************************************************************************

SELECT PRIMARY
IF .NOT.CALL

   *GET THE SOURCEFILE

   STORE 'PLS' TO MEXTEN
   DO GETSOURC
ENDIF

IF FILE(OPERDBF)
   STORE $(OPERDBF,1,10)+'.PLL' TO MPLLNAME
   IF FILE(MPLLNAME)
      DELETE FILE &MPLLNAME
      STORE 'OLD PLL DELETED --- NEW CREATED' TO STATUS
   ENDIF
   USE PLL_STRU
   COPY STRU TO &MPLLNAME
   USE &MPLLNAME
   APPEND FROM &OPERDBF
   STORE 'PLL' TO MDBASE
   *INITIALIZE OPERDBF FOR COMPLETE
   STORE MPLLNAME TO OPERDBF
   DO COMPLETE
   DO CONVERT
   COPY TO WORK
   USE WORK
   INDEX ON $(REF:DES,1,2)+STR(VAL($(REF:DES,3,4)),4) TO WORK
   SET INDEX TO WORK
   COPY TO &MPLLNAME
   USE
   DELETE FILE WORK
ELSE
   STORE 'SHORT FORM PARTSLIST DOES NOT EXIST' TO STATUS
ENDIF
SELECT SECO
USE
SELECT PRIM
USE
RELEASE ALL LIKE M*
RETURN
«eof»