* :--------------------------------------- * ------------------------: Copybook for GS_WINAPI. * : * : See the documentation for details. * :--------------------------------------- 01 WIN32API-PARMS. 05 WIN32API-RC PIC S9(9) COMP-5. 88 WIN32API-FAILED VALUE 0. * : Occasionally you need to force certain * : api calls to run on the server when * : operating in client/server mode. * : * : Setting WIN32API-EXECUTE-API-ON-SERVER * : to true BEFORE calling win32api will * : cause this to be so. * : * : When NOT running under the client- * : server, obviously, all APIs run * : in the local machine. You need not * : set WIN32API-EXECUTE-API-ON-SERVER * : for non-client-server applications. * : * : SERVER SIDE ONLY------------ * : The following ONLY operate on the * : server when in a client/server * : environment. * : * : FUNC-REGISTRY-PUT * : FUNC-REGISTRY-GET * : FUNC-REGISTRY-DELETE-VALUE * : FUNC-REGISTRY-DELETE-SUBKEY * : FUNC-BITS-TO-BYTES * : FUNC-BYTES-TO-BITS * : * : SELECTABLE SIDE APIs--------- * : * : Note: Only those APIs which do not * : require ANY user interaction are * : eligible to be forced to run on the * : server. * : * : Precisely these are selectable * : API-COPYFILE * : API-CREATEDIRECTORY * : API-GETPRIVATEPROFILESTRING * : API-GETFILETIME * : API-GETWINDOWSDIRECTORY * : API-GETVERSIONEX * : API-GETFOLDERPATH * : API-GETUSERNM * : API-GETCOMPUTERNAME * : API-GETPRINTERS * : API-PLAYSOUND * : API-UPPERCASE * : API-LOWERCASE * : API-WINEXEC (dangerous but needed) * : API-WRITEPRIVATEPROFILESECTION * : API-WRITEPRIVATEPROFILESTRING * : API-OPENPRINTER * : API-STARTDOCPRINTER * : API-STARTPAGEPRINTER * : API-WRITEPRINTER * : API-ENDPAGEPRINTER * : API-PRINTDIALOG * : API-ENDDOCPRINTER * : API-GETENVIRONMENTVARIABLE * : API-SETENVIRONMENTVARIABLE * : API-QUERYDOSDEVICE * : API-GETLOGICALDRIVES * : API-DRIVETOUNC * : API-CLOSEPRINTER * : FUNC-FINDFILES * : FUNC-SENDMAIL * : FUNC-EX-REGISTRY-PUT * : FUNC-EX-REGISTRY-GET * : FUNC-EX-REGISTRY-DELETE-VALUE * : FUNC-EX-REGISTRY-DELETE-SUBKEY * : FUNC-SENDMAIL * : * : NORMALLY CLIENT SIDE--------- * : All other APIs normally operate on * : the client machine in a client/server * : environment. 88 WIN32API-EXECUTE-API-ON-SERVER VALUE -989898987. 05 WIN32API-ERROR-CODE PIC S9(9) COMP-5. 05 WIN32API-ERROR-TEXT PIC X(255). 05 WIN32API PIC S9(4) COMP-5. * :--------------------------------------- * ------------------------: Available APIs using GS_WINAPI * :--------------------------------------- 88 API-CHOOSECOLOR VALUE 129. 88 API-CHOOSEFONT VALUE 128. 88 API-COPYFILE VALUE 3. 88 API-CREATEDIRECTORY VALUE 4. 88 API-GETOPENFILENAME VALUE 53. 88 API-GETPRIVATEPROFILESTRING VALUE 5. 88 API-GETPRINTERS VALUE 8. 88 API-GETSAVEFILENAME VALUE 57. 88 API-GETVERSIONEX VALUE 58. 88 API-GETWINDOWSDIRECTORY VALUE 67. 88 API-GETFOLDERPATH VALUE 126. 88 API-MESSAGEBOX VALUE 80. 88 API-PLAYSOUND VALUE 125. 88 API-WINEXEC VALUE 124. 88 API-WRITEPRIVATEPROFILESTRING VALUE 6. 88 API-WRITEPRIVATEPROFILESECTION VALUE 7. 88 API-PRINTDIALOG VALUE 127. 88 API-OPENPRINTER VALUE 130. 88 API-STARTDOCPRINTER VALUE 131. 88 API-STARTPAGEPRINTER VALUE 132. 88 API-WRITEPRINTER VALUE 133. 88 API-ENDPAGEPRINTER VALUE 134. 88 API-ENDDOCPRINTER VALUE 135. 88 API-CLOSEPRINTER VALUE 136. 88 API-GETENVIRONMENTVARIABLE VALUE 137. 88 API-SETENVIRONMENTVARIABLE VALUE 138. 88 API-GETCOMPUTERNAME VALUE 139. 88 API-GETUSERNAME VALUE 140. 88 API-UPPERCASE VALUE 141. 88 API-LOWERCASE VALUE 142. 88 API-SIMULATEKEYS VALUE 143. 88 API-KEYSTATE VALUE 144. 88 API-WINDOW-POSITION VALUE 145. 88 API-GETFILETIME VALUE 146. 88 API-GETSYSTEMTIME VALUE 147. 88 API-GETLOGICALDRIVES VALUE 148. 88 API-QUERYDOSDEVICE VALUE 149. 88 API-DRIVETOUNC VALUE 150. 88 API-GETCOMMANDLINE VALUE 151. 140202ja * : Functions provided by GS; these * : would typically require multiple API * : calls, which we do for you to * : simplify the procedure. 88 FUNC-CLIPBOARD-PUT VALUE 1001. 88 FUNC-CLIPBOARD-GET VALUE 1002. 88 FUNC-CLIPBOARD-TEST VALUE 1003. 88 FUNC-REGISTRY-PUT VALUE 1004. 88 FUNC-REGISTRY-GET VALUE 1005. 88 FUNC-REGISTRY-DELETE-VALUE VALUE 1006. 88 FUNC-REGISTRY-DELETE-SUBKEY VALUE 1007. 88 FUNC-SENDMAIL VALUE 1009. 88 FUNC-SHELLEXECUTE VALUE 1008. 88 FUNC-BROWSEFORFOLDER VALUE 1010. 88 FUNC-GETWEBPAGE VALUE 1011. 88 FUNC-COPYFILEFROMCLIENT VALUE 1012. 88 FUNC-CREATESHORTCUT VALUE 1013. 88 FUNC-PRINTFILE VALUE 1014. 88 FUNC-PRINTSCREEN VALUE 1015. 88 FUNC-BITS-TO-BYTES VALUE 1016. 88 FUNC-BYTES-TO-BITS VALUE 1017. 88 FUNC-FINDFILES VALUE 1018. * : "Extended" functions; basic functions * : which have been enhanced or changed 88 FUNC-EX-REGISTRY-PUT VALUE 1104. 88 FUNC-EX-REGISTRY-GET VALUE 1105. 88 FUNC-EX-REGISTRY-DELETE-VALUE VALUE 1106. 88 FUNC-EX-REGISTRY-DELETE-SUBKEY VALUE 1107. * ------------------------: Functions reserved for NORCOM. 88 API-APPENDMENU VALUE 1. 88 API-GET-FIELD-ATTRIBUTE-NUMBER VALUE 300. * :--------------------------------------- * ------------------------: Because GS_WINAPI always needs to be * : called with 7 arguments (not all of * : which are needed with many APIs), we * : provide these dummy arguments to make * : things easier. * :--------------------------------------- 01 WIN32API-DUMMY-ARGUMENTS VALUE LOW-VALUES. 05 WIN32API-A PIC X. 05 WIN32API-B REDEFINES WIN32API-A PIC X. 05 WIN32API-C REDEFINES WIN32API-A PIC X. 05 WIN32API-D REDEFINES WIN32API-A PIC X. 05 WIN32API-E REDEFINES WIN32API-A PIC X. 05 WIN32API-F REDEFINES WIN32API-A PIC X.