DataMuseum.dk

top - metrics - download

    Length: 3584 (0xe00)
    Types: TextFile
    Names: »CRDCVT1.TXT«

└─⟦6a1b9f2c5⟧ Bits:30005310/disk3.imd Open Access II v2.10 (dansk)
    └─⟦this⟧ »CRDCVT1.TXT« 

TextFile

! CRDCVT1
! Open CARD.DF
VIEW oldcard = from CARDS.DF
USE oldcard
! Open CARDSPI.DF  - change this if you want a different file name 
VIEW newcard = from CARDSPI.DF
USE newcard
!open reject file 
FILE crdrej = "FILE" TO "CRDREJ.TXT"
! change this if you want a different file name 
OUT TO crdrej "*** CARDSPI Records which may need editing***" , DO NEWLINE
FIND oldcard TOP 
!Ask user a series of menus to retrieve old format
value1 = 0
value2 = 0
value3 = 0
value4 = 0 
value5 = 0 
!GET ADD1 
menufield1 = "ADD1" 
menufield2 = oldcard.add1 
! call menu - send in field string - returns type in menuvalue
DO crdmenu 
value1 = menuvalue 
!menuvalue -1 if undo was pressed from crdmenu
IF MENUVALUE > -1 
   !GET ADD2
   menufield1 = "ADD2"
   menufield2 = oldcard.add2 
   DO crdmenu 
   value2 = menuvalue 
   IF MENUVALUE > -1
      !GET ADD3
      menufield1 = "ADD3"
      menufield2 = oldcard.add3 
      DO crdmenu 
      value3 = menuvalue 
      END IF 
      IF MENUVALUE > -1
         !GET ADD4
         menufield1 = "ADD4"
         menufield2 = oldcard.add4 
         DO crdmenu 
         value4 = menuvalue 
         END IF 
         IF MENUVALUE > -1
            !GET ADD5 
            menufield1 = "ADD5"
            menufield2 = oldcard.add5 
            DO crdmenu 
            value5 = menuvalue
            END IF 
   END IF 
IF menuvalue > -1  
   !Create CARDSPI file from CARDS - sitting at top of file already 
   totalrecs = COUNT(oldcard) 
   PUT AT 1,1 "There are ",totalrecs," records in the CARDS file" 
   x = 0 
   GO = TRUE 
   WHILE RECNO(oldcard) > 0 AND GO 
      !put record numbers out to let user know pgm is still alive 
      x = x +1
      IF totalrecs < 20 
         PUT AT 1,2 "<",x,">" 
      ELSE 
         IF (x MOD 10 = 0) or x = 1 
           PUT AT 1,2 "<",x,">" 
           END IF 
         END IF 
      !convert oldcard to newcard
      NEW newcard    ! init fields 
      newcard.homephone = oldcard.homephone
      newcard.businessp = oldcard.businessp
      menufield = oldcard.add1
      menuvalue = value1 
      DO CRDCVT2 
      menufield = oldcard.add2
      menuvalue = value2
      DO CRDCVT2 
      menufield = oldcard.add3
      menuvalue = value3 
      DO CRDCVT2 
      menufield = oldcard.add4
      menuvalue = value4 
      DO CRDCVT2 
      menufield = oldcard.add5
      menuvalue = value5 
      DO CRDCVT2
      !!! DEBUG 
      !!!PUT AT 1,3, "", DO CLEAR END SCREEN 
      !!!PUT AT 1,3 "LASTNAME = " & newcard.lastname
      !!!PUT ", FIRSTNAME = " & newcard.firstname 
      !!!PUT ", MIDDLE = " & newcard.middle
      !!!PUT AT 1,4 "ADD1 = " & newcard.add1 
      !!!PUT AT 1,5 "ADD2 = " & newcard.add2 
      !!!PUT AT 1,6 "ADD3 = " & newcard.add3 
      !!!PUT AT 1,7 "ADD4 = " & newcard.add4
      !!!PUT AT 1,8 "COMPANY = " & newcard.company
      !!!PUT AT 1,9 "ATTRIBUTE = " & newcard.attribute
      !!!GO = true
      !!!GET GO 
      INSERT newcard 
      !get next card record 
      FIND oldcard NEXT 
      END WHILE 
      menuvalue = 0 
   END IF !menuvalue > -1 
! close files 
USE oldcard END
USE newcard END 
!close output file 
FILE crdrej END
«eof»