MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

CSQUTIL: MQMOD and MQMD structure with COPY command

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> CICS and Middleware
View previous topic :: View next topic  
Author Message
Cogito-Ergo-Sum
Advanced


Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA

PostPosted: Mon Mar 06, 2006 11:55 am    Post subject: CSQUTIL: MQMOD and MQMD structure with COPY command Reply with quote

Hi,
I am using the following step to unload a queue to a dataset and then convert it to RECFM=FB so that ISPF allows me to view the contents.

Code:

//STEP001  EXEC PGM=IEFBR14                                             
//OT01     DD DSN=XXXXXX.YYYYY.Q00013.UNLOAD,                           
//            DISP=(MOD,DELETE,DELETE),                                 
//            UNIT=SYSDA,                                               
//            SPACE=(TRK,0)                                             
//*                                                                     
//STEP002  EXEC PGM=CSQUTIL,                                           
//            PARM='QMGR',                                             
//            COND=(0,LT)                                               
//STEPLIB  DD DSN=SYS1.SCSQANLE,DISP=SHR                               
//         DD DSN=SYS1.SCSQAUTH,DISP=SHR                               
//SYSIN    DD *                                                         
 COPY QUEUE(XXXXXX.YYYYY.Q00013) DDNAME(QOUT)                           
/*                                                                     
//SYSPRINT DD SYSOUT=*                                                 
//QOUT     DD DSN=XXXXXX.YYYYY.Q00013.UNLOAD,                           
//            DISP=(,CATLG,DELETE),                                     
//            UNIT=SYSDA,                                               
//            SPACE=(CYL,1),                                           
//            DCB=(RECFM=FB,LRECL=32,DSORG=PS)                         
//*                                                                     
//STEP003  EXEC PGM=IEFBR14                                             
//OT01     DD DSN=XXXXXX.YYYYY.Q00013.UNLOAD.FB,                       
//            DISP=(MOD,DELETE,DELETE),                                 
//            UNIT=SYSDA,                                               
//            SPACE=(TRK,0)                                             
//*                                                                     
//STEP004  EXEC PGM=SORT,                                               
//            COND=(0,LT)                                               
//SYSIN    DD *                                                         
  OPTION COPY                                                           
  OUTFIL VTOF,                     Convert VBS to FB                   
         OUTREC=(1:5,336)          Take the message                     
*                                                                       
/*                                                                     
//SORTIN   DD DSN=XXXXXX.YYYYY.Q00013.UNLOAD,                           
//            DISP=SHR,                                                 
//            DCB=(LRECL=32760)                                         
//SORTOUT  DD DSN=XXXXXX.YYYYY.Q00013.UNLOAD.FB,                       
//            DISP=(,CATLG,DELETE),                                     
//            UNIT=SYSDA,                                               
//            SPACE=(CYL,1),                                           
//            DCB=(RECFM=FB)                                           
//SYSOUT   DD SYSOUT=*                                                 


I am unable to understand the leading 8 bytes of data for every MQMD and the MQOD in the SORTOUT dataset. The first 4 bytes are having alphanumeric data and the next four is having 1 stored in binary.

Can anyone explain the leading eight bytes ?

The reason, I am asking this question is, I want to prepare a dataset that is similar to the unloaded one so that I am able to load the queue using CSQUTIL. I prepared the MQOD and MQMD using FileAid but the LOAD step would fail with a message, 'CSQU062E Incorrect format data record'.
_________________
ALL opinions are welcome.

Debugging tip:
When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.
-- Sherlock Holmes.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> CICS and Middleware All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group