DataMuseum.dk

top - metrics - download

    Length: 2560 (0xa00)
    Types: TextFile
    Names: »CRDCVT4.TXT«

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

TextFile

! CRDCVT4 
! calls parseing routine to get FIRST, MIDDLE, LAST
p1 = 1
len = length(menufield)
!get first name
newfield = "" 
DO CRDPARSE    !returns newfield 
! more string left - parse middle and last name 
IF P1 <= len 
   !check firstname length and save
   IF LENGTH(newfield) > 15   ! is firstname too big
      OUT TO crdrej menufield 
      OUT TO crdrej " *** FIRSTNAME TOO LARGE TRUNCATED ***", DO NEWLINE 
      newfield = EXTRACT(newfield,1,15) 
      END IF
   newcard.firstname = newfield 
   !get middle name
   DO CRDPARSE  !returns newfield 
   IF p1 <= len
      !check middle length and save
      IF LENGTH(newfield) > 15   ! is middle too big
         OUT TO crdrej menufield 
         OUT TO crdrej " *** MIDDLE TOO LARGE TRUNCATED ***", DO NEWLINE 
         newfield = EXTRACT(newfield,1,15) 
         END IF  
      newcard.middle = newfield 
      !get last name
      DO CRDPARSE  !returns newfield 
      IF length(newfield) > 25   ! is lastname too big
         OUT TO crdrej menufield 
         OUT TO crdrej " *** LASTNAME TOO LARGE TRUNCATED ***", DO NEWLINE 
         newfield = EXTRACT(newfield,1,25) 
         END IF  
      newcard.lastname = newfield
      IF p1 <= len 
         OUT TO crdrej menufield 
         OUT TO crdrej " *** DATA LEFTOVER AFTER PARSE ***", DO NEWLINE 
         END IF 
   ELSE   ! no middle found assume lastname
      IF length(newfield) > 25   ! is lastname too big
         OUT TO crdrej menufield 
         OUT TO crdrej " *** LASTNAME TOO LARGE TRUNCATED ***", DO NEWLINE 
         newfield = EXTRACT(newfield,1,25) 
         END IF  
      newcard.lastname = newfield 
      END IF 
ELSE   ! only one name assume lastname 
   OUT TO crdrej menufield 
   OUT TO crdrej " *** ONLY LAST NAME FOUND - NO FIRST OR MIDDLE ***", DO NEWLINE 
   IF length(newfield) > 25   ! is lastname too big
      OUT TO crdrej menufield 
      OUT TO crdrej " *** LASTNAME TOO LARGE TRUNCATED ***", DO NEWLINE 
      newfield = EXTRACT(newfield,1,25) 
      END IF  
   newcard.lastname = newfield 
   END IF  
«eof»