Archive for 3. April 2008

A Library is FULL?

Object QRQ140223 in RITA type *DTAQ not found.
Cannot add new objects to library RITA.
Operation failed for QRQ140223 in RITA type *DTAQ.
Object QRQ140223 in library RITA not found.
Function check. CPF9801 unmonitored by CCR0100 at statement 56500,
instruction X’0190′.

We had 1 million data ques in a lib, I guess there is a limit.

Message ID . . . . . . : CPD2120 Severity . . . . . . . : 40
Message type . . . . . : Diagnostic
Date sent . . . . . . : 03/02/06 Time sent . . . . . . : 14:33:07

Message . . . . : Cannot add new objects to library RITA.
Cause . . . . . : The object information repository (OIR) of the library is
full and cannot be extended to contain information for new objects. Objects
currently in the library may be changed, but no new objects can be added to
the library until recovery action is taken.
For System/36 environment libraries, unused OIR entries can accumulate in
the library if disk caching is used. If enough of these unused OIR entries
accumulate for a library, users may be prevented from adding new objects to
the library.
Recovery . . . :
For System/36 environment libraries, the QEXCLNCI program in library QSSP
can be called by a user with QSECOFR authority to remove the unused OIR

entries. The program is called with a single parameter which is a library
name. The QEXCLNCI program attempts to remove the unused entries from the
OIR of that library. To reduce conflicts with other system activity, this
function of the QEXCLNCI program should be performed during times of low
system use.
Either delete some objects from the library, or create a new library
(CRTLIB command) and then move some objects from library RITA (MOVOBJ
command) to the new library. Then try the request again.

LANSA WEB EDITOR SETTINGS

SYSTEM: MYAS400

PARTITION: DEM

USERID: QOTHPRDOWN

PASSWORD: MUST TYPE IT IN ON OLD PASSWORD

**Make sure listener is running (STRSBS DC@PGMLIB)

**don’t forget to start the http server dc@pgmlib butthead

SQL to show Deposits by Client in Rita

SELECT BATCH_SEQ_NUM , CLIENT_ID ,sum(int( TRANS_AMOUNT )) FROM
ritadb30/request WHERE STATUS_CODE = 2 and CLIENT_ID = ‘100300001′
and command = ‘COMPLETION’ GROUP BY BATCH_SEQ_NUM, CLIENT_ID ORDER
BY BATCH_SEQ_NUM desc
Then subtract
SELECT BATCH_SEQ_NUM , CLIENT_ID ,sum(int( TRANS_AMOUNT )) FROM
ritadb30/request WHERE STATUS_CODE = 2 and CLIENT_ID = ‘100300001′
and command = ‘CREDIT‘ GROUP BY BATCH_SEQ_NUM, CLIENT_ID ORDER
BY BATCH_SEQ_NUM desc

Problems connecting to config400.exe?

Rita Configurator

Not able to connect to database withDB2 Driver on RiTA IP Configuration, Changed from DB2 to AS400 Connection

jdbc:db2://localhost/ritadb30
com.ibm.db2.jdbc.app.DB2Driver

Changed to:

jdbc:as400://10.23.0.22/ritadb30
com.ibm.as400.access.AS400JDBCDriver

Helpful SQL Commands for RiTA

Wipe out data in TEST environment

UPDATE RITADB30/REQUEST SET BATCH_SEQ_NUM = -10002, STATUS_CODE = 7
WHERE CLIENT_ID = ‘100010001′

Batch Sequence

select * from ritadb30/merch_term_btch where client_id = ‘100010001′

UPDATE RITADB30/MERCH_TERM_BTCH SET BATCH_SEQ_NUM = 20 WHERE
CLIENT_ID = ‘100010001′

What I forgot when copying a LANSA Partiton to a new AS400

Export all objects (check)

Copy Data in Files (check)

Data Areas for OLD System variables (duh)

How to compare files and create table of diff db2/sql

drop table mmason/yyckevents

CREATE TABLE MMASON/YYCKEVENTS like mmason/xxckevents        
Table YYCKEVENTS in MMASON created but could not be journaled.

(creates an empty table)
INSERT INTO MMASON/YYCKEVENTS SELECT * FROM mmason/mmckevents a    
WHERE not exists (SELECT 1 FROM mmason/xxckevents b WHERE a.EVEMPN 
= b.EVEMPN and a.EVSEQ = b. EVSEQ and a.EVTIME = b.evtime)         
1 rows inserted in YYCKEVENTS in MMASON.       

|