Skip to content

Instantly share code, notes, and snippets.

# The Protermcap File
#
# This file contains definition entries for Progress supported terminals
# as well as terminal entries that are not supported by Progress. These
# unsupported terminals are provided as a courtesy to our customers because
# it is usually much better to have an unsupported terminal entry than
# no entry at all. If you find you need to use one of these unsupported
# terminal entries, please completely test your application on the terminal
# itself before putting it into production use.
#
&scoped db
&scoped-define dfin WZ-DFIN
def var WZ-DFIN as char form "x(65)" init '{&db}.df'.
&scoped-define dfout WZ-DFOUT
def var WZ-DFOUT as char form "x(65)" init '{&db}area.df'.
update WZ-DFIN WZ-DFOUT.
&scoped csvfile '{&db}area.csv'
&scoped filefield 1
<html>
<head>
<script>
TestVibrate()
{
navigator.vibrate = navigator.vibrate ||
navigator.webkitVibrate ||
navigator.mozVibrate ||
navigator.msVibrate;
@cverbiest
cverbiest / excel_macro_dbanalys2table
Created July 3, 2015 07:54
Excel macro to convert proutil dbanalys txt output to columns
Sub dbanalys2table()
'
' dbanalys2table Macro
'
' FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
Range("A1").Replace What:="Time stamp", Replacement:="""Time Stamp"""
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
@cverbiest
cverbiest / ocxlib_debug_list
Last active August 29, 2015 14:23
debug listing for OCX library
DEFINE VARIABLE WZ-OCXFile AS CHARACTER NO-UNDO.
DEFINE VARIABLE WZ-Alternate-OCXFile AS CHARACTER no-undo init ?.
/* Version 3 first */
WZ-OCXFile = SEARCH( "xhtml0300.wrx":U ).
WZ-Alternate-OCXFile = SEARCH( "xhtml0200.wrx":U ).
/* Definitions of handles for OCX Containers */
def temp-table T-XSEDITOR no-undo
field TXS-IDENT as char
field TXS-WIDGET AS WIDGET-HANDLE
@cverbiest
cverbiest / gistpost
Last active May 2, 2020 19:02
gistpost
#!/bin/bash
# Purpose : post a file as github gist
# Author : Carl Verbiest
typeset local
script=$0
script_dir=${script%/*}
script=${script##*/}
@cverbiest
cverbiest / mklike
Last active August 29, 2015 14:23
Create a file/directory with same owner and permissions
#!/bin/bash
# Create a file / directory with same rights as an exiting one
typeset local
Usage() {
echo Usage $0 -r reference_file|reference_dir new_file|new_dir ...
exit 1
}
#!/bin/bash
# Purpose :
# Author : Carl Verbiest
# vim: se ts=4 sw=4 ai:
script=$0
script_dir=${script%/*}
script=${script##*/}
suffix=$(date +%y%m%d.%H%M%S)
logfile=/tmp/$script.$suffix
" Vim support file to detect file types
"
" Maintainer: Bram Moolenaar <[email protected]>
" Last Change: 2006 Aug 25
" Listen very carefully, I will say this only once
if exists("did_load_filetypes")
finish
endif
let did_load_filetypes = 1
" allow backspacing over everything in insert mode
set backspace=indent,eol,start
autocmd FileType php set omnifunc=phpcomplete#CompletePHP
autocmd FileType progress set omnifunc=syntaxcomplete#Complete
set isfname-==
" colorscheme doriath
set aw shiftwidth=4 tabstop=4 nohls expandtab
set smartcase