This discussion is archived
3 Replies Latest reply: Nov 22, 2011 2:31 AM by Michel RSS

Trying to add Digital Certificate times out on PT 8.49.10

Tom Lenz - Oracle-Oracle Journeyer
Currently Being Moderated
I have a customer on PT 8.49.10
HPUX 11.31 - Informix 11.50FC8

In DEMO they have no issue but in a dev environment when trying to add a digital certificate it times out and never completes.

Any ideas?

The BAD trace ends like this:

PSAPPSRV.22173 (2318) 1-82459 15.16.19 0.000022 Keylist
PSAPPSRV.22173 (2318) 1-82460 15.16.19 0.000002
PSAPPSRV.22173 (2318) 1-82461 15.16.19 0.000140 Begin Component
PSAPPSRV.22173 (2318) 1-82462 15.16.19 0.000002 Page CERT_IMP_SBP IdxCount=3
PSAPPSRV.22173 (2318) 1-82463 15.16.19 0.000023 Field CERT_DTL_WRK.CERTPEMDATA type=longedit occ=(1,1,1) use=4000 derived rect=(8,556,36,256)
PSAPPSRV.22173 (2318) 1-82464 15.16.19 0.000003 IdxList: scrl=(-1,-1,-1) rec=0 field=14
PSAPPSRV.22173 (2318) 1-82465 15.16.19 0.000005 Field CERT_DTL_WRK.CERTMESSAGE type=editbox occ=(1,1,1) use=4001 derived rect=(8,556,8,27)
PSAPPSRV.22173 (2318) 1-82466 15.16.19 0.000003 IdxList: scrl=(-1,-1,-1) rec=0 field=15
PSAPPSRV.22173 (2318) 1-82467 15.16.19 0.000005 Field CERT_DTL_WRK.CERTACTION type=editbox occ=(1,1,1) use=4002 derived invisible rect=(572,9,116,65)
PSAPPSRV.22173 (2318) 1-82468 15.16.19 0.000002 IdxList: scrl=(-1,-1,-1) rec=0 field=20
PSAPPSRV.22173 (2318) 1-82469 15.16.19 0.000001 End Component
PSAPPSRV.22173 (2318) 1-82470 15.16.19 0.000133 Begin Scrolls Deserialized Buffers
PSAPPSRV.22173 (2318) 1-82471 15.16.19 0.000004 Begin level 0[row 0] occcnt=1 activecnt=1 hiddencnt=0 scrlcnt=0 flags=0000 nrec=1
PSAPPSRV.22173 (2318) 1-82472 15.16.19 0.000003 RecordsEventSet 00000015 SubscrollsEventSet 00000000
PSAPPSRV.22173 (2318) 1-82473 15.16.19 0.000003 Rec CERT_DTL_WRK (recdefn 025b04b0) keyrec=-1 keyfield=-1
PSAPPSRV.22173 (2318) 1-82474 15.16.19 0.000002 EventSet 00000015
PSAPPSRV.22173 (2318) 1-82475 15.16.19 0.000004 Row 0 at 02a53ac0.
PSAPPSRV.22173 (2318) 1-82476 15.16.19 0.000004 CRecBuf CERT_DTL_WRK(02764220) fields=21 work
PSAPPSRV.22173 (2318) 1-82477 15.16.19 0.000020 CERTPEMDATA(02be19b8)=''; updated used
PSAPPSRV.22173 (2318) 1-82478 15.16.19 0.000005 CERTMESSAGE(02be19e8)='To add the root certificate for BTRG, paste the PEM-formatted certificate data here.'; updated used
PSAPPSRV.22173 (2318) 1-82479 15.16.19 0.000009 CERTACTION(02be1ad8)='A'; used
PSAPPSRV.22173 (2318) 1-82480 15.16.19 0.000003 End level 0[row 0]
PSAPPSRV.22173 (2318) 1-82481 15.16.19 0.000001 End Scrolls
PSAPPSRV.22173 (2318) 1-82482 15.16.19 0.000582 Starting Related Display processing
PSAPPSRV.22173 (2318) 1-82483 15.16.19 0.000003 SetDefaults - count 0
PSAPPSRV.22173 (2318) 1-82484 15.16.19 0.005636 >>>>> Begin CERT_DTL_WRK.CERTPEMDATA.SaveEdit level 0 row 0
PSAPPSRV.22173 (2318) 1-82485 15.16.19 0.000091 1: If Not None(CERT_DTL_WRK.CERTPEMDATA) And
PSAPPSRV.22173 (2318) 1-82486 15.16.19 0.000035 Fetch Field: CERT_DTL_WRK.CERTACTION Value=A
PSAPPSRV.22173 (2318) 1-82487 15.16.19 0.000009 2: &Session = GetSession();
PSAPPSRV.22173 (2318) 1-82488 15.16.19 0.000333 3: &Session.Connect(1, "Existing", "PTDMO", "PTDMO", 0);
PSAPPSRV.22173 (2318) 1-82489 15.16.19 0.000071 4: &keyStore = &Session.keyStore;
PSAPPSRV.23135 (2660) 1-50252 15.21.30 350.471614 Cur#1.23135.FSDEV90 RC=0 Dur=0.000630 CEX Stmt=SELECT VERSION FROM PSVERSION WHERE OBJECTTYPENAME = 'SYS'
PSAPPSRV.23135 (2660) 1-50253 15.21.30 0.000014 Cur#1.23135.FSDEV90 RC=0 Dur=0.000002 SSB column=1 type=8 length=4 scale=0
PSAPPSRV.23135 (2660) 1-50254 15.21.30 0.000007 Cur#1.23135.FSDEV90 RC=0 Dur=0.000001 SSF column=1 type=0
PSAPPSRV.23135 (2660) 1-50255 15.21.30 0.000132 Cur#1.23135.FSDEV90 RC=0 Dur=0.000122 Fetch
PSAPPSRV.23135 (2660) 1-50256 15.21.30 0.000348 Cur#1.23135.FSDEV90 RC=0 Dur=0.000002 Commit
PSAPPSRV.23135 (2660) 1-50257 15.21.30 0.000870 Cur#1.23135.FSDEV90 RC=0 Dur=0.000787 CEX Stmt=SELECT OPRID FROM PSOPRDEFN WHERE VERSION > 214748355
PSAPPSRV.23135 (2660) 1-50258 15.21.30 0.000010 Cur#1.23135.FSDEV90 RC=0 Dur=0.000002 SSB column=1 type=2 length=31 scale=0
PSAPPSRV.23135 (2660) 1-50259 15.21.30 0.000006 Cur#1.23135.FSDEV90 RC=0 Dur=0.000001 SSF column=1 type=0
PSAPPSRV.23135 (2660) 1-50260 15.21.30 0.000096 Cur#1.23135.FSDEV90 RC=1 Dur=0.000089 Fetch
PSAPPSRV.23135 (2660) 1-50261 15.21.30 0.000033 Cur#1.23135.FSDEV90 RC=0 Dur=0.000002 Commit
PSAPPSRV.23135 (2660) 1-50262 15.21.30 0.000166 Cur#1.23135.FSDEV90 RC=0 Dur=0.000049 Mon OprID=VP1 OSUserName= MachineName=10.10.56.24 TuxedoDomainName=FSDEV90 ChargeBackAccount=
PSAPPSRV.23135 (2660) 1-50263 15.21.30 0.000010 Cur#1.23135.FSDEV90 RC=0 Dur=0.000002 Commit
PSAPPSRV.18873 (2862) 1-102605 15.21.30 328.287303 Cur#1.18873.FSDEV90 RC=0 Dur=0.000701 CEX Stmt=SELECT VERSION FROM PSVERSION WHERE OBJECTTYPENAME = 'SYS'
PSAPPSRV.18873 (2862) 1-102606 15.21.30 0.000017 Cur#1.18873.FSDEV90 RC=0 Dur=0.000003 SSB column=1 type=8 length=4 scale=0
PSAPPSRV.18873 (2862) 1-102607 15.21.30 0.000007 Cur#1.18873.FSDEV90 RC=0 Dur=0.000001 SSF column=1 type=0
PSAPPSRV.18873 (2862) 1-102608 15.21.30 0.000146 Cur#1.18873.FSDEV90 RC=0 Dur=0.000135 Fetch
PSAPPSRV.18873 (2862) 1-102609 15.21.30 0.000368 Cur#1.18873.FSDEV90 RC=0 Dur=0.000004 Commit
PSAPPSRV.18873 (2862) 1-102610 15.21.30 0.000523 Cur#1.18873.FSDEV90 RC=0 Dur=0.000426 CEX Stmt=SELECT OPRID FROM PSOPRDEFN WHERE VERSION > 214748355
PSAPPSRV.18873 (2862) 1-102611 15.21.30 0.000011 Cur#1.18873.FSDEV90 RC=0 Dur=0.000002 SSB column=1 type=2 length=31 scale=0
PSAPPSRV.18873 (2862) 1-102612 15.21.30 0.000007 Cur#1.18873.FSDEV90 RC=0 Dur=0.000001 SSF column=1 type=0
PSAPPSRV.18873 (2862) 1-102613 15.21.30 0.000099 Cur#1.18873.FSDEV90 RC=1 Dur=0.000090 Fetch
PSAPPSRV.18873 (2862) 1-102614 15.21.30 0.000042 Cur#1.18873.FSDEV90 RC=0 Dur=0.000002 Commit
PSAPPSRV.18873 (2862) 1-102615 15.21.30 0.000119 Cur#1.18873.FSDEV90 RC=0 Dur=0.000001 Mon OprID=VP1 OSUserName= MachineName=10.10.56.24 TuxedoDomainName=FSDEV90 ChargeBackAccount=
PSAPPSRV.18873 (2862) 1-102616 15.21.30 0.000011 Cur#1.18873.FSDEV90 RC=0 Dur=0.000002 Commit


But the Good trace does this:

PSAPPSRV.4240 (796) 1-10287906 09.38.14 0.000000 Keylist
PSAPPSRV.4240 (796) 1-10287907 09.38.14 0.000000
PSAPPSRV.4240 (796) 1-10287908 09.38.14 0.000000 Begin Component
PSAPPSRV.4240 (796) 1-10287909 09.38.14 0.000000 Page CERT_IMP_SBP IdxCount=3
PSAPPSRV.4240 (796) 1-10287910 09.38.14 0.000000 Field CERT_DTL_WRK.CERTPEMDATA type=longedit occ=(1,1,1) use=4000 derived rect=(8,556,36,256)
PSAPPSRV.4240 (796) 1-10287911 09.38.14 0.000000 IdxList: scrl=(-1,-1,-1) rec=0 field=14
PSAPPSRV.4240 (796) 1-10287912 09.38.14 0.000000 Field CERT_DTL_WRK.CERTMESSAGE type=editbox occ=(1,1,1) use=4001 derived rect=(8,556,8,27)
PSAPPSRV.4240 (796) 1-10287913 09.38.14 0.000000 IdxList: scrl=(-1,-1,-1) rec=0 field=15
PSAPPSRV.4240 (796) 1-10287914 09.38.14 0.000000 Field CERT_DTL_WRK.CERTACTION type=editbox occ=(1,1,1) use=4002 derived invisible rect=(572,9,116,65)
PSAPPSRV.4240 (796) 1-10287915 09.38.14 0.000000 IdxList: scrl=(-1,-1,-1) rec=0 field=20
PSAPPSRV.4240 (796) 1-10287916 09.38.14 0.000000 End Component
PSAPPSRV.4240 (796) 1-10287917 09.38.14 0.001000 Begin Scrolls Deserialized Buffers
PSAPPSRV.4240 (796) 1-10287918 09.38.14 0.000000 Begin level 0[row 0] occcnt=1 activecnt=1 hiddencnt=0 scrlcnt=0 flags=0000 nrec=1
PSAPPSRV.4240 (796) 1-10287919 09.38.14 0.000000 RecordsEventSet 00000015 SubscrollsEventSet 00000000
PSAPPSRV.4240 (796) 1-10287920 09.38.14 0.000000 Rec CERT_DTL_WRK (recdefn 05004c74) keyrec=-1 keyfield=-1
PSAPPSRV.4240 (796) 1-10287921 09.38.14 0.000000 EventSet 00000015
PSAPPSRV.4240 (796) 1-10287922 09.38.14 0.000000 Row 0 at 0577e768.
PSAPPSRV.4240 (796) 1-10287923 09.38.14 0.000000 CRecBuf CERT_DTL_WRK(03dafff8) fields=21 work
PSAPPSRV.4240 (796) 1-10287924 09.38.14 0.000000 CERTPEMDATA(03377134)=''; updated used
PSAPPSRV.4240 (796) 1-10287925 09.38.14 0.000000 CERTMESSAGE(0337714c)='To add the root certificate for BTRGG, paste the PEM-formatted certificate data here.'; updated used
PSAPPSRV.4240 (796) 1-10287926 09.38.14 0.000000 CERTACTION(033771c4)='A'; used
PSAPPSRV.4240 (796) 1-10287927 09.38.14 0.000000 End level 0[row 0]
PSAPPSRV.4240 (796) 1-10287928 09.38.14 0.000000 End Scrolls
PSAPPSRV.4240 (796) 1-10287929 09.38.14 0.000000 Starting Related Display processing
PSAPPSRV.4240 (796) 1-10287930 09.38.14 0.000000 SetDefaults - count 0
PSAPPSRV.4240 (796) 1-10287931 09.38.14 0.001000 vvvvvvvvvv PeopleCode Program Listing:
PSAPPSRV.4240 (796) 1-10287932 09.38.14 0.000000 1: If Not None(CERT_DTL_WRK.CERTPEMDATA) And
PSAPPSRV.4240 (796) 1-10287933 09.38.14 0.000000 0, start Id=CERT_DTL_WRK.CERTPEMDATA.SaveEdit Temps=5 Stack=16
PSAPPSRV.4240 (796) 1-10287934 09.38.14 0.000000 1, statement Next=1856
PSAPPSRV.4240 (796) 1-10287935 09.38.14 0.000000 20, push fldr CERT_DTL_WRK.CERTPEMDATA
PSAPPSRV.4240 (796) 1-10287936 09.38.14 0.000000 26, builtin - None #Parms=1
PSAPPSRV.4240 (796) 1-10287937 09.38.14 0.000000 40, br True 1856
PSAPPSRV.4240 (796) 1-10287938 09.38.14 0.000000 52, fetch fld CERT_DTL_WRK.CERTACTION
PSAPPSRV.4240 (796) 1-10287939 09.38.14 0.000000 58, push str A
PSAPPSRV.4240 (796) 1-10287940 09.38.14 0.000000 68, branch = 100
PSAPPSRV.4240 (796) 1-10287941 09.38.14 0.000000 76, fetch fld CERT_DTL_WRK.CERTACTION
PSAPPSRV.4240 (796) 1-10287942 09.38.14 0.000000 82, push str I
PSAPPSRV.4240 (796) 1-10287943 09.38.14 0.000000 92, branch <> 1856
PSAPPSRV.4240 (796) 1-10287944 09.38.14 0.000000 2: &Session = GetSession();
PSAPPSRV.4240 (796) 1-10287945 09.38.14 0.000000 100, builtin - GetSession #Parms=0
PSAPPSRV.4240 (796) 1-10287946 09.38.14 0.000000 112, store stk &Session Temp# 0
PSAPPSRV.4240 (796) 1-10287947 09.38.14 0.000000 3: &Session.Connect(1, "Existing", "PTDMO", "PTDMO", 0);
PSAPPSRV.4240 (796) 1-10287948 09.38.14 0.000000 128, fetch stk &Session Temp# 0
PSAPPSRV.4240 (796) 1-10287949 09.38.14 0.000000 144, push str Connect
PSAPPSRV.4240 (796) 1-10287950 09.38.14 0.000000 168, push int 1
PSAPPSRV.4240 (796) 1-10287951 09.38.14 0.000000 180, push str Existing
PSAPPSRV.4240 (796) 1-10287952 09.38.14 0.000000 202, push str PTDMO
PSAPPSRV.4240 (796) 1-10287953 09.38.14 0.000000 220, push str PTDMO
PSAPPSRV.4240 (796) 1-10287954 09.38.14 0.000000 236, push int 0
PSAPPSRV.4240 (796) 1-10287955 09.38.14 0.000000 244, domethod 7
PSAPPSRV.4240 (796) 1-10287956 09.38.14 0.000000 252, pop
PSAPPSRV.4240 (796) 1-10287957 09.38.14 0.000000 4: &keyStore = &Session.keyStore;
PSAPPSRV.4240 (796) 1-10287958 09.38.14 0.000000 253, fetch stk &Session Temp# 0
PSAPPSRV.4240 (796) 1-10287959 09.38.14 0.000000 264, push str keyStore
PSAPPSRV.4240 (796) 1-10287960 09.38.14 0.000000 290, getprop
PSAPPSRV.4240 (796) 1-10287961 09.38.14 0.000000 291, store stk &keyStore Temp# 1
PSAPPSRV.4240 (796) 1-10287962 09.38.14 0.000000 5: &cert = &keyStore.factory.CreateX509Certificate();
PSAPPSRV.4240 (796) 1-10287963 09.38.14 0.000000 304, fetch stk &keyStore Temp# 1
PSAPPSRV.4240 (796) 1-10287964 09.38.14 0.000000 320, push str factory
PSAPPSRV.4240 (796) 1-10287965 09.38.14 0.000000 344, getprop
PSAPPSRV.4240 (796) 1-10287966 09.38.14 0.000000 345, push str CreateX509Certificate
PSAPPSRV.4240 (796) 1-10287967 09.38.14 0.000000 396, domethod 2
PSAPPSRV.4240 (796) 1-10287968 09.38.14 0.000000 404, store stk &cert Temp# 2
PSAPPSRV.4240 (796) 1-10287969 09.38.14 0.000000 6: If CERT_DTL_WRK.CERTACTION = "A" Then
PSAPPSRV.4240 (796) 1-10287970 09.38.14 0.000000 416, fetch fld CERT_DTL_WRK.CERTACTION
PSAPPSRV.4240 (796) 1-10287971 09.38.14 0.000000 426, push str A
PSAPPSRV.4240 (796) 1-10287972 09.38.14 0.000000 436, branch <> 556
PSAPPSRV.4240 (796) 1-10287973 09.38.14 0.000000 7: &title = MsgGetText(&messageSet, 3, "Add Root Certificate");
PSAPPSRV.4240 (796) 1-10287974 09.38.14 0.000000 444, fetch glb &messageSet Temp# 1
PSAPPSRV.4240 (796) 1-10287975 09.38.14 0.000000 456, push int 3
PSAPPSRV.4240 (796) 1-10287976 09.38.14 0.000000 468, push str Add Root Certificate
PSAPPSRV.4240 (796) 1-10287977 09.38.14 0.000000 514, builtin - MsgGetText #Parms=3
PSAPPSRV.4240 (796) 1-10287978 09.38.14 0.000000 528, store stk &title Temp# 4
PSAPPSRV.4240 (796) 1-10287979 09.38.14 0.000000 8: Else
PSAPPSRV.4240 (796) 1-10287980 09.38.14 0.000000 544, branch 648
PSAPPSRV.4240 (796) 1-10287981 09.38.14 0.000000 9: &title = MsgGetText(&messageSet, 4, "Import Certificate");
PSAPPSRV.4240 (796) 1-10287982 09.38.14 0.000000 556, fetch glb &messageSet Temp# 1
PSAPPSRV.4240 (796) 1-10287983 09.38.14 0.000000 568, push int 4
PSAPPSRV.4240 (796) 1-10287984 09.38.14 0.000000 580, push str Import Certificate
PSAPPSRV.4240 (796) 1-10287985 09.38.14 0.000000 622, builtin - MsgGetText #Parms=3
PSAPPSRV.4240 (796) 1-10287986 09.38.14 0.000000 632, store stk &title Temp# 4
PSAPPSRV.4240 (796) 1-10287987 09.38.14 0.000000 10: End-If;
PSAPPSRV.4240 (796) 1-10287988 09.38.14 0.000000 11: If &cert.fromPKCS7(CERT_DTL_WRK.CERTPEMDATA) = False Then
PSAPPSRV.4240 (796) 1-10287989 09.38.14 0.000000 648, fetch stk &cert Temp# 2
PSAPPSRV.4240 (796) 1-10287990 09.38.14 0.000000 664, push str fromPKCS7
PSAPPSRV.4240 (796) 1-10287991 09.38.14 0.000000 692, fetch fld CERT_DTL_WRK.CERTPEMDATA
PSAPPSRV.4240 (796) 1-10287992 09.38.14 0.000000 698, domethod 3
PSAPPSRV.4240 (796) 1-10287993 09.38.14 0.000000 708, push bool False
PSAPPSRV.4240 (796) 1-10287994 09.38.14 0.000000 710, branch <> 881
PSAPPSRV.4240 (796) 1-10287995 09.38.14 0.000000 12: MessageBox(%MsgStyle_OK, &title, &messageSet, 16, "Could not decode PEM-formatted certificate data.");
PSAPPSRV.4240 (796) 1-10287996 09.38.14 0.000000 716, push int 0
PSAPPSRV.4240 (796) 1-10287997 09.38.14 0.000000 724, fetch stk &title Temp# 4
PSAPPSRV.4240 (796) 1-10287998 09.38.14 0.000000 736, fetch glb &messageSet Temp# 1
PSAPPSRV.4240 (796) 1-10287999 09.38.14 0.000000 752, push int 16
PSAPPSRV.4240 (796) 1-10288000 09.38.14 0.000000 764, push str Could not decode PEM-formatted
PSAPPSRV.4240 (796) 1-10288001 09.38.14 0.000000 866, builtin - MessageBox #Parms=5
PSAPPSRV.4240 (796) 1-10288002 09.38.14 0.000000 880, pop
PSAPPSRV.4240 (796) 1-10288003 09.38.14 0.000000 13: End-If;
PSAPPSRV.4240 (796) 1-10288004 09.38.14 0.000000 14: If CERT_DTL_WRK.CERTACTION = "A" Then
PSAPPSRV.4240 (796) 1-10288005 09.38.14 0.000000 881, fetch fld CERT_DTL_WRK.CERTACTION
PSAPPSRV.4240 (796) 1-10288006 09.38.14 0.000000 890, push str A
PSAPPSRV.4240 (796) 1-10288007 09.38.14 0.000000 900, branch <> 916
PSAPPSRV.4240 (796) 1-10288008 09.38.14 0.000000 15: Else
PSAPPSRV.4240 (796) 1-10288009 09.38.14 0.000000 908, branch 1705
PSAPPSRV.4240 (796) 1-10288010 09.38.14 0.000000 16: &issuerCert = &keyStore.GetCertificate(&keyStore.constants.trustedRootCA, PSCERTLIST_VW.CERTISSUERALIAS);
PSAPPSRV.4240 (796) 1-10288011 09.38.14 0.000000 916, fetch stk &keyStore Temp# 1
PSAPPSRV.4240 (796) 1-10288012 09.38.14 0.000000 928, push str GetCertificate
PSAPPSRV.4240 (796) 1-10288013 09.38.14 0.000000 966, fetch stk &keyStore Temp# 1
PSAPPSRV.4240 (796) 1-10288014 09.38.14 0.000000 976, push str constants
PSAPPSRV.4240 (796) 1-10288015 09.38.14 0.000000 1004, getprop
PSAPPSRV.4240 (796) 1-10288016 09.38.14 0.000000 1005, push str trustedRootCA
PSAPPSRV.4240 (796) 1-10288017 09.38.14 0.000000 1036, getprop
PSAPPSRV.4240 (796) 1-10288018 09.38.14 0.000000 1037, fetch fld PSCERTLIST_VW.CERTISSUERALIAS
PSAPPSRV.4240 (796) 1-10288019 09.38.14 0.000000 1042, domethod 4
PSAPPSRV.4240 (796) 1-10288020 09.38.14 0.000000 1052, store stk &issuerCert Temp# 3
PSAPPSRV.4240 (796) 1-10288021 09.38.14 0.000000 17: If None(&issuerCert) Then
PSAPPSRV.4240 (796) 1-10288022 09.38.14 0.000000 1064, push stkr &issuerCert (temp #3)
PSAPPSRV.4240 (796) 1-10288023 09.38.14 0.000000 1080, builtin - None #Parms=1
PSAPPSRV.4240 (796) 1-10288024 09.38.14 0.000000 1096, br False 1393
PSAPPSRV.4240 (796) 1-10288025 09.38.14 0.000000 18: MessageBox(%MsgStyle_OK, &title, &messageSet, 18, "The certificate for %1 could not be verified, because the root certificate for %2 is not available.", PSCERTLIST_VW.CERTALIAS, PSCERTLIST_VW.CERTISSUERALIAS);
PSAPPSRV.4240 (796) 1-10288026 09.38.14 0.000000 1108, push int 0
PSAPPSRV.4240 (796) 1-10288027 09.38.14 0.000000 1116, fetch stk &title Temp# 4
PSAPPSRV.4240 (796) 1-10288028 09.38.14 0.000000 1128, fetch glb &messageSet Temp# 1
PSAPPSRV.4240 (796) 1-10288029 09.38.14 0.000000 1144, push int 18
PSAPPSRV.4240 (796) 1-10288030 09.38.14 0.000000 1156, push str The certificate for %1 could n
PSAPPSRV.4240 (796) 1-10288031 09.38.14 0.000000 1360, fetch fld PSCERTLIST_VW.CERTALIAS
PSAPPSRV.4240 (796) 1-10288032 09.38.14 0.000000 1370, fetch fld PSCERTLIST_VW.CERTISSUERALIAS
PSAPPSRV.4240 (796) 1-10288033 09.38.14 0.000000 1378, builtin - MessageBox #Parms=7
PSAPPSRV.4240 (796) 1-10288034 09.38.14 0.000000 1392, pop
PSAPPSRV.4240 (796) 1-10288035 09.38.14 0.000000 19: End-If;
PSAPPSRV.4240 (796) 1-10288036 09.38.14 0.000000 20: If &cert.Verify(&issuerCert) = False Then
PSAPPSRV.4240 (796) 1-10288037 09.38.14 0.000000 1393, fetch stk &cert Temp# 2
PSAPPSRV.4240 (796) 1-10288038 09.38.14 0.000000 1408, push str Verify
PSAPPSRV.4240 (796) 1-10288039 09.38.14 0.000000 1430, fetch stk &issuerCert Temp# 3
PSAPPSRV.4240 (796) 1-10288040 09.38.14 0.000000 1440, domethod 3
PSAPPSRV.4240 (796) 1-10288041 09.38.14 0.000000 1452, push bool False
PSAPPSRV.4240 (796) 1-10288042 09.38.14 0.000000 1454, branch <> 1705
PSAPPSRV.4240 (796) 1-10288043 09.38.14 0.000000 21: MessageBox(%MsgStyle_OK, &title, &messageSet, 17, "The certificate signature is not valid. The certificate is corrupt or has been modified.");
PSAPPSRV.4240 (796) 1-10288044 09.38.14 0.000000 1460, push int 0
PSAPPSRV.4240 (796) 1-10288045 09.38.14 0.000000 1468, fetch stk &title Temp# 4
PSAPPSRV.4240 (796) 1-10288046 09.38.14 0.000000 1480, fetch glb &messageSet Temp# 1
PSAPPSRV.4240 (796) 1-10288047 09.38.14 0.000000 1496, push int 17
PSAPPSRV.4240 (796) 1-10288048 09.38.14 0.000000 1508, push str The certificate signature is n
PSAPPSRV.4240 (796) 1-10288049 09.38.14 0.000000 1692, builtin - MessageBox #Parms=5
PSAPPSRV.4240 (796) 1-10288050 09.38.14 0.000000 1704, pop
PSAPPSRV.4240 (796) 1-10288051 09.38.14 0.000000 22: End-If;
PSAPPSRV.4240 (796) 1-10288052 09.38.14 0.000000 23: End-If;
PSAPPSRV.4240 (796) 1-10288053 09.38.14 0.000000 24: If &keyStore.ImportCertificate(PSCERTLIST_VW.CERTTYPE, PSCERTLIST_VW.CERTALIAS, PSCERTLIST_VW.CERTISSUERALIAS, &cert) = 0 Then
PSAPPSRV.4240 (796) 1-10288054 09.38.14 0.000000 1705, fetch stk &keyStore Temp# 1
PSAPPSRV.4240 (796) 1-10288055 09.38.14 0.000000 1720, push str ImportCertificate
PSAPPSRV.4240 (796) 1-10288056 09.38.14 0.000000 1764, fetch fld PSCERTLIST_VW.CERTTYPE
PSAPPSRV.4240 (796) 1-10288057 09.38.14 0.000000 1770, fetch fld PSCERTLIST_VW.CERTALIAS
PSAPPSRV.4240 (796) 1-10288058 09.38.14 0.000000 1778, fetch fld PSCERTLIST_VW.CERTISSUERALIAS
PSAPPSRV.4240 (796) 1-10288059 09.38.14 0.000000 1786, fetch stk &cert Temp# 2
PSAPPSRV.4240 (796) 1-10288060 09.38.14 0.000000 1800, domethod 6
PSAPPSRV.4240 (796) 1-10288061 09.38.14 0.000000 1812, push int 0
PSAPPSRV.4240 (796) 1-10288062 09.38.14 0.000000 1820, branch <> 1856
PSAPPSRV.4240 (796) 1-10288063 09.38.14 0.000000 25: &modalReturn = "update";
PSAPPSRV.4240 (796) 1-10288064 09.38.14 0.000000 1828, push str update
PSAPPSRV.4240 (796) 1-10288065 09.38.14 0.000000 1846, store glb &modalReturn Temp# 0
PSAPPSRV.4240 (796) 1-10288066 09.38.14 0.000000 26: End-If;
PSAPPSRV.4240 (796) 1-10288067 09.38.14 0.000000 27: End-If;
PSAPPSRV.4240 (796) 1-10288068 09.38.14 0.000000 1856, statement Next=1876
PSAPPSRV.4240 (796) 1-10288069 09.38.14 0.000000 1876, stop
PSAPPSRV.4240 (796) 1-10288070 09.38.14 0.000000 ^^^^^^^^^^ PeopleCode Program Listing End

Legend

  • Correct Answers - 10 points
  • Helpful Answers - 5 points