Hi , I am trying to get the CICS High-Performance Stub Routine for Adabas 8 to work . When I run transaction STB2 for program COBSIVP . It first uses a LINK to ADABAS then uses the high performance stup i.e direct dynamic call. The LINK to ADABAS fails with
ADABAS COMMAND: S1 NON-ZERO RESPONSE: 34 TRANSACTION TERMINATIN
From the ADABAS books
Origin Mainframe systems only
Explanation An invalid command option has been detected.
Depending on the subcode in the rightmost two bytes of the ACB’s Additions 2 field or the ACBX’s Error Subcode (ACBXERRC) field, one of the following has occurred:
Subcode Meaning
1 An invalid command option has been specified in one of the command option fields.
2 The R option has been specified for the C5 command, but replication is not active.
9 A record buffer must be specified for this command but is missing (not specified of length zero).
Action Either remove the invalid command option or replace it with a valid option.
I have added a few diagnostics to the program to display stuff. The link to ADABAS passes an eye-catcher of ADABAS52
ADABAS-CB= S1F S N
CCCCCE6CC700EFC00E000000000000000000010000000D000000000000444
141212032E002160121100000000000000060C0C040005000000000000000
ADABAS-FORMAT-BUFFER=AA,AE.
CCCCCE6CDDDCE6CECCCD7CC6CC44444444444444444444444444444444444
14121206694130246659E11B15B0000000000000000000000000000000000
ADABAS-SEARCH-BUFFER=AE,2,S,AE,2.
CCCCCE6ECCDCC6CECCCD7CC6F6E6CC6F44444444444444444444444444444
14121202519380246659E15B2B2B15B2B0000000000000000000000000000
ADABAS-VALUE-BUFFER=BABZ
CCCCCE6ECDEC6CECCCD7CCCE4444444444444444444444444444444444444
1412120513450246659E21290000000000000000000000000000000000000
The link to ADABAS passes an eye-catcher of ADABAS52 which I presume to be the old ADACB format. - pre V8
I also compiled COBACI8 which only uses the LINK to ADABAS in the new format ADACBX V8 – and passes in ADABAS8X. This works.
Any suggestions. Thanks
Just tried the assembler version ALCSIVP works OK - going to commpare input parameters…
OK in the COBOL one I commented out
- MOVE ‘N’ TO ADACB-COP2.
now works OK.