How can I copy message queue files (LGMSG,SHMSG) in V9R1

[futohomok]

Hello IMS Gurus,

I want to copy the message queue files into some backups in IMS V9R1 environment. Because the LGMSG file haves 6720 blocksize and 2520 record size, the IEBGENER utility generates an error message 'IEB311I CONFLICTING DCB PARAMETERS' for input parameter which is LGMSG dataset.. What can I do in this situation? Please, send me a few words about this problem if possible.

Best regards....

[sergeyken]

Hello IMS Gurus,

I want to copy the message queue files into some backups in IMS V9R1 environment. Because the LGMSG file haves 6720 blocksize and 2520 record size, the IEBGENER utility generates an error message 'IEB311I CONFLICTING DCB PARAMETERS' for input parameter which is LGMSG dataset.. What can I do in this situation? Please, send me a few words about this problem if possible.

Best regards....

CONFLICTING DCB PARAMETERS means that input dataset attributes do not match the output dataset attributes, which are not presented in your post.

BTW, what is RECFM?
BLKSIZE=6720 is not multiple of LRECL=2520...

[futohomok]

Dear sergeyken,
very thanks for your answer and the whole JCL script is:

//STEP2 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD DSN=IMS.V9R1.IMSA.LGMSG,DISP=SHR
//* DCB=(RECFM=FBS,LRECL=2520,BLKSIZE=6720)
//SYSUT2 DD DSN=CPY.IMS.V9R1.IMSA.LGMSG,DISP=(NEW,KEEP,KEEP),
// SPACE=(CYL,(2,0)),UNIT=SYSDA,
// DCB=(RECFM=FBS,LRECL=2520,BLKSIZE=6720)

The DCB data of LGMSG (and other massage queue datasets: SHMSG or QBLKS) is given by z/OS . This LRECL and BLKSOZE values are in conflict with documentation, which requires that BLKSIZE = (n x LRECL) where n is a whole number if RECFM is fixed and blocked

[sergeyken]

1. Please, use this format:

Code: Select all

//STEP2 EXEC PGM=IEBGENER                                      
//SYSPRINT  DD SYSOUT=*                                        
//SYSIN     DD DUMMY                                            
//SYSUT1    DD DSN=IMS.V9R1.IMSA.LGMSG,DISP=SHR                
//*         DCB=(RECFM=FBS,LRECL=2520,BLKSIZE=6720)            
//SYSUT2    DD DSN=CPY.IMS.V9R1.IMSA.LGMSG,DISP=(NEW,KEEP,KEEP),
//  SPACE=(CYL,(2,0)),UNIT=SYSDA,                              
//  DCB=(RECFM=FBS,LRECL=2520,BLKSIZE=6720)  

2. Try this:

Code: Select all

. . . . . . . . . .        
//SYSUT2    DD DSN=CPY.IMS.V9R1.IMSA.LGMSG,DISP=(NEW,KEEP,KEEP),
//  SPACE=(CYL,(2,0)),UNIT=SYSDA,                              
//  DCB=(IMS.V9R1.IMSA.LGMSG)  

3. I suspect IEBGENER does not support RECFM=FBS? If so, I don't know what program does...
RECFM={ F | FB | V | VB | U | VS | VBS}

4. You can use some trick: copy block by block

Code: Select all

//STEP2 EXEC PGM=IEBGENER                                      
//SYSPRINT  DD SYSOUT=*                                        
//SYSIN     DD DUMMY                                            
//SYSUT1    DD DSN=IMS.V9R1.IMSA.LGMSG,DISP=SHR,               
//         DCB=(RECFM=FB,LRECL=6720,BLKSIZE=6720)            
//SYSUT2    DD DSN=CPY.IMS.V9R1.IMSA.LGMSG,DISP=(NEW,KEEP,KEEP),
//  SPACE=(CYL,(2,0)),UNIT=SYSDA,                              
//  DCB=(RECFM=FB,LRECL=6720,BLKSIZE=6720)  

[futohomok]

Dear sergeyken,
thanks for you that deal with problem. When I use the trick which you proposed in point 4, the JCL returned with 0 condition code. ----> HURRRRRRA. --- > Very thanks for your help

[jcdm]

I guess u should check your IMS.INSTALIB

Code: Select all

//ALLOC    EXEC PGM=IEBGENER                                      
//SYSPRINT DD SYSOUT=*                                            
//SYSUT1   DD DISP=SHR,DSN=IMS.LGMSG                          
//SYSUT2   DD DISP=(NEW,CATLG,DELETE),DSN=IMS.LGMSG.NEW,      
// LIKE=IMS.LGMSG,                                            
// UNIT=3390,VOL=SER=YourVOLUME,                                      
// SPACE=(CYL,(YourCYLS,0))                    
//SYSIN    DD DUMMY      

[futohomok]

Dear jcdm,

very thanks for your answer. I'm a new racer in IMS world. For this I want to query some things about this world from you. First, the JOBs in the IMS.INSTALLIB can to run anytime. If yes, than in which situation Second, I want to make an online app to IMS with screen input-output. For this I regenerate the IMS region, because must be make a transaction name for my app.

APPLCTN PSB=ZNLOAD,PGMTYPE=TP
TRANSACT CODE=ZENE,MODE=SNGL,MSGTYPE=(SNGLSEG,NONRESPONSE,1)
SPACE 2

Is this right? This should do it?

Please, send me some words about these problems

Best regards



query is Version of my IMS is V9R1.