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



IBM's hierarchical database management system with a Database Manager (IMS DB) and a Transaction Manager(IMS DC)

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

Postby futohomok » Thu Jul 27, 2023 5:54 pm

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....
futohomok
 
Posts: 25
Joined: Wed Aug 24, 2022 8:22 pm
Has thanked: 9 times
Been thanked: 0 time

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

Postby sergeyken » Thu Jul 27, 2023 10:22 pm

futohomok wrote: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...
Javas and Pythons come and go, but JCL and SORT stay forever.

These users thanked the author sergeyken for the post:
futohomok (Fri Jul 28, 2023 5:55 pm)
User avatar
sergeyken
 
Posts: 438
Joined: Wed Jul 24, 2019 10:12 pm
Has thanked: 7 times
Been thanked: 40 times

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

Postby futohomok » Fri Jul 28, 2023 4:08 pm

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
futohomok
 
Posts: 25
Joined: Wed Aug 24, 2022 8:22 pm
Has thanked: 9 times
Been thanked: 0 time

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

Postby sergeyken » Fri Jul 28, 2023 5:43 pm

1. Please, use this format:
//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:
. . . . . . . . . .        
//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
//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)  
Javas and Pythons come and go, but JCL and SORT stay forever.

These users thanked the author sergeyken for the post:
futohomok (Fri Jul 28, 2023 5:54 pm)
User avatar
sergeyken
 
Posts: 438
Joined: Wed Jul 24, 2019 10:12 pm
Has thanked: 7 times
Been thanked: 40 times

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

Postby futohomok » Fri Jul 28, 2023 6:13 pm

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
futohomok
 
Posts: 25
Joined: Wed Aug 24, 2022 8:22 pm
Has thanked: 9 times
Been thanked: 0 time

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

Postby jcdm » Fri Jul 28, 2023 6:19 pm

I guess u should check your IMS.INSTALIB

//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      

These users thanked the author jcdm for the post:
futohomok (Wed Aug 02, 2023 8:37 pm)
jcdm
 
Posts: 20
Joined: Fri Dec 10, 2021 4:39 pm
Has thanked: 1 time
Been thanked: 3 times

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

Postby futohomok » Thu Aug 03, 2023 1:21 pm

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.
futohomok
 
Posts: 25
Joined: Wed Aug 24, 2022 8:22 pm
Has thanked: 9 times
Been thanked: 0 time


Return to IMS DB/DC

 


  • Related topics
    Replies
    Views
    Last post