Hi all,
Operating System: HPUX-B.11.23 ia64
Powerhouse: 8.43.D1
I have problem with QTP. Basically it is reading from one file and dumping the
output to three different files. (the qshow and program are attached). It is
run as a batch and nobody accesses the database at this time. In any case, it
is adding the new entries to the files but Powerhouse still give the error.
Error description:
Record has been changed since you found it. [2]
File: RPJCTRL
Linkitem: RPJ-KEY 61103500200000020070413
Appreciate any input.
Thanks & regards.
Qshow output:
18/04/2007 *** Sistem Bayaran Pusat Operasi *** Page 1
R E C O R D R E P O R T
For DICTIONARY: /smbm/test/PANJAR/PROG/PHDBPO8.pdc
Record: KSTRNDET
of File: KPNJAR
Organization: DETAIL
Type: ELOQUENCE
Open: KSTRNDET of KPNJAR
Record Size: 386 Bytes
-- Record Contents --
Item Type Size Occ Offset
BCH-NO CHARACTER 14 0
BCH-TYP CHARACTER 2 14
KOD-SISTEM ZONED UNSIGNED 4 16
KOD-AKT CHARACTER 4 20
KOD-PUSAT CHARACTER 4 24
JENIS-BYR CHARACTER 4 28
NO-BAUCER CHARACTER 10 32
NO-RUJUKAN CHARACTER 10 42
NO-CEK ZONED UNSIGNED 6 52
NO-INVOIS CHARACTER 18 58
TKH-CEK-ADV ZONED UNSIGNED 8 76
?
18/04/2007 *** Sistem Bayaran Pusat Operasi *** Page 2
R E C O R D R E P O R T
For DICTIONARY: /smbm/test/PANJAR/PROG/PHDBPO8.pdc
Item Type Size Occ Offset
TKH-TRANS ZONED UNSIGNED 8 84
PENERIMA CHARACTER 40 92
ALAMAT CHARACTER 80 132
.ALMT-PEN1-2 CHARACTER 40 132
.ALMT-PEN3-4 CHARACTER 40 172
AMAUN-CEK ZONED SIGNED 14 212
NOMINAL CHARACTER 14 226
.NOMINAL-SSS CHARACTER 3 226
.NOMINAL-AAA CHARACTER 3 229
.NOMINAL-PPP CHARACTER 3 232
.NOMINAL-OBJ CHARACTER 5 235
AK-PERSEORG CHARACTER 12 240
KOD-TRANS CHARACTER 4 252
AMAUN-DR ZONED SIGNED 14 256
AMAUN-CR ZONED SIGNED 14 270
AK-CLEARING CHARACTER 14 284
AK-KAWALAN CHARACTER 14 298
AK-SEMASA-AA1 CHARACTER 14 312
AK-SEMASA-011 CHARACTER 14 326
?
18/04/2007 *** Sistem Bayaran Pusat Operasi *** Page 3
R E C O R D R E P O R T
For DICTIONARY: /smbm/test/PANJAR/PROG/PHDBPO8.pdc
Item Type Size Occ Offset
AK-WGAPUNG CHARACTER 14 340
DRCR-SIGN CHARACTER 2 354
NO-APLIKASI CHARACTER 2 356
GL-TRANSLATOR CHARACTER 1 358
NOGAJI-DDE ZONED UNSIGNED 6 359
TKH-SEDIA ZONED UNSIGNED 8 365
TRN-TIME-DDE CHARACTER 8 373
KOD-PUSAT-N CHARACTER 4 381
FIX CHARACTER 1 385
-- Index Contents --
** BCH-NO is a 14 byte REPEATING PRIMARY index **
** that links to BCH-NO-A **
Segment Type Size Ord Offset
BCH-NO CHARACTER 14 A 0
?
18/04/2007 *** Sistem Bayaran Pusat Operasi *** Page 4
R E C O R D R E P O R T
For DICTIONARY: /smbm/test/PANJAR/PROG/PHDBPO8.pdc
** KOD-PUSAT is a 4 byte REPEATING ALTERNATE index **
** that links to KOD-PUSAT-A **
Segment Type Size Ord Offset
KOD-PUSAT CHARACTER 4 A 0
** KOD-SISTEM is a 4 byte REPEATING ALTERNATE index **
** that links to KOD-SISTEM-A **
Segment Type Size Ord Offset
KOD-SISTEM ZONED UNSIGNED 4 A 0
** KOD-SISTEM is a 4 byte REPEATING ALTERNATE index **
** that links to KOD-SISTEM-A **
Segment Type Size Ord Offset
KOD-SISTEM ZONED UNSIGNED 4 A 0
?
>
> clear
^^^^^
*E* Expected: SHOW SET GENERATE USE SAVE REVISE EXIT QUIT <eol>
> e
$ clear
$ qshow
Q S H O W (PowerHouse 8.43.D1)
Copyright 2005 COGNOS INCORPORATED
> show rec gldata
18/04/2007 *** Sistem Bayaran Pusat Operasi *** Page 1
R E C O R D R E P O R T
For DICTIONARY: /smbm/test/PANJAR/PROG/PHDBPO8.pdc
Record: GLDATA
of File: KPNJAR
Organization: DETAIL
Type: ELOQUENCE
Open: GLDATA of KPNJAR
Record Size: 110 Bytes
-- Record Contents --
Item Type Size Occ Offset
GL-CORP ZONED UNSIGNED 3 0
GL-SIGN CHARACTER 1 3
GL-C CHARACTER 1 4
GL-APLIKASI CHARACTER 2 5
GL-SYS CHARACTER 3 7
GL-DATE ZONED UNSIGNED 8 10
.GL-YY ZONED UNSIGNED 4 10
.GL-MM ZONED UNSIGNED 2 14
.GL-DD ZONED UNSIGNED 2 16
GL-ACCOUNT-N CHARACTER 14 18
.GL-OBJ ZONED UNSIGNED 5 18
?
18/04/2007 *** Sistem Bayaran Pusat Operasi *** Page 2
R E C O R D R E P O R T
For DICTIONARY: /smbm/test/PANJAR/PROG/PHDBPO8.pdc
Item Type Size Occ Offset
.GL-REV-AKT CHARACTER 3 23
.GL-AKT ZONED UNSIGNED 3 26
.GL-PST ZONED UNSIGNED 3 29
GL-DR-CR CHARACTER 1 32
GL-AMOUNT ZONED UNSIGNED 15 33
GL-SUBLEDGER CHARACTER 10 48
GL-DESC1 CHARACTER 20 58
.GL-REF-NO1 CHARACTER 10 58
.GL-REF-NO2 CHARACTER 10 68
GL-DESC2 CHARACTER 30 78
.GL-REF-NO3 CHARACTER 10 78
.GL-REF-NO4 CHARACTER 10 88
.GL-FIL5 CHARACTER 10 98
GL-TE CHARACTER 1 108
GL-FIL-N CHARACTER 1 109
?
18/04/2007 *** Sistem Bayaran Pusat Operasi *** Page 3
R E C O R D R E P O R T
For DICTIONARY: /smbm/test/PANJAR/PROG/PHDBPO8.pdc
-- Index Contents --
** GL-ACCOUNT-N is a 14 byte REPEATING PRIMARY index **
** that links to GL-ACCOUNT-B **
Segment Type Size Ord Offset
GL-ACCOUNT-N CHARACTER 14 A 0
?
>
> show rec trnstadv
18/04/2007 *** Sistem Bayaran Pusat Operasi *** Page 1
R E C O R D R E P O R T
For DICTIONARY: /smbm/test/PANJAR/PROG/PHDBPO8.pdc
Record: TRNSTADV
of File: KPNJAR
Organization: DETAIL
Type: ELOQUENCE
Open: TRNSTADV of KPNJAR
Record Size: 186 Bytes
-- Record Contents --
Item Type Size Occ Offset
TRN-JENIS-ADVSTU CHARACTER 1 0
TRN-KODSIS ZONED UNSIGNED 3 1
TRN-BATCHNO CHARACTER 14 4
TRN-ACCNO ZONED UNSIGNED 12 18
TRN-DATE ZONED UNSIGNED 8 30
TRN-REF1 CHARACTER 10 38
TRN-REF2 CHARACTER 10 48
TRN-KODTRAN4 CHARACTER 4 58
TRN-AMT-ADVSTU ZONED SIGNED 8 62
TRN-KODMATAWANG CHARACTER 4 70
TRN-AMT-MATAWANG ZONED UNSIGNED 12 74
?
18/04/2007 *** Sistem Bayaran Pusat Operasi *** Page 2
R E C O R D R E P O R T
For DICTIONARY: /smbm/test/PANJAR/PROG/PHDBPO8.pdc
Item Type Size Occ Offset
TRN-EX-RATE ZONED UNSIGNED 9 86
TRN-ORGID ZONED UNSIGNED 3 95
TRN-MTH-REC ZONED UNSIGNED 8 98
TRN-NAME CHARACTER 40 106
TRN-PST CHARACTER 4 146
TRN-DAERAH CHARACTER 4 150
TRN-PROC-DTE ZONED UNSIGNED 8 154
TRN-DELAY-TAG CHARACTER 2 162
TRN-NOGAJI-DDE ZONED UNSIGNED 6 164
TRN-TIME-DDE CHARACTER 8 170
TRN-DTE-DDE-S ZONED UNSIGNED 8 178
-- Index Contents --
** TRN-PST is a 4 byte REPEATING PRIMARY index **
** that links to TRN-PST-A **
Segment Type Size Ord Offset
?
18/04/2007 *** Sistem Bayaran Pusat Operasi *** Page 3
R E C O R D R E P O R T
For DICTIONARY: /smbm/test/PANJAR/PROG/PHDBPO8.pdc
Segment Type Size Ord Offset
TRN-PST CHARACTER 4 A 0
?
> show rec rpjctrl
18/04/2007 *** Sistem Bayaran Pusat Operasi *** Page 1
R E C O R D R E P O R T
For DICTIONARY: /smbm/test/PANJAR/PROG/PHDBPO8.pdc
Record: RPJCTRL
of File: KPNJAR
Organization: DETAIL
Type: ELOQUENCE
Open: RPJCTRL of KPNJAR
Record Size: 92 Bytes
-- Record Contents --
Item Type Size Occ Offset
RPJ-KEY CHARACTER 22 0
.RPJ-PRIME CHARACTER 3 0
.RPJ-SUB-SYS CHARACTER 3 3
.RPJ-CENTRE CHARACTER 4 6
.RPJ-DAERAH CHARACTER 4 10
.RPJ-DATE ZONED UNSIGNED 8 14
RPJ-BIL-DB ZONED UNSIGNED 6 22
RPJ-AMT-DB ZONED UNSIGNED 12 28
RPJ-BIL-CR ZONED UNSIGNED 6 40
RPJ-AMT-CR ZONED UNSIGNED 12 46
RPJ-TOT-TRANS ZONED UNSIGNED 6 58
?
18/04/2007 *** Sistem Bayaran Pusat Operasi *** Page 2
R E C O R D R E P O R T
For DICTIONARY: /smbm/test/PANJAR/PROG/PHDBPO8.pdc
Item Type Size Occ Offset
RPJ-TOT-AMT ZONED UNSIGNED 12 64
RPJ-RUN-TIME CHARACTER 8 76
RPJ-RUN-DTE ZONED UNSIGNED 8 84
-- Index Contents --
** RPJ-KEY is a 22 byte REPEATING PRIMARY index **
** that links to RPJ-KEY-A **
Segment Type Size Ord Offset
RPJ-KEY CHARACTER 22 A 0
Program:
;------------------------------------------
;--3/2/2006 nzm change to directory and unix commands where
; applicable. Original commands can be referred
; to the mastercopy (bf changes).
;
;------------------------------------------
;15/7/04 - tambah sort on kod-pusat & RESET AT KOD-PUSAT
ACCESS KSTRNDET
DEF W-HH1 CHA*2 = ASCII(SYSTIME,4)[1:2]
DEF W-HH2 ZON*2 = (NCONVERT(W-HH1) - 12) IF W-HH1 > '12' ELSE &
NCONVERT(W-HH1)
DEF W-HH CHA*2 = ASCII(W-HH2,2)
DEF W-MM CHA*2 = ASCII(SYSTIME,4)[3:2]
DEF W-AM-PM CHA*2 = 'am' IF W-HH <= '12' ELSE 'pm'
DEF W-TIME CHA*8 = W-HH + ":" + W-MM + " " + W-AM-PM
DEF MASA CHAR*8 = ASCII(SYSTIME)
CHOOSE KOD-SISTEM 35
DISPLAY '*********************************************'
DISPLAY 'BPT30200 - Jana Transeksi ke Subsistem'
DISPLAY ' - Kod Sistem 35'
display '*********************************************'
;********** TUKAR SORT KEY ***************************
;**** BUANG MEDAN JENIS-BYR DARIPADA SORT KEY ****
;**** 22/12/2000 ****
DEF SORT-KEY CHAR*14 = KOD-PUSAT + &
ASCII(KOD-SISTEM,4) + NO-APLIKASI
SORT ON KOD-PUSAT ON SORT-KEY
DEF T-YYYYMMDD CHAR*8 = ASCII(SYSDATE)
DEF T-DDMMYYYY CHAR*8 = T-YYYYMMDD[7:2] + T-YYYYMMDD[5:2] &
+ T-YYYYMMDD[1:4]
;DEF NO-RUJUK CHAR *10 =ASCII(NO-CEK,6 ) IF NO-CEK <> 000000 &
; ELSE NO-RUJUKAN
DEF AMAUN ZON*12 = AMAUN-CR IF AMAUN-CR <> 0 &
ELSE AMAUN-DR
DEF REF1 CHA*7 = BCH-NO[1:7] IF JENIS-BYR <> 'PRUN' &
ELSE BCH-NO[2:7]
DEF REF2 CHA*6 = BCH-NO[8:6] IF JENIS-BYR <> 'PRUN' &
ELSE BCH-NO[9:6]
TEMP TOTALDB ZON *6
ITEM TOTALDB COUNT IF AMAUN-DR <> 0 RESET AT KOD-PUSAT
TEMP TOTALCR ZON *6
ITEM TOTALCR COUNT IF AMAUN-CR <>0 RESET AT KOD-PUSAT
TEMP TOTALTRN ZON*6
ITEM TOTALTRN COUNT RESET AT KOD-PUSAT
TEMP TOTAL-AMT-CR ZON*12
ITEM TOTAL-AMT-CR SUBTOTAL AMAUN-CR RESET AT KOD-PUSAT
TEMP TOTAL-AMT-DB ZON*12
ITEM TOTAL-AMT-DB SUBTOTAL AMAUN-DR RESET AT KOD-PUSAT
TEMP TOTAL-AMT ZON*12
ITEM TOTAL-AMT SUBTOTAL AMAUN RESET AT KOD-PUSAT
DEF TARIKH CHA*8 = ASCII(SYSDATE,8)
DEF GL-TKHA CHA*6 = TARIKH[5:2] + &
TARIKH[7:2] + &
TARIKH[3:2]
DEF GL-TKH ZON*6 = NCONVERT(GL-TKHA)
DEF GL-CORP2 ZON *3 =NCONVERT( AK-CLEARING[1:3])
DEF GL-OBJ2 ZON *5 =NCONVERT( AK-CLEARING[10:5])
DEF GL-AKT2 ZON *3 = NCONVERT(AK-CLEARING[4:3])
DEF GL-PST2 ZON *3 = NCONVERT(AK-CLEARING[7:3])
DEF TEMP-AMT2 ZON*15 = AMAUN-DR IF AMAUN-DR <> 0 &
ELSE AMAUN-CR
TEMP CLEAR-AMT ZON*15
ITEM CLEAR-AMT SUBTOTAL TEMP-AMT2 RESET AT SORT-KEY
DEF CLEAR-S CHA*1 = 'D' IF CLEAR-AMT > 0 ELSE 'C'
DEF CLEAR-AMT-T ZON*15 = CLEAR-AMT IF CLEAR-AMT > 0 &
ELSE CLEAR-AMT * -1
DEF GL-TE2 CHAR*1 = 'P' IF GL-CORP2 EQ 001 AND &
((GL-PST2 >= 901 AND GL-PST2 <= 909 ) OR &
(GL-OBJ2 >= 23121 AND GL-OBJ2 <= 23128) OR &
(GL-OBJ2 EQ 31105 ) OR &
(GL-OBJ2 >= 32309 AND GL-OBJ2 <= 32399) OR &
(GL-OBJ2 >= 37501 AND GL-OBJ2 <= 37559) OR &
(GL-OBJ2 EQ 39501 ) OR &
(GL-OBJ2 EQ 39511 ) OR &
(GL-OBJ2 >= 80000 AND GL-OBJ2 <= 89999) OR &
(GL-OBJ2 EQ 39924 ) OR &
(GL-OBJ2 EQ 39929 ) OR &
(GL-OBJ2 EQ 66114 )) &
ELSE 'P' IF (GL-CORP2 >= 002 AND &
GL-CORP2 <= 006 ) OR &
GL-CORP2 EQ 721 &
ELSE 'P' IF (GL-CORP2 >= 600 AND &
GL-CORP2 <= 720 ) OR &
(GL-CORP2 >= 722 AND &
GL-CORP2 <= 999) &
ELSE 'N'
DEF GL-REV-AKT2 CHA *3 = AK-CLEARING[4:3] IF GL-TE2 = 'P' ELSE ' '
OUTPUT GLDATA ADD AT SORT-KEY IF CLEAR-AMT <> 0 ON ERR REPORT
ITEM GL-CORP FINAL GL-CORP2
ITEM GL-SIGN FINAL '$'
ITEM GL-C FINAL 'C'
ITEM GL-APLIKASI FINAL NO-APLIKASI
ITEM GL-SYS FINAL '611'
ITEM GL-DATE FINAL SYSDATE
ITEM GL-OBJ INITIAL GL-OBJ2
ITEM GL-REV-AKT INITIAL GL-REV-AKT2
ITEM GL-AKT INITIAL GL-AKT2
ITEM GL-PST INITIAL GL-PST2
ITEM GL-DR-CR FINAL CLEAR-S
ITEM GL-AMOUNT FINAL CLEAR-AMT-T
ITEM GL-SUBLEDGER FINAL ' '
;20/12/2001 - CHANGES REQUIRED FOR SKRIN PERTANYAAN SLAM
; GL-REF-NO BREAK IN TWO PARTS OF BCH-NO
; REF 1 = KOD-PUSAT + JENIS-PANJAR
; REF 2 = TARIKH + JENIS-DOKUMEN
;ITEM GL-DESC1 FINAL BCH-NO
;ITEM GL-REF-NO1 FINAL BCH-NO[1:7] + ' '
;ITEM GL-REF-NO2 FINAL BCH-NO[8:6] + ' '
ITEM GL-REF-NO1 FINAL REF1 + ' '
ITEM GL-REF-NO2 FINAL REF2 + ' '
ITEM GL-DESC2 FINAL ' '
ITEM GL-TE FINAL GL-TE2
ITEM GL-FIL-N FINAL ' '
OUTPUT TRNSTADV ADD ON ERR REPORT
ITEM TRN-JENIS-ADVSTU FINAL ' '
ITEM TRN-KODSIS FINAL 611
ITEM TRN-BATCHNO FINAL BCH-NO OF KSTRNDET
ITEM TRN-ACCNO FINAL NCONVERT(AK-PERSEORG)
ITEM TRN-DATE FINAL NCONVERT(T-DDMMYYYY)
;ITEM TRN-DATE FINAL SYSDATE
ITEM TRN-REF1 FINAL NO-BAUCER OF KSTRNDET
ITEM TRN-REF2 FINAL NO-RUJUKAN
ITEM TRN-KODTRAN4 FINAL KOD-TRANS OF KSTRNDET
ITEM TRN-AMT-ADVSTU FINAL AMAUN
ITEM TRN-KODMATAWANG FINAL 'RM'
ITEM TRN-AMT-MATAWANG FINAL AMAUN
ITEM TRN-EX-RATE FINAL 1000000
ITEM TRN-ORGID FINAL 611
ITEM TRN-MTH-REC FINAL SYSDATE
ITEM TRN-NAME FINAL PENERIMA
ITEM TRN-PST FINAL KOD-PUSAT
ITEM TRN-DAERAH FINAL '0000'
ITEM TRN-PROC-DTE FINAL SYSDATE
ITEM TRN-DELAY-TAG FINAL ' '
ITEM TRN-NOGAJI-DDE FINAL NOGAJI-DDE OF KSTRNDET
ITEM TRN-TIME-DDE FINAL ASCII(SYSTIME)
ITEM TRN-DTE-DDE-S FINAL TKH-SEDIA OF KSTRNDET
OUTPUT RPJCTRL ADD AT SORT-KEY ON ERR REPORT
ITEM RPJ-PRIME INITIAL '611'
ITEM RPJ-SUB-SYS INITIAL '035'
ITEM RPJ-CENTRE INITIAL KOD-PUSAT
ITEM RPJ-DAERAH INITIAL '0000'
ITEM RPJ-DATE INITIAL SYSDATE
ITEM RPJ-BIL-DB FINAL TOTALDB
ITEM RPJ-AMT-DB FINAL TOTAL-AMT-DB
ITEM RPJ-BIL-CR FINAL TOTALCR
ITEM RPJ-AMT-CR FINAL TOTAL-AMT-CR
ITEM RPJ-TOT-TRANS FINAL TOTALTRN
ITEM RPJ-TOT-AMT FINAL TOTAL-AMT
ITEM RPJ-RUN-TIME FINAL ASCII(SYSTIME)
ITEM RPJ-RUN-DTE FINAL SYSDATE
SET PROCESS LIM 99999
SET LOCK UPDATE
BUILD PROG/BPT30200