How can duplicates be removed from a file using COBOL?

Finally it worked. Here is the code: IDENTIFICATION DIVISION. PROGRAM-ID.RemoveDup2. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INPUTFILEDUP ASSIGN TO ‘C:\Cobol\INPUTFILEDUP.txt’ ORGANIZATION IS LINE SEQUENTIAL. SELECT OUTFILEDUP ASSIGN TO ‘C:\Cobol\OUTFILEDUP.txt’ ORGANIZATION IS LINE SEQUENTIAL. SELECT WorkFile ASSIGN TO “WORK.TMP”. DATA DIVISION. FILE SECTION. FD INPUTFILEDUP. 01 INPUTFILEDUPREC. 88 EOFINPUTFILEDUP VALUE HIGH-VALUES. 02 INPUTFILEID PIC 9(07). FD … Read more

How to make WiX leave files after uninstall?

Set the Component value Permanent=”yes” like so: <Component Id=”LicenseDoc” Guid=”*” Permanent=”yes”> <File Id =”License.rtf” Source=”$(var.SolutionDir)Installer\License.rtf” /> </Component> Remarks: This definition has to be done in the installed MSI as well as the upgrading MSI. If the base MSI did not have a component Id this file will be deleted regardless of the Permanent=”yes”

Copy folders without files, files without folders, or everything using PowerShell

To copy everything in a folder hierarchie Copy-Item $source $dest -Recurse -Force To copy the hierarchie you can try: $source = “C:\ProdData” $dest = “C:\TestData” Copy-Item $source $dest -Filter {PSIsContainer} -Recurse -Force To flatten a file structure you can try: $source = “C:\ProdData” $dest = “C:\TestData” New-Item $dest -type directory Get-ChildItem $source -Recurse | ` … Read more

How do I include a .pl file in Prolog?

If your file is called foo.pl, you can include it using :- [foo]. or, equivalently and a bit more explicit :- consult(foo). or, if you’re worried it may be loaded several times in a larger app :- ensure_loaded(foo). or, if you’re using full-blown modules :- use_module(foo). though the exact name of the last predicate differs … Read more

Hata!: SQLSTATE[HY000] [1045] Access denied for user 'divattrend_liink'@'localhost' (using password: YES)