| David,
ALL-IN-1 v2.2 didn't have first and last name fields, they were
introduced in v2.3 so how did you store them? a customised profile
perhaps. The only name related field that existed in pre-v2.3 days was
FULNAM is this the field you're looking at?
Regards,
Andrew.D.Wicks
|
| Hi,
I think this one is in my recall buffer.
PROFILE_CONVERT.SCP of V2.3 contains a minor typo:
Find the line that contains $USER_KEY . Change it to #USER_KEY .
Regards,
Jan
!
! PROFILE_CONVERT.SCP
!
! Converts the V2.2, V2.1 or BEV 2.1 Profile file into an Amethyst
! (V2.3) Profile file.
!-------------------------------------------------------------------------------
!
! first move over all the record elements with the same name
!
YESNO_PROMPT "Is your system a v2.2 ALL-IN-1 system ? [N] : "
.IF OA$PROMPT_TEXT:1 NES OA$Y THEN .GOTO NOT_V22
OA$CNV_MERGE V22_PROFIL, PROFIL
.GOTO NAME_CONVERT
!
.LABEL NOT_V22
YESNO_PROMPT "Is your system a v2.1 ALL-IN-1 system ? [N] : "
.IF OA$PROMPT_TEXT:1 NES OA$Y THEN .GOTO NOT_V21
OA$CNV_MERGE V21_PROFIL, PROFIL
.GOTO NAME_CONVERT
!
.LABEL NOT_V21
YESNO_PROMPT "Is your system a v2.1 BEV ALL-IN-1 system ? [N] : "
.IF OA$PROMPT_TEXT:1 NES OA$Y THEN .GOTO NOT_ANY
OA$CNV_MERGE V21BEV_PROFIL, PROFIL
!
! Attempt to generate sensible names from the FULNAM field in 2.1/2
!
.LABEL NAME_CONVERT
FOR PROFIL DO -
GET #FULNAM = .FULNAM\\ -
GET #VMSUSER = .VMSUSR\\ -
GET #USER_KEY = .USER\\ -
COMMAND NAME_CONVERT.COM\\ -
-------> WRITE CHANGE PROFIL USER = $USER_KEY, -
SURNAME1 = #SURNAM1, -
SURNAME2 = #VMSUSER, -
FORENAME1 = #FORNAM1, -
FORENAME2 = #FORNAM2, -
FORENAME3 = #FORNAM3, -
FORENAME4 = #FORNAM4, -
FORENAME5 = #FORNAM5, -
INITIALS1 = #INITS
|