Invoking DSNALI using REXX call !!

mjadwani2785 · Posted: Thu Apr 24, 2014 6:49 pm

Hi ,

Can DSNALI , CAF interface module be invoked using rexx call command ?

Is there any manual I can refer , or sample syntax for calling ?

Regards,
MJ

enrico-sorichetti · Posted: Thu Apr 24, 2014 7:12 pm

why would You want to do that ?

DB2 already provides a REXX interface !

mjadwani2785 · Posted: Thu Apr 24, 2014 7:29 pm

Hi Enrico ,

I am just curious . I want to experiment with status condition it returns as manual says reg terminate ecb , start ecb and release identifier block .
Inturn I will get better understanding of CAF by implementing it practically .

I know about DSNREXX .

Regards,
Manoj K Jadwani

enrico-sorichetti · Posted: Thu Apr 24, 2014 8:05 pm

even if it could be possible to build the DSNALI parameter list
( see IGGCSI00 for example )
how do You plan to handle the DBRM things ???

I might have somewhere a RXSQL interface I wrote a LOONG time ago.
if I can find it I will post it

don.leahy · Posted: Sat Apr 26, 2014 2:42 am

If you want to experiment with CAF, it would be easier to use COBOL.

mjadwani2785 · Posted: Mon Apr 28, 2014 3:59 pm

I was able to successfully write this . Invoke was successfull. I can trace through RIB control block .
Here is the crude code , still working on it .
[img]
/*rexx */
ssid = 'DTE0'
command = 'CONNECT '
ter=' '
stae=' '
rib=' '
ADDRESS LINKPGM "DSNALI COMMAND SSID TER STAE RIB"
say rc
say ter
say stae
say rib
hexrib =c2x(rib)
rib_inf= storage(hexrib,62)
say rib_inf

[/img]

Just have a question regarding control block what does signed and unsigned datatype represent ?

For Eg RIBCNUMB is unsigned datatype . How to interpret this info.

OFFSET OFFSET
DECIMAL HEX TYPE LENGTH NAME (DIM)
======== ======== ================== ==============
0 (0) STRUCTURE 62 RIB
0 (0) UNSIGNED 2 RIBCODE
2 (2) SIGNED 2 RIBTLEN
4 (4) CHARACTER 4 RIBEYEC
8 (8) CHARACTER 9 RIBCID
8 (8) CHARACTER 4 RIBECODE
12 (C) CHARACTER 3 RIBPCODE
15 (F) CHARACTER 2 RIBFCODE
17 (11) CHARACTER 3 RIBREL
20 (14) ADDRESS 4 RIBCPTR
24 (18) UNSIGNED 1 RIBCNUMB
25 (19) UNSIGNED 3 *
28 (1C) SIGNED 4 RIBCLID
32 (20) SIGNED 4 RIBSPEL
36 (24) CHARACTER 4 RIBCATVS
56 (38) CHARACTER 4 RIBRELX
56 (38) CHARACTER 3 RIBREL3
56 (38) CHARACTER 2 RIBRELV
58 (3A) CHARACTER 1 RIBRELR
59 (3B) CHARACTER 1 RIBRELM
60 (3C) CHARACTER 2 *
62 (3E) CHARACTER 0 RIBCINFO
62 (3E) CHARACTER 0 *
62 (3E) CHARACTER 0 RIBEND

Manual says

"You can determine what release level of DB2 you are
currently running by examining the RIBREL field. If RIBREL is '999', the actual
version, release, and modification level of DB2 is indicated in the RIBRELX
field and its subfields.You can determine the modification level within the
release level by examining the RIBCNUMB and RIBCINFO fields. If the value
in the RIBCNUMB field is greater than zero, check the RIBCINFO field for
modification levels. "

How to examine RIBCNUMB field when its type is unsigned .

Regards,
MJ

enrico-sorichetti · Posted: Mon Apr 28, 2014 4:10 pm

the variables used should be initialized to something with the same length of the expected returned parameter

this time You were lucky, probably next time You will face quid a bit of unexpected happenings

mjadwani2785 · Posted: Mon Apr 28, 2014 4:16 pm

Thanks Enrico ,

Actually I initialised them with same length , "CONNECT+5 blanks" = 12 bytes of data as manual says for the function parameter was passed similarly for other variables . While copy pasting blanks were auto missed .

If you can help me with signed and unsigned fields of control block what do they represent and how can interpret those from the RIB control block description given above ?

Regards,
MJ

enrico-sorichetti · Posted: Mon Apr 28, 2014 5:00 pm

good manners suggest to use for source snippets the code tags
they force the use of fixed pitch fonts and preserve the spacing

without
12345678901234567890
" "

with