.define DDINFO_STRUCTURE
.include "RPSLIB:ddinfo.def"

;;; <summary>
;;; Given a repository structure, returns the file specs of all assigned data files.
;;; </summary>
;;; <param name="StructureName">Structure name</param>
;;; <param name="FileSpecs">Runtime array of file spec strings, each of which can be up to 256 characters.</param>
;;; <param name="ErrorMessage">Optionally returned error message</param>
;;; <returns>Returns true on success, otherwise false and an error message.</returns>
function GetStructureFileSpecs, boolean
    required in StructureName, string
    required out FileSpecs, [#]string
    optional out ErrorMessage, string
    record
        ok, boolean, true
        RpsControl, dcs
        StructureInfo, s_info
        RpsFileDefs, [200]a30
        FileInfo, fl_info
        ErrorText, string
    endrecord
proc
    xcall dd_init(RpsControl)
    if (RpsControl.error)
        freturn false

    ;Retrieve structure information for the specified structure
    xcall DD_STRUCT(RpsControl, DDS_INFO, StructureName, StructureInfo)
    if (RpsControl.error)
    begin
        ErrorText = "Structure not found!"
        ok = false
    end

    ;Does it have file assignments?
    if (ok && !StructureInfo.si_nmfils)
    begin
        ErrorText = "Structure is not assigned to any file definitions!"
        ok = false
    end

    ;Retrieve the list of files associated with the structure
    if (ok)
    begin
        data ix, int

        xcall dd_struct(RpsControl,DDS_FILS,StructureInfo.si_nmfils,RpsFileDefs)
        if (RpsControl.error)
        begin
            ErrorText = "Failed to retrieve file definition names for structure!"
            ok = false
        end

        ;Create the system array to return file specs
        FileSpecs = new string[StructureInfo.si_nmfils]

        for ix from 1 thru StructureInfo.si_nmfils
        begin
            ;Retrieve the next file definition
            xcall dd_file(RpsControl,DDL_INFO,RpsFileDefs[ix],FileInfo)
            FileSpecs[ix] = %atrimtostring(FileInfo.fli_fname)
        end
    end

    ;Close repository
    xcall dd_exit(RpsControl)

    if (^passed(ErrorMessage) && !ok)
    begin
        ErrorMessage = ErrorText
    end

    freturn ok

endfunction

main
    record
        fileSpecs, [#]string
        errorMessage, string
    endrecord
proc
    if GetStructureFileSpecs("FRED",fileSpecs,errorMessage) then
    begin
        data ix, int
        for ix from 1 thru fileSpecs.Length
        begin
            Console.WriteLine(fileSpecs[ix])
        end
    end
    else
    begin
        Console.WriteLine("ERROR: " + errorMessage)
    end
    stop
endmain

<CODEGEN_FILENAME>Get<StructureName>FileSpecs.dbl</CODEGEN_FILENAME>
<REQUIRES_CODEGEN_VERSION>5.6.4</REQUIRES_CODEGEN_VERSION>
;;; <summary>
;;; Returns the file specs of all files assigned to structure <STRUCTURE_NAME>.
;;; </summary>
;;; <param name="FileSpecs">Runtime array of file specs or ^null if no assigned files.</param>
subroutine Get<StructureName>FileSpecs
    required out FileSpecs, [#]string
proc
    clear FileSpecs
    if (<STRUCTURE_FILES>) then
    begin
        FileSpecs = new string[<STRUCTURE_FILES>]
        <COUNTER_1_RESET>
        <FILE_LOOP>
        <COUNTER_1_INCREMENT>
        FileSpecs[<COUNTER_1_VALUE>] = "<FLOOP_NAME>"
        </FILE_LOOP>
    end
    xreturn
endsubroutine

;;; <summary>
;;; Returns the file specs of all files assigned to structure CUSTOMER.
;;; </summary>
;;; <param name="FileSpecs">Runtime array of file specs or ^null if no assigned files.</param>
subroutine GetCustomerFileSpecs
    required out FileSpecs, [#]string
proc
    clear FileSpecs
    if (3) then
    begin
        FileSpecs = new string[3]
        FileSpecs[1] = "DAT:customer1.ism"
        FileSpecs[2] = "DAT:customer2.ism"
        FileSpecs[3] = "DAT:customer3.ism"
    end
    xreturn
endsubroutine