/SM4GUI/List/Program1.lst
https://bitbucket.org/softkis/archive-sm4 · Unknown · 1486 lines · 1242 code · 244 blank · 0 comment · 0 complexity · 5e40daacfaffd4f81f0535145195743c MD5 · raw file
Large files are truncated click here to view the full file
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0001
- c:\Acucorp\Acucbl810\AcuGT\bin\ccbl32.exe -o .\object\@.acu -w -x -Lo .\list\@.lst -Lf -Cr -Fx -Fo C:\SM4\File\xfd -Ds -Vl -Vx -Ga -Za -Rw ccol -Rw messages -Rw Pos C:\SM4\SM4GUI\Source\Program1.cbl
- COPYPATH: C:\SM4\SM4GUI\screen;C:\SM4\SM4GUI\copylib;C:\SM4\SM4GUI\report;C:\SM4\SM4GUI\resource;C:\SM4\SM4GUI\fd;C:\SOFTKIS\SKSAV\CBL;C:\SOFTKIS\SKSAV\COP;C:\SOFTKIS\SKSAV\FILE;C:\ACUCORP\ACUCBL810\ACUGT\SAMPLE\def;C:\SOFTKIS\SKSAV\Depot;C:\SOFTKIS\SKSAV\COPIE;C:\SOFTKIS\SKSAV\CBLOO;C:\SOFTKIS\SKSAV\CBLO;C:\SM4\SM4GUI\Screen;C:\SM4\SM4GUI\Report;C:\SM4\SM4GUI\Copylib;C:\SM4\SM4GUI\FD;(null)
-
-
- *{Bench}prg-comment
- * Program1.cbl
- * Program1.cbl is generated from C:\SM4\SM4GUI\Program1.Psf
- *{Bench}end
- IDENTIFICATION DIVISION.
- *{Bench}prgid
- PROGRAM-ID. Program1.
- AUTHOR. Mitarbeiter.
- DATE-WRITTEN. Samstag, 6. Juni 2009 13:17:56.
- REMARKS.
- *{Bench}end
- ENVIRONMENT DIVISION.
- CONFIGURATION SECTION.
- SPECIAL-NAMES.
- *{Bench}activex-def
- *{Bench}end
- *{Bench}decimal-point
- DECIMAL-POINT IS COMMA.
- *{Bench}end
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- *{Bench}file-control
- *{Bench}end
- DATA DIVISION.
- FILE SECTION.
- *{Bench}file
- *{Bench}end
- WORKING-STORAGE SECTION.
- *{Bench}acu-def
- COPY "acugui.def".
- * ACUGUI.DEF - useful definitions for graphical systems.
- * Last modified: 26-Sep-2002 - TDC.
-
- * Copyright (c) 1992-2007 by Acucorp, Inc. Users of ACUCOBOL
- * may freely include this file in their COBOL source code.
-
- * Mouse handling variables
- * Structure and opcodes for W$MOUSE system routine
-
- 78 TEST-MOUSE-PRESENCE VALUE 0.
- 78 GET-MOUSE-STATUS VALUE 1.
- 78 GET-MOUSE-SCREEN-STATUS VALUE 2.
- 78 SET-MOUSE-POSITION VALUE 3.
- 78 SET-MOUSE-SCREEN-POSITION VALUE 4.
- 78 SET-MOUSE-SHAPE VALUE 5.
- 78 SET-DELAYED-MOUSE-SHAPE VALUE 6.
- 78 GET-MOUSE-SHAPE VALUE 7.
- 78 CAPTURE-MOUSE VALUE 8.
- 78 RELEASE-MOUSE VALUE 9.
- 78 ENABLE-MOUSE VALUE 10.
- 78 SET-MOUSE-HELP VALUE 19.
- 78 SET-MOUSE-POSITION-EX VALUE 23.
- 78 SET-MOUSE-SCREEN-POSITION-EX VALUE 24.
- 78 SET-MOUSE-POSITION-PIXEL VALUE 25.
- 78 SET-MOUSE-SCREEN-POSITION-PIXEL VALUE 26.
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0002
-
-
-
- 01 MOUSE-INFO.
- 03 MOUSE-ROW PIC XX COMP-X.
- 88 MOUSE-OFF-SCREEN VALUE ZERO.
- 03 MOUSE-COL PIC XX COMP-X.
- 03 LBUTTON-STATUS PIC 9.
- 88 LBUTTON-DOWN VALUE 1.
- 03 MBUTTON-STATUS PIC 9.
- 88 MBUTTON-DOWN VALUE 1.
- 03 RBUTTON-STATUS PIC 9.
- 88 RBUTTON-DOWN VALUE 1.
- 03 MOUSE-ROW-EX PIC 9(6)V99 COMP-4, SYNC.
- 03 MOUSE-COL-EX PIC 9(6)V99 COMP-4.
- 03 MOUSE-ROW-PIXEL PIC 9(8) COMP-4.
- 03 MOUSE-COL-PIXEL PIC 9(8) COMP-4.
-
- 78 ARROW-POINTER VALUE 1.
- 78 BAR-POINTER VALUE 2.
- 78 CROSS-POINTER VALUE 3.
- 78 WAIT-POINTER VALUE 4.
- 78 HELP-POINTER VALUE 5.
-
- * MOUSE-FLAGS settings
-
- 78 AUTO-MOUSE-HANDLING VALUE 1.
- 78 ALLOW-LEFT-DOWN VALUE 2.
- 78 ALLOW-LEFT-UP VALUE 4.
- 78 ALLOW-LEFT-DOUBLE VALUE 8.
- 78 ALLOW-MIDDLE-DOWN VALUE 16.
- 78 ALLOW-MIDDLE-UP VALUE 32.
- 78 ALLOW-MIDDLE-DOUBLE VALUE 64.
- 78 ALLOW-RIGHT-DOWN VALUE 128.
- 78 ALLOW-RIGHT-UP VALUE 256.
- 78 ALLOW-RIGHT-DOUBLE VALUE 512.
- 78 ALLOW-MOUSE-MOVE VALUE 1024.
- 78 ALWAYS-ARROW-CURSOR VALUE 2048.
- 78 ALLOW-ALL-SCREEN-ACTIONS VALUE 16384.
-
-
- * Menu handling variables
- * W$MENU opcodes
-
- 78 WMENU-NEW VALUE 1.
- 78 WMENU-DESTROY VALUE 2.
- 78 WMENU-ADD VALUE 3.
- 78 WMENU-CHANGE VALUE 4.
- 78 WMENU-DELETE VALUE 5.
- 78 WMENU-CHECK VALUE 6.
- 78 WMENU-UNCHECK VALUE 7.
- 78 WMENU-ENABLE VALUE 8.
- 78 WMENU-DISABLE VALUE 9.
- 78 WMENU-SHOW VALUE 10.
- 78 WMENU-GET-MENU VALUE 11.
- 78 WMENU-INPUT VALUE 12.
- 78 WMENU-BLOCK VALUE 13.
- 78 WMENU-UNBLOCK VALUE 14.
- 78 WMENU-GET-BLOCK VALUE 15.
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0003
-
-
- 78 WMENU-SET-BLOCK VALUE 16.
- 78 WMENU-RELEASE VALUE 17.
- 78 WMENU-GET-CONFIGURATION VALUE 18.
- 78 WMENU-SET-CONFIGURATION VALUE 19.
- 78 WMENU-REFRESH VALUE 20.
- 78 WMENU-DESTROY-DELAYED VALUE 21.
- 78 WMENU-GET-DELAYED-FLAG VALUE 22.
- 78 WMENU-SET-DELAYED-FLAG VALUE 23.
- 78 WMENU-NEW-POPUP VALUE 26.
- 78 WMENU-POPUP VALUE 27.
-
- * W$MENU flags
-
- 78 W-UNCHECKED VALUE 0.
- 78 W-CHECKED VALUE 1.
- 78 W-ENABLED VALUE 0.
- 78 W-DISABLED VALUE 16.
- 78 W-SEPARATOR VALUE 256.
-
- 01 MENU-CONFIGURATION.
- 03 MENU-STYLE PIC 9 COMP-X.
- 88 MENU-IS-STATIC VALUE 0.
- 88 MENU-IS-POPUP VALUE 1.
- 03 MENU-CHECK-MARK PIC X.
- 03 MENU-SUBMENU-MARK PIC X.
- 03 MENU-COLOR-ATTRIBUTES.
- 05 MENU-NORMAL-COLOR-ATTRIBUTES.
- 07 MENU-NORMAL-COLOR PIC 9(4) COMP-X.
- 07 MENU-NORMAL-COLOR-KEY-1 PIC 9(4) COMP-X.
- 07 MENU-NORMAL-COLOR-KEY-2 PIC 9(4) COMP-X.
- 05 MENU-SELECTED-COLOR-ATTRIBUTES.
- 07 MENU-SELECTED-COLOR PIC 9(4) COMP-X.
- 07 MENU-SELECTED-COLOR-KEY-1 PIC 9(4) COMP-X.
- 07 MENU-SELECTED-COLOR-KEY-2 PIC 9(4) COMP-X.
- 05 MENU-DISABLED-COLOR-ATTRIBUTES.
- 07 MENU-DISABLED-COLOR PIC 9(4) COMP-X.
- 07 MENU-DISABLED-COLOR-KEY-1 PIC 9(4) COMP-X.
- 07 MENU-DISABLED-COLOR-KEY-2 PIC 9(4) COMP-X.
- 03 MENU-MONO-ATTRIBUTES.
- 05 MENU-NORMAL-MONO-ATTRIBUTES.
- 07 MENU-NORMAL-MONO PIC 9(4) COMP-X.
- 07 MENU-NORMAL-MONO-KEY-1 PIC 9(4) COMP-X.
- 07 MENU-NORMAL-MONO-KEY-2 PIC 9(4) COMP-X.
- 05 MENU-SELECTED-MONO-ATTRIBUTES.
- 07 MENU-SELECTED-MONO PIC 9(4) COMP-X.
- 07 MENU-SELECTED-MONO-KEY-1 PIC 9(4) COMP-X.
- 07 MENU-SELECTED-MONO-KEY-2 PIC 9(4) COMP-X.
- 05 MENU-DISABLED-MONO-ATTRIBUTES.
- 07 MENU-DISABLED-MONO PIC 9(4) COMP-X.
- 07 MENU-DISABLED-MONO-KEY-1 PIC 9(4) COMP-X.
- 07 MENU-DISABLED-MONO-KEY-2 PIC 9(4) COMP-X.
-
- * Variables used by menu code created by GENMENU.
-
- 77 MENU-HANDLE PIC S9(9) COMP-4.
- 77 SUB-HANDLE-1 PIC S9(9) COMP-4.
- 77 SUB-HANDLE-2 PIC S9(9) COMP-4.
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0004
-
-
- 77 SUB-HANDLE-3 PIC S9(9) COMP-4.
- 77 SUB-HANDLE-4 PIC S9(9) COMP-4.
-
- * MESSAGE BOX types
-
- 78 MB-OK VALUE 1.
- 78 MB-YES-NO VALUE 2.
- 78 MB-OK-CANCEL VALUE 3.
- 78 MB-YES-NO-CANCEL VALUE 4.
-
- * MESSAGE BOX responses (MB-OK is both a type and a response)
-
- 78 MB-YES VALUE 1.
- 78 MB-NO VALUE 2.
- 78 MB-CANCEL VALUE 3.
-
- * MESSAGE BOX icons
-
- 78 MB-DEFAULT-ICON VALUE 1.
- 78 MB-WARNING-ICON VALUE 2.
- 78 MB-ERROR-ICON VALUE 3.
-
- * W$BITMAP opcodes
-
- 78 WBITMAP-DISPLAY VALUE 1.
- 78 WBITMAP-DESTROY VALUE 2.
- 78 WBITMAP-LOAD VALUE 3.
- 78 WBITMAP-LOAD-IMAGELIST VALUE 5.
- 78 WBITMAP-DESTROY-IMAGELIST VALUE 6.
- 78 WBITMAP-CAPTURE-IMAGE VALUE 7.
- 78 WBITMAP-CAPTURE-DESKTOP VALUE 8.
- 78 WBITMAP-CAPTURE-CLIPBOARD VALUE 9.
- 78 WBITMAP-LOAD-PICTURE VALUE 10.
-
- * W$BITMAP option flags
-
- 78 WBITMAP-NO-FILL VALUE 1.
- 78 WBITMAP-NO-DOWNLOAD VALUE 2.
-
- * W$BITMAP error values
-
- 78 WBERR-UNSUPPORTED VALUE 0.
- 78 WBERR-FILE-ERROR VALUE -1.
- 78 WBERR-NO-MEMORY VALUE -2.
- 78 WBERR-NOT-BITMAP VALUE -3.
- 78 WBERR-FORMAT-UNSUPPORTED VALUE -4.
- 78 WBERR-MISSING-DLL VALUE -5.
- 78 WBERR-INVALID-HWND VALUE -6.
- 78 WBERR-INVALID-DATA VALUE -7.
- 78 WBERR-INVALID-CLIPBOARD VALUE -8.
- 78 WBERR-INVALID-PALETTE VALUE -9.
- 78 WBERR-CLIPBOARD-EMPTY VALUE -10.
-
- * W$TEXTSIZE library routine
-
- 01 TEXTSIZE-DATA.
- 03 TEXTSIZE-FONT HANDLE OF FONT,
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0005
-
-
- VALUE NULL.
- 03 TEXTSIZE-WINDOW HANDLE OF WINDOW
- VALUE NULL.
- 03 TEXTSIZE-SIZE-X PIC 9(7)V99 COMP-4.
- 03 TEXTSIZE-CELLS-X PIC 9(7)V99 COMP-4.
- 03 TEXTSIZE-BASE-X PIC 9(9) COMP-4.
- 03 TEXTSIZE-SIZE-Y PIC 99V99 COMP-4.
- 03 TEXTSIZE-CELLS-Y PIC 99V99 COMP-4.
- 03 TEXTSIZE-BASE-Y PIC 9(4) COMP-4.
- 03 TEXTSIZE-FLAGS PIC X COMP-X, VALUE ZERO.
- 88 TEXTSIZE-STRIP-SPACES VALUE 1, FALSE ZERO.
-
- * EVENT-ACTION values
-
- 78 EVENT-ACTION-NORMAL VALUE ZERO.
- 78 EVENT-ACTION-TERMINATE VALUE 1.
- 78 EVENT-ACTION-CONTINUE VALUE 2.
- 78 EVENT-ACTION-IGNORE VALUE 3.
- 78 EVENT-ACTION-FAIL VALUE 4.
- 78 EVENT-ACTION-COMPLETE VALUE 5.
- 78 EVENT-ACTION-FAIL-TERMINATE VALUE 7.
-
-
- * Standard exception values from the windowing system
-
- 78 W-TIMEOUT VALUE 99.
- 78 W-CONVERSION-ERROR VALUE 98.
- 78 W-NO-FIELDS VALUE 97.
- 78 W-EVENT VALUE 96.
- 78 W-MESSAGE VALUE 95.
-
- * Command events
-
- 78 CMD-CLOSE VALUE 1.
- 78 CMD-GOTO VALUE 3.
- 78 CMD-CLICKED VALUE 4.
- 78 CMD-DBLCLICK VALUE 5.
- 78 CMD-ACTIVATE VALUE 6.
- 78 CMD-TABCHANGED VALUE 7.
- 78 CMD-HELP VALUE 8.
-
- * Notification events
-
- 78 NTF-SELCHANGE VALUE 4099.
- 78 NTF-CHANGED VALUE 4100.
- * The next 7 apply to paged list-boxes only
- 78 NTF-PL-NEXT VALUE 4101.
- 78 NTF-PL-PREV VALUE 4102.
- 78 NTF-PL-NEXTPAGE VALUE 4103.
- 78 NTF-PL-PREVPAGE VALUE 4104.
- 78 NTF-PL-FIRST VALUE 4105.
- 78 NTF-PL-LAST VALUE 4106.
- 78 NTF-PL-SEARCH VALUE 4107.
- 78 NTF-PL-PREV-WHEEL VALUE 4108.
- 78 NTF-PL-NEXT-WHEEL VALUE 4109.
- 78 NTF-RESIZED VALUE 4114.
-
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0006
-
-
- * Message-style events
-
- 78 MSG-SB-NEXT VALUE 16385.
- 78 MSG-SB-PREV VALUE 16386.
- 78 MSG-SB-NEXTPAGE VALUE 16387.
- 78 MSG-SB-PREVPAGE VALUE 16388.
- 78 MSG-SB-THUMB VALUE 16389.
- 78 MSG-SB-THUMBTRACK VALUE 16390.
- 78 MSG-VALIDATE VALUE 16391.
- 78 MSG-BEGIN-ENTRY VALUE 16392.
- 78 MSG-FINISH-ENTRY VALUE 16393.
- 78 MSG-CANCEL-ENTRY VALUE 16394.
- 78 MSG-GOTO-CELL VALUE 16395.
- 78 MSG-GOTO-CELL-MOUSE VALUE 16396.
- 78 MSG-MENU-INPUT VALUE 16397.
- 78 MSG-INIT-MENU VALUE 16398.
- 78 MSG-END-MENU VALUE 16399.
- 78 MSG-BITMAP-CLICKED VALUE 16400.
- 78 MSG-BITMAP-DBLCLICK VALUE 16401.
- 78 MSG-HEADING-CLICKED VALUE 16402.
- 78 MSG-HEADING-DBLCLICK VALUE 16403.
- 78 MSG-GOTO-CELL-DRAG VALUE 16404.
- 78 MSG-HEADING-DRAGGED VALUE 16405.
- 78 MSG-BEGIN-DRAG VALUE 16406.
- 78 MSG-END-DRAG VALUE 16407.
- 78 MSG-BEGIN-HEADING-DRAG VALUE 16408.
- 78 MSG-END-HEADING-DRAG VALUE 16409.
- 78 MSG-COL-WIDTH-CHANGED VALUE 16410.
- 78 MSG-TV-SELCHANGING VALUE 16411.
- 78 MSG-TV-SELCHANGE VALUE 16412.
- 78 MSG-TV-EXPANDING VALUE 16413.
- 78 MSG-TV-EXPANDED VALUE 16414.
- 78 MSG-CLOSE VALUE 16415.
- 78 MSG-SPIN-UP VALUE 16416.
- 78 MSG-SPIN-DOWN VALUE 16417.
- 78 MSG-PAGED-NEXT VALUE 16419.
- 78 MSG-PAGED-PREV VALUE 16420.
- 78 MSG-PAGED-NEXTPAGE VALUE 16421.
- 78 MSG-PAGED-PREVPAGE VALUE 16422.
- 78 MSG-PAGED-FIRST VALUE 16423.
- 78 MSG-PAGED-LAST VALUE 16424.
- 78 MSG-GRID-RBUTTON-DOWN VALUE 16426.
- 78 MSG-GRID-RBUTTON-UP VALUE 16427.
- 78 MSG-TV-DBLCLICK VALUE 16428.
- 78 MSG-WB-BEFORE-NAVIGATE VALUE 16429.
- 78 MSG-WB-NAVIGATE-COMPLETE VALUE 16430.
- 78 MSG-WB-DOWNLOAD-BEGIN VALUE 16431.
- 78 MSG-WB-DOWNLOAD-COMPLETE VALUE 16432.
- 78 MSG-WB-PROGRESS-CHANGE VALUE 16433.
- 78 MSG-WB-STATUS-TEXT-CHANGE VALUE 16434.
- 78 MSG-WB-TITLE-CHANGE VALUE 16435.
- 78 MSG-AX-EVENT VALUE 16436.
- 78 MSG-NET-EVENT VALUE 16437.
- 78 MSG-PAGED-PREV-WHEEL VALUE 16438.
- 78 MSG-PAGED-NEXT-WHEEL VALUE 16439.
-
- 78 WHEEL-PAGESCROLL VALUE 4294967295.
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0007
-
-
-
-
- * Entry Field ACTION values
-
- 78 ACTION-CUT VALUE 1.
- 78 ACTION-COPY VALUE 2.
- 78 ACTION-PASTE VALUE 3.
- 78 ACTION-DELETE VALUE 4.
- 78 ACTION-UNDO VALUE 5.
-
- * Grid ACTION values
-
- 78 ACTION-FIRST-PAGE VALUE 10.
- 78 ACTION-LAST-PAGE VALUE 11.
- 78 ACTION-CURRENT-PAGE VALUE 12.
- 78 ACTION-HIDE-DRAG VALUE 13.
- 78 ACTION-PREVIOUS VALUE 14.
- 78 ACTION-PREVIOUS-PAGE VALUE 15.
- 78 ACTION-NEXT-PAGE VALUE 16.
- 78 ACTION-NEXT VALUE 17.
-
- * Window ACTION values
-
- 78 ACTION-MINIMIZE VALUE 20.
- 78 ACTION-MAXIMIZE VALUE 21.
- 78 ACTION-RESTORE VALUE 22.
-
- * Paged grid FILE-POS values
-
- 78 PAGED-AT-START VALUE 2147418113.
- 78 PAGED-AT-END VALUE 2147418114.
- 78 PAGED-EMPTY VALUE 2147418115.
-
- * Grid search options
-
- 01 GRID-SEARCH-OPTIONS VALUE ALL ZEROS.
- 03 GRID-SEARCH-DIRECTION PIC 9.
- 88 GRID-SEARCH-FORWARDS VALUE ZERO, FALSE 1.
-
- 03 GRID-SEARCH-WRAP-FLAG PIC 9.
- 88 GRID-SEARCH-WRAP VALUE ZERO, FALSE 1.
-
- 03 GRID-SEARCH-CASE-FLAG PIC 9.
- 88 GRID-SEARCH-IGNORE-CASE VALUE ZERO, FALSE 1.
-
- 03 GRID-SEARCH-MATCH-FLAG PIC 9.
- 88 GRID-SEARCH-MATCH-ANY VALUE ZERO.
- 88 GRID-SEARCH-MATCH-LEADING VALUE 1.
- 88 GRID-SEARCH-MATCH-ALL VALUE 2.
-
- 03 GRID-SEARCH-LOCATION-FLAG PIC 9.
- 88 GRID-SEARCH-VISIBLE VALUE ZERO.
- 88 GRID-SEARCH-HIDDEN VALUE 1.
- 88 GRID-SEARCH-ALL-DATA VALUE 2.
-
- 03 GRID-SEARCH-SKIP-FLAG PIC 9.
- 88 GRID-SEARCH-SKIP-CURRENT VALUE ZERO, FALSE 1.
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0008
-
-
-
- 03 GRID-SEARCH-CURSOR-FLAG PIC 9.
- 88 GRID-SEARCH-MOVES-CURSOR VALUE ZERO, FALSE 1.
-
- 03 GRID-SEARCH-COLUMN PIC 9(5).
- 88 GRID-SEARCH-ALL-COLUMNS VALUE ZERO.
-
- * Grid search status flags
-
- 78 GRDSRCH-NOT-FOUND VALUE 0.
- 78 GRDSRCH-FOUND VALUE 1.
- 78 GRDSRCH-WRAPPED VALUE 2.
-
- * Grid FINISH-REASON values
-
- 78 GRFR-BLANK-PAST-END VALUE -1.
- 78 GRFR-TERMINATING VALUE -2.
- 78 GRFR-CELL-CLICKED VALUE -3.
- 78 GRFR-NAVIGATION-KEY VALUE -4.
- 78 GRFR-ESCAPE-KEY VALUE -5.
- 78 GRFR-ENTER-KEY VALUE -6.
- 78 GRFR-TAB-KEY VALUE -7.
-
- * Flags for win$playsound
-
- 78 SND-SYNC VALUE 0.
- 78 SND-ASYNC VALUE 1.
- 78 SND-LOOP VALUE 8.
- 78 SND-NOSTOP VALUE 16.
-
- * Tree-View control placement flags
-
- 78 TVPLACE-FIRST VALUE 4294901761.
- 78 TVPLACE-LAST VALUE 0.
- 78 TVPLACE-SORT VALUE 4294901763.
-
- * Tree-View NEXT-ITEM values
-
- 78 TVNI-CHILD VALUE 1.
- 78 TVNI-FIRST-VISIBLE VALUE 2.
- 78 TVNI-NEXT VALUE 3.
- 78 TVNI-NEXT-VISIBLE VALUE 4.
- 78 TVNI-PARENT VALUE 5.
- 78 TVNI-PREVIOUS VALUE 6.
- 78 TVNI-PREVIOUS-VISIBLE VALUE 7.
- 78 TVNI-ROOT VALUE 8.
-
- * Tree-View miscellaneous flags
-
- 78 TVFLAG-COLLAPSE VALUE 1.
- 78 TVFLAG-EXPAND VALUE 2.
- 78 TVFLAG-PROGRAM VALUE ZERO.
- 78 TVFLAG-MOUSE VALUE 1.
- 78 TVFLAG-KEYBOARD VALUE 2.
- 78 TVFLAG-NORMAL VALUE 1.
- 78 TVFLAG-BOLD VALUE 2.
-
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0009
-
-
- * Paged list sort-order values
-
- 78 PL-SORT-DEFAULT VALUE 0.
- 78 PL-SORT-NONE VALUE 1.
- 78 PL-SORT-NATIVE VALUE 2.
- 78 PL-SORT-NATIVE-IGNORE-CASE VALUE 3.
-
- * Date-Entry VALUE-FORMAT flags
-
- 78 DAVF-YYYYMMDD VALUE 0.
- 78 DAVF-YYMMDD VALUE 1.
- 78 DAVF-HHMMSShh VALUE 2.
- 78 DAVF-HHMMSS VALUE 3.
- 78 DAVF-YYYYMMDDHHMMSShh VALUE 4.
-
- * Bitmap control flags
- 78 BM-CORNER-COLOR VALUE x#1000000.
-
- * Predefined handle values for MS Windows registry
-
- * Windows 3.1:
- 78 HKEY_CLASSES_ROOT_31 VALUE 1.
-
- * 32-bit Windows:
- 78 HKEY_CLASSES_ROOT VALUE 2147483648.
- 78 HKEY_CURRENT_USER VALUE 2147483649.
- 78 HKEY_LOCAL_MACHINE VALUE 2147483650.
- 78 HKEY_USERS VALUE 2147483651.
- 78 HKEY_PERFORMANCE_DATA VALUE 2147483652.
- 78 HKEY_CURRENT_CONFIG VALUE 2147483653.
- 78 HKEY_DYN_DATA VALUE 2147483654.
-
- * 32-bit Windows Registry Value Types
- 78 REG_NONE VALUE ZERO.
- 78 REG_SZ VALUE 1.
- 78 REG_EXPAND_SZ VALUE 2.
- 78 REG_BINARY VALUE 3.
- 78 REG_DWORD VALUE 4.
- 78 REG_DWORD_LITTLE_ENDIAN VALUE 4.
- 78 REG_DWORD_BIG_ENDIAN VALUE 5.
- 78 REG_LINK VALUE 6.
- 78 REG_MULTI_SZ VALUE 7.
- 78 REG_RESOURCE_LIST VALUE 8.
- 78 REG_FULL_RESOURCE_DESCRIPTOR VALUE 9.
- 78 REG_RESOURCE_REQUIREMENTS_LIST VALUE 10.
-
- 01 WIN32-REGISTRY-VALUE-TYPE USAGE IS UNSIGNED-LONG.
- 88 TYPE-IS-REG_NONE VALUE ZERO.
- 88 TYPE-IS-REG_SZ VALUE 1.
- 88 TYPE-IS-REG_EXPAND_SZ VALUE 2.
- 88 TYPE-IS-REG_BINARY VALUE 3.
- 88 TYPE-IS-REG_DWORD VALUE 4.
- 88 TYPE-IS-REG_DWORD_LITTLE_ENDIAN VALUE 4.
- 88 TYPE-IS-REG_DWORD_BIG_ENDIAN VALUE 5.
- 88 TYPE-IS-REG_LINK VALUE 6.
- 88 TYPE-IS-REG_MULTI_SZ VALUE 7.
- 88 TYPE-IS-REG_RESOURCE_LIST VALUE 8.
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0010
-
-
- 88 TYPE-IS-REG_FULL_RESOURCE_DESCRIPTOR VALUE 9.
- 88 TYPE-IS-REG_RESOURCE_REQUIREMENTS_LIST VALUE 10.
-
- * 32-bit Windows Registry Key Options:
- 78 REG_OPTION_NON_VOLATILE VALUE 0.
- 78 REG_OPTION_VOLATILE VALUE 1.
-
- * 32-bit Windows Registry Access Rights:
- 78 KEY_QUERY_VALUE VALUE 1.
- 78 KEY_SET_VALUE VALUE 2.
- 78 KEY_CREATE_SUB_KEY VALUE 4.
- 78 KEY_ENUMERATE_SUB_KEYS VALUE 8.
- 78 KEY_NOTIFY VALUE 16.
- 78 KEY_CREATE_LINK VALUE 32.
- 78 KEY_WRITE VALUE 131078.
- 78 KEY_READ VALUE 131097.
- 78 KEY_EXECUTE VALUE 131097.
- 78 KEY_ALL_ACCESS VALUE 983103.
-
- * 32-bit Windows Registry Disposition Values:
- 78 REG_CREATED_NEW_KEY VALUE 1.
- 78 REG_OPENED_EXISTING_KEY VALUE 2.
-
- * W$PROGRESSDIALOG opcodes
-
- 78 WPROGRESSDIALOG-CREATE VALUE 1.
- 78 WPROGRESSDIALOG-DESTROY VALUE 2.
- 78 WPROGRESSDIALOG-SET-PROGRESS VALUE 3.
- 78 WPROGRESSDIALOG-QUERY-CANCEL VALUE 4.
- 78 WPROGRESSDIALOG-SET-LINE VALUE 5.
- 78 WPROGRESSDIALOG-RESET-TIMER VALUE 6.
- 78 WPROGRESSDIALOG-C-COPY VALUE 7.
-
- * W$PROGRESSDIALOG flags
-
- 78 WPROGRESSDIALOG-NORMAL VALUE 0.
- 78 WPROGRESSDIALOG-MODAL VALUE 1.
- 78 WPROGRESSDIALOG-AUTOTIME VALUE 2.
- 78 WPROGRESSDIALOG-NOTIME VALUE 4.
- 78 WPROGRESSDIALOG-NOMINIMIZE VALUE 8.
- 78 WPROGRESSDIALOG-NOPROGRESSBAR VALUE 16.
-
- * W$PROGRESSDIALOG animation types
-
- 78 WPROGRESSDIALOG-ANIMATION-NONE VALUE 0.
- 78 WPROGRESSDIALOG-ANIMATION-FILECOPY VALUE 1.
- 78 WPROGRESSDIALOG-ANIMATION-FILEMOVE VALUE 2.
- 78 WPROGRESSDIALOG-ANIMATION-FILEDEL VALUE 3.
- 78 WPROGRESSDIALOG-ANIMATION-FILEDELR VALUE 4.
- 78 WPROGRESSDIALOG-ANIMATION-FILENUKE VALUE 5.
- 78 WPROGRESSDIALOG-ANIMATION-SEARCH VALUE 6.
- 78 WPROGRESSDIALOG-ANIMATION-FINDCOMP VALUE 7.
- 78 WPROGRESSDIALOG-ANIMATION-FINDFILE VALUE 8.
- 78 WPROGRESSDIALOG-ANIMATION-CUSTOM VALUE 99.
-
- * end of acugui.def
- COPY "acucobol.def".
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0011
-
-
- * ACUCOBOL.DEF - Some useful ACUCOBOL definitions.
- * Last modified: 07-May-2001 TDC.
-
- * Copyright (c) 1996-2007 by Acucorp, Inc. Users of ACUCOBOL
- * may freely include this file in their COBOL source code.
-
- 01 TERMINAL-ABILITIES.
- 03 TERMINAL-NAME PIC X(10).
- 03 FILLER PIC X.
- 88 HAS-REVERSE VALUE "Y".
- 03 FILLER PIC X.
- 88 HAS-BLINK VALUE "Y".
- 03 FILLER PIC X.
- 88 HAS-UNDERLINE VALUE "Y".
- 03 FILLER PIC X.
- 88 HAS-DUAL-INTENSITY VALUE "Y".
- 03 FILLER PIC X.
- 88 HAS-132-COLUMN-MODE VALUE "Y".
- 03 FILLER PIC X.
- 88 HAS-COLOR VALUE "Y".
- 03 FILLER PIC X.
- 88 HAS-LINE-DRAWING VALUE "Y".
- 03 NUMBER-OF-SCREEN-LINES PIC 9(3).
- 03 NUMBER-OF-SCREEN-COLUMNS PIC 9(3).
- 03 FILLER PIC X.
- 88 HAS-LOCAL-PRINTER VALUE "Y".
- 03 FILLER PIC X.
- 88 HAS-VISIBLE-ATTRIBUTES VALUE "Y".
- 03 FILLER PIC X.
- 88 HAS-GRAPHICAL-INTERFACE VALUE "Y".
- 03 USABLE-SCREEN-HEIGHT PIC X(2) COMP-X.
- 03 USABLE-SCREEN-WIDTH PIC X(2) COMP-X.
- 03 PHYSICAL-SCREEN-HEIGHT PIC X(2) COMP-X.
- 03 PHYSICAL-SCREEN-WIDTH PIC X(2) COMP-X.
- 03 FILLER PIC X.
- 88 IS-REMOTE VALUE "Y".
- 03 CLIENT-MACHINE-NAME PIC X(64).
- 03 FILLER PIC X.
- 88 ACU-NO-TERMINAL VALUE "Y".
- 03 CLIENT-USER-ID PIC X(20).
-
- 01 SYSTEM-INFORMATION.
- 03 OPERATING-SYSTEM PIC X(10).
- 88 OS-IS-MSDOS VALUE "MS-DOS".
- 88 OS-IS-OS2 VALUE "OS/2".
- 88 OS-IS-VMS VALUES "VMS",
- "VAX/VMS".
- 88 OS-IS-UNIX VALUES "Unix",
- "Unix-V", "Unix-4",
- "UNOS".
- 88 OS-IS-AOS VALUE "AOS/VS".
- 88 OS-IS-WINDOWS VALUE "WINDOWS".
- 88 OS-IS-WIN-NT VALUE "WIN/NT".
- 88 OS-IS-WIN-FAMILY VALUES "WINDOWS",
- "WIN/NT".
- 88 OS-IS-AMOS VALUE "AMOS".
- 88 OS-IS-MPE VALUE "MPE/iX".
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0012
-
-
- 88 OS-IS-MPEIX VALUE "MPE/iX".
- 03 USER-ID PIC X(12).
- 03 STATION-ID PIC X(12).
- 03 FILLER PIC X.
- 88 HAS-INDEXED-READ-PREVIOUS VALUE "Y".
- 03 FILLER PIC X.
- 88 HAS-RELATIVE-READ-PREVIOUS VALUE "Y".
- 03 FILLER PIC X.
- 88 CAN-TEST-INPUT-STATUS VALUE "Y".
- 03 FILLER PIC X.
- 88 IS-MULTI-TASKING VALUE "Y".
- 03 RUNTIME-VERSION.
- 88 VERSION-PRIOR-TO-2-2 VALUE SPACES.
- 05 RUNTIME-MAJOR-VERSION PIC 99.
- 05 RUNTIME-MINOR-VERSION PIC 99.
- 05 RUNTIME-RELEASE PIC 99.
- 03 FILLER PIC X.
- 88 IS-PLUGIN VALUE "Y".
- 03 SERIAL-NUMBER PIC X(20).
- 03 FILLER PIC X.
- 88 HAS-LARGE-FILE-SUPPORT VALUE "Y".
-
- 01 BROWSERINFO-DATA.
- 03 USER-AGENT-STRING PIC X(50).
- 03 BROWSER-MAJOR-VERSION PIC X COMP-X.
- 03 BROWSER-MINOR-VERSION PIC X COMP-X.
-
- 78 BLACK VALUE 1.
- 78 BLUE VALUE 2.
- 78 GREEN VALUE 3.
- 78 CYAN VALUE 4.
- 78 RED VALUE 5.
- 78 MAGENTA VALUE 6.
- 78 BROWN VALUE 7.
- 78 WHITE VALUE 8.
- 78 DARK-GRAY VALUE 9.
- 78 BRIGHT-BLUE VALUE 10.
- 78 BRIGHT-GREEN VALUE 11.
- 78 BRIGHT-CYAN VALUE 12.
- 78 BRIGHT-RED VALUE 13.
- 78 BRIGHT-MAGENTA VALUE 14.
- 78 YELLOW VALUE 15.
- 78 BRIGHT-WHITE VALUE 16.
- 78 BCKGRND-BLACK VALUE 32.
- 78 BCKGRND-BLUE VALUE 64.
- 78 BCKGRND-GREEN VALUE 96.
- 78 BCKGRND-CYAN VALUE 128.
- 78 BCKGRND-RED VALUE 160.
- 78 BCKGRND-MAGENTA VALUE 192.
- 78 BCKGRND-BROWN VALUE 224.
- 78 BCKGRND-WHITE VALUE 256.
- 78 BCKGRND-DARK-GRAY VALUE 288.
- 78 BCKGRND-BRIGHT-BLUE VALUE 320.
- 78 BCKGRND-BRIGHT-GREEN VALUE 352.
- 78 BCKGRND-BRIGHT-CYAN VALUE 384.
- 78 BCKGRND-BRIGHT-RED VALUE 416.
- 78 BCKGRND-BRIGHT-MAGENTA VALUE 448.
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0013
-
-
- 78 BCKGRND-YELLOW VALUE 480.
- 78 BCKGRND-BRIGHT-WHITE VALUE 512.
- 78 COLOR-REVERSE VALUE 1024.
- 78 FRGRND-LOW VALUE 2048.
- 78 FRGRND-HIGH VALUE 4096.
- 78 COLOR-UNDERLINE VALUE 8192.
- 78 COLOR-BLINK VALUE 16384.
- 78 COLOR-PROTECTED VALUE 32768.
- 78 BCKGRND-LOW VALUE 65536.
- 78 BCKGRND-HIGH VALUE 131072.
- 78 WINDOW-BRIGHT-WHITE VALUE 131328.
-
- * Options for C$RERR STATUS-TYPE
-
- 78 GET-FILE-STATUS VALUE 1.
- 78 GET-TRANSACTION-STATUS VALUE 2.
-
- * Opcodes for C$FILESYS
-
- 78 START-FILESYSTEM-LIST VALUE 0.
- 78 CONTINUE-FILESYSTEM-LIST VALUE 1.
- 78 CHECK-FOR-FILESYSTEM VALUE 2.
- 78 NUMBER-OF-FILESYSTEMS VALUE 3.
-
- 77 FILESYSTEM PIC X(5).
-
- * Flags for "C$SYSTEM"
-
- 78 CSYS-ASYNC VALUE 1.
- 78 CSYS-NO-IO VALUE 2.
- 78 CSYS-MAXIMIZED VALUE 4.
- 78 CSYS-MINIMIZED VALUE 8.
- 78 CSYS-COMPATIBILITY VALUE 16.
- 78 CSYS-HIDDEN VALUE 32.
- 78 CSYS-SHELL VALUE 64.
- 78 CSYS-DESKTOP VALUE 128.
-
- * Return codes for "C$PING"
-
- 78 CPING_OK VALUE 0.
- 78 CPING_NO_CLIENT VALUE 1.
- 78 CPING_PARAM_ERROR VALUE 2.
- 78 CPING_CONN_REFUSED VALUE 3.
- 78 CPING_VERSION_ERROR VALUE 4.
- 78 CPING_SOCKET_ERROR VALUE 5.
-
- * Opcodes for C$LIST-DIRECTORY
-
- 78 LISTDIR-OPEN VALUE 1.
- 78 LISTDIR-NEXT VALUE 2.
- 78 LISTDIR-CLOSE VALUE 3.
-
- * The file information group passed to C$LIST-DIRECTORY
- 01 LISTDIR-FILE-INFORMATION.
- 03 LISTDIR-FILE-TYPE PIC X.
- 88 LISTDIR-FILE-TYPE-BLOCK-DEVICE VALUE "B".
- 88 LISTDIR-FILE-TYPE-CHARACTER-DEVICE VALUE "C".
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0014
-
-
- 88 LISTDIR-FILE-TYPE-DIRECTORY VALUE "D".
- 88 LISTDIR-FILE-TYPE-REGULAR-FILE VALUE "F".
- 88 LISTDIR-FILE-TYPE-PIPE VALUE "P".
- 88 LISTDIR-FILE-TYPE-SOCKET VALUE "S".
- 88 LISTDIR-FILE-TYPE-UNKNOWN VALUE "U".
- 03 LISTDIR-FILE-CREATION-TIME.
- 05 LDFC-YEAR PIC XX COMP-X.
- 05 LDFC-MONTH PIC X COMP-X.
- 05 LDFC-DAY PIC X COMP-X.
- 05 LDFC-HOUR PIC X COMP-X.
- 05 LDFC-MINUTE PIC X COMP-X.
- 05 LDFC-SECOND PIC X COMP-X.
- 05 LDFC-HUNDRETHS PIC X COMP-X.
- 03 LISTDIR-FILE-LAST-ACCESS-TIME.
- 05 LDFLA-YEAR PIC XX COMP-X.
- 05 LDFLA-MONTH PIC X COMP-X.
- 05 LDFLA-DAY PIC X COMP-X.
- 05 LDFLA-HOUR PIC X COMP-X.
- 05 LDFLA-MINUTE PIC X COMP-X.
- 05 LDFLA-SECOND PIC X COMP-X.
- 05 LDFLA-HUNDRETHS PIC X COMP-X.
- 03 LISTDIR-FILE-LAST-MODIFICATION-TIME.
- 05 LDFLM-YEAR PIC XX COMP-X.
- 05 LDFLM-MONTH PIC X COMP-X.
- 05 LDFLM-DAY PIC X COMP-X.
- 05 LDFLM-HOUR PIC X COMP-X.
- 05 LDFLM-MINUTE PIC X COMP-X.
- 05 LDFLM-SECOND PIC X COMP-X.
- 05 LDFLM-HUNDRETHS PIC X COMP-X.
- 03 LISTDIR-FILE-SIZE PIC X(8) COMP-X.
-
- * Opcodes for C$XML
-
- 78 CXML-PARSE-FILE VALUE 1.
- 78 CXML-RELEASE-PARSER VALUE 2.
- 78 CXML-GET-FIRST-CHILD VALUE 3.
- 78 CXML-GET-NEXT-SIBLING VALUE 4.
- 78 CXML-GET-PARENT VALUE 5.
- 78 CXML-GET-DATA VALUE 6.
- 78 CXML-GET-ATTRIBUTE-COUNT VALUE 7.
- 78 CXML-GET-ATTRIBUTE VALUE 8.
- 78 CXML-GET-LAST-ERROR VALUE 9.
- 78 CXML-OPEN-FILE VALUE 10.
- 78 CXML-PARSE-STRING VALUE 11.
- 78 CXML-PARSE-NEXT-RECORD VALUE 12.
- 78 CXML-GET-PREV-SIBLING VALUE 13.
- 78 CXML-NEW-PARSER VALUE 14.
- 78 CXML-GET-ATTRIBUTE-BY-NAME VALUE 15.
- 78 CXML-GET-CHILD-BY-NAME VALUE 16.
- 78 CXML-GET-CHILD-BY-CDATA VALUE 17.
- 78 CXML-GET-CHILD-BY-ATTR-NAME VALUE 18.
- 78 CXML-GET-CHILD-BY-ATTR-VALUE VALUE 19.
- 78 CXML-GET-SIBLING-BY-NAME VALUE 20.
- 78 CXML-GET-SIBLING-BY-CDATA VALUE 21.
- 78 CXML-GET-SIBLING-BY-ATTR-NAME VALUE 22.
- 78 CXML-GET-SIBLING-BY-ATTR-VALUE VALUE 23.
- 78 CXML-GET-COMMENT VALUE 24.
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0015
-
-
- 78 CXML-SET-DATA VALUE 25.
- 78 CXML-MODIFY-ATTRIBUTE-VALUE VALUE 26.
- 78 CXML-ADD-CHILD VALUE 27.
- 78 CXML-ADD-SIBLING VALUE 28.
- 78 CXML-ADD-ATTRIBUTE VALUE 29.
- 78 CXML-ADD-COMMENT VALUE 30.
- 78 CXML-APPEND-COMMENT VALUE 31.
- 78 CXML-DELETE-ATTRIBUTE VALUE 32.
- 78 CXML-DELETE-ELEMENT VALUE 33.
- 78 CXML-DELETE-COMMENT VALUE 34.
- 78 CXML-WRITE-FILE VALUE 35.
- 78 CXML-GET-PROC-INSTR-COUNT VALUE 36.
- 78 CXML-GET-PROC-INSTR VALUE 37.
- 78 CXML-SET-PROC-INSTR VALUE 38.
- 78 CXML-GET-VERSION VALUE 39.
- 78 CXML-SET-VERSION VALUE 40.
- 78 CXML-GET-ENCODING VALUE 41.
- 78 CXML-SET-ENCODING VALUE 42.
- 78 CXML-GET-STANDALONE VALUE 43.
- 78 CXML-SET-STANDALONE VALUE 44.
- 78 CXML-GET-RAW-DOCTYPE-LEN VALUE 45.
- 78 CXML-GET-RAW-DOCTYPE VALUE 46.
- 78 CXML-SET-RAW-DOCTYPE VALUE 47.
-
- * Error codes for C$XML
-
- * Unable to create parser due to low memory
- 78 CXML-NO-MEMORY VALUE 1.
- * Unable to create parser - expat error
- 78 CXML-EXPAT-ERROR VALUE 2.
- * Unable to open named file
- 78 CXML-FILE-OPEN-ERROR VALUE 3.
- * Invalid XML file or other parsing error
- 78 CXML-PARSE-ERROR VALUE 4.
- * The passed handle is not a valid parser handle
- 78 CXML-INVALID-PARSER-HANDLE VALUE 5.
- * The passed handle is not a valid element handle
- 78 CXML-INVALID-ELEMENT-HANDLE VALUE 6.
- * Invalid attribute number
- 78 CXML-INVALID-ATTRIBUTE-NUMBER VALUE 7.
- * The URL given could not be accessed
- 78 CXML-URL-ERROR VALUE 8.
- * The XML parser is not available on this machine
- 78 CXML-NOT-AVAILABLE VALUE 9.
- * The specified element has no children
- 78 CXML-NO-CHILDREN VALUE 10.
- * The specified element has no siblings
- 78 CXML-NO-SIBLINGS VALUE 11.
- * The specified element is a top-level element
- 78 CXML-NO-PARENT VALUE 12.
- * The specified element has no value
- 78 CXML-NO-VALUE VALUE 13.
- * The specified element has no attributes
- 78 CXML-NO-ATTRIBUTES VALUE 14.
- * The regular expression given caused an error
- 78 CXML-REGEXP-ERROR VALUE 15.
- * The specified parser already has a top-level element
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0016
-
-
- 78 CXML-TOP-LEVEL VALUE 16.
- * The specified processing instruction number does not exist
- 78 CXML-INVALID-PROC-INSTR-NUMBER VALUE 17.
- * No processing instructions are available
- 78 CXML-NO-PROCESSING-INSTRUCTIONS VALUE 18.
-
- * Opcodes for C$CONFIG (not many yet, but open for expansion)
-
- 78 CCONFIG-RESET VALUE 1.
-
- * Opcodes for C$REGEXP
-
- 78 AREGEXP-GET-LEVEL VALUE 1.
- 78 AREGEXP-COMPILE VALUE 2.
- 78 AREGEXP-MATCH VALUE 3.
- 78 AREGEXP-RELEASE-MATCH VALUE 4.
- 78 AREGEXP-RELEASE VALUE 5.
- 78 AREGEXP-NUMGROUPS VALUE 6.
- 78 AREGEXP-GETMATCH VALUE 7.
- 78 AREGEXP-LAST-ERROR VALUE 20.
-
- * FLAGS for AREGEXP-COMPILE
-
- 78 AREGEXP-COMPILE-IGNORECASE VALUE 1.
- 78 AREGEXP-COMPILE-BASIC VALUE 2.
- 78 AREGEXP-COMPILE-NO-SPECIAL VALUE 4.
- 78 AREGEXP-COMPILE-NO-SUB VALUE 8.
- 78 AREGEXP-COMPILE-NEWLINE VALUE 16.
- 78 AREGEXP-COMPILE-NO-REGEXP VALUE 32.
-
- * Error codes for C$REGEXP
-
- 78 AREGEXP-ERROR-NO-ERROR VALUE 0.
- 78 AREGEXP-ERROR-NO-MEMORY VALUE 1.
- 78 AREGEXP-ERROR-BRACE-EXPECTED VALUE 2.
- 78 AREGEXP-ERROR-PAREN-EXPECTED VALUE 3.
- 78 AREGEXP-ERROR-BRACKET-EXPECTED VALUE 4.
- 78 AREGEXP-ERROR-UNEXPECTED VALUE 5.
- 78 AREGEXP-ERROR-EMPTY-RANGE VALUE 6.
- 78 AREGEXP-ERROR-INVALID-GROUP VALUE 7.
- 78 AREGEXP-ERROR-INVALID-RANGE VALUE 8.
- 78 AREGEXP-ERROR-EMPTY-REPEATOP VALUE 9.
- 78 AREGEXP-ERROR-INVALID-INPUT VALUE 10.
- 78 AREGEXP-ERROR-INVALID-HANDLE VALUE 11.
- 78 AREGEXP-ERROR-INVALID-ARGUMENT VALUE 12.
- 78 AREGEXP-ERROR-INVALID-CALL-SEQ VALUE 13.
- 78 AREGEXP-ERROR-NO-MATCH VALUE 14.
-
- * Return codes for C$REGEXP AREGEXP-GET-LEVEL
-
- 78 AREGEXP-NONE VALUE 0.
- 78 AREGEXP-WINDOWS VALUE 1.
- 78 AREGEXP-POSIX VALUE 2.
-
- * Opcodes for C$SYSLOG
-
- 78 CSYSLOG-OPEN VALUE 0.
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0017
-
-
- 78 CSYSLOG-WRITE VALUE 1.
- 78 CSYSLOG-CLOSE VALUE 2.
-
- * Priority codes for C$SYSLOG
-
- 78 CSYSLOG-PRIORITY-SUCCESS VALUE 0.
- 78 CSYSLOG-PRIORITY-INFORMATION VALUE 1.
- 78 CSYSLOG-PRIORITY-WARNING VALUE 2.
- 78 CSYSLOG-PRIORITY-ERROR VALUE 3.
-
- * end of acucobol.def
- COPY "crtvars.def".
- * CRTVARS.DEF - definitions of commonly needed screen handling variables
- * Date written: 27-Aug-96 - TDC.
-
- * Copyright (c) 1996-2007 by Acucorp, Inc. Users of ACUCOBOL
- * may freely include this file in their COBOL source code.
-
- 01 EVENT-STATUS
- IS SPECIAL-NAMES EVENT STATUS.
- 03 EVENT-TYPE PIC X(4) COMP-X.
- 03 EVENT-WINDOW-HANDLE HANDLE OF WINDOW.
- 03 EVENT-CONTROL-HANDLE HANDLE.
- 03 EVENT-CONTROL-ID PIC XX COMP-X.
- 03 EVENT-DATA-1 SIGNED-SHORT.
- 03 EVENT-DATA-2 SIGNED-LONG.
- 03 EVENT-ACTION PIC X COMP-X.
-
- 01 SCREEN-CONTROL
- IS SPECIAL-NAMES SCREEN CONTROL.
- 03 ACCEPT-CONTROL PIC 9.
- 03 CONTROL-VALUE PIC 999.
- 03 CONTROL-HANDLE HANDLE.
- 03 CONTROL-ID PIC XX COMP-X.
-
- * End of CRTVARS.DEF
- COPY "showmsg.def".
- 01 Extend-Stat.
- 03 Primary-Error PIC X(2).
- 03 Secondary-Error PIC X(10).
- 01 Text-Message PIC X(40).
-
- 01 Acu-Show-Msg.
- 05 Acu-Call-Fail-Code PIC X(2).
- 05 Acu-Msg-Id PIC 9(3).
- 05 Acu-Err-File PIC X(30).
-
- * for message display
- 78 Acu-Length VALUE 80.
- 78 Acu-Full-Len VALUE 250.
- 01 Acu-Msg-BOX.
- * Mb-Default-Icon, Mb-Warning-Icon, Mb-Error-Icon, 4:QUESTION
- 05 Acu-Icon-Type PIC 9 VALUE 1.
- * Mb-Yes, Mb-No, Mb-Cancel
- 05 Acu-Default-Button PIC 9 VALUE 1.
- * Mb-Ok, Mb-Yes-No, Mb-Ok-Cancel, Mb-Yes-No-Cancel
- 05 Acu-Button-Type PIC 9 VALUE 1.
-
- C:\SM4\SM4GUI\Source\Program1.cbl Sat Jun 06 13:17:59 2009 ACUCOBOL-GT v8.1.0 Page: 0018
-
-
- * Mb-Yes, Mb-No, Mb-Cancel
- 05 Acu-Return-Value PIC 9 VALUE 1.
- 05 Acu-Msg-1 PIC X(Acu-Length).
- 05 Acu-Msg-2 PIC X(Acu-Length).
- 05 Acu-Msg-3 PIC X(Acu-Length).
- 05 Acu-Msg-Text PIC X(Acu-Full-Len).
-
- 05 Acu-Text-Ptr SIGNED-SHORT.
- 05 Acu-Size SIGNED-SHORT.
-
-
- 77 Acu-Idx1 PIC 9(3).
- 77 Acu-Idx2 PIC 9(3).
- 77 Acu-Idx3 PIC 9(3).
- *{Bench}end
- *{Bench}extern-def
- *{Bench}end
-
- *{Bench}copy-working
- COPY "Program1.wrk".
- * Program1.wrk
- * Program1.wrk is generated from C:\SM4\SM4GUI\Program1.Psf
- * This is a generated file. DO NOT modify this file directly.
-
- 77 Quit-Mode-Flag PIC S9(5) COMP-4 VALUE 0.
- 77 Key-Status IS SPECIAL-NAMES CRT STATUS PIC 9(4) VALUE 0.
- 88 Exit-Pushed VALUE 27.
- 88 Message-Received VALUE 95.
- 88 Event-Occurred VALUE 96.
- 88 Screen-No-Input-Field VALUE 97.
- 88 Screen-Time-Out VALUE 99.
- * property-defined variable
-
- * user-defined variable
- 77 Scre…