home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PMABOUT.ZIP / PMABOUT.CPY < prev    next >
Text File  |  1992-12-01  |  17KB  |  306 lines
  1.       ***************************************************************
  2.       *   Main Window Action Bar Definitions
  3.       ***************************************************************
  4.        77 WND-MainWnd             Pic 9(4) Comp-5 Value 100.
  5.        77 AB-File                 Pic 9(4) Comp-5 Value 110.
  6.        77 AB-New                  Pic 9(4) Comp-5 Value 111.
  7.        77 AB-Open                 Pic 9(4) Comp-5 Value 112.
  8.        77 AB-Save                 Pic 9(4) Comp-5 Value 113.
  9.        77 AB-Saveas               Pic 9(4) Comp-5 Value 114.
  10.        77 AB-Exit                 Pic 9(4) Comp-5 Value 115.
  11.        77 AB-Help                 Pic 9(4) Comp-5 Value 190.
  12.        77 AB-Hhelp                Pic 9(4) Comp-5 Value 191.
  13.        77 AB-Xhelp                Pic 9(4) Comp-5 Value 192.
  14.        77 AB-Khelp                Pic 9(4) Comp-5 Value 193.
  15.        77 AB-Ihelp                Pic 9(4) Comp-5 Value 194.
  16.        77 AB-About                Pic 9(4) Comp-5 Value 195.
  17.       ***************************************************************
  18.       *   About Dialog Box Definitions
  19.       ***************************************************************
  20.        77 DLG-About               Pic 9(4) Comp-5 Value 900.
  21.       ****************************************************************
  22.       *   Miscellaneous Definitions
  23.       ****************************************************************
  24.        77 ReturnData                Pic s9(4) comp-5.
  25.           88 ReturnTrue             Value 1.
  26.           88 ReturnFalse            Value 0.
  27.        77 EndFlag                   Pic x Value "N".
  28.           88 EndFlagYes             Value "Y".
  29.        01 ShortNull                 Pic s9(4) Comp-5 Value 0.
  30.        01 LongNull                  Pic s9(9) Comp-5 Value 0.
  31.        01 UShortNull                Pic  9(4) Comp-5 Value 0.
  32.        01 ULongNull                 Pic  9(9) Comp-5 Value 0.
  33.        01 NullString                Pic  x    Value Low-Values.
  34.  
  35.       ****************************************************************
  36.       *   System Value Definitions
  37.       ****************************************************************
  38.        77 SV-CXSCREEN               pic s9(4) comp-5 value 20.
  39.        77 SV-CYSCREEN               pic s9(4) comp-5 value 21.
  40.  
  41.       ****************************************************************
  42.       *   Presentation Manager window handles
  43.       ****************************************************************
  44.        77 hab                       Pic s9(9) comp-5.
  45.        77 hmq                       Pic s9(9) comp-5.
  46.        77 hwndClient                Pic s9(9) comp-5.
  47.        77 hwndFrame                 Pic s9(9) comp-5.
  48.        77 HWND-DESKTOP              Pic s9(9) comp-5 value 1.
  49.        77 HWND-TOP                  Pic s9(9) comp-5 value 3.
  50.       ****************************************************************
  51.       *   COBOL Procedure pointers
  52.       ****************************************************************
  53.        77 WindowProc                Procedure-Pointer.
  54.        77 DialogProc                Procedure-Pointer.
  55.  
  56.       ****************************************************************
  57.       *   Presentation Manager message structure
  58.       ****************************************************************
  59.        01 QMSG.
  60.           05 QMSG-HWND              Pic 9(9) comp-5.
  61.           05 QMSG-MSGID             Pic 9(4) comp-5.
  62.           05 QMSG-PARAM1            Pic 9(9) comp-5.
  63.           05 QMSG-PARAM2            Pic 9(9) comp-5.
  64.           05 QMSG-TIME              Pic 9(9) comp-5.
  65.           05 QMSG-POINT.
  66.              10 QMSG-X              Pic 9(9) comp-5.
  67.              10 QMSG-Y              Pic 9(9) comp-5.
  68.  
  69.       ***************************************************************
  70.       *   Main Window Parameter Definitions
  71.       ***************************************************************
  72.        01 MainWndClass.
  73.           03 Pic X(12)     Value 'MainWndClass'.
  74.           03 Pic X         Value Low-Values.
  75.        01 MainWndStyle     Pic 9(9)  Comp-5 Value 0.
  76.        01 MainWndControls  Pic 9(9)  Comp-5 Value 0.
  77.        01 MainWndTitle.
  78.           03 Pic X(21)     Value 'PMABOUT Version 1.0'.
  79.           03 Pic X         Value Low-Values.
  80.        01 MainWndTxt.
  81.           03 Pic X(21)     Value 'PMABOUT Version 1.0'.
  82.           03 Pic X         Value Low-Values.
  83.        01 MainWndTxtSize   Pic S9(4) Comp-5 Value 21.
  84.        01 MainWndTxtColor  Pic S9(9) Comp-5 Value 0.
  85.        01 MainWndColor     Pic S9(9) Comp-5 Value 0.
  86.        77 MainWndPosition  Pic S9(4) comp-5 value 0.
  87.  
  88.       ***************************************************************
  89.       *   Exit Message Box Definitions
  90.       ***************************************************************
  91.        01 MsgBoxTitle.
  92.           05 Pic x(11) Value 'Exit Dialog'.
  93.           05 Pic x(01) Value Low-Values.
  94.        01 MsgBoxMsg.
  95.           05 Pic x(30) Value 'Are you sure you want to exit?'.
  96.           05 Pic x(01) Value Low-Values.
  97.        01 MsgBoxControls  Pic 9(4) Comp-5 Value 0.
  98.        01 MsgBoxButton    Pic 9(4) Comp-5 Value 0.
  99.  
  100.       *=============================================================*
  101.       *  Presentation Manager header file definitions converted
  102.       *  to COBOL define statements.
  103.       *=============================================================*
  104.       ***************************************************************
  105.       *   Color Definitions
  106.       ***************************************************************
  107.        78 CLR-NOINDEX                       VALUE -254.
  108.        78 CLR-FALSE                         VALUE -5.
  109.        78 CLR-TRUE                          VALUE -4.
  110.        78 CLR-ERROR                         VALUE -255.
  111.        78 CLR-DEFAULT                       VALUE -3.
  112.        78 CLR-WHITE                         VALUE -2.
  113.        78 CLR-BLACK                         VALUE -1.
  114.        78 CLR-BACKGROUND                    VALUE 0.
  115.        78 CLR-BLUE                          VALUE 1.
  116.        78 CLR-RED                           VALUE 2.
  117.        78 CLR-PINK                          VALUE 3.
  118.        78 CLR-GREEN                         VALUE 4.
  119.        78 CLR-CYAN                          VALUE 5.
  120.        78 CLR-YELLOW                        VALUE 6.
  121.        78 CLR-NEUTRAL                       VALUE 7.
  122.        78 CLR-DARKGRAY                      VALUE 8.
  123.        78 CLR-DARKBLUE                      VALUE 9.
  124.        78 CLR-DARKRED                       VALUE 10.
  125.        78 CLR-DARKPINK                      VALUE 11.
  126.        78 CLR-DARKGREEN                     VALUE 12.
  127.        78 CLR-DARKCYAN                      VALUE 13.
  128.        78 CLR-BROWN                         VALUE 14.
  129.        78 CLR-PALEGRAY                      VALUE 15.
  130.  
  131.       ***************************************************************
  132.       *   Control Syte Definitions
  133.       ***************************************************************
  134.        78 CS-MOVENOTIFY                     VALUE H"01".
  135.        78 CS-SIZEREDRAW                     VALUE H"04".
  136.        78 CS-HITTEST                        VALUE H"08".
  137.        78 CS-PUBLIC                         VALUE H"10".
  138.        78 CS-FRAME                          VALUE H"20".
  139.        78 CS-CLIPCHILDREN                   VALUE H"20000000".
  140.        78 CS-CLIPSIBLINGS                   VALUE H"10000000".
  141.        78 CS-PARENTCLIP                     VALUE H"08000000".
  142.        78 CS-SAVEBITS                       VALUE H"04000000".
  143.        78 CS-SYNCPAINT                      VALUE H"02000000".
  144.  
  145.       ***************************************************************
  146.       *   Message Box push button definitions
  147.       ***************************************************************
  148.        78 DID-OK                            VALUE 1.
  149.        78 DID-CANCEL                        VALUE 2.
  150.        78 DID-ERROR                         VALUE H"FFFF".
  151.  
  152.       ***************************************************************
  153.       *   Frame Create Flags Definitions
  154.       ***************************************************************
  155.        78 FCF-TITLEBAR                      VALUE H"01".
  156.        78 FCF-SYSMENU                       VALUE H"02".
  157.        78 FCF-MENU                          VALUE H"04".
  158.        78 FCF-SIZEBORDER                    VALUE H"08".
  159.        78 FCF-MINBUTTON                     VALUE H"10".
  160.        78 FCF-MAXBUTTON                     VALUE H"20".
  161.        78 FCF-MINMAX                        VALUE H"30".
  162.        78 FCF-VERTSCROLL                    VALUE H"40".
  163.        78 FCF-HORZSCROLL                    VALUE H"80".
  164.        78 FCF-DLGBORDER                     VALUE H"0100".
  165.        78 FCF-BORDER                        VALUE H"0200".
  166.        78 FCF-SHELLPOSITION                 VALUE H"0400".
  167.        78 FCF-TASKLIST                      VALUE H"0800".
  168.        78 FCF-NOBYTEALIGN                   VALUE H"1000".
  169.        78 FCF-NOMOVEWITHOWNER               VALUE H"2000".
  170.        78 FCF-ICON                          VALUE H"4000".
  171.        78 FCF-ACCELTABLE                    VALUE H"8000".
  172.        78 FCF-SYSMODAL                      VALUE H"010000".
  173.        78 FCF-SCREENALIGN                   VALUE H"020000".
  174.        78 FCF-MOUSEALIGN                    VALUE H"040000".
  175.        78 FCF-PALETTE-NORMAL                VALUE H"080000".
  176.        78 FCF-PALETTE-HELP                  VALUE H"100000".
  177.        78 FCF-PALETTE-POPUPODD              VALUE H"200000".
  178.        78 FCF-PALETTE-POPUPEVEN             VALUE H"400000".
  179.        78 FCF-STANDARD                      VALUE H"08CC3F".
  180.  
  181.       ***************************************************************
  182.       *   Message Box Control Definitions
  183.       ***************************************************************
  184.        78 MB-OK                             VALUE 0.
  185.        78 MB-OKCANCEL                       VALUE H"01".
  186.        78 MB-RETRYCANCEL                    VALUE H"02".
  187.        78 MB-ABORTRETRYIGNORE               VALUE H"03".
  188.        78 MB-YESNO                          VALUE H"04".
  189.        78 MB-YESNOCANCEL                    VALUE H"05".
  190.        78 MB-CANCEL                         VALUE H"06".
  191.        78 MB-ENTER                          VALUE H"07".
  192.        78 MB-ENTERCANCEL                    VALUE H"08".
  193.        78 MB-NOICON                         VALUE 0.
  194.        78 MB-CUANOTIFICATION                VALUE 0.
  195.        78 MB-ICONQUESTION                   VALUE H"10".
  196.        78 MB-ICONEXCLAMATION                VALUE H"20".
  197.        78 MB-CUAWARNING                     VALUE H"20".
  198.        78 MB-ICONASTERISK                   VALUE H"30".
  199.        78 MB-ICONHAND                       VALUE H"40".
  200.        78 MB-CUACRITICAL                    VALUE H"40".
  201.        78 MB-QUERY                          VALUE H"10".
  202.        78 MB-WARNING                        VALUE H"20".
  203.        78 MB-INFORMATION                    VALUE H"30".
  204.        78 MB-CRITICAL                       VALUE H"40".
  205.        78 MB-ERROR                          VALUE H"40".
  206.        78 MB-DEFBUTTON1                     VALUE 0.
  207.        78 MB-DEFBUTTON2                     VALUE H"0100".
  208.        78 MB-DEFBUTTON3                     VALUE H"0200".
  209.        78 MB-APPLMODAL                      VALUE 0.
  210.        78 MB-SYSTEMMODAL                    VALUE H"1000".
  211.        78 MB-HELP                           VALUE H"2000".
  212.        78 MB-MOVEABLE                       VALUE H"4000".
  213.  
  214.       ***************************************************************
  215.       *   Message Box Message Definitions
  216.       ***************************************************************
  217.        78 MBID-OK                           VALUE 1.
  218.        78 MBID-CANCEL                       VALUE 2.
  219.        78 MBID-ABORT                        VALUE 3.
  220.        78 MBID-RETRY                        VALUE 4.
  221.        78 MBID-IGNORE                       VALUE 5.
  222.        78 MBID-YES                          VALUE 6.
  223.        78 MBID-NO                           VALUE 7.
  224.        78 MBID-HELP                         VALUE 8.
  225.        78 MBID-ENTER                        VALUE 9.
  226.        78 MBID-ERROR                        VALUE H"FFFF".
  227.  
  228.       ****************************************************************
  229.       *   Set Window Position Flag Definitions
  230.       ****************************************************************
  231.        78 SWP-SIZE                          VALUE H"01".
  232.        78 SWP-MOVE                          VALUE H"02".
  233.        78 SWP-ZORDER                        VALUE H"04".
  234.        78 SWP-SHOW                          VALUE H"08".
  235.        78 SWP-HIDE                          VALUE H"10".
  236.        78 SWP-NOREDRAW                      VALUE H"20".
  237.        78 SWP-NOADJUST                      VALUE H"40".
  238.        78 SWP-ACTIVATE                      VALUE H"80".
  239.        78 SWP-DEACTIVATE                    VALUE H"0100".
  240.        78 SWP-EXTSTATECHANGE                VALUE H"0200".
  241.        78 SWP-MINIMIZE                      VALUE H"0400".
  242.        78 SWP-MAXIMIZE                      VALUE H"0800".
  243.        78 SWP-RESTORE                       VALUE H"1000".
  244.        78 SWP-FOCUSACTIVATE                 VALUE H"2000".
  245.        78 SWP-FOCUSDEACTIVATE               VALUE H"4000".
  246.  
  247.       ***************************************************************
  248.       *   PM Message definitions
  249.       ***************************************************************
  250.        78 WM-NULL                           VALUE 0.
  251.        78 WM-CREATE                         VALUE H"01".
  252.        78 WM-DESTROY                        VALUE H"02".
  253.        78 WM-OTHERWINDOWDESTROYED           VALUE H"03".
  254.        78 WM-ENABLE                         VALUE H"04".
  255.        78 WM-SHOW                           VALUE H"05".
  256.        78 WM-MOVE                           VALUE H"06".
  257.        78 WM-SIZE                           VALUE H"07".
  258.        78 WM-ADJUSTWINDOWPOS                VALUE H"08".
  259.        78 WM-CALCVALIDRECTS                 VALUE H"09".
  260.        78 WM-SETWINDOWPARAMS                VALUE H"0A".
  261.        78 WM-QUERYWINDOWPARAMS              VALUE H"0B".
  262.        78 WM-HITTEST                        VALUE H"0C".
  263.        78 WM-ACTIVATE                       VALUE H"0D".
  264.        78 WM-SETFOCUS                       VALUE H"0F".
  265.        78 WM-SETSELECTION                   VALUE H"10".
  266.        78 WM-PPAINT                         VALUE H"11".
  267.        78 WM-PSETFOCUS                      VALUE H"12".
  268.        78 WM-PSYSCOLORCHANGE                VALUE H"13".
  269.        78 WM-PSIZE                          VALUE H"14".
  270.        78 WM-PACTIVATE                      VALUE H"15".
  271.        78 WM-PCONTROL                       VALUE H"16".
  272.        78 WM-COMMAND                        VALUE H"20".
  273.        78 WM-SYSCOMMAND                     VALUE H"21".
  274.        78 WM-HELP                           VALUE H"22".
  275.        78 WM-PAINT                          VALUE H"23".
  276.        78 WM-TIMER                          VALUE H"24".
  277.        78 WM-SEM1                           VALUE H"25".
  278.        78 WM-SEM2                           VALUE H"26".
  279.        78 WM-SEM3                           VALUE H"27".
  280.        78 WM-SEM4                           VALUE H"28".
  281.        78 WM-CLOSE                          VALUE H"29".
  282.        78 WM-QUIT                           VALUE H"2A".
  283.        78 WM-SYSCOLORCHANGE                 VALUE H"2B".
  284.        78 WM-SYSVALUECHANGED                VALUE H"2D".
  285.        78 WM-APPTERMINATENOTIFY             VALUE H"2E".
  286.        78 WM-PRESPARAMCHANGED               VALUE H"2F".
  287.        78 WM-CONTROL                        VALUE H"30".
  288.        78 WM-VSCROLL                        VALUE H"31".
  289.        78 WM-HSCROLL                        VALUE H"32".
  290.        78 WM-INITMENU                       VALUE H"33".
  291.        78 WM-MENUSELECT                     VALUE H"34".
  292.        78 WM-MENUEND                        VALUE H"35".
  293.        78 WM-DRAWITEM                       VALUE H"36".
  294.        78 WM-MEASUREITEM                    VALUE H"37".
  295.        78 WM-CONTROLPOINTER                 VALUE H"38".
  296.        78 WM-CONTROLHEAP                    VALUE H"39".
  297.        78 WM-QUERYDLGCODE                   VALUE H"3A".
  298.        78 WM-INITDLG                        VALUE H"3B".
  299.        78 WM-SUBSTITUTESTRING               VALUE H"3C".
  300.        78 WM-MATCHMNEMONIC                  VALUE H"3D".
  301.        78 WM-SAVEAPPLICATION                VALUE H"3E".
  302.        78 WM-HELPBASE                       VALUE H"0F00".
  303.        78 WM-HELPTOP                        VALUE H"0FFF".
  304.        78 WM-USER                           VALUE H"1000".
  305.  
  306.