Example of JCL to create IDMSCTAB for DCMT command security.

Products

• IDMS

Issue/Introduction

An example is needed to show the creation of the standalone IDMSCTAB module

Environment

IDMS - all supported releases

Resolution

//ASMCTAB EXEC PGM=ASMA90,                                              
//             REGION=512K                                              
//SYSLIB    DD DSN=Your.IDMS.CAGJMAC,DISP=SHR                   
//          DD DSN=SYS1.MACLIB,DISP=SHR                                 
//SYSUT1    DD DSN=&&SYSUT1,UNIT=VIO,SPACE=(1700,(600,100))             
//SYSUT2    DD DSN=&&SYSUT2,UNIT=VIO,SPACE=(1700,(600,100))             
//SYSUT3    DD DSN=&&SYSUT3,UNIT=VIO,SPACE=(1700,(600,100))             
//SYSPRINT  DD SYSOUT=*                                                 
//SYSPUNCH  DD DUMMY                                                    
//SYSLIN    DD DSN=&&OBJECT,DISP=(NEW,PASS),UNIT=SYSDA,                 
//             SPACE=(80,(500,1000))                                    
//SYSIN     DD *                                                        
      #CTABGEN LOGIN=YES,                                              X
               (A,1,B,2,C,9),                                          X
               (N033,C,N001,C,N002,C,N028,A,N009,A,N030,A,N059002,B)    
      END                                                               
//LINK     EXEC PGM=IEWL,PARM='LET,LIST,XREF',REGION=512K,              
//          COND=(8,LT,ASMCTAB)                                         
//SYSLIB    DD DSN=your.IDMS.CAGJLOAD,DISP=SHR                 
//SYSLIN   DD DSN=&&OBJECT,DISP=(OLD,DELETE)                            
//         DD *                                                         
 ENTRY CTABEP1                                                          
 MODE  AMODE(31),RMODE(ANY)                                             
 NAME IDMSCTAB(R)                                                       
//SYSLMOD  DD DSN=your.CUSTOM.LOADLIB(IDMSCTAB),DISP=SHR   
//SYSPRINT DD SYSOUT=*                                                  
//SYSUT1   DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(6400,(80)),                
//            DISP=(NEW,DELETE)                                    

    

Additional Information

#CTABGEN