getting rid of 'service reload'

[shelbydog]

I'm converting old CICS code and getting rid of 'service reload', converting GETMAINs, etc. Example of code I'm converting:

SERVICE RELOAD BLL-CELLS.
EXEC CICS LOAD PROGRAM('MIP0001T')
SET (TABLE-PTR)
LENGTH (WS-LENGTH) END-EXEC.
SERVICE RELOAD TABLE-POINTERS.
MOVE CSECT1-DISPLACEMENT TO CODE-PTR.
MOVE CSECT2-DISPLACEMENT TO DATA-PTR.
SERVICE RELOAD CODE-TABLE.
SERVICE RELOAD DATA-TABLE.

I need some sort of direction, help, or a resource to explain what I need to do.

 

[TonyJollans]

Hi shelbydog,

Your question is a bit wide ranging - you have a potentially large project on your hands, but in the specific example you quote you want to Set Addresses of Linkage Section items instead of loading (masked) BLL cells and doing Service Reloads, so (guessing slightly about your structures) it should go something like this ..

[blue]Linkage Section.

1   TABLE-POINTERS.
  3    CSECT1-DISPLACEMENT    Pointer.
  3    CSECT2-DISPLACEMENT    Pointer.

1   CODE-TABLE.
    :
    :
 
1   DATA-TABLE.
    :
    :
 

Procedure Division.
    :
    :
    EXEC CICS LOAD PROGRAM('MIP0001T')          
                   SET    ([red]Address of[/red] TABLE-POINTERS)           
                   LENGTH (WS-LENGTH) END-EXEC. 

    Set Address of CODE-TABLE to CSECT1-DISPLACEMENT
    Set Address of DATA-TABLE to CSECT2-DISPLACEMENT[/blue]

One caveat: It's some time since I've done this and don't have access to a mainframe to check it out, so please treat it as a pointer (no pun intended) in th egeneral direction rather than as absolute code.

Enjoy,
Tony

------------------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading FAQ222-2244 before you ask a question.

 

[castelr]

Well, If you take all the 01 levels in linkage and move them to working storage you can get rid of service reloads and the pointers moves. If you have any other questions on this maybe I can send you my email.

 

[TonyJollans]

Hi castelr,

Whether shelbydog can, or should, move things from Lingage to W/S depends, in any particular case, on various factors and it is impossible to tell from the posted code whether it would be right in this case (although I would suggest that the size of the loaded table is unknown at compile time and that there would be some problems catering for it in Working Storage). Your good suggestion is, nonetheless, one of several things which can be done and shelbydog should certainly consider it.

Please note, however, that Tek-Tips is not a dating agency. I'm sure your offer is well intentioned, but questions and answers are posted for the benefit of the whole community; when taken offline much of that benefit is lost. Members generally only resort to it when all else has failed to resolve a problem and the offline route enables things which can't be done via the site.

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.