Cogito-Ergo-Sum
Advanced
Joined: 15 Dec 2002
Posts: 637
Topics: 43
Location: Bengaluru, INDIA
|
 Posted: Mon Mar 06, 2006 11:55 am Post subject: CSQUTIL: MQMOD and MQMD structure with COPY command |
 |
|
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. |
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
