File names in Xe

G'day all.

I'm developing a tiny Palm database application (using SmartList, formerly known as Thinkdb) that will show the files and their English text descriptions. I have the major ones entered already, using old hard copy of the World models, but have been unable to find the equivalent in OW, although I ask everybody if they have run across such a thing.

Failing that, I thought I could pull the descriptions off an AS/400 Enterprise server by simply running PDM and working with files. Alas, someone has decided that OW files now have BLANK descriptions! What that is supposed to do for anyone is a mystery - could they think it's a security breach? Or that one could accidentally learn something by looking at a file name and description?

At any rate, I would appreciate it if anyone could post a list of filenames and descriptions, and let me know whether they had to build it themselves. If you would like the resulting Palm db simply send me a request and I'll email it to you as soon as it's 99% finished.

Thanks!

SP

There is a list on the knowledge garden somewhere, but if you query the Object Librarian.F9860 table, where SIFUNO = 'TBLE' you should get them.

Thanks, Jean -

I have searched for hours on KG without luck. Yes, it should be there, shouldn't it?

There is no system here since we do telephone support for remote clients, and I was hoping to be able to develop my list without logging onto a client system...not that it would be intrusive but it doesn't feel right to do my research on their capital equipment.

All we have in the office here is Demo Jr., and Demo Jr. has exactly three blank entries for SIFUN0 = TBLE.

If no other suggestions appear, I may have to go ahead with plan B.

Thanks!

Here's mine

Are you looking for technical tables? in KG go to Search, type in
Technical Tables. Click on Product and then OneWorld. This will return
Xe Techincal Tables in a pdf. You can also look at KG document
OTI-01-0069 under Support/Sars-Knowledge/Knowledge.

ENT: AS400 V5R1 OW Xe Update 5 Coexistence SP19 D1
DEP: Win2000 SQL 7 SP3
JAS: Win2000 (pending)

Thanks, Jean - I have searched for hours on KG without luck. Yes, it
should be there, shouldn't it?There is no system here since we do
telephone support for remote clients, and I was hoping to be able to
develop my list without logging onto a client system...not that it would
be intrusive but it doesn't feel right to do my research on their
capital equipment.All we have in the office here is Demo Jr., and Demo
Jr. has exactly three blank entries for SIFUN0 = TBLE.If no other
suggestions appear, I may have to go ahead with plan B.Thanks!
Sheila Perkins
JDE Consultant @ IBM
(can\'t put config in sig because we have none - we support multiple
customers remotely)
6000 free e-books at Project Gutenberg! http://promo.net/pg/
--------------------------
To view this thread, go to:
http://www.jdelist.com/ubb/showthreaded.php?Cat=&Board=OW&Number=47347

+ - - - - - - - - - - - - - - - - - - - - - - - -+
This is the JDEList One World« / XE mailing list/forum.
Archives and information on how to SUBSCRIBE, and
UNSUBSCRIBE can be found on the JDEList Forum at
http://www.JDEList.com

JDEList is not affiliated with JDEdwards«

+ - - - - - - - - - - - - - - - - - - - - - - - -+



AS400 V5R1 Coexist CO-Win2000 NT Xe SP19 D1

Sheila,

Your Demo Jr should indeed have a full copy of F9860 and F9861. Demo is missing Central Objects tables but would normally have a full set of Object Librarian tables.

The following query should retrieve the table names:

SELECT SIOBNM, SIMD FROM F9860 WHERE SIFUNO = 'TBLE'

In your post your SIFUNO looked like SIFUN0 (with a zero). Are you sure you are using the correct field name?

Regards,

Hi Sheila

Can't help with the JDE stuff, despite a being involved with Xe from almost
Day 1, but wanted to say thanks for the Gutenberg link. I'm into older
publications and historical stuff and this site looks like it will be a real
gold mine for me. Thanks again.

Good luck with the JDE challenge.

regards
Sid Perkins - UK branch of namesake
Tel: + 44 1304 825003
Mobile: +44 7713158807
[email protected]

I wrote a program in C to update the object description.

Try this program.... make sure to replace:

XXXXX - Library name of objected that need to changed
YYYYY - Object Librarian Library
ZZZZZ - Object Type that you need to change.



#include <stdio.h> /* Input/Output Library */
#include <stdlib.h> /* Standard Library */
#include <recio.h> /* Database Manipulations */
#include <string.h> /* String Manipulations */
#include <qusec.h> /* Error Code Parameters */
#include <quscrtus.h> /* Create User Space */
#include <qusdltus.h> /* Delete User Space */
#include <qusrtvus.h> /* Retrieve User Space */
#include <quslobj.h> /* List Objects */
#include <qlicobjd.h> /* Change Object Description */

/* Variable Declarations for the User Space to Hold to Objects */

char name[20] ="QPKGOBJL QTEMP ";
char extatr[20] =" ";
char initval[1] =" ";
char aut[10] ="*CHANGE ";
char text[50] ="List all Objects for a given Package Name";
char replace[10]="*YES ";
int initsize = 1024;

/* Variable Declarations to update the User Space */

char jobfmt[10] ="OBJL0100";
char Library[20] ="*ALL XXXXX ";
char filetype[10]="ZZZZZ ";

/* Variable Declarations general purpose */

Qus_EC_t error;
Qus_OBJL0100_t Objects100;
int init_pos = 337;
int rec_size = 30;
char RtnLibraryName[10];
char ObjLibName[20];
char LibraryName[10] = "XXXXX ";
char mObject_Name_Used[10];
char mObject_Lib_Name_Used[10];
char mObject_Type_Used[10];

/* Structure for QLICOBJD Api */

typedef struct Qus_ChgInfo
{
int bNbrVarRec;
int bChgKey;
int bChgDataLen;
char aData[55];
} Qus_ChgInfo_t;

/* File Structure for F9801 */

typedef struct Qus_f9860Record
{
char aObj[10];
char aDes[60];
char aFi1[200];
} Qus_f9860Record_t;

/* PROGRAM MAIN BODY */

int main(int argc, char *argv[])
{

_RFILE *fp;
_XXOPFB_T *opfb;
_RIOFB_T *fb;

Qus_f9860Record_t f9860rec;
Qus_ChgInfo_t ChgInfo;

memset(&ChgInfo, (int) '\0' , sizeof(ChgInfo) );


/* Load all Constant Fields */

ChgInfo.bNbrVarRec = 1 ; /* Update the Object Description */
ChgInfo.bChgKey = 10; /* What to Update */
ChgInfo.bChgDataLen= 45; /* Lengh of the Description */

if (( fp = _Ropen ( "YYYYY/F9860_1", "rr" )) == NULL )
{
printf ( "Open failed\n" );
exit ( 1 );
}

/* Create the User Space */

error.Bytes_Provided=0;
QUSCRTUS(name,extatr,initsize, initval, aut,text, replace, &error) ;

/* Retrive Object Information based on Package Name */

QUSLOBJ(name,jobfmt, Library, filetype );

memset(&Objects100, (int) '\0' , sizeof(Objects100) );
error.Bytes_Provided=0;
QUSRTVUS( name, init_pos, rec_size , &Objects100 , &error);
while ( Objects100.Object_Name_Used[0] != ' ')
{
sprintf(mObject_Name_Used ,"%.10s" ,
Objects100.Object_Name_Used);
sprintf(mObject_Lib_Name_Used,"%.10s" ,
Objects100.Object_Lib_Name_Used);
sprintf(mObject_Type_Used ,"%.10s" ,
Objects100.Object_Type_Used);

/* Retrive the Object Description from Object Librarian */

memset(&f9860rec, (int) '\0' , sizeof(f9860rec) );
fb = _Rreadk(fp,&f9860rec,sizeof(f9860rec), __KEY_EQ,
mObject_Name_Used ,10);

/* If Record exist in the Object Librarian */

if (fb->num_bytes == sizeof(f9860rec))
{
memset(&RtnLibraryName , (int) '\0' ,
sizeof(RtnLibraryName) );
memset(&ObjLibName , (int) '\0' ,
sizeof(ObjLibName) );

strncat(ObjLibName, mObject_Name_Used , 10 );
strncat(ObjLibName, LibraryName , 10 );
strcpy (ChgInfo.aData, f9860rec.aDes );

/* Update the Object with the Description */

error.Bytes_Provided=0;
QLICOBJD(RtnLibraryName, ObjLibName,mObject_Type_Used,
&ChgInfo,&error);
}

init_pos += rec_size;
memset(&Objects100, (int) '\0' , sizeof(Objects100) );
QUSRTVUS( name, init_pos, rec_size , &Objects100, &error);
}

/* Delete User Space */

error.Bytes_Provided=0;
QUSDLTUS(name,&error);

/* Close the Object Librarian File */

_Rclose ( fp );

}

Thanks to all who helped (and hi, Sid) - Z Cader, I'm amazed - may have to actually use that example, which is more than I was actually looking for when I asked the list!
..