Recent content by subscripciones

Progress Version 9.1

I need a Generic catch for all exceptions in .w code, and store the Message in a variable, example: DEF VAR err AS CHARACTER. ?? DEF VAR obj AS MEMPTR. PUT-STRING(obj, 0) = "hello". ?? fill "err" variable in this case with = "PUT/GET functions not allowed on uninitialized memory. (2914)"...

I need a Generic catch for all exceptions in .p code, and store the Message in a variable, example: DEF VAR err AS CHARACTER. ?? DEF VAR obj AS MEMPTR. PUT-STRING(obj, 0) = "hello". ?? fill "err" variable in this case with = "PUT/GET functions not allowed on uninitialized memory. (2914)"...

Excelent!!! Thank You So Much!!!

I am trying to get field names from one table: ex: FOR EACH TableName NO-LOCK: CREATE data-table. data-table.ColumnName = ¿?. END. Table Columns (column1, column2, column3) Thanks

How I can solve it in version 9? thanks!

DEF VAR sPost AS CHARACTER NO-UNDO. sPost = GET-VALUE("WebValue"). **Attribute GET-CGI-VALUE for the PSEUDO-WIDGET has an invalid value of . (4058) "WebValue" contains great quantity of information. How I can solve it? thanks

I want to obtain an array of text from a string separated for "/" character. Ex. def var text1 as character. text1 = "/folder1/folder2/file.p". DO v-i = 1 TO NUM-ENTRIES(??): IF NOT Entry(v-i,text1) = '':U THEN DO: DISPLAY Entry(v-i,text1) . END. END. result: folder1 folder2 file.p...

for files: def var file as char no-undo. def var f as char. file = "helloworld.p". FILE-INFO:FILE-NAME = file. f = FILE-INFO:FULL-PATHNAME. IF f <> ? THEN DO: DISPLAY "Exist". END. ELSE DO: DISPLAY "Not Exist". END. the same for...

find _file no-lock where _file-name = "customer". find _field no-lock where _file-recid = recid( _file ) and _field-name = "name". display _data-type. Forget to create an alias. this works. thanks!

physical table

DEFINE VARIABLE columnName AS CHARACTER. DEFINE VAR bh AS WIDGET-HANDLE. DEFINE VARIABLE typeResult AS CHARACTER. columnName = "TableCustomer.ColumnId". CREATE BUFFER bh FOR TABLE ENTRY(1, columnName, "."). typeResult = bh:BUFFER-FIELD(ENTRY(2, columnName, ".")):DATA-TYPE. DISPLAY typeResult...

could not create buffer object for table TableCustomer. (7334)

I am trying to obtain the data type (logical, character, etc) from a table and field name stored in a variable. DEFINE VARIABLE columnName AS CHARACTER. columnName = "TableCustomer.ColumnId". DEFINE VARIABLE typeResult AS CHARACTER. ...do Something... DISPLAY typeResult. /* ex. ColumnId...

Excelent! thanks.