DataMuseum.dk

top - metrics - download

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

└─⟦71c82d5c0⟧ Bits:30004214 LISTAID - Partslist management system
    └─⟦this⟧ »CONIN.PRG« 
└─⟦9ce0f2175⟧ Bits:30004308/disk3.imd Listaid database backup
    └─⟦this⟧ »CONIN.PRG« 

TextFile

*******************************************************************************
* DESIGN: NIF/ASD/SEPTEMBER 85                                                *
*******************************************************************************
*                                                                             *
* PROCEDURE: 'CONIN'  CALLED FROM: TASK:'DCON','UCON'                         *
* THIS COMMANDFILE IS PART OF THE 'LISTAID' PARTSLIST MANAGEMENT SYSTEM       *
*                                                                             *
*******************************************************************************


*ACCEPT USER-INPUT
DO WHILE VALIDSTATE<>'NO OBJECTION'

ERASE
@  1,1  SAY 'VALIDATION STATE:'
@  1,19 SAY VALIDSTATE
@   3,1 SAY UNITNAME
@ 10,23 SAY 'ENTER MODULENAME:'
@ 10,40 GET MODULE PICTURE 'XXXXXXXXXXXXXXXXXXXX'
@ 12,15 SAY 'ENTER SOURCEFILE_POINTER:'
@ 12,40 GET SOURCE PICTURE 'AAAA'
@ 14,13 SAY 'ENTER NUMBER OF DUPLICATES:'
@ 14,40 GET NUMBER
@ 20,1  SAY 'ENTER CONTINUE: ' GET CONTINUE PICTURE 'A'
@ 22,1  SAY 'C = NEXT MODULE, S = STOP, D = STOP AND DELETE LAST MODULE'

READ
REPLACE SOURCE WITH !(SOURCE)
STORE !(CONTINUE) TO CONTINUE

*SYNTAX OK?
      IF NUMBER<1
           STORE 'NUMBER MUST BE GREATER THAN ZERO' TO VALIDSTATE
      ELSE
      IF LEN(TRIM(MODULE))<2
         STORE "EVERYTHING HAS A NAME -- YOUR'S MUST BE DUMMY" TO VALIDSTATE
      ELSE
      IF LEN(TRIM(SOURCE))<4
           STORE 'SPECIFY SOURCE_FILE BY 4 CHARACTERS' TO VALIDSTATE
      ELSE
           STORE 'NO OBJECTION' TO VALIDSTATE
      ENDIF
      ENDIF
      ENDIF


*OVERRULE SYNTAXCHECK?
IF (#<2).AND.(CONTINUE='D')
   STORE 'AT LEAST ONE MODULE MUST BE SPECIFIED' TO VALIDSTATE
ELSE
   IF CONTINUE='D'
      STORE 'NO OBJECTION' TO VALIDSTATE
   ENDIF
ENDIF

*DUPLICATED FIELDS?

IF (VALIDSTATE='NO OBJECTION').AND.(CONTINUE#'D')
   STORE SOURCE TO MSOURCE
   STORE # TO CURRENT
   GO TOP
   LOCATE FOR SOURCE=MSOURCE
   IF #<>CURRENT
      STORE 'MODULE IS ALREADY IN UNIT' TO VALIDSTATE
   ELSE
      STORE MODULE TO MMODULE
      GO TOP
      LOCATE FOR MODULE=MMODULE
      IF #<>CURRENT
         STORE 'MODULE_NAME HAS ALREADY BEEN USED' TO VALIDSTATE
      ENDIF
   ENDIF
   GO BOTTOM
ENDIF

ENDDO
RETURN







«eof»