Pete's Dumb Idea of the Day!

[CharlieJV]

    Select Case UCase$(DataName)
        Case "SEPARATORS"
            Restore Separators
        Case "HEADER"
            Restore Header
        Case "TRAILER"
            Restore Trailer
        Case "DETAILSEGMENTS"
            Restore DetailSegments
        Case "LOOPS"
            Restore Loops
        Case "DOCUMENTS"
            Restore Documents
        Case "VERSIONS"
            Restore Versions
        Case "DOCUMENTTYPES"
            Restore DocumentTypes
    End Select

Just because it helps me with focus/distraction and managing challenges with cognitive overload and overstimulation, I added this kind of ability to BAM:

Code: (Select All)

Restore Eval( UCase$(DataName) )

"Eval" not being a function, but just a keyword to let the implementation of "Restore" know that what is coming is not a line labels.