Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Obtaining the PCB Address List with EXEC DLI

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
monitor

New User


Joined: 08 Feb 2007
Posts: 3
Location: UK

PostPosted: Thu Feb 08, 2007 10:10 pm    Post subject: Obtaining the PCB Address List with EXEC DLI
Reply with quote

I have seen a similar post on this topic which implied that you don't need to know the PCB address list, but I need to. Does anyone know how you can obtain the PCB address list under CICS when using EXEC DLI. This is for a conversion from call level DL/1 (ASMTDLI etc) to command level. An ASMTDLI PCB (schedule) call passes back the addresses of both the PCB list and the UIB. I have scanned the IBM docs and can find no equivalent for command-level DLI
Back to top
View user's profile Send private message

Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Mon Feb 12, 2007 1:42 am    Post subject:
Reply with quote

Could this be of any help? Click
Back to top
View user's profile Send private message
monitor

New User


Joined: 08 Feb 2007
Posts: 3
Location: UK

PostPosted: Mon Feb 12, 2007 3:03 pm    Post subject:
Reply with quote

Thanks for the reference but this is just a CALL level PSB schedule, and this is what I'm trying to get away from (though it's starting to look as though I'm stuck with it). The command level schedule "EXEC DLI SCHD" gives you nothing back in the way of data area pointers, and these are what I need.
Back to top
View user's profile Send private message
monitor

New User


Joined: 08 Feb 2007
Posts: 3
Location: UK

PostPosted: Fri Oct 12, 2007 6:06 pm    Post subject:
Reply with quote

For anyone interested, I've finally found the answer to this and discovered some peculiarities of DL/1 also.

If you issue a call-level schedule and then try to do a cmd-level GU (for example), IMS returns a "not scheduled" status. If after scheduling with call level you try an EXEC DLI SCHD however, you get abend DHTH which says PSB is already scheduled. Bizarre behaviour.

It seems there are two ways to get the PCB Address List. The first (which I haven't tried) is to write a CICS Global User Exit program and switch on XDLIPOST. By far the easier method is to write a small Assembler routine that does the following:
Code:

         DFHAFCD TYPE=DSECT                .CICS AUTHORISED FUNCTIONS
*                                                               
         DFHCSAD TYPE=DSECT                .CICS CSA MAPPING         
*                                                               
         DFHTCA CICSYST=CONTIG             .CICS TCA MAPPING         
*                                                               
         DLIUIB ,                          .DL/1 USER INTERFACE BLOCK
*
           .....

               DFHAFCD TYPE=LOCATE,REG=R1                                 
               L     R1,AFCSA-DFHAFCB(,R1) .ADDRESS THE CSA             
                USING DFHCSADS,R1                                         
               L     R1,CSACDTA            .GET CURR DISPATCHED TASK
                DROP  R1                                                   
                USING DFHTCADS,R1                                         
               L     R1,TCADLIBA           .GET DL/1 UIB ADDRESS         
                DROP  R1                                                   
                USING UIB,R1                                               
               MVC   EISPCBAL,UIBPCBAL     .SAVE PCB ADDRESS LIST     
                DROP  R1[/b]
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Mon Oct 15, 2007 4:45 pm    Post subject:
Reply with quote

Thanks for sharing your experience icon_idea.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IP Address of workstation martin9 CICS 3 Fri Jun 23, 2017 7:39 pm
No new posts member list compare jzhardy TSO/ISPF 6 Fri May 12, 2017 3:18 pm
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am
No new posts RC 20 for Address ISPEXEC "ISRED... pkmurali CLIST & REXX 3 Sun Apr 16, 2017 11:30 pm
No new posts SQL query to run through list of valu... Ni3-db2 DB2 14 Wed Dec 14, 2016 9:52 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us