|
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: 1536 (0x600)
Types: TextFile
Names: »DCON.PRG«
└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
└─⟦this⟧ »DCON.PRG«
└─⟦9ce0f2175⟧ Bits:30004308/disk3.imd Listaid database backup
└─⟦this⟧ »DCON.PRG«
*******************************************************************************
* DESIGN: NIF/ASD/SEPTEMBER 85 *
*******************************************************************************
* *
* TASK: DCON *
* THIS COMMANDFILE IS PART OF THE 'LISTAID' PARTSLIST MANAGEMENT SYSTEM *
* *
*******************************************************************************
SET FORMAT TO SCREEN
ERASE
*CHECK IF CONFIGURATION_FILE EXISTS, RETURN IF IT DOES,ELSE CREATE
STORE 'CON_'-CONFIGNAME-'.DBF' TO OPERDBF
IF FILE(OPERDBF)
STORE 'NOT ALLOWED! -- FILE IS EXISTING' TO STATUS
ELSE
USE CON_STRUC
COPY STRUCTURE TO &OPERDBF
USE &OPERDBF
*WHILE MORE INPUT
STORE 'C' TO CONTINUE
DO WHILE CONTINUE#'S'.AND.CONTINUE#'D'
APPEND BLANK
STORE 'C' TO CONTINUE
STORE 'INITIAL STATE' TO VALIDSTATE
*PROMPT USER FOR DATA AND VALIDATE THEM
DO CONIN
ENDDO
*DELETE LAST APPENDED RECORD IF CONTINUE='D'
IF CONTINUE='D'
DELETE
PACK
STORE 'LAST ENTRY DELETED -- READY' TO STATUS
ELSE
STORE 'READY' TO STATUS
ENDIF
RELEASE VALIDSTATE,CONTINUE,MSOURCE,CURRENT,MMODULE
ENDIF
RELEASE OPERDBF
USE
RETURN
«eof»