DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC759 "Piccoline"

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RegneCentralen RC759 "Piccoline"

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦f2a9e609f⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »CRDCVT2.TXT«

Derivation

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

TextFile

! CRDCVT2
! This does the convert for each ADD field.  The appropriate database 
! fields are created for the new card file. 
! Menufield is the contents of the ADD field
! Menuvalue is the type on convert to perform on the ADD field
IF menuvalue > 0           !DISCARD 
   IF menuvalue = 1        !ADD1 
      newcard.add1 = menufield 
   ELSE IF menuvalue = 2   !ADD2 
      newcard.add2 = menufield 
   ELSE IF menuvalue = 3   !ADD3 
      newcard.add3 = menufield 
   ELSE IF menuvalue = 4   !ADD4 
      newcard.add4 = menufield 
   ELSE IF menuvalue = 5   !COMPANY
      newfield = menufield 
      IF LENGTH(newfield) > 25   ! is company too big
         OUT TO crdrej menufield 
         OUT TO crdrej " *** COMPANY TOO LARGE TRUNCATED ***", DO NEWLINE 
         newfield = EXTRACT(newfield,1,25) 
         END IF
      newcard.company = newfield 
   ELSE IF menuvalue = 6   !ATTRIBUTE 
      newfield = menufield 
      IF LENGTH(newfield) > 15   ! is attribute too big
         OUT TO crdrej menufield 
         OUT TO crdrej " *** ATTRIBUTE TOO LARGE TRUNCATED ***", DO NEWLINE 
         newfield = EXTRACT(newfield,1,15) 
         END IF
      newcard.attribute = newfield 
   ELSE IF menuvalue = 7   !LAST_FIRST_MI 
      DO CRDCVT3   !PARSE 
   ELSE IF menuvalue = 8   !FIRST_LAST_MI 
      DO CRDCVT4   !PARSE
      END IF 
   END IF 
«eof»