Local Mode DMLO using TSO CLIST

book

Article ID: 208464

calendar_today

Updated On:

Products

CA IDMS

Issue/Introduction

 

Trying to run DMLO in Local mode calling USDTPIF3 to do this from a TSO CLIST.

All the load modules were copied into one load library for this to work but it abended with S0C6:

IEA995I SYMPTOM DUMP OUTPUT

SYSTEM COMPLETION CODE=0C6  REASON CODE=00000006

TIME=14.38.23  SEQ=50046  CPU=0000  ASID=0124

PSW AT TIME OF ERROR  078D0000   9CF30DEA  ILC 2  INTC 06

   ACTIVE LOAD MODULE           ADDRESS=1CF30960  OFFSET=0000048A

   NAME=USDMLXIT

   DATA AT PSW  1CF30DE4 - 07FF0000  1CF30DE8  C35BC15B

   AR/GR 0: 000000C0/0000002D_00000000   1: 00000000/00000000_9CF30990

         2: 00000000/00000000_00000000   3: 00000000/00000000_000AC328

         4: 00000000/00000000_00000000   5: 00000000/00000000_00000005

         6: 00000000/00000000_000A71F8   7: 00000000/00000000_000A71F8

         8: 00000000/00000000_9CF30960   9: 00000000/00000000_000A1F40

         A: 00000000/00000000_1D063FD8   B: 00000000/00000000_000A4143

         C: 00000000/00000000_0005F000   D: 00000000/00000000_000AC71C

         E: 00000000/00000000_9CF309AE   F: 076B1618/00000000_1CF30DE8

END OF SYMPTOM DUMP

Abend 0C6000 hex occurred processing command 'CALL    '.

ISPD210  CMD abended - 'CV1LR09' terminated abnormally.

Environment

Release : 19.0

Component : CA ADS

Resolution

The access DMLO in local mode the database DSN's must be coded in the CLIST and the SYSIDMS load module must also be assembled into the CDMSLIB. In this example the EMPDEMO database is used

PROC 0                                                                
CONTROL NOMSG LIST                                                    
FREE F(SYSPRINT,SYSOUT,SYSOUD,SYSLST,SYSUDUMP,SYSCTL,DCMSG,SYSMDUMP)  
FREE F(SYSIDMS,SYSJRNL,J1JRNL,J2JRNL,J3JRNL,J4JRNL,CDMSLIB)           
FREE F(EMPDEMO ORGDEMO INSDEMO)                                       
CONTROL MSG                                                           
ALLOC F(SYSPRINT) DA(*)                                               
ALLOC F(SYSOUT)   DA(*)                                               
ALLOC F(SYSOUD)   DA(*)                                               
ALLOC F(SYSLST)   DA(*)                                               
ALLOC F(SYSUDUMP) DUMMY                                               
ALLOC F(SYSMDUMP) DA('BARRA01.SYSMDUMP') SHR                          
ALLOC F(DCMSG)    DA('BARRA01.CONFIG.IDMSTEST.SYSMSG.DDLDCMSG') SHR   
ALLOC FI(EMPDEMO) DA('HLQ.EMPDEMO.EMPDEMO') SHR                   
ALLOC FI(ORGDEMO) DA('HLQ.EMPDEMO.ORGDEMO') SHR                   
ALLOC FI(INSDEMO) DA('HLQ.EMPDEMO.INSDEMO') SHR                   
ALLOC F(SYSJRNL)  DUMMY                                               
ALLOC F(J1JRNL)   DUMMY                                               
ALLOC F(J2JRNL)   DUMMY                                               
ALLOC F(J3JRNL)   DUMMY                                               
ALLOC F(J4JRNL)   DUMMY                                               
ALLOC F(CDMSLIB)  DA('HLQ.ONEIDMS.LOADLIB') SHR                   
CALL 'HLQ.ONEIDMS.LOADLIB(USDTPIF3)'                              
CONTROL NOMSG LIST                                                    
FREE F(SYSPRINT,SYSOUT,SYSOUD,SYSLST,SYSUDUMP,SYSCTL,DCMSG,SYSMDUMP)  
FREE F(SYSIDMS,SYSJRNL,J1JRNL,J2JRNL,J3JRNL,J4JRNL,CDMSLIB)           
FREE F(EMPDEMO ORGDEMO INSDEMO)                                       
CONTROL MSG    

 

In this example the DBA, CUSTOM and target LOADLIB were copied into HLQ.ONEIDMS.LOADLIB. An alternative to doing this is to use TSOLIB.