DataMuseum.dk

top - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »MODCSOT.PRG«

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

TextFile

ACCEPT 'DISK: ' TO DISK
ACCEPT 'PREFIX: ' TO PREFIX
STORE PREFIX-'.O' TO BACKFIX
STORE PREFIX-'.S' TO PREFIX
INPUT 'NUMBER: ' TO LAST

STORE 1 TO NUMBER
STORE 'TOP' TO RECORD
   USE SOT_STRU
   COPY STRU TO SOTPLL
   USE SOTPLL
APPEND BLANK
REPLACE REF:CODE WITH 'DEL'
DO WHILE NUMBER<=LAST
   IF NUMBER<10
      STORE 1 TO X
   ELSE
      STORE 2 TO X
   ENDIF
   STORE PREFIX-STR(NUMBER,X) TO MSOT
   SET DEFA TO &DISK
   IF FILE(MSOT)
      STORE BACKFIX-STR(NUMBER,X) TO MBACK
      RENAME &MSOT TO &MBACK
      SET DEFA TO E
      STORE DISK-MBACK TO MBACK
      APPEND FROM &MBACK
      GO &RECORD
      SKIP
      IF .NOT.EOF
         REPLACE NEXT 9999 REF:DES WITH 'SOT'-STR(NUMBER,X)
         STORE STR(#,5) TO RECORD
      ENDIF
   ENDIF
   SET DEFA TO E
   STORE NUMBER+1 TO NUMBER
ENDDO
SET EXACT ON
STORE 1 TO NUMBER
*SET STEP ON
STORE 'SOTPLL' TO OPERDBF
STORE 'E:HIP1' TO PPLNAME
STORE 'PLL' TO MDBASE
STORE DISK-$(PREFIX,1,4) TO CONFIGNAME
DO COMPLETE
DO CONVERT
STORE 1 TO NUMBER
SET DEFA TO DISK
DO WHILE NUMBER<=LAST
   IF NUMBER<10
      STORE 1 TO X
   ELSE
      STORE 2 TO X
   ENDIF
   STORE PREFIX-STR(NUMBER,X) TO MSOT
   STORE BACKFIX-STR(NUMBER,X) TO MBACK
   IF FILE(MBACK)
      COPY TO &MSOT FOR REF:DES='SOT'-STR(NUMBER,X)
   ENDIF
   STORE NUMBER+1 TO NUMBER
ENDDO
SET DEFA TO E
RETURN


«eof»