Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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
This topic is locked: you cannot edit posts or make replies. ISREDIT Macro is not returning back t... nico_neoz CLIST & REXX 21 Sat Nov 18, 2017 7:40 pm
No new posts exec macro in the end of edit anatol CLIST & REXX 8 Fri Sep 22, 2017 5:10 am
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

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us