Пример #1
0
        public static List <ILEObject[]> GetProgramReferences(string Lib, string Obj = "*ALL")
        {
            List <ILEObject[]> Items = new List <ILEObject[]>();
            string             Line, Library, Object, RefObj, RefLib, Type;

            Lib = Lib.ToUpper();
            Obj = Obj.ToUpper();

            if (IBMi.IsConnected())
            {
                if (Lib == "*CURLIB")
                {
                    Lib = IBMi.CurrentSystem.GetValue("curlib");
                }
                Editor.TheEditor.SetStatus("Fetching references for " + Lib + "/" + Obj + "...");

                UsingQTEMPFiles(new[] { "REFS", "REFSB" });

                IBMi.RemoteCommand("DSPPGMREF PGM(" + Lib + "/" + Obj + ") OUTPUT(*OUTFILE) OUTFILE(QTEMP/REFS)");
                IBMi.RemoteCommand("RUNSQL SQL('CREATE TABLE QTEMP/REFSB AS (SELECT WHLIB, WHPNAM, WHFNAM, WHLNAM, WHOTYP FROM qtemp/refs) WITH DATA') COMMIT(*NONE)");

                string file = DownloadMember("QTEMP", "REFSB", "REFSB");

                if (file != "")
                {
                    foreach (string RealLine in File.ReadAllLines(file))
                    {
                        if (RealLine.Trim() != "")
                        {
                            Line    = RealLine.PadRight(52);
                            Library = Line.Substring(0, 10).Trim();
                            Object  = Line.Substring(10, 10).Trim();
                            RefObj  = Line.Substring(20, 11).Trim();
                            RefLib  = Line.Substring(31, 11).Trim();
                            Type    = Line.Substring(42, 10).Trim();

                            if (Library != "")
                            {
                                Items.Add(new[] { new ILEObject(Library, Object), new ILEObject(RefLib, RefObj, Type) });
                            }
                        }
                    }
                }
                else
                {
                    return(null);
                }

                Editor.TheEditor.SetStatus("Fetched references for " + Lib + " / " + Obj + ".");
            }
            else
            {
                Editor.TheEditor.SetStatus("Cannot fetch references when offline.");
                return(null);
            }

            return(Items);
        }
Пример #2
0
        public static Member[] GetMemberList(string Lib, string Obj)
        {
            List <Member> Members = new List <Member>();

            Lib = Lib.ToUpper();
            Obj = Obj.ToUpper();

            if (Lib == "*CURLIB")
            {
                Lib = IBMi.CurrentSystem.GetValue("curlib");
            }
            Editor.TheEditor.SetStatus("Fetching members for " + Lib + "/" + Obj + "...");

            IBMi.RemoteCommand("DLTOBJ OBJ(QTEMP/MEMBERS) OBJTYPE(*FILE)", false);
            IBMi.RemoteCommand("DLTOBJ OBJ(QTEMP/" + Obj + ") OBJTYPE(*FILE)", false);

            IBMi.RemoteCommand("DSPFD FILE(" + Lib + "/" + Obj + ") TYPE(*MBR) OUTPUT(*OUTFILE) OUTFILE(QTEMP/MEMBERS)");
            IBMi.RemoteCommand("RUNSQL SQL('CREATE TABLE QTEMP/" + Obj + " AS (SELECT MBFILE, MBNAME, MBMTXT, MBSEU2, char(MBMXRL) as MBMXRL FROM QTEMP/MEMBERS order by MBNAME) WITH DATA') COMMIT(*NONE)");

            string file = DownloadMember("QTEMP", Obj, Obj);

            string Line, Object, Name, Desc, Type, RcdLen;

            if (file != "")
            {
                Member NewMember;
                foreach (string RealLine in File.ReadAllLines(file))
                {
                    if (RealLine.Trim() != "")
                    {
                        Line   = RealLine.PadRight(90);
                        Object = Line.Substring(0, 10).Trim();
                        Name   = Line.Substring(10, 10).Trim();
                        Desc   = Line.Substring(20, 50).Trim();
                        Type   = Line.Substring(70, 10).Trim();
                        RcdLen = Line.Substring(80, 7).Trim();

                        if (Name != "")
                        {
                            NewMember       = new Member("", Lib, Object, Name, Type, true, int.Parse(RcdLen) - 12);
                            NewMember._Text = Desc;

                            Members.Add(NewMember);
                            MemberCache.AddMember(Lib + "/" + Object + "." + Name, Type);
                        }
                    }
                }
            }
            else
            {
                return(null);
            }

            Editor.TheEditor.SetStatus("Fetched members for " + Lib + " / " + Obj + ".");

            return(Members.ToArray());
        }
Пример #3
0
        public static SpoolFile[] GetSpoolListing(string Lib, string Obj)
        {
            if (IBMi.IsConnected())
            {
                List <SpoolFile> Listing  = new List <SpoolFile>();
                List <string>    commands = new List <string>();

                string file = "";

                if (Lib != "" && Obj != "")
                {
                    Editor.TheEditor.SetStatus("Fetching spool file listing.. (can take a moment)");

                    UsingQTEMPFiles(new[] { "SPOOL" });
                    IBMi.RemoteCommand("RUNSQL SQL('CREATE TABLE QTEMP/SPOOL AS (SELECT Char(SPOOLED_FILE_NAME) as a, Char(COALESCE(USER_DATA, '''')) as b, Char(JOB_NAME) as c, Char(STATUS) as d, Char(FILE_NUMBER) as e FROM TABLE(QSYS2.OUTPUT_QUEUE_ENTRIES(''" + Lib + "'', ''" + Obj + "'', ''*NO'')) A WHERE USER_NAME = ''" + IBMi.CurrentSystem.GetValue("username").ToUpper() + "'' ORDER BY CREATE_TIMESTAMP DESC FETCH FIRST 25 ROWS ONLY) WITH DATA') COMMIT(*NONE)");
                    file = DownloadMember("QTEMP", "SPOOL", "SPOOL");
                    Editor.TheEditor.SetStatus("Finished fetching spool file listing.");
                }

                if (file != "")
                {
                    string Line, SpoolName, UserData, Job, Status, Number;
                    foreach (string RealLine in File.ReadAllLines(file))
                    {
                        if (RealLine.Trim() != "")
                        {
                            Line      = RealLine.PadRight(75);
                            SpoolName = Line.Substring(0, 10).Trim();
                            UserData  = Line.Substring(10, 10).Trim();
                            Job       = Line.Substring(20, 28).Trim();
                            Status    = Line.Substring(48, 15).Trim();
                            Number    = Line.Substring(63, 11);

                            if (SpoolName != "")
                            {
                                Listing.Add(new SpoolFile(SpoolName, UserData, Job, Status, int.Parse(Number)));
                            }
                        }
                    }

                    return(Listing.Count > 0 ? Listing.ToArray() : null);
                }
                else
                {
                    return(null);
                }
            }
            else
            {
                return(null);
            }
        }
Пример #4
0
        public static SpoolFile[] GetSpoolListing(string Lib, string Obj)
        {
            if (IBMi.IsConnected())
            {
                List <SpoolFile> Listing  = new List <SpoolFile>();
                List <string>    commands = new List <string>();

                string file = "";

                if (Lib != "" && Obj != "")
                {
                    UsingQTEMPFiles(new[] { "SPOOL" });

                    Editor.TheEditor.SetStatus("Fetching spool file listing.. (can take a moment)");
                    file = DownloadMember("QTEMP", "SPOOL", "SPOOL");
                    Editor.TheEditor.SetStatus("Finished fetching spool file listing.");
                }

                if (file != "")
                {
                    string Line, SpoolName, UserData, Job, Status, Number;
                    foreach (string RealLine in File.ReadAllLines(file))
                    {
                        if (RealLine.Trim() != "")
                        {
                            Line      = RealLine.PadRight(75);
                            SpoolName = Line.Substring(0, 10).Trim();
                            UserData  = Line.Substring(10, 10).Trim();
                            Job       = Line.Substring(20, 28).Trim();
                            Status    = Line.Substring(48, 15).Trim();
                            Number    = Line.Substring(63, 11);

                            if (SpoolName != "")
                            {
                                Listing.Add(new SpoolFile(SpoolName, UserData, Job, Status, int.Parse(Number)));
                            }
                        }
                    }

                    return(Listing.Count > 0 ? Listing.ToArray() : null);
                }
                else
                {
                    return(null);
                }
            }
            else
            {
                return(null);
            }
        }
Пример #5
0
        public static BindingEntry[] GetBindingDirectory(string Lib, string Obj)
        {
            if (IBMi.IsConnected())
            {
                string Line = ""; BindingEntry Entry;
                List <BindingEntry> Entries = new List <BindingEntry>();
                if (Lib == "*CURLIB")
                {
                    Lib = IBMi.CurrentSystem.GetValue("curlib");
                }

                IBMi.RemoteCommand("DLTOBJ OBJ(QTEMP/BNDDIR) OBJTYPE(*FILE)", false);
                IBMi.RemoteCommand("DLTOBJ OBJ(QTEMP/BNDDATA) OBJTYPE(*FILE)", false);

                IBMi.RemoteCommand("DSPBNDDIR BNDDIR(" + Lib + "/" + Obj + ") OUTPUT(*OUTFILE) OUTFILE(QTEMP/BNDDIR)");
                IBMi.RemoteCommand("RUNSQL SQL('CREATE TABLE QTEMP/BNDDATA AS (SELECT BNOBNM, BNOBTP, BNOLNM, BNOACT, BNODAT, BNOTIM FROM qtemp/bnddir) WITH DATA ') COMMIT(*NONE)");
                string file = DownloadMember("QTEMP", "BNDDATA", "BNDDATA");

                if (file != "")
                {
                    foreach (string RealLine in File.ReadAllLines(file))
                    {
                        if (RealLine.Trim() != "")
                        {
                            Entry              = new BindingEntry();
                            Line               = RealLine.PadRight(50);
                            Entry.BindingLib   = Lib;
                            Entry.BindingObj   = Obj;
                            Entry.Name         = Line.Substring(0, 10).Trim();
                            Entry.Type         = Line.Substring(10, 7).Trim();
                            Entry.Library      = Line.Substring(17, 10).Trim();
                            Entry.Activation   = Line.Substring(27, 10).Trim();
                            Entry.CreationDate = Line.Substring(37, 6).Trim();
                            Entry.CreationTime = Line.Substring(43, 6).Trim();
                            Entries.Add(Entry);
                        }
                    }
                }
                else
                {
                    return(null);
                }

                return(Entries.ToArray());
            }
            else
            {
                return(null);
            }
        }
Пример #6
0
        public static ILEObject[] GetObjectList(string Lib, string Types = "*PGM *SRVPGM *MODULE")
        {
            string           Line = ""; ILEObject Object;
            List <ILEObject> Objects = new List <ILEObject>();

            if (Lib == "*CURLIB")
            {
                Lib = IBMi.CurrentSystem.GetValue("curlib");
            }

            IBMi.RemoteCommand("DLTOBJ OBJ(QTEMP/OBJLIST) OBJTYPE(*FILE)", false);
            IBMi.RemoteCommand("DLTOBJ OBJ(QTEMP/DATA) OBJTYPE(*FILE)", false);

            IBMi.RemoteCommand("DSPOBJD OBJ(" + Lib + "/*ALL) OBJTYPE(" + Types + ") OUTPUT(*OUTFILE) OUTFILE(QTEMP/objlist)");
            IBMi.RemoteCommand("RUNSQL SQL('CREATE TABLE QTEMP/DATA AS (SELECT ODOBNM, ODOBTP, ODOBAT, char(ODOBSZ) as ODOBSZ, ODOBTX, ODOBOW, ODSRCF, ODSRCL, ODSRCM FROM qtemp/objlist order by ODOBNM) WITH DATA') COMMIT(*NONE)");

            string file = DownloadMember("QTEMP", "DATA", "DATA");

            if (file != "")
            {
                foreach (string RealLine in File.ReadAllLines(file))
                {
                    if (RealLine.Trim() != "")
                    {
                        Object           = new ILEObject();
                        Line             = RealLine.PadRight(135);
                        Object.Library   = Lib;
                        Object.Name      = Line.Substring(0, 10).Trim();
                        Object.Type      = Line.Substring(10, 8).Trim();
                        Object.Extension = Line.Substring(18, 10).Trim();
                        UInt32.TryParse(Line.Substring(28, 12).Trim(), out Object.SizeKB);
                        Object.Text   = Line.Substring(40, 50).Trim();
                        Object.Owner  = Line.Substring(90, 10).Trim();
                        Object.SrcSpf = Line.Substring(100, 10).Trim();
                        Object.SrcLib = Line.Substring(110, 10).Trim();
                        Object.SrcMbr = Line.Substring(120, 10).Trim();

                        Objects.Add(Object);
                    }
                }
            }
            else
            {
                return(null);
            }

            return(Objects.ToArray());
        }
Пример #7
0
        public static RemoteSource[] GetMemberList(string Lib, string Obj)
        {
            string Line, Object, Name, Desc, Type, RcdLen;
            List <RemoteSource> Members = new List <RemoteSource>();
            RemoteSource        NewMember;

            Lib = Lib.ToUpper();
            Obj = Obj.ToUpper();

            if (IBMi.IsConnected())
            {
                if (Lib == "*CURLIB")
                {
                    Lib = IBMi.CurrentSystem.GetValue("curlib");
                }
                Editor.TheEditor.SetStatus("Fetching members for " + Lib + "/" + Obj + "...");

                string TempName = 'M' + Obj;
                if (TempName.Length > 10)
                {
                    TempName = TempName.Substring(0, 10);
                }

                UsingQTEMPFiles(new[] { TempName, Obj });

                IBMi.RemoteCommand("DSPFD FILE(" + Lib + "/" + Obj + ") TYPE(*MBR) OUTPUT(*OUTFILE) OUTFILE(QTEMP/" + TempName + ")");
                IBMi.RemoteCommand("RUNSQL SQL('CREATE TABLE QTEMP/" + Obj + " AS (SELECT MBFILE, MBNAME, MBMTXT, MBSEU2, char(MBMXRL) as MBMXRL FROM QTEMP/" + TempName + " order by MBNAME) WITH DATA') COMMIT(*NONE)");

                string file = DownloadMember("QTEMP", Obj, Obj);

                if (file != "")
                {
                    foreach (string RealLine in File.ReadAllLines(file))
                    {
                        if (RealLine.Trim() != "")
                        {
                            Line   = RealLine.PadRight(90);
                            Object = Line.Substring(0, 10).Trim();
                            Name   = Line.Substring(10, 10).Trim();
                            Desc   = Line.Substring(20, 50).Trim();
                            Type   = Line.Substring(70, 10).Trim();
                            RcdLen = Line.Substring(80, 7).Trim();

                            if (Name != "")
                            {
                                NewMember       = new RemoteSource("", Lib, Object, Name, Type, true, int.Parse(RcdLen) - 12);
                                NewMember._Text = Desc;

                                Members.Add(NewMember);
                                MemberCache.AddMemberCache(Lib + "/" + Object + "." + Name, Type);
                            }
                        }
                    }
                }
                else
                {
                    return(null);
                }

                Editor.TheEditor.SetStatus("Fetched members for " + Lib + " / " + Obj + ".");
            }
            else
            {
                string DirPath = GetLocalDir(Lib, Obj);
                if (Directory.Exists(DirPath))
                {
                    foreach (string file in Directory.GetFiles(DirPath))
                    {
                        Type = Path.GetExtension(file).ToUpper();
                        if (Type.StartsWith("."))
                        {
                            Type = Type.Substring(1);
                        }

                        NewMember       = new RemoteSource(file, Lib, Obj, Path.GetFileNameWithoutExtension(file), Type);
                        NewMember._Text = "";
                        Members.Add(NewMember);
                    }
                }
                else
                {
                    return(null);
                }
            }

            return(Members.ToArray());
        }
Пример #8
0
        public static ILEObject[] GetSPFList(string Lib)
        {
            List <ILEObject> SPFList = new List <ILEObject>();

            Lib = Lib.ToUpper();
            if (Lib == "*CURLIB")
            {
                Lib = IBMi.CurrentSystem.GetValue("curlib");
            }
            if (IBMi.IsConnected())
            {
                string FileA = 'S' + Lib, FileB = "D" + Lib;

                if (FileA.Length > 10)
                {
                    FileA = FileA.Substring(0, 10);
                }
                if (FileB.Length > 10)
                {
                    FileB = FileB.Substring(0, 10);
                }

                UsingQTEMPFiles(new[] { FileA, FileB });

                IBMi.RemoteCommand("DSPFD FILE(" + Lib + "/*ALL) TYPE(*ATR) OUTPUT(*OUTFILE) FILEATR(*PF) OUTFILE(QTEMP/" + FileA + ")");
                IBMi.RemoteCommand("RUNSQL SQL('CREATE TABLE QTEMP/" + FileB + " AS (SELECT PHFILE, PHLIB FROM QTEMP/" + FileA + " WHERE PHDTAT = ''S'' order by PHFILE) WITH DATA') COMMIT(*NONE)");

                Editor.TheEditor.SetStatus("Fetching source-physical files for " + Lib + "...");
                string file = DownloadMember("QTEMP", FileB, FileB);

                if (file != "")
                {
                    Boolean   validName = true;
                    string    Line, Library, Object;
                    ILEObject Obj;
                    foreach (string RealLine in File.ReadAllLines(file))
                    {
                        if (RealLine.Trim() != "")
                        {
                            validName = true;
                            Line      = RealLine.PadRight(31);
                            Object    = Line.Substring(0, 10).Trim();
                            Library   = Line.Substring(10, 10).Trim();

                            Obj         = new ILEObject();
                            Obj.Library = Library;
                            Obj.Name    = Object;

                            foreach (string Name in IgnorePFs)
                            {
                                if (Obj.Name.StartsWith(Name))
                                {
                                    validName = false;
                                }
                            }

                            if (validName)
                            {
                                SPFList.Add(Obj);
                            }
                        }
                    }
                }
                else
                {
                    return(null);
                }
                Editor.TheEditor.SetStatus("Fetched source-physical files for " + Lib + ".");
            }
            else
            {
                string DirPath = GetLocalDir(Lib);
                if (Directory.Exists(DirPath))
                {
                    foreach (string dir in Directory.GetDirectories(DirPath))
                    {
                        SPFList.Add(new ILEObject {
                            Library = Lib, Name = Path.GetDirectoryName(dir)
                        });
                    }
                }
                else
                {
                    return(null);
                }
            }

            return(SPFList.ToArray());
        }
Пример #9
0
        public static ILEObject[] GetObjectList(string Lib, string Types = "*PGM *SRVPGM *MODULE")
        {
            if (IBMi.IsConnected())
            {
                string           Line = ""; ILEObject Object;
                List <ILEObject> Objects = new List <ILEObject>();
                if (Lib == "*CURLIB")
                {
                    Lib = IBMi.CurrentSystem.GetValue("curlib");
                }

                string FileA = 'O' + Lib, FileB = "T" + Lib;

                if (FileA.Length > 10)
                {
                    FileA = FileA.Substring(0, 10);
                }
                if (FileB.Length > 10)
                {
                    FileB = FileB.Substring(0, 10);
                }

                UsingQTEMPFiles(new[] { FileA, FileB });

                IBMi.RemoteCommand("DSPOBJD OBJ(" + Lib + "/*ALL) OBJTYPE(" + Types + ") OUTPUT(*OUTFILE) OUTFILE(QTEMP/" + FileA + ")");
                IBMi.RemoteCommand("RUNSQL SQL('CREATE TABLE QTEMP/" + FileB + " AS (SELECT ODOBNM, ODOBTP, ODOBAT, char(ODOBSZ) as ODOBSZ, ODOBTX, ODOBOW, ODSRCF, ODSRCL, ODSRCM FROM qtemp/" + FileA + " order by ODOBNM) WITH DATA') COMMIT(*NONE)");

                string file = DownloadMember("QTEMP", FileB, FileB);

                if (file != "")
                {
                    foreach (string RealLine in File.ReadAllLines(file, Program.Encoding))
                    {
                        if (RealLine.Trim() != "")
                        {
                            Object           = new ILEObject();
                            Line             = RealLine.PadRight(135);
                            Object.Library   = Lib;
                            Object.Name      = Line.Substring(0, 10).Trim();
                            Object.Type      = Line.Substring(10, 8).Trim();
                            Object.Extension = Line.Substring(18, 10).Trim();
                            UInt32.TryParse(Line.Substring(28, 12).Trim(), out Object.SizeKB);
                            Object.Text   = Line.Substring(40, 50).Trim();
                            Object.Owner  = Line.Substring(90, 10).Trim();
                            Object.SrcSpf = Line.Substring(100, 10).Trim();
                            Object.SrcLib = Line.Substring(110, 10).Trim();
                            Object.SrcMbr = Line.Substring(120, 10).Trim();

                            Objects.Add(Object);
                        }
                    }
                }
                else
                {
                    return(null);
                }

                return(Objects.ToArray());
            }
            else
            {
                return(null);
            }
        }
Пример #10
0
        public static SpoolFile[] GetSpoolListing(string Lib, string Obj)
        {
            if (IBMi.IsConnected())
            {
                List <SpoolFile> Listing  = new List <SpoolFile>();
                List <string>    commands = new List <string>();

                string file = "";

                if (Lib != "" && Obj != "")
                {
                    Editor.TheEditor.SetStatus("Fetching spool file listing.. (can take a moment)");

                    UsingQTEMPFiles(new[] { "SPOOL" });
                    //IBMi.RemoteCommand("RUNSQL SQL('CREATE TABLE QTEMP/SPOOL AS (SELECT Char(SPOOLED_FILE_NAME) as a, Char(COALESCE(USER_DATA, '''')) as b, Char(JOB_NAME) as c, Char(STATUS) as d, Char(FILE_NUMBER) as e FROM TABLE(QSYS2.OUTPUT_QUEUE_ENTRIES(''" + Lib + "'', ''" + Obj + "'', ''*NO'')) A WHERE USER_NAME = ''" + IBMi.CurrentSystem.GetValue("username").ToUpper() + "'' ORDER BY CREATE_TIMESTAMP DESC FETCH FIRST 25 ROWS ONLY) WITH DATA') COMMIT(*NONE)");
                    IBMi.RemoteCommand("WRKSPLF OUTPUT(*PRINT) SELECT(" + IBMi.CurrentSystem.GetValue("username").ToUpper() + ") ");
                    //IBMi.RemoteCommand("WRKSPLF OUTPUT(*PRINT) SELECT(ROOT) ");
                    IBMi.RemoteCommand("DLTF QTEMP/SPOOL ", false);
                    IBMi.RemoteCommand("CRTPF QTEMP/SPOOL RCDLEN(160)", false);
                    IBMi.RemoteCommand("CPYSPLF FILE(QPRTSPLF) TOFILE(QTEMP/SPOOL) SPLNBR(*LAST) ");
                    file = DownloadMember("QTEMP", "SPOOL", "SPOOL", new IBMDDMi.AllFieldsDDMCallbackAdapter());
                    Editor.TheEditor.SetStatus("Finished fetching spool file listing.");
                }

                if (file != "")
                {
                    string Line, SpoolName, UserData, Job, Status, Number;
                    bool   readytogo = false;
                    foreach (string RealLine in File.ReadAllLines(file, Program.Encoding))
                    {
                        if (RealLine.Trim() != "")
                        {
                            //Line = RealLine.PadRight(75);
                            //SpoolName = Line.Substring(0, 10).Trim();
                            //UserData = Line.Substring(10, 10).Trim();
                            //Job = Line.Substring(20, 28).Trim();
                            //Status = Line.Substring(48, 15).Trim();
                            //Number = Line.Substring(63, 11);

                            // Only process AFTER we find 'File'
                            if (RealLine.StartsWith(" File"))
                            {
                                readytogo = true;
                                continue;
                            }

                            if (readytogo)
                            {
                                Line = RealLine.PadRight(125);
                                if (!Line.Contains("E N D   O F   L I S T I N G") &&
                                    !Line.Contains("(No spooled output files)"))
                                {
                                    SpoolName = Line.Substring(0, 10).Trim();
                                    UserData  = Line.Substring(35, 10).Trim();
                                    // Job form 000004/USER/QPADEV0
                                    Job = Line.Substring(116, 6).Trim().PadLeft(6, '0') +
                                          "/" + Line.Substring(12, 10).Trim() + "/" +
                                          Line.Substring(105, 10).Trim();

                                    Status = Line.Substring(45, 3).Trim();
                                    Number = Line.Substring(101, 4).Trim();

                                    if (SpoolName != "")
                                    {
                                        Listing.Add(new SpoolFile(SpoolName, UserData, Job, Status, int.Parse(Number)));
                                    }
                                }
                            }
                        }
                    }

                    return(Listing.Count > 0 ? Listing.ToArray() : null);
                }
                else
                {
                    return(null);
                }
            }
            else
            {
                return(null);
            }
        }
Пример #11
0
        public static ILEObject[] GetSPFList(string Lib)
        {
            List <ILEObject> SPFList = new List <ILEObject>();

            Lib = Lib.ToUpper();

            if (Lib == "*CURLIB")
            {
                Lib = IBMi.CurrentSystem.GetValue("curlib");
            }

            IBMi.RemoteCommand("DLTOBJ OBJ(QTEMP/SPFLIST) OBJTYPE(*FILE)", false);
            IBMi.RemoteCommand("DLTOBJ OBJ(QTEMP/DATA) OBJTYPE(*FILE)", false);

            IBMi.RemoteCommand("DSPFD FILE(" + Lib + "/*ALL) TYPE(*ATR) OUTPUT(*OUTFILE) FILEATR(*PF) OUTFILE(QTEMP/SPFLIST)");
            IBMi.RemoteCommand("RUNSQL SQL('CREATE TABLE QTEMP/DATA AS (SELECT PHFILE, PHLIB FROM QTEMP/SPFLIST WHERE PHDTAT = ''S'' order by PHFILE) WITH DATA') COMMIT(*NONE)");

            Editor.TheEditor.SetStatus("Fetching source-physical files for " + Lib + "...");
            string file = DownloadMember("QTEMP", "DATA", "DATA");

            if (file != "")
            {
                Boolean   validName = true;
                string    Line, Library, Object;
                ILEObject Obj;
                foreach (string RealLine in File.ReadAllLines(file))
                {
                    if (RealLine.Trim() != "")
                    {
                        validName = true;
                        Line      = RealLine.PadRight(31);
                        Object    = Line.Substring(0, 10).Trim();
                        Library   = Line.Substring(10, 10).Trim();

                        Obj         = new ILEObject();
                        Obj.Library = Library;
                        Obj.Name    = Object;

                        foreach (string Name in IgnorePFs)
                        {
                            if (Obj.Name.StartsWith(Name))
                            {
                                validName = false;
                            }
                        }

                        if (validName)
                        {
                            SPFList.Add(Obj);
                        }
                    }
                }
            }
            else
            {
                return(null);
            }

            Editor.TheEditor.SetStatus("Fetched source-physical files for " + Lib + ".");

            return(SPFList.ToArray());
        }