IBM Mainframe Forum

by **LasseH** » Mon Oct 28, 2019 1:38 pm

Writing a function that reads DB2 and leaving result in a ISPF-table.
Abends when I do a TBCREATE (first ISPF-command)

Start function this way

Call Rexx:
res = SQL2TABT(restab,sql,max)

SQL2TABT(rexx):
1. Writing the 3 arguments to a dataset (shall be accept:ed in Cobol-program, much easier to parse)
2. call DB2STRT SQL2TAB

DB2STRT (rexx):

Select all

program = strip(arg(1))                    
plan    = program                          
ssid    = 'DB2U'                           
parms   = ''                               
                                           
newstack                                   
queue "RUN PROGRAM("program")" ,           
      "    PLAN("plan")"    ,              
      "    PARMS("parms")"                 
queue "END"                                
queue ""                                   
address TSO "DSN SYSTEM("ssid")"           
dsnrc = rc                                 
if dsnrc <> 0 then                         
   say 'DSN command failed. rc='dsnrc      
delstack                                   
return 0                                  

Doing a couple of DB2-commands and then...
Everything works until my Cobol-program trying to issue a ISPF-command.

Select all

SQL2TAB  09:04:09,09 ta-tbcreate                                
Trying TBCREATE                                                 
                                                                
System abend code 0C4, reason code 00000016.                    
Abend in host command DSN or address environment routine TSO.   
System abend code 0C4, reason code 00000016.                    
Abend in external subroutine DB2STRT.                           
System abend code 0C4, reason code 00000016.                    
Abend in external function SQL2TABT.                            
***                                                             

Recommendation of how to run this
//Lasse

by **LasseH** » Mon Oct 28, 2019 2:05 pm

Forgot: got this in SDSF-log

Select all

IEA989I SLIP TRAP ID=X13E MATCHED.  JOBNAME=U39828  , ASID=00D3.  

by **willy jensen** » Mon Oct 28, 2019 2:42 pm

May we see what the failing program snippet looks like?

by **LasseH** » Mon Oct 28, 2019 3:18 pm

The cobol-program.
We have done some DB2-stuff before this ISPF-command

Select all

01          ispf-service    pic  x(08).                  
01          ispf-key-list.                               
    05      ispf-key-count  pic  9(06)    binary.        
    05      filler          pic  9(06)    binary.        
    05      ispf-key        pic  x(08)    occurs 30.     
01          ispf-name-list.                              
    05      ispf-name-count pic  9(06)    binary.        
    05      filler          pic  9(06)    binary.        
    05      ispf-name       pic  x(08)    occurs 30.     
                                                         
01          ispf-table-name pic  x(08).                  
01          ispf-option1    pic  x(08).                  
01          ispf-option2    pic  x(08).                  

Select all

*    ----------------------------------           
*    create the result ISPF-table using           
*    collected column-names                       
*    ----------------------------------           
     display 'Trying TBCREATE'                    
     move 'TBCREATE'         to  ispf-service     
     move w-ispftab          to  ispf-table-name  
     move 00                 to  ispf-key-count   
     move 'NOWRITE '         to  ispf-option1     
     move 'REPLACE '         to  ispf-option2     
     call 'isplink'          using                
                             ispf-service         
                             ispf-table-name      
                             ispf-key-list        
                             ispf-name-list       
                             ispf-option1         
                             ispf-option2         
     end-call                                    

by **willy jensen** » Mon Oct 28, 2019 3:35 pm

Your parameter list is wrong, it should be like this:
CALL ISPLINK ('TBCREATE' , table-name , key-name-list, name-list, 'WRITE'|'NOWRITE', 'REPLACE'|' ', library)

by **LasseH** » Mon Oct 28, 2019 3:56 pm

Sorry but I'm not seeing any difference

Service = TBCREATE
Table-name = name coming from "accept"
Key-list = put zero in key-count (don't use keys)
Name-list = already populated from DB2.
Option1 = NOWRITE
Option2 = REPLACE
Not using "library

What am I missing?

by **LasseH** » Mon Oct 28, 2019 4:14 pm

Now I've put in some 'displays' in the program

Select all

display 'Trying TBCREATE'                      
move 'TBCREATE'         to  ispf-service       
move w-ispftab          to  ispf-table-name    
move space              to  ispf-key-list      
move 00                 to  ispf-key-count     
move 'NOWRITE '         to  ispf-option1       
move 'REPLACE '         to  ispf-option2       
display 'service >' ispf-service '<'           
display 'Table   >' ispf-table-name '<'        
display 'Key cont>' ispf-key-count '<'         
display 'Key 1   >' ispf-key (1) '<'           
display 'nme cont>' ispf-name-count '<'        
display 'nme 1   >' ispf-name (1) '<'          
display 'nme 2   >' ispf-name (2) '<'          
display 'nme 3   >' ispf-name (2) '<'          
display 'option1 >' ispf-option1 '<'           
display 'option2 >' ispf-option2 '<'           
call 'isplink'          using                  
                        ispf-service           
                        ispf-table-name        
                        ispf-key-list          
                        ispf-name-list         
                        ispf-option1           
                        ispf-option2           
end-call                                                                     

Select all

Trying TBCREATE           
service >TBCREATE<         
Table   >LASSE   <         
Key cont>000000<           
Key 1   >        <         
nme cont>000003<           
nme 1   >TYPNR   <         
nme 2   >TYPNAMN <         
nme 3   >TYPNAMN <         
option1 >NOWRITE <         
option2 >REPLACE <        

by **willy jensen** » Mon Oct 28, 2019 7:54 pm

I'm not a COBOL person so forgive me if I am talking rubbish. But the definition section looks a lot like PL/I (which I have done some time ago), so I assume that the structure

01 ispf-name-list.
05 ispf-name-count pic 9(06) binary.
05 filler pic 9(06) binary.
05 ispf-name pic x(08) occurs 30.

will generate 2 binary fields followed by the character field holding the name list. That is not the valid parameter format. I found a COBOL sample at https://www.ibm.com/support/knowledgece ... spsg30.htm

WORKING-STORAGE SECTION.
77 SERVIS PICTURE A(8) VALUE 'LMOPEN '.
77 DATAID PICTURE A(8).
77 OPTSHUN PICTURE A(8) VALUE 'INPUT '.
?
PROCEDURE DIVISION.
CALL 'ISPLINK' USING SERVIS DATAID OPTSHUN.

which uses strict character fields, no counts or fillers in front.

It would also be more useful if your displays showed the 'ispf-name-list' and 'ispf-key-list' fields.

by **LasseH** » Mon Oct 28, 2019 9:13 pm

Thanks, You got me on the right track.

I did spaced out the following definition:

Select all

move space              to  ispf-key-list
move space              to  ispf-name-list

Select all

01          ispf-key-list.                               
    05      ispf-key-count  pic  9(06)    binary.        
    05      filler          pic  9(06)    binary [b]Value Zero[/b].        
    05      ispf-key        pic  x(08)    occurs 30.     
01          ispf-name-list.                              
    05      ispf-name-count pic  9(06)    binary.        
    05      filler          pic  9(06)    binary [b]Value Zero[/b].       
    05      ispf-name       pic  x(08)    occurs 30.

But the 2 'fillers' has to have a value of ZERO

by **enrico-sorichetti** » Mon Oct 28, 2019 9:38 pm

https://www.ibm.com/support/knowledgece ... n8hc3.html
should help

IBM Mainframe Forum

External functions in Rexx

External functions in Rexx

Re: External functions in Rexx

Re: External functions in Rexx

Re: External functions in Rexx

Re: External functions in Rexx

Re: External functions in Rexx

Re: External functions in Rexx

Re: External functions in Rexx

Re: External functions in Rexx

Re: External functions in Rexx