toagit

rem #############################

rem 圧縮ファイル解凍バッチ＜Lhaz＞

rem #############################

set HOME_DIR=D:\
set archive=arch.zip
set lhaz="C:\Program Files\lhaz\lhaz.exe"

toagit

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console

toagit

Option Explicit

Dim WSH,sc

Set WSH=CreateObject("WScript.Shell")

Set sc = WSH.CreateShortcut("C:\Documents and Settings\xxxx\デスクトップ\メモ帳.lnk")
sc.TargetPath = "C:\WINDOWS\notepad.exe"
sc.save

toagit

SELECT ＊ FROM SYSIBM.SYSPLAN
WHERE NAME = 'pgmName'

toagit

SELECT COUNT(NAME),PLNAME FROM SYSIBM.SYSDBRM
WHERE NAME IN ('moduleA','moduleB','moduleC')
GROUP BY PLNAME
HAVING COUNT(NAME) = 3
ORDER BY PLNAME

toagit

SELECT ＊ FROM SYSIBM.SYSTABLES
WHERE NAME = 'tblName'

toagit

SELECT ＊ FROM <sheme>.PLAN_TABLE
WHERE APPLNAME = 'appName'

toagit

SELECT ＊ FROM SYSIBM.SYSPACKAGE
WHERE NAME = 'packageName'

toagit

//msscript.ocxは32bit windowsのみしかない
function inputBox(prompt) {
    var VBS_String = 'InputBox("' + prompt + '")';
    var objSC = new ActiveXObject("ScriptControl");
    objSC.Language = "VBScript";
    var input = objSC.Eval(VBS_String);
    
    if (typeof input === "undefined") {
        input = "";
    }

toagit

//秀丸マクロ
//ファイルをリロードして最終行へカーソル移動します。
reopen
gofileend