|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »CRDCVT3.TXT«
└─⟦6a1b9f2c5⟧ Bits:30005310/disk3.imd Open Access II v2.10 (dansk)
└─⟦this⟧ »CRDCVT3.TXT«
! CRDCVT3
! calls parseing routine to get last, first, mi
p1 = 1
len = length(menufield)
!get last name
newfield = ""
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 more string left get first name
newfield = ""
IF P1 <= len
DO CRDPARSE !returns newfield
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 if more string left
newfield = ""
IF P1 <= len
DO CRDPARSE !returns newfield
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
IF p1 <= len
OUT TO crdrej menufield
OUT TO crdrej " *** DATA LEFTOVER AFTER PARSE ***", DO NEWLINE
END IF
END IF !p1 <= length(menufield) - there is a middle name
ELSE !no firstname
OUT TO crdrej menufield
OUT TO crdrej " *** FIRSTNAME NOT FOUND ***", DO NEWLINE
END IF !p1 <= length(menufield) - there is a firstname
«eof»