'MacroName:SaveRecordAsFile
'MacroDescription:Save the current record as a text file
'Macro originally written by: OCLC, for Passport for Windows (SaveScreen)
'Macro converted for Connexion by: Joel Hahn, Niles Public Library District
'Last modified: 4 February 2004

Declare Function GetRecordData() As String

Sub Main
'$CSTRINGS

Const None$ = ""
Const OneBlankLine$ = "\r\n"
Const TwoBlankLines$ = "\r\n\r\n"
Const FormFeed$ = "\f"
Const BlankStarBlank$ = "\r\n********************************************************************************\r\n\r\n"

'
' To customize the SaveRecord settings do the following:
' To enable extended translation, set Translation = True
' To change the name of the file the data is saved in, modify SaveRecordFilename$
' To select different separation, set SeparationString = <Desired Separation String>
'     (the <Desired Separation String>s are defined above None$, OneBlankLine$, etc.)

SaveRecordFilename$ = "records.txt"
ExtendedTranslation% = False
SeparationString$ = BlankStarBlank$

Const EndOfLineCharacter% = 197
Const SOMCharacter% = 220
Const EOMCharacter% = 221
Const SubfieldCharacter% = 223
Const FillCharacter% = 252

Translated$ = GetRecordData()
If Translated$ = "ERROR" Then
  'MsgBox "No record is available to print"
  Exit Sub
End If

Text$ = ""

If ExtendedTranslation% then
   For Counter% = 1 to Len(Translated$)
      Select Case Mid(Translated$, Counter%, 1)
         Case Chr$(SubfieldCharacter%)
            Text$ = Text$ + Chr$(31)
         Case Chr$(SOMCharacter%)
            Text$ = Text$ + Chr$(28)
         Case Chr$(EOMCharacter%)
            Text$ = Text$ + Chr$(29)
            If (Counter% + 1 <= Len(Translated$)) AND (Mid(Translated$, Counter% + 1, 1) = Chr$(EndOfLineCharacter%)) then
               Counter = Counter +1
            End If
         Case Else
            Text$ = Text$ + Mid(Translated$, Counter%, 1)
      End Select

   Next Counter%   
Else
   For Counter% = 1 to Len(Translated$)
      Char$ = Mid(Translated$, Counter%, 1)
      Select Case Char$
         Case Chr$(SubfieldCharacter%)
            Text$ = Text$ + "$"
         Case Chr$(FillCharacter%)
            Text$ = Text$ + "*"
         Case Else
            If (Char$ > Chr$(127)) then
               if (Char$ <> Chr$(EOMCharacter%)) then Text$ = Text$ + "*"
            Else
               Text$ = Text$ + Char$
            End If
      End Select
    Next Counter%   
End If

FileNumber% = FreeFile
Open SaveRecordFilename$ for Append As FileNumber%

Print # FileNumber%, Text$
Print # FileNumber%, SeparationString$

Close FileNumber%

MsgBox "The record has been added to the file 'records.txt' in your Connexion program directory."
End Sub

Function GetRecordData() As String
  Dim CS as Object
   On Error Resume Next
   Set CS  = GetObject(,"Connex.Client")
   On Error GoTo 0
   If CS  Is Nothing Then
      Set CS  = CreateObject("Connex.Client")
   End If

  If CS.ItemType < 0 Or CS.ItemType > 4 Then
    GetRecordData = "ERROR"
    Exit Function
  End If

  'Get fixed field data
  FFPosition% = CS.FixedFieldPosition
  If FFPosition% = 0 Then
    CS.FixedFieldPosition = 1
  End If

  bool = CS.GetFixedField("Type", RecType$)
  If RecType$ <> "z" Then
    'Bibliographic record
    
    'Get LDR and non-008 fields  
    bool = CS.GetFixedField("Rec Stat", RecStat$)
    bool = CS.GetFixedField("BLvl", BLvl$)
    bool = CS.GetFixedField("Ctrl", Ctrl$)
    bool = CS.GetFixedField("ELvl", ELvl$)
    bool = CS.GetFixedField("Desc", Desc$)
    bool = CS.GetFixedField("OCLC", OCLC$)
    bool = CS.GetFixedField("Replaced", Replaced$)
    Ctrl$ = Left(Ctrl$ & " ", 1)
    ELvl$ = Left(ELvl$ & " ", 1)
    OCLC$ = Left(OCLC$ & "        ", 8)

    'Get standard 008 fields
    bool = CS.GetFixedField("Entered", Entered$)
    bool = CS.GetFixedField("DtSt", DtSt$)
    bool = CS.GetFixedField("Dates", Dates1$)
    bool = CS.GetFixedField(",", Dates2$)
    bool = CS.GetFixedField("Ctry", Ctry$)
    bool = CS.GetFixedField("Lang", Lang$)
    bool = CS.GetFixedField("MRec", MRec$)
    bool = CS.GetFixedField("Srce", Srce$)
    Dates1$ = Left(Dates1$ & "    ", 4)
    MRec$ = Left(MRec$ & " ", 1)
    Srce$ = Left(Srce$ & " ", 1)

    'Start setting up output
    outdata$ = "OCLC: " & OCLC$ & "      " & "Rec Stat: " & RecStat$ & "      " & "Entered: " & Entered$ & "      " & "Replaced: " & Replaced$ & "\r\n"

    'Get special 008 fields & set up output
    Select Case RecType$
      Case "a", "t"  'BKS, SER
        If BLvl$ <> "s" Then  'BKS
          bool = CS.GetFixedField("Audn", Audn$)
          bool = CS.GetFixedField("Form", Form$)
          bool = CS.GetFixedField("Conf", Conf$)
          bool = CS.GetFixedField("Biog", Biog$)
          bool = CS.GetFixedField("Cont", Cont$)
          bool = CS.GetFixedField("GPub", GPub$)
          bool = CS.GetFixedField("LitF", LitF$)
          bool = CS.GetFixedField("Indx", Indx$)
          bool = CS.GetFixedField("Ills", Ills$)
          bool = CS.GetFixedField("Fest", Fest$)
          Audn$ = Left(Audn$ & " ", 1)
          Form$ = Left(Form$ & " ", 1)
          Conf$ = Left(Conf$ & " ", 1)
          Biog$ = Left(Biog$ & " ", 1)
          Cont$ = Left(Cont$ & "    ", 4)
          GPub$ = Left(GPub$ & " ", 1)
          LitF$ = Left(LitF$ & " ", 1)
          Indx$ = Left(Indx$ & " ", 1)
          Ills$ = Left(Ills$ & "    ", 4)
          Fest$ = Left(Fest$ & " ", 1)

          outdata$ = outdata$ & "Type: " & RecType$ & "      " & "ELvl: " & ELvl$ & "      " & "Srce: " & Srce$ & "      " & "Audn: " & Audn$ & "      " & "Ctrl: " & Ctrl$ & "      " & "Lang: " & Lang$ & "\r\n"
          outdata$ = outdata$ & "BLvl: " & BLvl$ & "      " & "Form: " & Form$ & "      " & "Conf: " & Conf$ & "      " & "Biog: " & Biog$ & "      " & "MRec: " & MRec$ & "      " & "Ctry: " & Ctry$ & "\r\n"
          outdata$ = outdata$ & "       " & "      " & "Cont: " & Cont$ & "   " & "GPub: " & GPub$ & "      " & "LitF: " & LitF$ & "      " & "Indx: " & Indx$ & "\r\n"
          outdata$ = outdata$ & "Desc: " & Desc$ & "      " & "Ills: " & Ills$ & "   " & "Fest: " & Fest$ & "      " & "DtSt: " & DtSt$ & "      " & "Dates: " & Dates1 & ", " & Dates2 & "\r\n"
        Else  'SER
          bool = CS.GetFixedField("GPub", GPub$)
          bool = CS.GetFixedField("Form", Form$)
          bool = CS.GetFixedField("Conf", Conf$)
          bool = CS.GetFixedField("Freq", Freq$)
          bool = CS.GetFixedField("S/L", SL$)
          bool = CS.GetFixedField("Orig", Orig$)
          bool = CS.GetFixedField("EntW", EntW$)
          bool = CS.GetFixedField("Regl", Regl$)
          bool = CS.GetFixedField("ISSN", ISSN$)
          bool = CS.GetFixedField("Alph", Alph$)
          bool = CS.GetFixedField("SrTp", SrTp$)
          bool = CS.GetFixedField("Cont", Cont$)
          GPub$ = Left(GPub$ & " ", 1)
          Form$ = Left(Form$ & " ", 1)
          Conf$ = Left(Conf$ & " ", 1)
          Freq$ = Left(Freq$ & " ", 1)
          SL$ = Left(SL$ & " ", 1)
          Orig$ = Left(Orig$ & " ", 1)
          EntW$ = Left(EntW$ & " ", 1)
          Regl$ = Left(Regl$ & " ", 1)
          ISSN$ = Left(ISSN$ & " ", 1)
          Alph$ = Left(Alph$ & " ", 1)
          SrTp$ = Left(SrTp$ & " ", 1)
          Cont$ = Left(Cont$ & "   ", 3)

          outdata$ = outdata$ & "Type: " & RecType$ & "      " & "ELvl: " & ELvl$ & "      " & "Srce: " & Srce$ & "      " & "GPub: " & GPub$ & "      " & "Ctrl: " & Ctrl$ & "      " & "Lang: " & Lang$ & "\r\n"
          outdata$ = outdata$ & "BLvl: " & BLvl$ & "      " & "Form: " & Form$ & "      " & "Conf: " & Conf$ & "      " & "Freq: " & Freq$ & "      " & "MRec: " & MRec$ & "      " & "Ctry: " & Ctry$ & "\r\n"
          outdata$ = outdata$ & "S/L:  " & SL$ & "      " & "Orig: " & Orig$ & "      " & "EntW: " & EntW$ & "      " & "Regl: " & Regl$ & "      " & "ISSN: " & ISSN$ & "      " & "Alph: " & Alph$ & "\r\n"
          outdata$ = outdata$ & "Desc: " & Desc$ & "      " & "SrTp: " & SrTp$ & "      " & "Cont: " & Cont$ & "    " & "DtSt: " & DtSt$ & "      " & "Dates: " & Dates1 & ", " & Dates2 & "\r\n"
        End If
      Case "g", "k", "r", "o"  'VIS
        bool = CS.GetFixedField("Audn", Audn$)
        bool = CS.GetFixedField("Form", Form$)
        bool = CS.GetFixedField("GPub", GPub$)
        bool = CS.GetFixedField("Time", PTime$)
        bool = CS.GetFixedField("TMat", TMat$)
        bool = CS.GetFixedField("Tech", Tech$)
        Audn$ = Left(Audn$ & " ", 1)
        Form$ = Left(Form$ & " ", 1)
        GPub$ = Left(GPub$ & " ", 1)
        PTime$ = Left(PTime$ & "   ", 3)
        TMat$ = Left(TMat$ & " ", 1)
        Tech$ = Left(Tech$ & " ", 1)

        outdata$ = outdata$ & "Type: " & RecType$ & "      " & "ELvl: " & ELvl$ & "      " & "Srce: " & Srce$ & "      " & "Audn: " & Audn$ & "      " & "Ctrl: " & Ctrl$ & "      " & "Lang: " & Lang$ & "\r\n"
        outdata$ = outdata$ & "BLvl: " & BLvl$ & "      " & "Form: " & Form$ & "      " & "GPub: " & GPub$ & "      " & "Time: " & PTime$ & "    " & "MRec: " & MRec$ & "      " & "Ctry: " & Ctry$ & "\r\n"
        outdata$ = outdata$ & "Desc: " & Desc$ & "      " & "TMat: " & TMat$ & "      " & "Tech: " & Tech$ & "      " & "DtSt: " & DtSt$ & "      " & "Dates: " & Dates1 & ", " & Dates2 & "\r\n"
      Case "p"  'MIX
        bool = CS.GetFixedField("Form", Form$)
        Form$ = Left(Form$ & " ", 1)

        outdata$ = outdata$ & "Type: " & RecType$ & "      " & "ELvl: " & ELvl$ & "      " & "Srce: " & Srce$ & "      " & "       " & "      " & "Ctrl: " & Ctrl$ & "      " & "Lang: " & Lang$ & "\r\n"
        outdata$ = outdata$ & "BLvl: " & BLvl$ & "      " & "Form: " & Form$ & "      " & "       " & "      " & "       " & "      " & "MRec: " & MRec$ & "      " & "Ctry: " & Ctry$ & "\r\n"
        outdata$ = outdata$ & "Desc: " & Desc$ & "      " & "       " & "      " & "       " & "      " & "DtSt: " & DtSt$ & "      " & "Dates: " & Dates1 & ", " & Dates2 & "\r\n"
      Case "e", "f"  'MAP
        bool = CS.GetFixedField("Relf", Relf$)
        bool = CS.GetFixedField("Form", Form$)
        bool = CS.GetFixedField("GPub", GPub$)
        bool = CS.GetFixedField("SpFm", SpFm$)
        bool = CS.GetFixedField("CrTp", CrTp$)
        bool = CS.GetFixedField("Indx", Indx$)
        bool = CS.GetFixedField("Proj", Proj$)
        Relf$ = Left(Relf$ & "    ", 4)
        Form$ = Left(Form$ & " ", 1)
        GPub$ = Left(GPub$ & " ", 1)
        SpFm$ = Left(SpFm$ & "  ", 2)
        CrTp$ = Left(CrTp$ & " ", 1)
        Indx$ = Left(Indx$ & " ", 1)
        Proj$ = Left(Proj$ & "  ", 2)

        outdata$ = outdata$ & "Type: " & RecType$ & "      " & "ELvl: " & ELvl$ & "      " & "Srce: " & Srce$ & "      " & "Relf: " & Relf$ & "   " & "Ctrl: " & Ctrl$ & "      " & "Lang: " & Lang$ & "\r\n"
        outdata$ = outdata$ & "BLvl: " & BLvl$ & "      " & "Form: " & Form$ & "      " & "GPub: " & GPub$ & "      " & "SpFm: " & SpFm$ & "     " & "MRec: " & MRec$ & "      " & "Ctry: " & Ctry$ & "\r\n"
        outdata$ = outdata$ & "CrTp: " & CrTp$ & "      " & "Indx: " & Indx$ & "      " & "Proj: " & Proj$ & "     " & "DtSt: " & DtSt$ & "      " & "Dates: " & Dates1 & ", " & Dates2 & "\r\n"
        outdata$ = outdata$ & "Desc: " & Desc$ & "\r\n"
      Case "c", "d", "i", "j"  'SCO, REC
        bool = CS.GetFixedField("Audn", Audn$)
        bool = CS.GetFixedField("Form", Form$)
        bool = CS.GetFixedField("Comp", Comp$)
        bool = CS.GetFixedField("AccM", AccM$)
        bool = CS.GetFixedField("FMus", FMus$)
        bool = CS.GetFixedField("LTxt", LTxt$)
        Audn$ = Left(Audn$ & " ", 1)
        Form$ = Left(Form$ & " ", 1)
        Comp$ = Left(Comp$ & "  ", 2)
        AccM$ = Left(AccM$ & "      ", 6)
        FMus$ = Left(FMus$ & " ", 1)
        LTxt$ = Left(LTxt$ & "  ", 2)

        outdata$ = outdata$ & "Type: " & RecType$ & "      " & "ELvl: " & ELvl$ & "      " & "Srce: " & Srce$ & "      " & "Audn: " & Audn$ & "      " & "Ctrl: " & Ctrl$ & "      " & "Lang: " & Lang$ & "\r\n"
        outdata$ = outdata$ & "BLvl: " & BLvl$ & "      " & "Form: " & Form$ & "      " & "Comp: " & Comp$ & "     " & "AccM: " & AccM$ & " " & "MRec: " & MRec$ & "      " & "Ctry: " & Ctry$ & "\r\n"
        outdata$ = outdata$ & "Desc: " & Desc$ & "      " & "FMus: " & FMus$ & "      " & "LTxt: " & LTxt$ & "     " & "DtSt: " & DtSt$ & "      " & "Dates: " & Dates1 & ", " & Dates2 & "\r\n"
      Case "m"  'COM
        bool = CS.GetFixedField("Audn", Audn$)
        bool = CS.GetFixedField("File", File$)
        bool = CS.GetFixedField("GPub", GPub$)
        Audn$ = Left(Audn$ & " ", 1)
        File$ = Left(File$ & " ", 1)
        GPub$ = Left(GPub$ & "  ", 2)

        outdata$ = outdata$ & "Type: " & RecType$ & "      " & "ELvl: " & ELvl$ & "      " & "Srce: " & Srce$ & "      " & "Audn: " & Audn$ & "      " & "Ctrl: " & Ctrl$ & "      " & "Lang: " & Lang$ & "\r\n"
        outdata$ = outdata$ & "BLvl: " & BLvl$ & "      " & "File: " & File$ & "      " & "GPub: " & GPub$ & "      " & "      " & "      " & "MRec: " & MRec$ & "      " & "Ctry: " & Ctry$ & "\r\n"
        outdata$ = outdata$ & "Desc: " & Desc$ & "      " & "       " & "      " & "       " & "      " & "DtSt: " & DtSt$ & "      " & "Dates: " & Dates1 & ", " & Dates2 & "\r\n"
      Case Else
        GetRecordData = "ERROR"
        Exit Function
    End Select
  Else
    'Authority record

    'Get LDR and non-008 fields
    bool = CS.GetFixedField("Rec Stat", RecStat$)
    bool = CS.GetFixedField("ARN", ARN$)

    'Get 008 fields
    bool = CS.GetFixedField("Entered", Entered$)
    bool = CS.GetFixedField("Replaced", Replaced$)
    bool = CS.GetFixedField("Upd status", UpdStatus$)
    bool = CS.GetFixedField("Enc lvl", ELvl$)
    bool = CS.GetFixedField("Source", Source$)
    bool = CS.GetFixedField("Roman", Roman$)
    bool = CS.GetFixedField("Ref status", RefStatus$)
    bool = CS.GetFixedField("Mod rec", MRec$)
    bool = CS.GetFixedField("Name use", NameUse$)
    bool = CS.GetFixedField("Govt agn", GovtAgn$)
    bool = CS.GetFixedField("Auth status", AuthStatus$)
    bool = CS.GetFixedField("Subj", Subj$)
    bool = CS.GetFixedField("Subj use", SubjUse$)
    bool = CS.GetFixedField("Series", Series$)
    bool = CS.GetFixedField("Auth/ref", AuthRef$)
    bool = CS.GetFixedField("Geo subd", GeoSubd$)
    bool = CS.GetFixedField("Ser use", SerUse$)
    bool = CS.GetFixedField("Ser num", SerNum$)
    bool = CS.GetFixedField("Name", IsName$)
    bool = CS.GetFixedField("Subdiv tp", SubTp$)
    bool = CS.GetFixedField("Rules", Rules$)

    'Set up output
    outdata$ = "ARN: " & ARN$ & "\r\n"
    outdata$ = outdata$ & "Rec stat: " & RecStat$ & "        " & "Entered: " & Entered$ & "        " & "Replaced: " & Replaced$ & "\r\n"
    outdata$ = outdata$ & "Type:     " & RecType$ & "        " & "Upd status:  " & UpdStatus$ & "        " & "Enc lvl:   " & ELvl$ & "        " & "Source:   " & Source$ & "\r\n"
    outdata$ = outdata$ & "Roman:    " & Roman$ & "        " & "Ref status:  " & RefStatus$ & "        " & "Mod rec:   " & MRec$ & "        " & "Name use: " & NameUse$ & "\r\n"
    outdata$ = outdata$ & "Govt agn: " & GovtAgn$ & "        " & "Auth status: " & AuthStatus$ & "        " & "Subj:      " & Subj$ & "        " & "Subj use: " & SubjUse$ & "\r\n"
    outdata$ = outdata$ & "Series:   " & Series$ & "        " & "Auth/ref:    " & AuthRef$ & "        " & "Geo subd:  " & GeoSubd$ & "        " & "Ser use:  " & SerUse$ & "\r\n"
    outdata$ = outdata$ & "Ser num:  " & SerNum$ & "        " & "Name:        " & IsName$ & "        " & "Subdiv tp: " & SubTp$ & "        " & "Rules:    " & Rules$ & "\r\n"
  End If
  
  'Get variable field data
  bool = TRUE : TagNum% = 0
  Do Until bool = FALSE
    TagNum% = TagNum% + 1
    bool = CS.GetFieldLine(TagNum%, indata$)
    If bool = TRUE Then
      outdata$ = outdata$ & Mid(indata$, 1, 3) & " " & Mid(indata$, 4, 2) & " " & Mid(indata$, 6) & "\r\n"
      GetRecordData = outdata$
    End If
  Loop

  If FFPosition% = 0 Then
    CS.FixedFieldPosition = 0
  End If
End Function