Ejemplo tipico de temperatura que aporta rmcobol ( no se si funcionará en la actualidad )
Código COBOL:
identification division.
program-id. TempConv.
data division.
working-storage section.
01 Fahrenheit-To-Celsius.
02 Fahrenheit pic x(3) value zeros.
88 is-quit value spaces.
01 Fahrenheit-To-Celsius-Response.
02 Fahrenheit-To-Celsius-Result pic X(20).
01 request-payload usage pointer.
01 response-payload usage pointer.
01 response-status pic 9(3) value zero.
01 response-len pic s9(4).
01 a-single-char pic x.
copy "lixmlall.cpy".
78 Desired-SOAP-Action value 'SOAPAction' & x"00" &
'"http://tempuri.org/FahrenheitToCelsius"' & x"00".
78 Post-Address value
"http://www.w3schools.com/webservices/tempconvert.asmx".
78 Content-Type value "text/xml; charset=utf-8".
linkage section.
01 http-response pic x.
procedure division.
main.
XML INITIALIZE.
a.
display "Fahrenheit To Celsius Service Sample"
line 3 position 10 erase.
display "Fahrenheit:", line 5, position 3
"Spaces to quit", line 5, position 25
perform
with test after
until (Fahrenheit(1:1) is numeric or
Fahrenheit(1:1) = "-") and
Fahrenheit(2:) is numeric
accept Fahrenheit, line 5, position 16,
prompt, update, tab,
control "upper"
if is-quit
go to z
end-if
end-perform.
XML EXPORT FILE
Fahrenheit-To-Celsius
"TempFahrenheitRequest.xml"
"Fahrenheit-To-Celsius"
"TempConvertRequestF2C.xsl".
if not XML-OK go to z.
XML EXPORT TEXT
Fahrenheit-To-Celsius
request-payload
"Fahrenheit-To-Celsius"
"TempConvertRequestF2C.xsl".
if not XML-OK go to z.
call "NetInit"
giving
response-status.
call "HttpPost"
using
Post-Address
Content-Type
request-payload
response-payload
Desired-SOAP-Action
giving
response-status.
set address of http-response to response-payload.
display "Response: ", response-status.
if not response-status = 0
call "NetGetError" giving response-payload
set address of http-response to response-payload
display "Error! ", response-status
display "Error message: ", http-response(1:)
call "NetFree" using response-payload
go to z
end-if.
XML FREE TEXT
request-payload.
if response-payload = NULL
display "Error: NULL pointer returned", line 10, blink
accept a-single-char prompt
go to z
end-if.
XML PUT TEXT
response-payload
"TempFahrenheitResponse.xml".
if not XML-OK go to z.
XML IMPORT TEXT
Fahrenheit-To-Celsius-Response
response-payload
"Fahrenheit-To-Celsius-Response"
"TempConvertResponseF2C.xsl".
if not XML-OK go to z.
call "NetFree"
using
response-payload.
call "NetCleanup".
display " Celsius: ", line 10 position 5
Fahrenheit-To-Celsius-Result position 0.
accept a-single-char prompt tab.
go to a.
z.
copy "lixmltrm.cpy".
display "finished.", line 20 position 5.
accept a-single-char prompt tab.
stop run.
copy "lixmldsp.cpy".
---------- Post añadido el 23 de marzo de 2022 a las 17:45 ----------
@Kuk, pues yo no he utilizado ni OCX ni nada que no fuera alguna .DLL ( o .so ) conodida.
Solo utilizo SQL y llamadas a SW.
RM tiene muchas historias, pero valen pasta, y lo gracioso es que cuando estaban disponibles ya las habia yo implementado en cobol, C, java o ensamblador.
O sea que siempre han llegado tarde y mal ( muy complicado y caro utilizar las herramientas )
Claro y ahora RM/cobol esta en via muerta. Me llaman de microfocus para tocarme las p...........
---------- Post añadido el 23 de marzo de 2022 a las 17:46 ----------
---------- Post añadido el 23 de marzo de 2022 a las 17:52 ----------
Los distribuidores de RM/cobol que tengo servicio de mantenimiento con ellos, se portan muy bien y ayudan en lo que saben.
Me están aconsejando cambiar de camino, pero son muchas cosas funcionando, MUY BIEN, que cualquiera empieza a picar de nuevo.