Cobol en español
  Página de Inicio Recomiéndala Contáctame Usuarios en Linea
13
     Crea Una cuenta  
Video 1
Video 2
Video 3

Si te ha servido la web
o te han gustado los videos, colabora haciendo click en el botón.

MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
 
BUSCADOR
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
RUTINAS/MANUALES
OCX / JUEGOS
HERRAMIENTAS
COMPILADORES
ENCUESTAS
ENLACES
FOROS
TOP 10

CHAT   Usuarios: 0
Noticias
Opciones :    [ Versión Imprimible  |  Enviar a un Amigo ]

Variables de Visual Basic a Powercobol
Enviado el Jueves, 15 julio a las 09:54:11 amrobles
Fujitsu Power Coboljuliovc escribió "Para aquellos que programen en Powercobol versión 5.0 en adelante puedes utilizar apis de Windows, controles activex, etc. , por ejemplo como todos los ejemplos de los controles activex esta en visual Basic tendriamos que traducir las variables a powercobol, aquí tenéis la traducción de las variables de Visual Basic a powercobol sin mucho esfuerzo os muestro esta tabla que incluye su conversión.
Tipos de datos (Variables) correspondiente de Visual Basic a COBOL.

Boolean (16bit) (2 Bytes) -> 9(4) COMP-5
Boolean (32bit) (4 Bytes) -> S9(9) COMP-5
Byte (1 Byte) -> X
Currency (8 bytes) -> S9(10)V9(4) COMP-5
Double (8 Bytes) -> COMP-2
Integer (2 Bytes) -> S9(4) COMP-5
Long (4 Bytes) -> S9(9) COMP-5
Single (4 Bytes) -> COMP-1
String (1 Bytes por carácter) -> X(n)

Ejemplo :

Visual Basic:

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim sSave As String, Ret As Long
'Create a buffer
sSave = Space(255)
'Get the system directory
Ret = GetSystemDirectory(sSave, 255)
'Remove all unnecessary chr$(0)'s
sSave = Left$(sSave, Ret)
'Show the windows directory
MsgBox "Windows System directory: " + sSave
End Sub

Powercobol :

@OPTIONS ALPHAL(WORD)
identification division.
program-id. LIB-CWIN.
author. JULIO-MANUEL-VAZQUEZ-CASTAÑO.
environment division.
data division.
working-storage section.
01 the-path-name pic x(256) value spaces.
01 ws-index pic 9(9) comp-5.

linkage section.
01 LIB-WIN.
02 LIB-WINDOWS pic x(255).
02 LIB-LONGITUD pic 9(9) comp-5.
02 LIB-ERROR pic s9(9) comp-5.

procedure division using LIB-WIN.

compute LIB-LONGITUD = function length(the-path-name)

call "GetWindowsDirectoryA" with STDCALL using
by value LIB-LONGITUD
by reference the-path-name
returning LIB-ERROR

if LIB-ERROR = 0
move 1 to LIB-ERROR
exit program
end-if
*
* string
*
perform varying LIB-LONGITUD from 256 by -1
until the-path-name(LIB-LONGITUD:1) = x"00"
continue
end-perform

subtract 1 from LIB-LONGITUD
move the-path-name(1:LIB-LONGITUD) to LIB-WINDOWS
move 0 to LIB-ERROR

exit program

Si habéis comprobado que el ejemplo visual Basic y cobol hace la misma llamada a la función api de Windows, solo lo que hemos traducido las variables de visual Basic a powercobol y programar las sintaxis para llamar a la función api en cada lenguaje y hace casi las mismas funciones.

Espero que os haya gustado a todos este pequeño truco, para aquellos que programan en powercobol 5/6/7 es muy útil este truco."

:: Votos del Artículo

Puntuación Media: 3.41   votos: 24

Por favor tómate un segundo y vota por este artículo:

MaloRegularBuenoMuy BuenoExcelente



 ACTUALIDAD
 COBOL
 POWER COBOL
 TRUCOS/ARTICULOS

 HISTORICO
¿Sobre que Base de datos trabajáis en COBOL?

Ficheros indexados
SQL Server
Oracle
MySQL
PostgreSQL
Firebird
DB2
Otra (Comentar)

   

[Resultados]

votos: 1156
Comentarios: 104


Sitio desarrollado con PHP-Nuke. Todos los Derechos Reservados.
PHP-Nuke es un Software Libre realizado con licencia GNU/GPL.
Página creada en Junio de 1.998, con el proposito de difundir el lenguaje Cobol en nuestra lengua.
Andres Montes [98/11]