|
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: 1280 (0x500)
Types: TextFile
Names: »CMOD.PRG«
└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
└─⟦this⟧ »CMOD.PRG«
└─⟦9ce0f2175⟧ Bits:30004308/disk3.imd Listaid database backup
└─⟦this⟧ »CMOD.PRG«
*******************************************************************************
* 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»